Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 2D-программирование

2D-программирование Вопросы, касающиеся двумерного программирования

Ответ
 
Опции темы
Старый 26.06.2012, 21:05   #1
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Вопрос .Сново гексы

Чего-то не получается правильно выдать ячейки при наведении мыши.
Правильно выводятся только через один столбец
помогите пожалуйста
код:
	Local  d       = 40
	Const   tilex   = 4
	Const   tiley   = 4	

Graphics 640,480 

;gex = LoadImage ("D:\vitalii\blitz\hex3.png") :MaskImage gex,255,255,255
gex = CreateImage(41,41)
SetBuffer ImageBuffer(gex)
Color 200,50,50
Line 0,20, 10,0
Line 10,0, 30,0
Line 30,0,40,20
Line 40,20 ,30,40
Line 30,40,10,40
Line 10,40,0,20
Color 255,255,255
SetBuffer BackBuffer() 

s=h/Cos(30*Pi/180)/2

		
While Not KeyHit(1) 
Cls
mx = MouseX() : my = MouseY()
		For j=0 To tiley
			For i=0 To tilex

							x =  i*d*1.5+(j Mod 2)*30
							y = j*d*0.5
											
				DrawImage gex, x , y
			Text x+10,y+5,"i= "+i
			Text x+10,y+15,"j= "+j
;			Color 50,50,55
;			Rect x,y,40,40,0
;			Color 255,255,255
	       		Next
		Next
		x2=mx/d/1.5 - (y2 Mod 2)/30  ;Проблема видимо тут
		y2=my/d/0.5;
		
		;y2=(my-(x2 Mod 2)*s)/h			
		;Oval x2-3,y2-3,6,6,1
Text 30 ,200 , "i - "+ x2+ "   j - "+y2
Text 30 ,220 ,"(y2 Mod 2) = "+(my Mod 2)
Flip ; Меняем буфер 
Wend 
End


Кстати , основывался на эту статью:
http://www.dionaholding.ru/news/arti...g_flash/tbg_25
правда там тоже реализация мыши не ахти
(Offline)
 
Ответить с цитированием
Старый 28.06.2012, 20:24   #2
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Ответ: Вопрос .Сново гексы

Итак , ввиду того , что никто ничего не предложил ...
После долгих мучений и перелопачивания инета ,сваял нечто своё.
Увы у меня так и не получилось точного определения гекса формулами
может кто поможет в правильном определении ?

Graphics 800,600,32,2 
fntArial=LoadFont("Arial",16) 
SetFont fntArial 

w = 40 
h = 40
m = 20
tilex =8
tiley = 6
;gex = LoadImage ("hex3.png") :MaskImage gex,255,255,255
gex = CreateImage(41,41)
SetBuffer ImageBuffer(gex)
Color 200,50,50
Line 0,20, 10,0
Line 10,0, 30,0
Line 30,0,40,20
Line 40,20 ,30,40
Line 30,40,10,40
Line 10,40,0,20
Color 255,255,255

gex_activ=CreateImage(41,41) 
SetBuffer ImageBuffer(gex_activ)
L1= 10 :L2= 30
	Color 200,78,0
	For ww= 1 To 20 Step 2
		Line L1,ww,L2,ww
		L1= L1-1 :L2= L2+1
	Next 
	For ww= 20 To 40 Step 2
		Line L1,ww,L2,ww
		L1= L1+1 :L2= L2-1
	Next 
SetBuffer BackBuffer() 

While Not KeyHit(1) 
ClsColor 110,110,112
Cls
	If KeyHit(2) Then a = a +1 : a = a Mod 3 
mx# = MouseX() : my# = MouseY()
;mxs = MouseXSpeed() : mys = MouseYSpeed()
If KeyDown(200) Then n# = n# + 0.01 ;And  n# < 3
If KeyDown(208) Then n# = n# - 0.01 :If n# <=0.01Then n# = 0.01
		For j=0 To tiley
			For i=0 To tilex
				x = i * w/4*3
				y = j * h +(i Mod 2)*h*0.5
				
			If a = 0 Then 
				DrawImage gex, x , y
				Text x+15 , y+15 ,I+","+j
					visual$ = " гексагонами "
			Else If a = 1 
				Color 100,100,100
				Rect x , y , w , h , 0
				Color 255,255,255
				Text x +5 , y +5 ,I+","+j
					visual$ = " квадратами "
			Else If a = 2
				Line x , y , x , y + h
				Line x , y , x +w , y
					visual$ = " линиями "
			End If 
								
	       		Next
		Next
		sx# = Floor (mx#/w * 4/3)  
		sy# = Floor ( my#/h - (sx Mod 2)/2);/h/0.5
		sxx = Int (sx#)
		syy = Int (sy#)
		
			xx = sxx * w/4*3
			yy = syy * h +(sxx Mod 2)*h*0.5

	Color 0,0,255
	Text xx - 5, yy - 5 ,"*"
	DrawImage gex_activ , xx , yy
	Color 255,255,255
	
Text 500 ,185 ," Вычисления :"	
Text 500 ,200 ,mx# +" / "+w+" * "+4/3+" = "+sx+"     :i"
Text 500 ,215 ,my# +" / "+h+" - "+ (sx Mod 2)/2+" = "+sy+"     :j"
Text 400 ,40 ,"Положение мышы в сетке : U : "+sxx+"  V :"+syy
Text 400 ,55 ,"Координаты мышы в сетке : UX : "+xx+"  VY :"+yy
Text 400 ,10 ,"Клавиша 1 меняет виды сетки  "
Text 400 ,25 ,"Вид : "+visual$
Flip ; Меняем буфер 
Wend 
FreeFont fntArial 
End
(Offline)
 
Ответить с цитированием
Старый 29.06.2012, 19:26   #3
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Ответ: Вопрос .Сново гексы

Ура ! свершилось ... чисто случайно нашёл параметр .
Теперь всё работает . Хотя и есть небольшая погрешность ,но ею можно пренебречь ,настолько она незначительна .
Вот код: (нажать offtop)
Graphics 800,600,32,2 
fntArial=LoadFont("Arial",16) 
SetFont fntArial 

w = 40 
h = 20
tilex =8
tiley = 6
;gex = LoadImage ("hex3.png") :MaskImage gex,255,255,255
gex = CreateImage(w+1,h+1)
SetBuffer ImageBuffer(gex)
Color 238,118,0
Line 0,h/2		,w/4,0
Line w/4,0	,w/4*3,0
Line w/4*3,0	,w,h/2
Line w,h/2	,w/4*3,h
Line w/4*3,h	,w/4,h
Line w/4,h	,0,h/2
Color 255,255,255

gex_activ = CreateImage(w+1,h+1) 
SetBuffer ImageBuffer(gex_activ)
	Color 102,205,0
	Rect (w/4 +0.15) , 0 ,  (w/2 +0.15) , h ,1
SetBuffer BackBuffer() 

While Not KeyHit(1) 
ClsColor 110,110,112
Cls
	If KeyHit(2) Then a = a +1 : a = a Mod 3 
mx# = MouseX() : my# = MouseY()

		For j=0 To tiley
			For i=0 To tilex
				x = i * w/4*3
				y = j * h +(i Mod 2)*h*0.5
				
			If a = 0 Then 
				DrawImage gex, x , y
				Text x+(w/4) , y+(h/2-5) ,I+","+j
					visual$ = " гексагонами "
			Else If a = 1 
				Color 238,118,0
				Rect x , y , w , h , 0
				Color 255,255,255
				Text x +(w/4) , y +(h/2-5) ,I+","+j
					visual$ = " квадратами "
			Else If a = 2
				Line x , y , x , y + h
				Line x , y , x +w , y
					visual$ = " линиями "
			End If 
								
	       		Next
		Next
		sx# =Floor#   (mx#/(w+0.15) * 4/3 - 0.15)  ;
		sy# =Floor#   ( my#/h - (sx# Mod 2)/2 );
		sxx = Int( (sx#))
		syy = Int( (sy#))
	
		
		ssx# =  (mx#/w * 4/3) ;
		ssy# = ( my#/h - (sx# Mod 2)/2); 
		
			xx = sxx * w/4*3
			yy = syy * h +(sxx Mod 2)*h*0.5	

		
	Color 0,0,255
	;Text xx - 5, yy - 5 ,"*"
	;Line xx , yy , xx , yy + (h/2)
	Color 255,255,255
	DrawImage gex_activ , xx , yy

;	Text 300 ,40 ,"Sx : "+ssx#
;	Text 300 ,55 ,"Sy : "+ssy#

	Text 500 ,185 ," Вычисления :"	
	Text 500 ,200 ,mx# +" / "+w+" * "+4/3+" = "+sx+"     :i"
	Text 500 ,215 ,my# +" / "+h+" - "+ (sx Mod 2)/2+" = "+sy+"     :j"
	Text 400 ,40 ,"Положение мышы в сетке : U : "+sxx+"  V :"+syy
	Text 400 ,55 ,"Координаты мышы в сетке : UX : "+xx+"  VY :"+yy
	Text 400 ,10 ,"Клавиша 1 меняет виды сетки  "
	Text 400 ,25 ,"Вид : "+visual$
Flip ; Меняем буфер 
Wend 
FreeFont fntArial 
End
(Offline)
 
Ответить с цитированием
Старый 29.06.2012, 21:10   #4
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Ответ: Вопрос .Сново гексы

Гексы в играх ...
Новые герои и Цивилизация 5
Миниатюры
Нажмите на изображение для увеличения
Название: 51946bd62f7a00f79a6899b70702e011.jpg
Просмотров: 2541
Размер:	629.0 Кб
ID:	17111  Нажмите на изображение для увеличения
Название: civiliz5.jpg
Просмотров: 2698
Размер:	30.5 Кб
ID:	17112  
(Offline)
 
Ответить с цитированием
Старый 29.06.2012, 22:27   #5
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: Вопрос .Сново гексы

...и скриншот из King's Bounty: Princes in Armor
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Randomize (04.07.2012)
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 16:05.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com