diff options
| -rw-r--r-- | pict.scm | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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 |