[polopok]

Вот ,возможно пригодиться код для создания гексогональной сетки .
Ячейка сетки длина\высота соттветственно Х\Х (тоесть 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

вид
/\/\
| | |
\/\/