Antialiasing

[Sanchez]

Den Algo, hab ich zwar hier schon wo reingeschrieben, aber ich denke hier passt er jetzt, wo ich keine Frage mehr dazuhabe am besten hin:

Delphi-Quellcode:

type
  PixArray = Array [0..2] of Byte;


procedure Antialiasing(Bitmap: TBitmap; Rect: TRect; Percent: Integer); 
var 
  pix, prevscan, nextscan, hpix: ^PixArray; 
  l, p: Integer; 
  R, G, B: Integer; 
  R1, R2, G1, G2, B1, B2: Byte; 
begin 
  Bitmap.PixelFormat := pf24bit; 
  with Bitmap.Canvas do 
  begin 
    Brush.Style := bsclear; 
    for l := Rect.Top to Rect.Bottom - 1 do 
    begin 
      pix:= Bitmap.ScanLine[l]; 
      if l <> Rect.Top then prevscan := Bitmap.ScanLine[l-1] 
      else prevscan := nil; 
      if l <> Rect.Bottom - 1 then nextscan := Bitmap.ScanLine[l+1] 
      else nextscan := nil; 

      for p := Rect.Left to Rect.Right - 1 do 
      begin 
        R1 := pix^[2]; 
        G1 := pix^[1]; 
        B1 := pix^[0]; 

        if p <> Rect.Left then 
        begin 
          //Pixel links 
          //Pixel left 

          hpix := pix; 
          dec(hpix); 
          R2 := hpix^[2]; 
          G2 := hpix^[1]; 
          B2 := hpix^[0]; 

          if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then 
          begin 
            R := R1 + (R2 - R1) * 50 div (Percent + 50); 
            G := G1 + (G2 - G1) * 50 div (Percent + 50); 
            B := B1 + (B2 - B1) * 50 div (Percent + 50); 
            hpix^[2] := R; 
            hpix^[1] := G; 
            hpix^[0] := B; 
          end; 
        end; 

        if p <> Rect.Right - 1 then 
        begin 
          //Pixel rechts 
          //Pixel right 
          hpix := pix; 
          inc(hpix); 
          R2 := hpix^[2]; 
          G2 := hpix^[1]; 
          B2 := hpix^[0]; 

          if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then 
          begin 
            R := R1 + (R2 - R1) * 50 div (Percent + 50); 
            G := G1 + (G2 - G1) * 50 div (Percent + 50); 
            B := B1 + (B2 - B1) * 50 div (Percent + 50); 
            hpix^[2] := R; 
            hpix^[1] := G; 
            hpix^[0] := B; 
          end; 
        end; 

        if prevscan <> nil then 
        begin 
          //Pixel oben 
          //Pixel up 
          R2 := prevscan^[2]; 
          G2 := prevscan^[1]; 
          B2 := prevscan^[0]; 

          if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then 
          begin 
            R := R1 + (R2 - R1) * 50 div (Percent + 50); 
            G := G1 + (G2 - G1) * 50 div (Percent + 50); 
            B := B1 + (B2 - B1) * 50 div (Percent + 50); 
            prevscan^[2] := R; 
            prevscan^[1] := G; 
            prevscan^[0] := B; 
          end; 
          Inc(prevscan); 
        end; 

        if nextscan <> nil then 
        begin 
          //Pixel unten 
          //Pixel down 
          R2 := nextscan^[2]; 
          G2 := nextscan^[1]; 
          B2 := nextscan^[0]; 

          if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then 
          begin 
            R := R1 + (R2 - R1) * 50 div (Percent + 50); 
            G := G1 + (G2 - G1) * 50 div (Percent + 50); 
            B := B1 + (B2 - B1) * 50 div (Percent + 50); 
            nextscan^[2] := R; 
            nextscan^[1] := G; 
            nextscan^[0] := B; 
          end; 
          Inc(nextscan); 
        end; 
        Inc(pix); 
      end; 
    end; 
  end; 
end;

Ein Aufruf könnte so erfolgen:

Delphi-Quellcode:

Antialiasing(Bitmap, Rect(0, 0, Bitmap.Width, Bitmap.Height), 50);

[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=Matze]Beispielaufruf hinzugefügt. Mfg, Matze[/edit]