Here is a small example : http://indiepath.com/public/Example1.rar
Here is the code for the example
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