- procedure LoadHeightMap;
- var
- [...]
- begin
- Bmp := TBitMap.Create;
- try
- Bmp.LoadFromFile('YU14H.bmp');
- for X := 0 to MapResolution-1 do // -1 wurde hinzugefügt
- for Z := 0 to MapResolution-1 do // -1 wurde hinzugefügt
- MapDaten[X,Z] := Trunc(Bmp.Canvas.Pixels
- [Trunc(X/MapResolution*Bmp.Width),
- Trunc(Z/MapResolution*Bmp.Height)]
- / clWhite * 255)
- except
- [...]
- end;
- Bmp.Free
- end;