19 lines
566 B
ObjectPascal
19 lines
566 B
ObjectPascal
// Процедуры 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.
|