Sorry your browser is not supported!

backdrop on:sync on
load image "dot.png",1
make memblock from image 1,1

do
set cursor 0,0
print "WIDTH"
print "0-";memblock dword(1,0)
print "1-";memblock dword(1,1)
print "2-";memblock dword(1,2)
print "3-";memblock dword(1,3)
print "HEIGHT"
print "4-";memblock dword(1,4)
print "5-";memblock dword(1,5)
print "6-";memblock dword(1,6)
print "7-";memblock dword(1,7)
PRINT "DEPTH"
print "8-";memblock dword(1,8)
print "9-";memblock dword(1,9)
print "10-";memblock dword(1,10)
print "11-";memblock dword(1,11)
PRINT "PIXEL 1"
print "12-";memblock dword(1,12)
print "13-";memblock dword(1,13)
print "14-";memblock dword(1,14)
print "15-";memblock dword(1,15)
PRINT "PIXEL 2"
print "16-";memblock dword(1,16)
print "17-";memblock dword(1,17)
print "18-";memblock dword(1,18)
print "19-";memblock dword(1,19)
PRINT "PIXEL 3"
print "20-";memblock dword(1,20)
print "21-";memblock dword(1,21)
print "22-";memblock dword(1,22)
print "23-";memblock dword(1,23)
PRINT "PIXEL 4"
print "24-";memblock dword(1,24)
print "25-";memblock dword(1,25)
print "26-";memblock dword(1,26)
print "27-";memblock dword(1,27)
print
print "Total size=";get memblock size(1)
sync    
LOOP

box 0,0,1,1
get image 1,0,0,2,2
make memblock from image 1,1

w= memblock dword(1,0)
h= memblock dword(1,4)
d= memblock dword(1,8)

print "WIDTH = "; w
print "HEIGHT = "; h
print "DEPTH = "; d;"-bit"

if d =32
   for i= 0 to w*h*4-1 step 4
       print memblock dword(1,12+i)
   next i
endif

b1 = memblock byte(1,0)
b2 = memblock byte(1,1)
b3 = memblock byte(1,2)
b4 = memblock byte(1,3)
width = b1 + (b2<<8) + (b3<<16) + (b4<<24)