rem PICSEL RND
GR.OPEN 0, 0, 0, 255

GR.ORIENTATION 1
GR.SCREEN w,h

GR.SET.STROKE 2 

gr.text.size 30

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 alphaCos [48,48]
DIM alphaSin [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
  alpha = 2*PI()*RND()

  alphaCos[x,y] = cos(alpha)
  alphaSin[x,y] = sin(alpha)

  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
delta = 150
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.text.draw normal[x,y],xc[x,y]*10+delta,yc[x,y]*10+delta,"*"

 NEXT y

NEXT x

GR.RENDER

PAUSE 1000

cicl:

FOR x=1 TO bx-1 STEP 1

 FOR y=1 TO by-1 STEP 1

! print alphaCos[x,y]
! print alphaSin[x,y]

GR.MODIFY normal[x,y], "x", xc[x,y]*10 + delta + alphaCos[x,y]*z, "y", yc[x,y]*10 + delta + alphaSin[x,y]*z

 NEXT y

NEXT x

GR.RENDER

z=z+20

GOTO cicl