Hallo Leute,
ich suche einen Weg um (128 x 96) Grauwerte sehr fein abgestuft (0-65536) in einem Bild zu speichern.
Weiß einer wie das geht?
hier ist mein bisheriger code, um die Grauwerte in ein bmp mit einer 0-255 skalierung zu bringen.
Wie muss ich den verändern, um eine 0-65536 skalierung hinzubekommen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| Type
Matrix[1..128, 1..96] of real;
myCanvas: TCanvas;
...
with myCanvas do
begin
for x:=0 to 128 do
begin
for y:=0 to 96 do
begin
Value:=round(Matrix[x,y])*Scale; Pixels[x,y]:=RGBToColor(Value,Value,Value);
end;
end;
end;
function RGBToColor(R, G, B : byte): TColor;
begin
Result := ((R and $FF) shl 16) +
((G and $FF) shl 8) + (B and $FF);
end; |
... und dann den Canvas in eine bmp speichern
für alle tips, links und vor allem code
vielen dank !!! im voraus
Bent
