From dc59eecd6c7dfba4f5ad80d37cb10abd444fec30 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 15:38:41 +0200 Subject: pict: circle: Add docstring. * pict.scm (circle): Add docstring. --- pict.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/pict.scm b/pict.scm index 1d421c3..f12848c 100644 --- a/pict.scm +++ b/pict.scm @@ -653,6 +653,7 @@ the line color and line thickness." #:key (border-color "black") (border-width 1)) + "Return a circle with an outer diameter of SIZE." (let* ((border-width (min border-width (/ size 2))) (radius (exact->inexact (/ (- size border-width) 2)))) -- cgit v1.2.3