[polopok]

Кстати , пытаюсь 2д сетку в шарообразную сетку сделать , пока то ,что получилось.
если сталкивались с данной темой киньте ссылку .

time = CreateTimer(60)
Global x,y
Const tt = 18 ,r2 = 70
Dim mapX(324,324),mapY(324,324) ,mapR(324,324) ,mapG(324,324) ,mapB(324,324) 

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


For b=1 To tt ;Step 0.5
For a =1 To tt ;Step 0.5

	SphireView(a*20,b*20)
	mapX(a,b) = x
	mapY(a,b) = y
	mapR(a,b) = Rnd(225)
	mapG(a,b) = Rnd(225)
	mapB(a,b) = Rnd(225)
Next
Next
While Not KeyHit(1)
mx = MouseX()/20 :my = MouseY()/20
mxx =  r2*(Cos(mx*20)*Sin(my*20))
myy= r2*(Cos(my*20))  ;
Cls 
WaitTimer(time)	
For b=1 To tt ;Step 0.5
For a = 1 To tt ;Step 0.5
Color mapR(a,b) , mapG(a,b) ,mapB(a,b)
Rect a*20,b*20,20,20,1
Rect mapX(a,b)+550-10,mapY(a,b)+200-10  , 20,20 
;Plot mapX(a,b)+550,mapY(a,b)+200
Next
Next
Color 255,0,0
Rect mx*20,my*20,20,20,0
Rect mxx+550-10,myy+200-10,20,20,0
Color 255,255,255

Flip 
Wend
FreeTimer timer 
End 

Function SphireView#(x1,y1)
x= r2*(Cos(x1)*Sin(y1)) 
y= r2*(Cos(y1))   ;(Sin(x1)-


End Function

javascript так javascript ...