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:

function GetInterpolatedHeight(x, y: single): single; 
var 
 x1,y1,x2,y2: integer; 
 fx,fy: single; 
begin 
 // nur positivie Zahlen
 x := abs(x); y := abs(y); 

 // wenn die Zahlen außerhalb des Feldes liegen, nicht weitermachen
 if (x > MapSize) or (y > MapSize) then 
 begin 
  result := 0; 
  exit; 
 end; 

 // Kommateil der Zahlen ermitteln (z.B. bei 1.513 = 0.513)
 fx := frac(x); 
 fy := frac(y); 

 // koordinaten um (x|y) ermitteln
 x1 := trunc(x); 
 x2 := x1 + 1; 
 y1 := trunc(y); 
 y2 := y1 + 1; 

 // in fx und fy stehen die Anteile, zu der jeder Punkt miteinbezogen wird
 // x1,y1,x2 und y2 sind die Koordinaten der Punkte um (x|y)
 // Height ist ein 2d-array das die Höhen der Punkte enthält.
 result := Height[x1,y1] * (1-fx) * (1-fy) + 
           Height[x1,y2] * (1-fx) * fy     + 
           Height[x2,y1] * fx     * (1-fy) + 
           Height[x2,y2] * fx     * fy; 
end;					

1:
2:
3:

 vertex_x: array of single;
 vertex_y: array of single;
 vertex_z: array of single;					

1:
2:
3:
4:
5:

 if (x <0) or (y < 0) then 
 begin 
  result := 0; 
  exit; 
 end;					

1:

x := abs(x); y := abs(y);					

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:

PROCEDURE PaintHeightmap();
CONST
  VertPos: Array[0..3] of Array[0..1] of Byte = ((0,0),(0,1),(1,1),(1,0));
VAR
  Triangles : LongInt;
  X,Z,I: LongInt;
  Vertieces: Array[0..3] of TVertex;

  procedure PaintTri(V1,V2,V3: Integer);
  var
    Normale: TVertex;
  begin
    inc(Triangles);
    Normale := VectorCrossProduct(VectorSubtract(Vertieces[V1],Vertieces[V2]),VectorSubtract(Vertieces[V2],Vertieces[V3]));
    NormalizeVector(Normale);
    glNormal3f(Normale[0],Normale[1],Normale[2]);
  glBindTexture(GL_TEXTURE_2D, textur.boden);
  glenable(GL_TEXTURE_2D);
    GLBegin(GL_TRIANGLES);
      glTexCoord2f(0,1);  glVertex3f(Vertieces[V1][0],Vertieces[V1][1],Vertieces[V1][2]);
      glTexCoord2f(1,1);  glVertex3f(Vertieces[V2][0],Vertieces[V2][1],Vertieces[V2][2]);
      glTexCoord2f(1,0);  glVertex3f(Vertieces[V3][0],Vertieces[V3][1],Vertieces[V3][2]);
    GLEnd();
  gldisable(GL_TEXTURE_2D);
  end;
BEGIN
  for X := 0 to MapRes - 1 do
    for Z := 0 to MapRes - 1 do
    begin
      for I := 0 to 3 do
      begin
        Vertieces[I][0] := (X + VertPos[I][0])/MapRes*MapSize;
        Vertieces[I][2] := (Z + VertPos[I][1])/MapRes*MapSize;
        Vertieces[I][1] := MapDaten[X + VertPos[I][0], Z + VertPos[I][1]]
      end;
      PaintTri(0,1,3);
      PaintTri(1,2,3);
    end;
END;