- for I := 0 to 3 do
- begin
- for J := 0 to 1 do
- begin
- for K := 0 to 1 do
- begin
- Vertieces[I].x := (X + J)/MapResolution*MapSize;
- Vertieces[I].z := (Z + K)/MapResolution*MapSize;
- Vertieces[I].y := -2;(*+(MapDaten[X + J,Z + K]*0.002);*)
- end;
- end;
- end;
- PaintTriangle(0,1,3);
- PaintTriangle(1,2,3)