draws a lovely 5 point star.
Simba Code:
procedure TMufasaBitmap.hailSatan(p: TPoint; rad: integer);
var
i: integer;
s, h, l, m, l2, m2: extended;
pts: TPointArray;
box: TBox;
begin
box := mainscreen.getBounds();
box.shrink(rad);
if (not p.isInBox(box)) then exit();
self.drawCircle(p, rad, false, clRed);
rad := round(rad*1.2);
l := rad*sin(radians(18));
m := rad*cos(radians(18));
l2 := rad*sin(radians(36));
m2 := rad*cos(radians(36));
setLength(pts, 5);
pts[0] := point(p.x, p.y+rad);
pts[1] := point(round(p.x+l2), round(p.y-m2));
pts[2] := point(round(p.x-m), round(p.y+l));
pts[3] := point(round(p.x+m), round(p.y+l));
pts[4] := point(round(p.x-l2), round(p.y-m2));
for i := 0 to high(pts) do
if (not pts[i].isInBox(mainscreen.getBounds())) then exit();
self.drawPolygon(pts, clRed);
end;
it's a joke