Sorry your browser is not supported!

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "draw" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
`SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global wid
global hit
wid=300
hit=200





CreateMemblock(1,16+((wid+1)*(hit+1)*4))

SetMemblockInt(1,0,wid)
SetMemblockInt(1,4,hit)
SetMemblockInt(1,8,32)
p=12
for y=1 to hit
for x=1 to wid
	 r=x
	 if r>255 then r=255
	 b=y
	 if b>255 then b=255
	 R=255
	 B=255
 SetMemblockByte(1,p,r)
 inc p
 SetMemblockByte(1,p,255)
 inc p
 SetMemblockByte(1,p,b)
 inc p
 SetMemblockByte(1,p,255)
 inc p
next x
next y


CreateImageFromMemblock(1,1)

CreateSprite(1,1)

SETSPRITEPOSITION(1,512-wid/2,384-hit/2)


` now, i would like to rotate that image clockwise using its memblock data.

` ???

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "draw" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
`SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
 
memblock = CreateMemblockFromImage(LoadImage("agk.png"))

width = GetMemblockInt(memblock, 0)
height = GetMemblockInt(memblock, 4)
size = GetMemblockSize(memblock)

 
newblock = CreateMemblock(size)
setMemblockInt(newblock, 0, height)
setMemblockInt(newblock, 4, width)
 
x = 0
y = 0

tox = height
toy = 1

for y = 1 to height
	for x = 1 to width
		pixel = GetMemblockInt(memblock, ((y - 1) * width * 4) + ((x - 1) * 4) + 12)
		SetMemblockInt(newblock, ((toy - 1) * height * 4) + ((tox - 1) * 4) + 12, pixel)
		inc toy
	next
	dec tox
	toy = 1
next
 
 
image = CreateImageFromMemblock(newblock)
 
sprite = CreateSprite(image)
  
 do
    

    Print( ScreenFPS() )
    Sync()
loop