GR.OPEN 255,255,255,255
GR.SCREEN w,h
GR.ORIENTATION 0
GR.SET.STROKE 2

DevSizeX = 1280
DevSizeY = 800
ScaleX = w/DevSizeX  
ScaleY = h/DevSizeY
GR.SCALE ScaleX, ScaleY

cx = w/2
cy = h/2

gr.text.size 50
gr.color 255,0,0,0

DIM normal$[133,5]
DIM alphaCos[133,5]
DIM alphaSin[133,5]
DIM xc[133,5]
DIM yc[133,5]
DIM vz[133,5]

array.load z$[],"о","д”,"н","а","ж","д","ы"," ","в"," ","с”,”т”,"у","д”,”е”,"н",”н”,”у”,”ю”,” ”,”з”,”и”,”м”,”н”,”ю”,”ю”,” ”,”п”,”о”,”р”,”у”,” ”," ",”я”,” ”,”и”,”з”,” ”,”л”,”е”,”с”,”а”,” ”,”в”,”ы”,”ш”,”е”,”л”,” ”,”б”,”ы”,”л”,” ”,”с”,”и”,”л”,”ь”,”н”,”ы”,”й”,” ”,”м”,”о”,”р”,”о”,”з”,”г”,”л”,”я”,”ж”,”у”,” ”,”п”,”о”,”д”,”н”,”и”,”м”,”а”,”е”,”т”,”с”,”я”,” ”,”м”,”е”,”д”,”л”,”е”,”н”,”н”,”о”,” ”,”в ”,” ”,”г”,”о”,”р”,”у”,”л”,”о”,”ш”,”а”,”д”,”к”,”а”,” ”,”в”,”е”,”з”,”у”,”щ”,”а”,”я”,” ","х","в","о","р","о","с","т","а"," ","в","о","з"," ",".",".","."," "
! array.length length,z$[]

z=1
k=1
m=33
delta=150
bx=34
by=34


for u=1 to 4

d=1

for i=k to m

x=100+d*30
y=300+u*50

! print x
! print y
! print z$[i]

gr.text.draw vz[i,u],x,y,z$[i]

! tone 3300,186

normal$[i,u]=z$[i]

! print normal$[i,u]

alpha = 2*PI()*RND()
  alphaCos[i,u] = cos(alpha)
  alphaSin[i,u] = sin(alpha)

! print alphaCos[i,u]
! print alphaSin[i,u]

  xc[i,u]=x
  yc[i,u]=y

gr.render

!!

pause 1000

gr.cls

!!


! print xc[i,u]
! print yc[i,u]

! print x
! print y

d=d+1

next i

m=m+33
k=k+33

next u

pause 1000

gr.cls

for u=1 to 5

d=1

for i=k to m

gr.text.draw vz[i,u],xc[i,u],yc[i,u],z$[i]


next i

m=m+33

k=k+33

next u

gr.render


! print xc[i,u]
! print yc[i,u]

! print x
! print y

d=d+1

next i

m=m+33
k=k+33

next u



cicl:

FOR u=1 TO bx-1

 FOR i=1 TO by-1

print bx
print by

print normal$[i,u]
! print xc[i,u]
! print yc[i,u]
! print alphaCos[i,u]
! print alphaSin[i,u]
! print delta
! print z

! GR.MODIFY normal$[i,u], "x", xc[i,u]+ delta + alphaCos[i,u]*z, "y", yc[i,u] + delta + alphaSin[i,u]*z

! print xc[i,u]
! print yc[i,u]
! print delta

 NEXT i

NEXT u

GR.RENDER

z=z+1

! GOTO cicl