| Page 102 | Table of Contents | Index | Page 104 |
| Chapters | |||
|
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
27,
28,
29,
30 A, B, C, D, E | |||
(do ((i 0 (+ i 2)))
((= i (length point-seq)))
(draw-line sheet (elt point-seq i) (elt point-seq (1+ i))))
and
(do ((i 0 (+ i 4)))
((= i (length coord-seq)))
(draw-line* sheet (elt coord-seq i) (elt coord-seq (+ i 1))
(elt coord-seq (+ i 2)) (elt coord-seq (+ i 3))))
=> draw-polygon sheet point-seq &key (filled t) (closed t) ink clipping-region transformation line-| Page 102 | Table of Contents | Index | Page 104 |
| Chapters | |||
|
1,
2,
3,
4,
5,
6,
7,
8,
9,
10,
11,
12,
13,
14,
15,
16,
17,
18,
19,
20,
21,
22,
23,
24,
25,
26,
27,
28,
29,
30 A, B, C, D, E | |||