2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Дуги и секторы';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
var (x,y) := (200,Window.Height/2);
|
|
|
|
|
|
Circle(x,y,5);
|
|
|
|
|
|
for var i:=1 to 18*2 do
|
|
|
|
|
|
Arc(x,y,5*i,0,10*i);
|
|
|
|
|
|
(x,y) := (600,Window.Height/2);
|
|
|
|
|
|
for var i:=1 to 12 do
|
|
|
|
|
|
begin
|
|
|
|
|
|
Brush.Color := RandomColor;
|
|
|
|
|
|
Sector(x,y,180,30*(i-1),30*i);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|
