REM Start of BASIC! Program
gr.open 0, 0, 0, 255
gr.orientation 1
gr.screen w,h

gr.set.stroke 4

gr.color 255,0,0,0,1
gr.rect back,0,0,w,h

gr.bitmap.load img, "cartman.png"

gr.bitmap.size img, bx,by

for x=1 to bx-1

for y=1 to by-1

gr.get.bmpixel img,x,y,a,r,g,b

IF r+g+b0 THEN

gr.color a,r,g,b

gr.point normal,x*8+200,y*8+404

tone r*300,93,0
tone g*300,93,0
tone b*300,93,0

gr.render

END IF

next y

next x

do

until 0