2015-12-28 14:25:15 +03:00
|
|
|
// Демонстрация преобразований системы координат
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
Window.Title := 'Преобразования системы координат';
|
2015-05-14 22:35:07 +03:00
|
|
|
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.
|
