Try if you see all 4 Rects (Topleft,TopRight,BottomLeft,BottomRight) and all values from 50 to 750.
For doing this - exchange your example with:
and replace:
with:
bye
MB
For doing this - exchange your example with:
SetBlend(ALPHABLEND) tRender.TextureRender_Begin(myImage,False) tRender.Cls For Local i:Int = 0 To 16 'drawing 16 marks horizontally - from 0 to 800px DrawLine(i*50,0,i*50,600) DrawText("x="+(i*50),i*50, 50) Next SetColor 255,0,0 DrawRect(0,0,11,11) 'top left DrawRect(790,0,11,11) 'top right DrawRect(790,590,11,11) 'bottom right DrawRect(0,590,11,11) 'bottom left SetColor 200,200,200 DrawRect(1,1,10,10) 'top left DrawRect(789,1,10,10) 'top right DrawRect(789,589,10,10) 'bottom right DrawRect(1,589,10,10) 'bottom left SetColor 255,255,255 tRender.TextureRender_End() SetImageHandle(logo,0,0) tRender.BackBufferRender_Begin() tRender.Cls DrawImage myimage , 0,0 DrawImage logo,300,0 tRender.BackBufferRender_End() Flip WaitKey()
and replace:
Graphics 800,600,0
with:
SetGraphicsDriver GLMax2DDriver() Graphics 800,600,0
bye
MB