ПроЭктировщик
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений (для 71 пользователей)
|
Ответ: 2d сетка
Кстати , пытаюсь 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 ...
__________________
Мой проект здесь
|