[polopok]

После продолжительного затишья ...
код шарообразной сетки .
(пока не кликабельно )

Graphics 800,600,32,2
SetBuffer BackBuffer()

num = 10


r#=242
n# = 4*num
a# = 4.0
r2=90

While Not KeyHit(1)
Cls 
If KeyDown(200) r = r +1
If  KeyDown(208) r = r -1 
If  KeyDown(203) a = a +.1
If a >= 0.1 And KeyDown(205) a = a -.1 

For y = -num To num
For x = -num To num
	a1# = 180/(num*a)*x 
	a2# = 180/(num*a)*y
		vx# = Cos(a1-r2)*Cos(a2)  ;*r
		vy# = Cos(a1)*Sin(a2)  ;*r
	Plot 400+ (x)+(vx)*r, 300+(y)+vy*r
	Text 400+ (x)+(vx)*r, 300+(y)+vy*r ,(x*y)
Next 
Next 

Text 20,20,"angle =  "+a+"   Radius =  "+r

Flip 
Wend
End