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

TestSamples/CompilationSamples/GrPoly.pas

18 строк505 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��������� Polyline, Polygon, Curve, ClosedCurve
// ������� ������ ������� ���������
uses GraphABC;

var a: array of Point := (new Point(0,0), new Point(50,170), new Point(100,100), new Point(150,170), new Point(200,0));

begin
  Window.Title := '��������� �� ������� �����';
  Brush.Color := Color.Beige;
  Coordinate.SetOrigin(60,30);
  Polyline(a);
  Coordinate.OriginX := 360;
  Polygon(a);
  Coordinate.Origin := new Point(60,250);
  Curve(a);
  Coordinate.OriginX := 360;
  ClosedCurve(a);
end.