20 lines
422 B
ObjectPascal
20 lines
422 B
ObjectPascal
// Иллюстрация простейших возможностей GraphABC
|
|
uses GraphABC;
|
|
|
|
begin
|
|
Coordinate.Origin := Window.Center;
|
|
Coordinate.SetMathematic;
|
|
Brush.Color := Color.LightSkyBlue;
|
|
while True do
|
|
begin
|
|
LockDrawing;
|
|
ClearWindow;
|
|
Ellipse(-120,-70,120,70);
|
|
Line(0,0,200,0);
|
|
Line(0,0,0,200);
|
|
Redraw;
|
|
Coordinate.Angle := Coordinate.Angle + 1;
|
|
Sleep(100);
|
|
end;
|
|
end.
|