Page 70 - 4260

p: array[1..11] of TPoint; // координати променів
і западин
a: integer;
// кут між ОХ і радіусом
i: integer;
begin
a := 18;
// будуємо від правого горизонтального променя
for i:=1 to 10 do
begin
if (i mod 2 = 0)
then
begin
// западина зірки
p[i].x :=
x0+Round(r/2*cos(a*2*pi/360));
p[i].y:=y0-
Round(r/2*sin(a*2*pi/360));
end
else
begin // промінь зірки

p[i].x:=x0+Round(r*cos(a*2*pi/360));
p[i].y:=y0-
Round(r*sin(a*2*pi/360));
end;
a := a+36;
end;
p[11].X := p[1].X; // щоб замкнути
контур зірки
p[11].Y := p[1].Y;
Canvas.Polyline(p); // накреслити зірку
end;

// натискання кнопки миші
procedure TForm1.FormMouseDown(Sender: TObject;
Button:TMouseButton; Shift: TShiftState; x,y:integer);

70