function rotate_image(imgIn,imgOut,Rotation)
Dim IMGDATA(1024,1024,4) as byte

make memblock from image 1,ImgIn
Width=memblock dword(1,0)
Height=memblock dword(1,4)
Depth=memblock dword(1,8)

bCount=12
for n=1 to width
for m=1 to height
for o=1 to Depth/8
IMGDATA(n,m,o)=memblock byte(1,bCount)
bCount=bCount+1
next o
next m
next n

bCount=12

If Rotation=270
for n=1 to width
for m=1 to height
for o=1 to Depth/8
write memblock byte 1,bCount,IMGDATA(m,(width-n),o)
bCount=bCount+1
next o
next m
next n
endif

If Rotation=90
for n=1 to width
for m=1 to height
for o=1 to Depth/8
write memblock byte 1,bCount,IMGDATA((height-m),n,o)
bCount=bCount+1
next o
next m
next n
endif

If Rotation=180
for n=1 to width
for m=1 to height
for o=1 to Depth/8
write memblock byte 1,bCount,IMGDATA((width-n),(height-m),o)
bCount=bCount+1
next o
next m
next n
endif

make image from memblock imgOut,1
delete memblock 1

undim IMGDATA()
endfunction