summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-06-04 15:39:50 +0200
committerRicardo Wurmus <rekado@elephly.net>2019-06-04 15:39:50 +0200
commit2256f5281c71a650b1039475bf9ae652b14d6519 (patch)
tree67b2981a6f7ec3f077c70378e14f54b2ff4cb59b
parent61d9638d80828890fb950692f6ce78f22e7e370c (diff)
pict: polygon: Add docstring.
* pict.scm (polygon): Add docstring.
-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