summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pict.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/pict.scm b/pict.scm
index 85d4af1..de66fb3 100644
--- a/pict.scm
+++ b/pict.scm
@@ -599,10 +599,12 @@ override the line color and line thickness."
,(number->string stroke-width)))))))))))
(define* (polygon points
- #:key
- (border-color "black")
- (border-width 1))
- "Draw a polygon from POINTS, a list of x and y coordinate pairs."
+ #:key
+ (border-color "black")
+ (border-width 1))
+ "Draw a polygon from POINTS, a list of x and y coordinate pairs.
+The keys BORDER-COLOR (a string) and BORDER-WIDTH (a number) are
+accepted to override the line color and line thickness."
(let* ((xs (map car points))
(ys (map cdr points)))
(make-pict