(def star (path [] (move-to 0 20) (line-to 5 5) (line-to 20 0) (line-to 5 -5) (line-to 0 -20) (line-to -5 -5) (line-to -20 0) (line-to -5 5) (line-to 0 20)))
(def points [[0 20] [20 20] [20 0] [0 0]])
(dean my-path [points]
?)
(let [p (path [])]
(.moveTo p 0, 0)
(doseq [[x y] points]
(.lineTo p x y)))