1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TF_Game.Render;
var i:integer;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glInitNames;
  glPushName(0);

  theCamera.Apply;
  glLoadName(15);     //test; result: EVERY SelectBufferHit is "15"
  gamemap.draw;
  glLoadName(1);

  glEnd;

  SwapBuffers(DC);
  L_StatusBar.Caption:=text_coords + ' - ' + text_fps + ' - ' + text_info + ' - ' + text_error;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function TF_Game.getSelectBufferHit():integer;
var
   SelectBuffer : array[0..512] of TGLUInt;
   Viewport     : TGLArrayi4;
   Hits,i       : Integer;
   HitZValue    : TGLUInt;
   Hit          : TGLUInt;
begin
  glGetIntegerv(GL_VIEWPORT, @viewport);
  glSelectBuffer(512, @SelectBuffer);
  glRenderMode(GL_SELECT);
  //glInitNames;
  //glPushName(0);
  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
  glLoadIdentity;
  gluPickMatrix(mx, viewport[3]-my, 1.0, 1.0, dglOpenGL.TVector4i(viewport));
  gluPerspective(45.0, ClientWidth/ClientHeight, 0.1, 1000);
  Render;
  glMatrixMode(GL_PROJECTION);
  glPopMatrix;
  Hits := glRenderMode(GL_RENDER);
  Hit       := High(TGLUInt);
  HitZValue := High(TGLUInt);
  for i := 0 to Hits-1 do
    if SelectBuffer[(i*4)+1] < HitZValue then
    begin
      Hit       := SelectBuffer[(i*4)+3];
      HitZValue := SelectBuffer[(i*4)+1];
    end;
  Result := Hit;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:

    type TCoord = record
  Col : integer;
  Row : integer;
end;

type THexTile = class
  private
    _ID : integer;
  public
    constructor create(col,row:integer);
    function getID():integer;
    function getxy():TCoord;
    procedure draw(); // draws hex
end;

type TMap = class
  _tiles : array of array of THexTile;
  _sizeRows : cardinal;
  _sizeCols : cardinal;
  procedure draw(); // draws all hexes
  procedure load(); // loads map from file
end;
constructor THexTile.Create(col,row: integer);
  begin
    inherited Create();
    _ID := row*1000+col;
  end;

  function THexTile.getID() : integer;
  begin
    result:=_ID;
  end;

  function THexTile.getxy():TCoord;
  begin
    // ID=14008 means row=14 col=8
    result.Col := _ID mod 1000;
    result.Row := _ID div 1000;
  end;

  procedure THexTile.draw;
  begin
    glLoadName(88);
    glEnable(GL_TEXTURE_2D);
    glBindTexture(GL_TEXTURE_2D, textures[0]);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    //glLoadName(_ID);
    glBegin(GL_POLYGON);
      glTexCoord2f(0.75,0); glVertex3f(0.5,sqrt(0.75),0);
      glTexCoord2f(0.25,0); glVertex3f(-0.5,sqrt(0.75),0);
      glTexCoord2f(0,0.5); glVertex3f(-1,0,0);
      glTexCoord2f(0.25,1); glVertex3f(-0.5,-sqrt(0.75),0);
      glTexCoord2f(0.75,1); glVertex3f(0.5,-sqrt(0.75),0);
      glTexCoord2f(1,0.5); glVertex3f(1,0,0);
    glEnd;
  end;

  procedure TMap.load;
  var
    r,c: integer;
  begin
    setlength(_tiles, _mapsize_x, _mapsize_y);
    // determine columns and rows
    for r:=0 to _mapsize_y-1 do
      for c:=0 to _mapsize_x-1 do
      Begin
        _tiles[c,r]:=THexTile.Create(c,r);
      end;
  end;

  procedure TMap.draw;
  var
    r,c : integer; //row and column of the hextile on the map
    x,y : double;  //coordinates of tile position on render matrix
  begin
    glMatrixMode(GL_MODELVIEW);
    glloadidentity;

    For r:= 0 To _mapsize_y-1 do
      For c:=0 to _mapsize_x-1 do
      Begin
        theCamera.Apply;
        // move pen to mid point of hex
        x:=1+(c*1.5);
        y:=(-1)*((2*r+((c+1) mod 2)+1)*sqrt(0.75));
        gltranslatef(x,y,0);
        _tiles[c,r].draw;
    End;
  end;