From 2256f5281c71a650b1039475bf9ae652b14d6519 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 15:39:50 +0200 Subject: pict: polygon: Add docstring. * pict.scm (polygon): Add docstring. --- pict.scm | 10 ++++++---- 1 file 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 -- cgit v1.2.3