| Draw.Polygon | Part of Draw module |
| Syntax | Draw.Polygon (x, y : array 1 .. * of int, n : int, Color : int)
|
| Description | The Draw.Polygon procedure is used to draw a polygon with n points. A line is drawn in Color from the point (x(1), y(1)) to (x(2), y(2)) to (x(3), y(3)) and so on. After drawing the line to (x(n), y (n)), a line will be drawn back to (x(1), y(1)), closing the polygon. The Draw.Polygon procedure is equivalent to:
for i : 1 .. n - 1
Draw.Line (x (i), y(i), x (i + 1), y (i + 1), Color)
end for
Draw.Line (x (n), y (n), x (1), y (1), Color)
|
| Example | This program will create an octagon and display it in color 1.
View.Set ("graphics")
var x : array 1..8 of int := init (100, 100, 135, 185,
220, 220, 185, 135)
var y : array 1..8 of int := init (100, 150, 185, 185,
150, 100, 65, 65)
Draw.Polygon (x, y, 8, brightblue)
|
| Execute | |
| Details | The IBM PC limits Draw.Polygon to a maximum of 256 points. The screen must be in a "graphics" mode. See the View.Set procedure for details. If the screen is not in a "graphics" mode, an error will occur.
|
| Status | Exported qualified. This means that you can only call the function by calling Draw.Polygon, not by calling Polygon.
|
| See also | View.Set, maxx, maxy and the various procedures in the Draw unit.
|