n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/GraphABCTest.pas

19 строк389 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ���������� ������������ 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.