Solved: Draw stars inside polygons and Get Rid of extra vertical line

[Boleeman]

Corrected version is attached in the 4th REPLY BELOW.

G'Day All.

I converted some CSharp code ( from http://www.csharphelper.com/howtos/howto_draw_ngon_stars.html  ) to Lazarus and have added a scalefactor to scale the smaller images that get drawn around the center image..

I was trying to get rid of a small vertical line at the bottom, which happens for even values of number of vertices but somehow I cannot find how (as shown in the attached picture).

How to get rid of that small vertical line is what I am trying to do?



Paweld was able to fix this for me in next thread. Thank you Paweld.

[paweld]

Code: Pascal  [Select][+][-]

1. procedure TForm1.DrawScaledStar(ACanvas: TCanvas; x, y: Integer; orig_pts: array of TPoint; skip: Integer; AscaleFactor: Double);
2. var
3.   pts: array of TPoint;
4.   i, pointIndex: Integer;
5. begin
6.   SetLength(pts, NumPoints);
7.   for i := 0 to NumPoints - 1 do
8.   begin
9.     if (skip * 2) = NumPoints then
10.       continue;
11.     pointIndex := (i * skip) mod NumPoints;
12.     pts[i] := Point(Round(x + orig_pts[pointIndex].X * AscaleFactor), Round(y + orig_pts[pointIndex].Y * AscaleFactor));
13.   end;
14.   for i := 0 to High(pts) - 1 do
15.   begin
16.       ACanvas.Line(pts[i].X, pts[i].Y, pts[i + 1].X, pts[i + 1].Y);
17.   end;
18.   ACanvas.Line(pts[High(pts)].X, pts[High(pts)].Y, pts[0].X, pts[0].Y);
19. end;

[Boleeman]

Paweld to the Rescue. "if (skip * 2) = NumPoints then"   Cant believe it.

It was driving me crazy, trying to remove that one little vertical line.

Thanks for helping me out Paweld.

[440bx]

Paweld to the Rescue. "if (skip * 2) = NumPoints then"   Cant believe it.

It was driving me crazy, trying to remove that one little vertical line.

Thanks for helping me out Paweld.

Just a suggestion: post a corrected version of your program so people don't have to remember that it requires a manual correction to operate properly.

[Boleeman]

OK 440bx

Attached below is the fixed up version.

[440bx]

OK 440bx

Attached below is the fixed up version.

Thank you.

[Boleeman]

You are welcome 440bx.