Delphi-Quellcode:
n := abs(value);
if value > 0 then
for x := 0 to 255 do
if integer(x + n) > 255 then
ar[x] := 255
else
ar[x] := x + n
Mit dem obigen Code wird das Array ar mit bestimmten Werten vorbelegt.
Damit wird die Helligkeit des Wertes um den Wert value (n) manipuliert.
Ziel^.rgbtBlue := ar[Quelle^.rgbtBlue];
Hier wird der Wert von der Stelle Quelle^.rgbtBlue des Array dem Ziel^.rgbtBlue zugewiesen.
Grüße
Klaus