- surface_01 : array of array of array [1..3] of glfloat;
- for counterx := 0 to map.Width-2 do begin
- setlength (surface_01[counterx],map.height);
- for countery := 0 to map.height-2 do begin
- surface_01[counterx,countery,1] := counterx ;
- surface_01[counterx,countery,2] := countery ;
- surface_01[counterx,countery,3] := map.Canvas.Pixels[counterx,countery]/clwhite*255;
- end;
- end;