basket/examples/path.scm

(add-to-load-path (dirname (dirname (current-filename))))
(use-modules (basket))

(define image
  '((set (color (0 0 1))
         (fill
           ((0 . 0) (1/3 . 0) (0 . 1/3))
           ((1/3 . 1/3) (1/3 . 2/3) (2/3 . 1/3))))
    (stroke
      ((0 . 0) (1/3 . 0) (0 . 1/3))
      ((1/3 . 1/3) (1/3 . 2/3) (2/3 . 1/3)))))

(render-cairo-png image 1024 (cadr (program-arguments)))