Гексогонал-сетка.Проверка позиции мыши
Вот ,возможно пригодиться код для создания гексогональной сетки .
Ячейка сетки длина\высота соттветственно Х\Х (тоесть 50 на 50 или 60 на 60 и т.д. ...).
Код:
Graphics 800,600,32 ,2
imgtile= CreateImage(41,41)
SetBuffer ImageBuffer(imgtile)
Color 250,50,50
Line 0,10, 20,0
Line 20,0, 40,10
Line 40,10,40,30
Line 40,30 ,20,40
Line 20,40,0,30
Line 0,30,0,10
Color 255,255,255
imgtile0=CreateImage(41,21)
SetBuffer ImageBuffer(imgtile0) ;картинка мыши
Color 5,0,255
Rect 10,0,20,20,0
Color 255,255,255
SetBuffer BackBuffer()
d =40; :dd =(d/2) : ddd =(dd/2) : mm=d/4*3: rr=d+dd
tilex=10 : tiley=10 ;количество ячеек i x j
sx= 0
FlushMouse
While Not KeyHit(1)
ClsColor 135,160,160
Cls
mx# = MouseX() : my# = MouseY()
; управление отображением сетки
If KeyDown(205) Then sx=1 ; <-- -->
If KeyDown(203) Then sx=0
; рисуем гексо-сетку
For j=0 To tiley
For i=0 To tilex
x = (d*i+(j Mod 2)*d/2)
y = (j*d/4*3)
If sx =0 Then
DrawImage imgtile,x ,y
Else If sx=1
Rect x ,y,d,d,0
EndIf
Text x+10 ,y+15,i+" : "+j
Next
Next
;qx# = Floor#()
qy# = Floor# (( my# ) / (d+0.15) * 4/3 - 0.15 ); вычисление номера ячейки по вертикали
qx# = Floor# (( mx# ) / d - (qy# Mod 2)/2 ); вычисление номера ячейки по горизонтали
; округление результата
qqx = Int(qx#)
qqy = Int(qy#)
; вычисление координат ячейки по номеру ячейки
xx = qqx * d +(qqy Mod 2)*d/2
yy = qqy* d/4*3
; инфо
Color 50,50,50
Rect 5,115,145,65
Color 255,255,255
Text 10, 120,"Mouse X = "+mx+" : Y = "+my+" ."
Text 10, 134,"Coordinate X = "+xx+" | Y = "+yy+" ."
Text 10, 154,"Position i = "+qqx+" : j = "+qqy+" ."
Flip
Wend
FreeImage imgtile
FreeImage imgtile0
End
вид
/\/\
| | |
\/\/ |
