REM Start of BASIC! Program 
gr.open 0, 0, 0, 255

gr.orientation 1
gr.screen w,h

gr.set.stroke 2 % размер пикселя

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

dim normal[48,48]
dim xc[48,48]
dim yc[48,48]
dim ac[48,48]
dim rc[48,48]
dim gc[48,48]
dim bc[48,48]

% ввод по пиксельно
 
for x=1 to bx-1

for y=1 to by-1

% возврат цветовых данных для пикселя
gr.get.bmpixel img,x,y,a,r,g,b

normal[x,y]=img
xc[x,y]=x
yc[x,y]=y
ac[x,y]=a
rc[x,y]=r
gc[x,y]=g
bc[x,y]=b

next y

next x

z=1

for x=1 to bx-1

for y=1 to by-1

gr.color ac[x,y],rc[x,y],gc[x,y],bc[x,y]
gr.circle normal[x,y],xc[x,y]*10+150,yc[x,y]*10+150,3

next y

next x

gr.render

pause 4000

cicl:

for x=1 to bx-1 step 2

for y=1 to by-1 step 2
 
gr.modify normal[x,y], "x", x*10+150,"y", y*10+z+150

!gr.modify normal[x,y], "x",x*10+z, "y",y*10+z

 next y

 next x
 
 gr.render

z=z+5

goto cicl