Zitat:
Code:
col := col+256*col+256*256[color=#ff0000][b]+[/b][/color]col;
liegt hier nicht die ganze Zeit ein Rechenfehler vor?
TFC ist 24 und das Bitmap 32 Bit
Zitat:
Delphi-Quellcode:
col := (rez*rez+imz*imz)/4*colchangevar;
col := col+256*col+256*256+col;
ps^.r := ps^.r + GetRValue(Round(col));
ps^.g := ps^.g + GetGValue(Round(col));
ps^.b := ps^.b + GetBValue(Round(col));
wozu alle Farben zusammenrechnen und dann nochmal zerlegen und erneut zusammensetzen?
Delphi-Quellcode:
// colB: Byte;
colB := Round((rez*rez+imz*imz)/4*colchangevar);
Inc(ps^.r, colB);
Inc(ps^.g, colB);
Inc(ps^.b, colB);