Commits

Christian Kellermann committed 959fd1b

Add width to line procedure, stroke the nonfilled circle

Comments (0)

Files changed (1)

 (define (circle x y diameter color)
   (set-color color)
   (doto *c*
-        (cairo-arc x y (/ diameter 2) 0 (* 2 cairo-pi))))
+        (cairo-arc x y (/ diameter 2) 0 (* 2 cairo-pi))
+        (cairo-stroke)))
 
 (define (filled-circle x y diameter color)
   (set-color color)
 
 (define (draw-line x1 y1 x2 y2
                    #!key
+                   (width 1)
                    (color solid-white)
                    (style #:solid))
   (doto *c*
+        (cairo-set-line-width width)
         (cairo-new-path)
         (cairo-move-to x1 y1))
   (set-color color)