Vecto rules!

Another instant hit from Xach is Vecto. All pure lisp all the time. Here is some fun that I've had with it.

(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))))