(defpackage #:smiley (:use #:cl #:vecto))
(in-package #:smiley)
(with-canvas (:width 200 :height 200) (scale 2 2) (set-rgb-stroke 0 0 0) (set-line-width .5) (set-rgb-fill 1 1 0) (centered-circle-path 50 50 50) (fill-and-stroke) (set-rgb-fill 0 0 0) (centered-ellipse-path 35 70 10 15) (centered-ellipse-path 65 70 10 15) (fill-path) (move-to 30 35) (quadratic-to 50 10 70 35) (quadratic-to 50 15 30 35) (fill-and-stroke) (move-to 25 34) (quadratic-to 30 35 30 40) (move-to 75 34) (quadratic-to 70 35 70 40)
(stroke)
(save-png (merge-pathnames "tmp/smiley.png" (user-homedir-pathname))))