Re: HEX maps how?

From: Tim Lomas <tim@antsnest.demon.co.uk>

Date: Tue, 13 Jun 1995 00:00:00 +0000

In article: <3rh32i$nsq@io.salford.ac.uk>  Jason Wroe <scjwroe@scot1.ucsalf.ac.uk> writes:

> I need an algorythm for printing and displaying a Hex style mapping system,
> source should also be able to move say a person from one coordinate to the
> other how would you go about this?

The first thing to consider is that there are 4 different types of Hex maps, odd and even grain and odd and even indent.

Then you can use the sort of thing below

x & y is the location of the hex you're starting from, x1 & y1 are the co-ordinates you finish at, dir is the direction, 1-6, 1 being N or NE depending on
the orientation and carrying on clockwise.

The edge_hex function calkl checks to make sure you're not at one edge of the map (in which case you can't move.

The orientation variable refers to grain & indent, I forget which is which off hand but you can figure that out.

Just in case you're wondering it does work <G>. I grabbed a section of source code from STGMap.  It's written in Borland Pascal v7

Procedure Next_loc(x,y : word; var x1,y1 : word; dir :byte);
begin
 x1:=0;
 y1:=0;
 case orientation of
  2 : begin
     if edge_hex(x,y,dir)=false then
     begin
      case dir of
       1 : begin
          if odd(y)=true then
          begin
           x1:=x;
           y1:=y-1;
          end
          else
          begin
           x1:=x+1;
           y1:=y-1;
          end;
         end;
       2 : begin
          if odd(y)=true then
          begin
           x1:=x+1;
           y1:=y;
          end
          else
          begin
           x1:=x+1;
           y1:=y;
          end;
         end;
       3 : begin
          if odd(y)=true then
          begin
           x1:=x;
           y1:=y+1;
          end
          else
          begin
           x1:=x+1;
           y1:=y+1;
          end;
         end;
       4 : begin
          if odd(y)=true then
          begin
           x1:=x-1;
           y1:=y+1;
          end
          else
          begin
           x1:=x;
           y1:=y+1;
          end;
         end;
       5 : begin
          if odd(y)=true then
          begin
           x1:=x-1;
           y1:=y;
          end
          else
          begin
           x1:=x-1;
           y1:=y;
          end;
         end;
       6 : begin
          if odd(y)=true then
          begin
           x1:=x-1;
           y1:=y-1;
          end
          else
          begin
           x1:=x;
           y1:=y-1;
          end;
         end;
      end; { of case dir }
     end; { of if edge_hex }
    end; { of case orientation 2 }
  3 : begin
     if edge_hex(x,y,dir)=false then
     begin
      case dir of
       1 : begin
          if odd(x)=true then
          begin
           x1:=x;
           y1:=y-1;
          end
          else
          begin
           x1:=x;
           y1:=y-1;
          end;
         end;
       2 : begin
          if odd(x)=true then
          begin
           x1:=x+1;
           y1:=y-1;
          end
          else
          begin
           x1:=x+1;
           y1:=y;
          end;
         end;
       3 : begin
          if odd(x)=true then
          begin
           x1:=x+1;
           y1:=y;
          end
          else
          begin
           x1:=x+1;
           y1:=y+1;
          end;
         end;
       4 : begin
          if odd(x)=true then
          begin
           x1:=x;
           y1:=y+1;
          end
          else
          begin
           x1:=x;
           y1:=y+1;
          end;
         end;
       5 : begin
          if odd(x)=true then
          begin
           x1:=x-1;
           y1:=y;
          end
          else
          begin
           x1:=x-1;
           y1:=y+1;
          end;
         end;
       6 : begin
          if odd(x)=true then
          begin
           x1:=x-1;
           y1:=y-1;
          end
          else
          begin
           x1:=x-1;
           y1:=y;
          end;
         end;
      end; { of case dir }
     end; { of if edge_hex }
    end;
  4 : begin
     if edge_hex(x,y,dir)=false then
     begin
      case dir of
       1 : begin
          if odd(y)=true then
          begin
           x1:=x+1;
           y1:=y-1;
          end
          else
          begin
           x1:=x;
           y1:=y-1;
          end;
         end;
       2 : begin
          if odd(y)=true then
          begin
           x1:=x+1;
           y1:=y;
          end
          else
          begin
           x1:=x+1;
           y1:=y;
          end;
         end;
       3 : begin
          if odd(y)=true then
          begin
           x1:=x+1;
           y1:=y+1;
          end
          else
          begin
           x1:=x;
           y1:=y+1;
          end;
         end;
       4 : begin
          if odd(y)=true then
          begin
           x1:=x;
           y1:=y+1;
          end
          else
          begin
           x1:=x-1;
           y1:=y+1;
          end;
         end;
       5 : begin
          if odd(y)=true then
          begin
           x1:=x-1;
           y1:=y;
          end
          else
          begin
           x1:=x-1;
           y1:=y;
          end;
         end;
       6 : begin
          if odd(y)=true then
          begin
           x1:=x;
           y1:=y-1;
          end
          else
          begin
           x1:=x-1;
           y1:=y-1;
          end;
         end;
      end; { of case dir }
     end; { of if edge_hex }
    end;
  5 : begin
     if edge_hex(x,y,dir)=false then
     begin
      case dir of
       1 : begin
          if odd(x)=true then
          begin
           x1:=x;
           y1:=y-1;
          end
          else
          begin
           x1:=x;
           y1:=y-1;
          end;
         end;
       2 : begin
          if odd(x)=true then
          begin
           x1:=x+1;
           y1:=y;
          end
          else
          begin
           x1:=x+1;
           y1:=y-1;
          end;
         end;
       3 : begin
          if odd(x)=true then
          begin
           x1:=x+1;
           y1:=y+1;
          end
          else
          begin
           x1:=x+1;
           y1:=y;
          end;
         end;
       4 : begin
          if odd(x)=true then
          begin
           x1:=x;
           y1:=y+1;
          end
          else
          begin
           x1:=x;
           y1:=y+1;
          end;
         end;
       5 : begin
          if odd(x)=true then
          begin
           x1:=x-1;
           y1:=y+1;
          end
          else
          begin
           x1:=x-1;
           y1:=y;
          end;
         end;
       6 : begin
          if odd(x)=true then
          begin
           x1:=x-1;
           y1:=y;
          end
          else
          begin
           x1:=x-1;
           y1:=y-1;
          end;
         end;
      end; { of case dir }
     end; { of if edge_hex }
    end;
 end;
end;

--
                                                                     -O-O-O-
       +----------------------------------------------------------+   |   |
       | Tim Lomas        |   Internet : tim@antsnest.demon.co.uk |   O-O-O
       |                  |   CI$      : 100014,1767              |   |   |
       +----------------------------------------------------------+  -O-O-O-

References

HEX maps how?
Jason Wroe <scjwroe@scot1.ucsalf.ac.uk>
Mon, 12 Jun 1995 00:00:00 +0000

Referenced By

HEX maps how?
Jason Wroe <scjwroe@scot1.ucsalf.ac.uk>
Mon, 12 Jun 1995 00:00:00 +0000