16 lines
331 B
ObjectPascal
16 lines
331 B
ObjectPascal
// Äåìîíñòðàöèÿ ïðåîáðàçîâàíèé ñèñòåìû êîîðäèíàò
|
|
uses GraphABC;
|
|
|
|
begin
|
|
Window.Title := 'Ïðåîáðàçîâàíèÿ ñèñòåìû êîîðäèíàò';
|
|
Window.IsFixedSize := True;
|
|
|
|
Coordinate.Origin := Window.Center;
|
|
Circle(0,0,200);
|
|
for var i := 1 to 12 do
|
|
begin
|
|
Circle(0,180,10);
|
|
Coordinate.Angle := Coordinate.Angle + 30;
|
|
end;
|
|
end.
|