r2t - Sourcecode.

Hi, anyone know how to fix it?
I can't clean the texture before draw in it (in real size).

edit: solved, using rects instead whole buffer (null).

Strict

Import Indiepath.Render2Texture

SetGraphicsDriver D3D7Max2DDriver()
Graphics 640,480,0
SetBlend(ALPHABLEND)
tRender.Initialise()

Local image:TImage=LoadImage("bmax160_2.png")
MidHandleImage(image)

Local myImage1:TImage = tRender.Create(256,256)
Local myImage2:TImage = tRender.Create(256,256)

Local rot:Int,x:Int,y:Int

Repeat
rot:+1
If rot>10 Then rot=0; x=Rand(100,400); y=Rand(100,400)


tRender.TextureRender_Begin(myImage1,0) 'fit to the screen size
	tRender.Cls($90FF0000)
	DrawImage image,x,y
tRender.TextureRender_End()

tRender.TextureRender_Begin(myImage2,1) 'fit to the image size
	tRender.Cls($900000FF)
	DrawImage image,x,y
tRender.TextureRender_End()


tRender.BackBufferRender_Begin()
	tRender.Cls($FF000000)
	SetScale 10,10
	DrawText "********",0,0
	DrawText "********",0,130
	SetScale 1,1
  	DrawImage myImage1,0,0
  	DrawImage myImage2,320,0
tRender.BackBufferRender_End()

Flip

Until KeyHit(KEY_ESCAPE)