Тема: 2d сетка
Показать сообщение отдельно
Старый 30.08.2015, 08:16   #26
polopok
ПроЭктировщик
 
Регистрация: 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)
 
Ответить с цитированием