30.08.2015, 08:16
|
#26
|
ПроЭктировщик
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений (для 71 пользователей)
|
Ответ: 2d сетка
Шарообразная сетка с выбором ячейки (при необходимости допилить )
код:
;
Graphics 800,600,32,2
SetBuffer BackBuffer()
num = 10
r#=242
n# = 4*num
a# = 4.0
r2=90
While Not KeyHit(1)
Cls
mx# =MouseX() : my#= MouseY()
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
px# = 400+ (x)+(vx)*r
py# = 300+(y)+vy*r
Plot px, py
Text px, py ,(x*y)
If RectsOverlap ((px+2),(py),15,10 ,(mx),(my),1,1)
Rect px-4 , py ,20,10 ,0
EndIf
Next
Next
Text 20,20,"angle = "+a+" Radius = "+r
Flip
Wend
End
__________________
Мой проект здесь
|
(Offline)
|
|