[Andorra 2D] Polygon Zeichenproblem

[sabbert]

Morgen :D,

hab da ein Problem bei Andorra, undzwar beim Zeichnen eines Polygones.

Delphi-Quellcode:

var poly :TAdPolygon;

//irgendwas anderes an Code ;D;D
//...
    
with AdDraw.Canvas do
begin
 setlength(poly,4);
 poly[0].X := round(Figur.X+25);
 poly[0].y := round(Figur.y);
 poly[1].X := round(Figur.X+50);
 poly[1].y := round(Figur.Y-100); //**
 poly[2].X := round(Figur.X-50);
 poly[2].y := round(Figur.Y-100); //**
 poly[3].X := round(Figur.X-25);
 poly[3].y := round(Figur.y);
 AdDraw.Canvas.Pen.Color := AdCol32_White;
 AdDraw.Canvas.Polygon(poly);
 Release;
end;

Undzwar bekomme ich dann immer eine Zugriffverletzung :(. Keine Ahnung woran das liegt, oder ich überseh nur einen einfachen Fehler :D

Wenn ich aber (hier im Code mit ** markiert) statt -100 ,dann +100 eingebe funktioniert das Zeichnen ohne Zugriffverlsetzung :shock:

Das Polygon ist ja ein Array von TAdPoint und es lassen sich die komischesten Figuren Zeichnen, aber warum diese net ?!:(

Bitte Helft mir

PS. Fehlermeldung im Anhang :D

[igel457]

Hallo, das Polygon muss stets im Uhrzeigersinn gezeichnet werden, sonst schlägt die Triangulierung fehl.

[sabbert]

oh stimmt :( hab ich ganz vergessen :oops:

danke für den Hinweis :thumb: