Algorithm for Hexagonal coordinates on grid, using loops /arrays /types

Author

Message

HexM

16

Years of Service

User Offline

Joined: 29th Jul 2008

Location:

Posted: 30th Jul 2008 04:52

Link

+ Code Snippet

function display_grid()
   for i = 0 to 7
       for j = 0 to 7
           paste image 1,i*80,j*120,1
        next j
      next i
       for i = 0 to 7
         for j = 0 to 3
            paste image 1,i*80+40,j*120 +60,1
         next j
       next i

endfunction

Been able to display a grid over a map at 800 X 600 resolution, however something must be wrong because when i switch to 1024 X 768 i get a bunch of extra boxes underneath my map. So i tried to go a different route.

+ Code Snippet

type cells
    number as integer
    xpos as integer
    ypos as integer
endtype

dim mapscreen(71) as cells

   for i = 0 to 70
        mapscreen(i).number = i
        mapscreen(i).xpos = i*80 + (i mod 2)* 40
        mapscreen(i).ypos = i*120
   next i

This time i got types and arrays. Now i understand that xpos and ypos are the top corner of the bitmap im using. If you plug i into the equations it is way off the way i have it.

My title size is 80 X 80, so I know, or should i say I "think" based on my calculations every other title would be shifted down 60 and over 40. Could anyone help me reason this through, I've tried many things over the past few days. If someone could point me in the right direction i would really appreciate it, Thank you!

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Jul 2008 08:34

Link

Easier way to set it up is use a nested FOR loop, makes it a littler easier to work with. Every other row is offset by 75%, not 50% as your (i mod 2)*40 suggests.

+ Code Snippet

xTiles = 10
yTiles = 10

i = 0
for y = 0 to yTiles-1
   for x = 0 to xTiles-1
      inc i
      mapscreen(i).number = i
      mapscreen(i).xpos = x*120 + (x mod 2)*60
      mapscreen(i).ypos = y*40
   next x
next y

See if that lines up any better for ya. Also, I dont think a hexagon would fit perfectly within a square image, 80x80. At least not what I've found on google images, none of the hexagons were a square image.

Back to top

Profile PM Email Website

HexM

16

Years of Service

User Offline

Joined: 29th Jul 2008

Location:

Posted: 30th Jul 2008 09:50

Link

Thank you very much! The nested for-loop was the correct way to go.

+ Code Snippet

xTiles = 8
yTiles = 8

      i = 0
      for y = 0 to yTiles-1
          for x = 0 to xTiles-1
             inc i
             mapscreen(i).number = i
             mapscreen(i).xpos = x *80 + (y mod 2)*40
             mapscreen(i).ypos = y *60
          next x
      next y

Thats the code that made it work... its perfect! well almost. you are right i can see a slight imperfection in the bitmap that i created, i just picked 80 X 80 out of the blue. now im going to go back and create a new hexagon, and my turn based game will be one step closer. Thank you!

Back to top

Profile PM

HexM

16

Years of Service

User Offline

Joined: 29th Jul 2008

Location:

Posted: 31st Jul 2008 23:45

Link

For some reason i think im going to have to start my whole project over. Maybe there is something wrong with my approach. What i want to do is be able to scroll a hexagonal map. But keep the data stored so that i know exactly which hexes are being displayed (so later i can manipulate that data by clicking).

Here are the 2 different programs, neither one getting the desired effect.

sync on
sync rate 0
set display mode 1024,768,32
set image colorkey 0,0,0
set text transparent
load image "C:\Documents and Settings\JASON\Desktop\hex1.bmp",1
load image "C:\Documents and Settings\JASON\Desktop\hex2.bmp",2

set current bitmap 0
dim map(20,20)

dim view(10,10)

for i = 0 to 20
   for j = 0 to 20
      map(i,j) = rnd(1)+1
   next j
next i

global viewx=0
global viewy=0
global xoffset=0
global yoffset=0

get_cells(viewx,viewy)
display()

do
   if downkey() = 1
    cls
    yoffset = yoffset - 1

display()
    endif
   if upkey() = 1
   cls
   yoffset = yoffset + 1
   display()
   endif
   if leftkey() = 1
   cls
   xoffset = xoffset + 1
   display()
   endif
   if rightkey() = 1
   cls
     xoffset = xoffset - 1
     display()
   endif

sync
loop

function get_cells(x,y)
for i = 0 to 9
   for j = 0 to 9
      view(j,i) = map(x,y)
      x=x+1
   next j
   y=y+1
next i
endfunction

function display()
   for i = 0 to 9
   for j = 0 to 9
        paste image view(j,i),(j *80 + (i mod 2)*40)+xoffset, (i *60)+yoffset ,1
   next j
next i
endfunction

+ Code Snippet

sync on
sync rate 0
set display mode 1024,768,32
set image colorkey 0,0,0
set text transparent
load image "C:\Documents and Settings\JASON\Desktop\hex1.bmp",1
load image "C:\Documents and Settings\JASON\Desktop\hex2.bmp",2

set current bitmap 0
dim map(20,20)

dim view(10,10)


for i = 0 to 20
   for j = 0 to 20
      map(i,j) = rnd(1)+1
   next j
next i

global viewx=0
global viewy=0
global xoffset=0
global yoffset=0

get_cells(viewx,viewy)
display()

do
   if downkey() = 1
    cls
    yoffset = yoffset - 1

    display()
    endif
   if upkey() = 1
   cls
   yoffset = yoffset + 1
   display()
   endif
   if leftkey() = 1
   cls
   xoffset = xoffset + 1
   display()
   endif
   if rightkey() = 1
   cls
     xoffset = xoffset - 1
     display()
   endif

   sync
loop

function get_cells(x,y)
for i = 0 to 9
   for j = 0 to 9
      view(j,i) = map(x,y)
      x=x+1
   next j
   y=y+1
next i
endfunction


function display()
   for i = 0 to 9
   for j = 0 to 9
        paste image view(j,i),(j *80 + (i mod 2)*40)+xoffset, (i *60)+yoffset ,1
   next j
next i
endfunction

and

sync on
sync rate 0
set display mode 1024,768,32
set image colorkey 0,0,0
set text transparent
load image "C:\Documents and Settings\JASON\Desktop\hex1.bmp",1
load image "C:\Documents and Settings\JASON\Desktop\hex2.bmp",2

randomize timer()
type cell
   number as integer
   xpos as integer
   ypos as integer
   row as integer
   col as integer
   terrain as integer
endtype

dim mapscreen(64) as cell

xTiles = 8
yTiles = 8
get_grid()

for i = 0 to 64
   mapscreen(i).terrain = rnd(1)+1
next i

for i = 0 to 64
         paste image mapscreen(i).terrain, mapscreen(i).xpos, mapscreen(i).ypos, 1
         text mapscreen(i).xpos+20, mapscreen(i).ypos+20, str$(mapscreen(i).row)
         text mapscreen(i).xpos+40, mapscreen(i).ypos+20, str$(mapscreen(i).col)
   next i

do
   sync
loop

function get_grid()
xTiles = 8
yTiles = 8
      i = 0
      for y = 0 to yTiles-1
          for x = 0 to xTiles-1
             inc i
             mapscreen(i).number = i
             mapscreen(i).xpos = x *80 + (y mod 2)*40
             mapscreen(i).ypos = y *60
             mapscreen(i).row = x
             mapscreen(i).col = y
          next x
      next y
endfunction

+ Code Snippet

sync on
sync rate 0
set display mode 1024,768,32
set image colorkey 0,0,0
set text transparent
load image "C:\Documents and Settings\JASON\Desktop\hex1.bmp",1
load image "C:\Documents and Settings\JASON\Desktop\hex2.bmp",2

randomize timer()
type cell
   number as integer
   xpos as integer
   ypos as integer
   row as integer
   col as integer
   terrain as integer
endtype


dim mapscreen(64) as cell

xTiles = 8
yTiles = 8
get_grid()

for i = 0 to 64
   mapscreen(i).terrain = rnd(1)+1
next i

for i = 0 to 64
         paste image mapscreen(i).terrain, mapscreen(i).xpos, mapscreen(i).ypos, 1
         text mapscreen(i).xpos+20, mapscreen(i).ypos+20, str$(mapscreen(i).row)
         text mapscreen(i).xpos+40, mapscreen(i).ypos+20, str$(mapscreen(i).col)
   next i

do
   sync
loop

function get_grid()
xTiles = 8
yTiles = 8
      i = 0
      for y = 0 to yTiles-1
          for x = 0 to xTiles-1
             inc i
             mapscreen(i).number = i
             mapscreen(i).xpos = x *80 + (y mod 2)*40
             mapscreen(i).ypos = y *60
             mapscreen(i).row = x
             mapscreen(i).col = y
          next x
      next y
endfunction

80 X 80 bitmaps once again, that will eventually be changed to make better hexagons.
But you can see the different approaches. Im sure everyone can see what im trying to do here. Please help! thanks

Back to top

Profile PM

HexM

16

Years of Service

User Offline

Joined: 29th Jul 2008

Location:

Posted: 5th Aug 2008 08:00

Link

Scrolling is fixed.

+ Code Snippet

dim World (World_Size, World_Size)
dim Display (Display_Size, Display_Size)

for i = 0 to World_Size
   for j = 0 to World_Size
    World(i,j) = int(rnd(4)) + 1
   next i
next j

do
   cls

   if leftkey() = 1 and currentx > 0
      currentx = currentx - 1
   endif
   if rightkey() = 1 and currentx < (World_Size - Display_Size)
      currentx = currentx + 1
   endif
   if downkey() = 1 and currenty < (World_Size - Display_Size)
      currenty = currenty + 1
   endif
   if upkey() = 1 and currenty > 0
      currenty = currenty - 1
   endif


   for x = 0 to Display_Size
      for y = 0 to Display_Size
         if currentx + x > World_Size or currenty + y > World_Size
            Display(x,y) = World(World_Size,World_Size)
         else
            Display(x,y) = World(x+currentx,y+currenty)
         endif
         paste image Display(x,y),(x*Hex_size+ (y mod 2) * (Hex_Size/2)),(y*Hex_Size*.75),1
      next x
   next y

Anyone have any ideas on how to make this scroll smoothly?

Back to top

Profile PM

HexM

16

Years of Service

User Offline

Joined: 29th Jul 2008

Location:

Posted: 5th Aug 2008 20:04

Link

+ Code Snippet

for x = 0 to Screen_Width
      for y = 0 to Screen_Height
         img = World(mapx+x, mapy+y)
         paste image img,x*Tile_Size + ((y mod 2) * (Tile_Size/2))- xoff, (y*Tile_Size*.75) - yoff,1
      next x
   next y

This seems to scroll smoothly in the X direction. In the Y direction it will distort the map because of hex grid layout. hmm.. anyone?

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Algorithm for Hexagonal coordinates on grid, using loops /arrays /types