   (restore!)
   )
 
-(defn draw-js!
-  [{:keys [x y r alpha]}]
-
+(defn draw-js-face!
+  [{:keys [x y r angle alpha]}]
   (save!)
   (global-alpha! alpha)
-  (circle! x y r)
+  (translate! x y)
+  (rotate! angle)
+  (circle! 0 0 r)
   (fill-style! "#f7df1e")
   (fill!)
 

(defn stroke-text! [text x y] (.strokeText ctx text x y))
(defn text-align! [x] (aset ctx "textAlign" x))
(defn text-baseline! [x] (aset ctx "textBaseline" x))

;;--------------------------------------------------------------------------------
;; Slide Drawings
;;--------------------------------------------------------------------------------


(defn draw-title!
  [{:keys [x y alpha]}]

(defn multi-animate!
  "Helper for concurrent animations with `animate!`.
   Returns a channel that closes when all are done."
  [& arg-pairs]
  (let [anims (->> (partition 2 arg-pairs)
                   (mapv #(apply animate! %)))]
    (go
