Function

Summary

Draws several polygons.

Signature

draw-polygon port description &rest args &key filled closed fill-rule

Arguments

port

A graphics port

description

A list of real numbers

filled

A boolean

closed

A boolean

fill-rule

A keyword

args

General graphics port drawing arguments

Description

The draw-polygons function draws several polygon using a sequence alternating x and y values in the description argument as the vertices. The description arguments consists of groups of points as in draw-polygon . When closed is non- nil the edge from the last vertex to the first to be drawn. When filled is non- nil a filled, closed polygons are drawn; the closed argument is ignored if filled is non- nil . transform, foreground, background, operation, thickness, scale-thickness, dashed, dash, line-end-style, line-joint-style , stipple, pattern , mask-x, mask-y , and mask from the port 's graphics state are all used. The fill-rule specifies how overlapping regions are filled. Possible values are :even-odd and :winding .

Example

This draws two heaxgons, one inside the other:

(gp:draw-polygons oo

                  '((150 100 200 100 235 150 200

                     200 150 200  115 150)

                    (140 90  210 90  250 150 

                     210 210  140 210  100 150))

                  :closed t)

See also

draw-polygon