Polygon schraffieren (ohne Canvas.Polygon)

[Medium]

Die Schnittpunktberechnung wird extrem billig, wenn man das ganze auf einem bereits gezeichneten Polygon macht (bei dem Hintergrund- und Polygonfarbe genau unterschieden werden können): Bei einem Farbwechsel befindet man sich im nächsten Pixel auf der anderen Seite des Polygons als vorher. Man muss nur den Sonderfall horizontaler Linien bedenken, d.h. so lange nach einem Wechsel die neue Farbe in weiteren Pixeln auch ist, ist man noch nicht angekommen.
Einziges Problem ist dabei, dass es Grenzfälle gibt. Beispiel:

Code:

XXXXXX
 X   X
  XX   <- unfein
 X   X
XXXXXX

Der "Scanline"-Ansatz ist insgesamt aber auch der gängige. Wie man genau die Schnittpunkte ermittelt ist dann zweitrangig, und man muss eben schauen was für den jeweiligen Fall praktikabel ist. (In der Graphics32 gibt es für TPolygon32 z.B. ein Event OnFillScanline() o.ä., mit dem man einen Custom-Filler anflanschen kann. Die Klasse nutzt intern das gleiche Verfahren.)

Die o.g. Grenzfälle kann man "schmutzig" eliminieren, wenn du dein Polygon performant komplett ausfüllen kannst: Pixel hat Füllfarbe -> du bist drin und kannst deine Schraffur drauf los lassen. Da braucht es dann aber spätestens eine Kopie in einem separaten Bitmap; eine für gefülltes Arbeitspolygon, eine im eigentlichen Bild. (Was es auch beim anderen Ansatz bräuchte, wenn der Hintergrund bereits vorbemalt ist.)
Das Verfahren sollte aber erst dann wirklich merkbar schneller werden, wenn die Polygone sehr viele Segmente haben, die man sonst mathematisch schneiden müsste. Das geht bei Gerade-Gerade ja wirklich sehr flott.

[Popov]

Da ich gerade etwas ähnliches brauchte (eigentlich einen Farbverlauf in einem Polygon - aber ob Farbverlauf oder Schraffur, nur der Inhalt ändert sich) habe ich Uwes Tipp in Code umgesetzt.

Und weil es kurz vor Weihnachten ist, habe ich das mit Schraffur auch ausprobiert:

Delphi-Quellcode:

procedure Dreieck(ABmp: TBitmap);
var
  P: array[0..3] of TPoint;
  Rgn : HRGN;
begin
  with ABmp do
  begin
    P[0] := Point(0, Height);
    P[1] := Point((Width div 2), 0);
    P[2] := Point(Width, Height);
    P[3] := P[0];

    Rgn := CreatePolygonRgn(P[0], Length(P), WINDING);
    SelectClipRgn(Canvas.Handle, Rgn);

    Canvas.Brush.Style := bsDiagCross;
    Canvas.FillRect(Canvas.ClipRect);

    DeleteObject(Rgn);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Image1 do
  begin
    Picture.Bitmap.Width := Width;
    Picture.Bitmap.Height := Height;

    Dreieck(Picture.Bitmap);
  end;
end;

Ich denke es ist alles richtig so.

[Bjoerk]

Fragt man sich, was da jetzt der Unterschied zu Canvas.Polygon(P) sein soll?

[Popov]

Mit Canvas.Polygon(P) zeichnest du ein Polygon. Das Polygon wird mit den eingestellten Eigenschaften gefüllt, zu Not auch mit Schraffur. Soweit nichts Besonderes und nichts Neues.

Hier (oberes Beispiel) erstellst du aber einen Cliping-Bereich. Du kannst somit alles in das Polygon zeichen, auch das Bild von deiner Oma, Farbverlauf und eigene Schrafuren. Da du einen Cliping-Bereich hast, kannst du drüberkleckern und alles landet innerhalb des Polygons.

[Neutral General]

Ich denke mal das ist ihm klar, Er frag sich wahrscheinlich nur was der Sinn sein soll es so zu machen statt einfach Canvas.Polygon zu benutzen

[Aphton]

Die Antwort zu seiner Frage ist - man muss nicht die Schnittpunkte der Schraffurlinien mit dem Polygon berechnen. Man kann die Schraffur einfach auf die Schablone/Clipbereich draufmalen - ohne irgendwelche jeglichen Sorgen -- diese werden sich dann durchs Clipping im Polygon befinden!

[Uwe Raabe]

Um das nochmal zu verdeutlichen: wenn die Schraffur mit dem Brush.Style gemacht wird, kann man direkt Canvas Polygon verwenden. Will man die Schraffur direkt zeichnen, weil es die passende nicht gibt und einem die Erstellung einer Bitmap zu aufwändig ist (oder das Bild von der Oma als Schraffur herhalten soll), kann man das Clipping verwenden.