Render Image to Image? - GameCreators Forum

Author

Message

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 6th May 2015 02:31

Link

Hi All,

Can I ask if anyone can help me with rendering an image into another image?
Is this possible?

Basically I have a situation where I need to create a sprite manually using the Draw commands - DrawLine etc.
As these items draw above everything else, I want to save the drawn image as a sprite, rotate it, position text, paste the text onto the image (think of a gameshow spin wheel), rotate again, paste more text, etc etc.
This image would then be saved and can be used in game as a... gameshow spinwheel. Well done, you guessed it.

I am a little confused as to the usage of Render, Sync, Update etc and their impact to what I am hoping to do.

Below is basic code. Note the function call to CreateSpinWheel() - no combination of Render, Sync etc seems to bear fruit - I can manage to have the wheel show (built using the DrawLine function) OR the pasted text (and hence rotates as it should - albeit without the wheel behind), but cant seem to be able to get both together.
It feels as though an image can not be rendered into another image?

Any help or pointers would be greatly appreciated. Thanks.

// Project: SpinWheelWIP 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "SpinWheelWIP" )
SetWindowSize( 1080, 1920, 0 )

// set display properties
SetVirtualResolution( 1080, 1920 )
SetOrientationAllowed( 1, 1, 1, 1 )

Wheel_Img=1
CreateRenderImage(Wheel_Img,1080,1920,0,1)
WheelSpr=CreateSprite(Wheel_Img)
SetSpriteVisible(WheelSpr,0)
SetSpriteOffset(WheelSpr,1080/2,1920/2)

Final_Img=2
CreateRenderImage(Final_Img,1080,1920,0,1)
FinalSpr=CreateSprite(Final_Img)
SetSpriteVisible(FinalSpr,1)
SetSpriteOffset(FinalSpr,1080/2,1920/2)

rad=500

segments=3

col=Random(0,255)

Dim colours[10]
For n=0 to 10
	colours[n]=MakeColor(Random(0,255),Random(0,255),Random(0,255))
Next n

Dim name$[10]
name$[1]="Martin"
name$[2]="Andy"
name$[3]="Lisa"
name$[4]="Lyla"
name$[5]="Jessica"
name$[6]="Olly"
name$[7]="Fred"
name$[8]="Mohammed"
name$[9]="Dunny"
name$[10]="PooTash"

spin#=0
spinspeed#=0

CreateSpinWheel(segments,rad,Wheel_Img,Final_Img)

do
	
	SetSpriteAngle(FinalSpr,spin#)
	spin#=spin#+spinspeed#
	If spin#>360 then spin#=0
	If spinspeed#>0 then spinspeed#=spinspeed#-0.3
	If spinspeed#<0 then spinspeed#=0
	
	If (GetPointerReleased())
		spinspeed#=spinspeed#+Random(50,80)
	EndIf
	
	//DrawEllipse(1080/2,1080/2,1080/2,1080/2,MakeColor(255,255,255),MakeColor(0,0,0),0)
	
    Print( ScreenFPS() )
    Sync()
loop

Function CreateSpinWheel(segments,rad,Wheel_Img,Final_Img)
	cx=1080/2
	cy=1920/2
	SetRenderToImage(Wheel_Img,0)
	//ClearScreen()
	slice#=360/segments
	For seg=0 to segments
		For a#=seg*slice# to (seg+1)*slice# step 0.05
			ox#=Sin(a#)*rad
			oy#=Cos(a#)*rad
			DrawLine(cx,cy,ox#+cx,oy#+cy,colours[seg],colours[seg])
		Next a#
	Next seg
	//Render()
	Sync()
	SetRenderToImage(Final_Img,0)
	//ClearScreen()
	//Render()
	//Sync()
	text=CreateText("Name")
	SetTextSize(text,100)
	SetTextPosition(text,1080/2,1920/2)
	SetTextVisible(text,1)
	//Render()
	Sync()
	
	//DrawEllipse(cx,cy,rad,rad,MakeColor(255,255,255),MakeColor(0,0,0),0)
	SetRenderToScreen()
	SetTextVisible(text,0)
EndFunction

+ Code Snippet


// Project: SpinWheelWIP 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "SpinWheelWIP" )
SetWindowSize( 1080, 1920, 0 )

// set display properties
SetVirtualResolution( 1080, 1920 )
SetOrientationAllowed( 1, 1, 1, 1 )


Wheel_Img=1
CreateRenderImage(Wheel_Img,1080,1920,0,1)
WheelSpr=CreateSprite(Wheel_Img)
SetSpriteVisible(WheelSpr,0)
SetSpriteOffset(WheelSpr,1080/2,1920/2)

Final_Img=2
CreateRenderImage(Final_Img,1080,1920,0,1)
FinalSpr=CreateSprite(Final_Img)
SetSpriteVisible(FinalSpr,1)
SetSpriteOffset(FinalSpr,1080/2,1920/2)


rad=500

segments=3


col=Random(0,255)

Dim colours[10]
For n=0 to 10
	colours[n]=MakeColor(Random(0,255),Random(0,255),Random(0,255))
Next n

Dim name$[10]
name$[1]="Martin"
name$[2]="Andy"
name$[3]="Lisa"
name$[4]="Lyla"
name$[5]="Jessica"
name$[6]="Olly"
name$[7]="Fred"
name$[8]="Mohammed"
name$[9]="Dunny"
name$[10]="PooTash"

spin#=0
spinspeed#=0

CreateSpinWheel(segments,rad,Wheel_Img,Final_Img)

do
	
	SetSpriteAngle(FinalSpr,spin#)
	spin#=spin#+spinspeed#
	If spin#>360 then spin#=0
	If spinspeed#>0 then spinspeed#=spinspeed#-0.3
	If spinspeed#<0 then spinspeed#=0
	
	If (GetPointerReleased())
		spinspeed#=spinspeed#+Random(50,80)
	EndIf
	
	//DrawEllipse(1080/2,1080/2,1080/2,1080/2,MakeColor(255,255,255),MakeColor(0,0,0),0)
	
    Print( ScreenFPS() )
    Sync()
loop

Function CreateSpinWheel(segments,rad,Wheel_Img,Final_Img)
	cx=1080/2
	cy=1920/2
	SetRenderToImage(Wheel_Img,0)
	//ClearScreen()
	slice#=360/segments
	For seg=0 to segments
		For a#=seg*slice# to (seg+1)*slice# step 0.05
			ox#=Sin(a#)*rad
			oy#=Cos(a#)*rad
			DrawLine(cx,cy,ox#+cx,oy#+cy,colours[seg],colours[seg])
		Next a#
	Next seg
	//Render()
	Sync()
	SetRenderToImage(Final_Img,0)
	//ClearScreen()
	//Render()
	//Sync()
	text=CreateText("Name")
	SetTextSize(text,100)
	SetTextPosition(text,1080/2,1920/2)
	SetTextVisible(text,1)
	//Render()
	Sync()
	
	//DrawEllipse(cx,cy,rad,rad,MakeColor(255,255,255),MakeColor(0,0,0),0)
	SetRenderToScreen()
	SetTextVisible(text,0)
EndFunction

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

Matty H

16

Years of Service

User Offline

Joined: 7th Oct 2008

Location: England

Posted: 6th May 2015 10:38

Link

When you use DrawLine(), that is actually rendering the line to the image so I don't think you need Sync() or Render().

Then use DrawSprite() to draw your wheel to Final_Img, again, this actually renders the sprite so no Sync() or Render() is required.

Back to top

Profile PM Email

Ched80

14

Years of Service

User Offline

Joined: 18th Sep 2010

Location: Peterborough, UK

Posted: 6th May 2015 14:45

Link

You can't just use "Render()" on its own. Render() is one of three commands that make up Sync().

Sync() is made up of Update(), Render() and Swap(). So if you're callin Render(), you need to call Update() to update all the sprite positions, Render() and then Swap().

You may also have a problem with mipmaps as you've turned them on for your Render images. I'd suggest turning mipmaps off.

Try also using SetScissor(0.0,0.0,0.0,0.0).

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th May 2015 15:15

Link

There are 2 main ways of rendering to an image. The simplest for a one off render is to clear the screen, draw your lines etc, grab the image then clear the screen again IE.

+ Code Snippet

ClearScreen()
DrawLine(0,0,32,32,col,col)
DrawLine(0,32,32,0,col,col)
imageId = GetImage(0,0,32,32)
ClearScreen()
spriteId = CreateSprite(imageId)

If you are doing this regularly you might want to use SetRenderToImage but from the sound of it this is a one off when the sprite is created so the above would be best.

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 7th May 2015 01:59

Link

Thanks everyone for the great information.

I ended up playing about and going with baxslash's suggestion in the end.

// Project: SpinWheelWIP 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "SpinWheelWIP" )
SetWindowSize( 1080, 1920, 0 )

// set display properties
SetVirtualResolution( 1080, 1920 )
SetOrientationAllowed( 1, 1, 1, 1 )

global Wheel_Img
global Wheel_Spr
Wheel_Spr=CreateSprite(0)

rad=500

segments=3

col=Random(0,255)

Dim colours[10]
For n=0 to 10
	colours[n]=MakeColor(Random(0,255),Random(0,255),Random(0,255))
Next n

Dim name$[10]
name$[1]="Martin"
name$[2]="Andy"
name$[3]="Lisa"
name$[4]="Lyla"
name$[5]="Jessica"
name$[6]="Olly"
name$[7]="Fred"
name$[8]="Mohammed"
name$[9]="Dunny"
name$[10]="PooTash"

spin#=0
spinspeed#=0

CreateSpinWheel(segments,rad)
Wheel_Spr=CreateSprite(Wheel_Img)
SetSpriteSize(Wheel_Spr,1080,1920)
do
	SetSpriteAngle(Wheel_Spr,spin#)
	spin#=spin#+spinspeed#
	If spin#>360 then spin#=0
	If spinspeed#>0 then spinspeed#=spinspeed#-0.3
	If spinspeed#<0 then spinspeed#=0
	
	If (GetPointerReleased())
		spinspeed#=spinspeed#+Random(50,80)
	EndIf
	
    Print( ScreenFPS() )
    Sync()
loop

Function CreateSpinWheel(segments,rad)
	cx=1080/2
	cy=1920/2

slice#=360/segments
	For seg=0 to segments
		For a#=seg*slice# to (seg+1)*slice# step 0.05
			ox#=Sin(a#)*rad
			oy#=Cos(a#)*rad
			DrawLine(cx,cy,ox#+cx,oy#+cy,colours[seg],colours[seg])
		Next a#
	Next seg
	
	Wheel_Img=GetImage(0,0,1080,1920)
	
	SetSpriteImage(Wheel_Spr,Wheel_Img)
	SetSpriteAngle(Wheel_Spr,60)

DrawSprite(Wheel_Img)
	text=CreateText("Name")
	SetTextSize(text,100)
	SetTextPosition(text,1080/2,1920/2)
	SetTextVisible(text,1)

Render()
	Wheel_Img=GetImage(0,0,1080,1920)
	
	SetTextVisible(text,0)
EndFunction

+ Code Snippet


// Project: SpinWheelWIP 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "SpinWheelWIP" )
SetWindowSize( 1080, 1920, 0 )

// set display properties
SetVirtualResolution( 1080, 1920 )
SetOrientationAllowed( 1, 1, 1, 1 )

global Wheel_Img
global Wheel_Spr
Wheel_Spr=CreateSprite(0)

rad=500

segments=3

col=Random(0,255)

Dim colours[10]
For n=0 to 10
	colours[n]=MakeColor(Random(0,255),Random(0,255),Random(0,255))
Next n

Dim name$[10]
name$[1]="Martin"
name$[2]="Andy"
name$[3]="Lisa"
name$[4]="Lyla"
name$[5]="Jessica"
name$[6]="Olly"
name$[7]="Fred"
name$[8]="Mohammed"
name$[9]="Dunny"
name$[10]="PooTash"

spin#=0
spinspeed#=0

CreateSpinWheel(segments,rad)
Wheel_Spr=CreateSprite(Wheel_Img)
SetSpriteSize(Wheel_Spr,1080,1920)
do
	SetSpriteAngle(Wheel_Spr,spin#)
	spin#=spin#+spinspeed#
	If spin#>360 then spin#=0
	If spinspeed#>0 then spinspeed#=spinspeed#-0.3
	If spinspeed#<0 then spinspeed#=0
	
	If (GetPointerReleased())
		spinspeed#=spinspeed#+Random(50,80)
	EndIf
	
    Print( ScreenFPS() )
    Sync()
loop

Function CreateSpinWheel(segments,rad)
	cx=1080/2
	cy=1920/2

	slice#=360/segments
	For seg=0 to segments
		For a#=seg*slice# to (seg+1)*slice# step 0.05
			ox#=Sin(a#)*rad
			oy#=Cos(a#)*rad
			DrawLine(cx,cy,ox#+cx,oy#+cy,colours[seg],colours[seg])
		Next a#
	Next seg
	
	Wheel_Img=GetImage(0,0,1080,1920)
	
	SetSpriteImage(Wheel_Spr,Wheel_Img)
	SetSpriteAngle(Wheel_Spr,60)

	DrawSprite(Wheel_Img)
	text=CreateText("Name")
	SetTextSize(text,100)
	SetTextPosition(text,1080/2,1920/2)
	SetTextVisible(text,1)

	Render()
	Wheel_Img=GetImage(0,0,1080,1920)
	
	SetTextVisible(text,0)
EndFunction

Works well now, and allows build up of line drawn spinwheel and a sample item of text on top of this, built (once) on the main screen and saved as a sprite image and utilised as such.

However I have hit another stumbling block - I would like to rotate the wheel, apply text, save image, rotate, apply more text, save.. etc to build up rotated text around the wheel.
This does not seem to work - it appears the setspriteangle() call before drawsprite() has no impact on the orientation of the sprite?
Is this not applied immediately?

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

Matty H

16

Years of Service

User Offline

Joined: 7th Oct 2008

Location: England

Posted: 7th May 2015 11:05 Edited at: 7th May 2015 14:25

Link

Quote: "Is this not applied immediately?"

Not sure, maybe not. Try calling Update() after you rotate it and before you draw it.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Render Image to Image?