From 61d9638d80828890fb950692f6ce78f22e7e370c Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 15:39:40 +0200 Subject: pict: polyline: Add docstring. * pict.scm (polyline): Add docstring. --- pict.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/pict.scm b/pict.scm index 60b7b12..85d4af1 100644 --- a/pict.scm +++ b/pict.scm @@ -570,10 +570,12 @@ accepted to override the line color and line thickness." #:color color #:stroke-width stroke-width))) (define* (polyline points - #:key - (color "black") - (stroke-width 1)) - "Draw a polyline from POINTS, a list of x and y coordinate pairs." + #:key + (color "black") + (stroke-width 1)) + "Draw a polyline from POINTS, a list of x and y coordinate pairs. +The keys COLOR (a string) and STROKE-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