Commits

Christian Kellermann committed e8c0127

Add filled-circle, don't fill circle with pure circle for symmetry

Comments (0)

Files changed (1)

          clear-screen
          current-background
          draw-line
+         filled-circle
          filled-rectangle
          font-color
          font-size
 (define (circle x y diameter color)
   (set-color color)
   (doto *c*
+        (cairo-arc x y (/ diameter 2) 0 (* 2 cairo-pi))))
+
+(define (filled-circle x y diameter color)
+  (set-color color)
+  (doto *c*
         (cairo-arc x y (/ diameter 2) 0 (* 2 cairo-pi))
         (cairo-fill)))