Render to Texture: Read on.....

BlitzMax Forums/BlitzMax Programming/Render to Texture: Read on.....

Here is a small example : http://indiepath.com/public/Example1.rar

Here is the code for the example
Strict

Import Indiepath.Render2Texture

HideMouse()
'SetGraphicsDriver GLMax2DDriver()
Graphics 640,480,32

tRender.Initialise()

AutoMidHandle(1)

Local logo:Timage = LoadImage("bmax160_2.png",MIPMAPPEDIMAGE|FILTEREDIMAGE)
Local myImage:TImage = tRender.Create(256,128,MIPMAPPEDIMAGE|FILTEREDIMAGE)


tRender.TextureRender_Begin(myImage)
	Cls
tRender.TextureRender_End()

SetBlend(ALPHABLEND)

Local ii:Float = 0

While Not KeyHit(KEY_ESCAPE)
	
	SetBlend(ALPHABLEND)
	SetAlpha(1)
	tRender.TextureRender_Begin(myImage)
	Cls	
		SetRotation(ii)
		Local sc:Float = (Sin(MilliSecs()/10))+1.5
		SetScale(sc,sc)
		DrawImage logo,320,240
	tRender.TextureRender_End()


	tRender.BackBufferRender_Begin()

		SetRotation(ii)
	 	DrawImage logo,320,240
		SetBlend(ALPHABLEND)
		SetMaskColor(0,0,0)
		SetRotation(0)
		Local ap# = 0.2
		SetScale(1,1)
		For Local a:Int = 1 To 10
			Local Xoffset:Int = a * 60
			Local yoffset:Int = a * 40
			SetAlpha(ap#)
			DrawImageRect(myImage,-Xoffset,-Yoffset,640+(XOffset*2),480+(yOffset*2))
			ap:-0.01
		Next


	tRender.BackBufferRender_End()

	
	If MouseHit(1) tRender.SetMipMap(myImage,1)
	
	Flip
	ii:+1
	
Wend