   []
   (go
     (<! (multi-animate!
-          [{:a 0 :b 1 :duration 1}
-           #(swap! state assoc-in [:js-face :alpha] %)
-           {:a 900 :b 0 :duration 1}
+          {:a 900 :b 0 :duration 1}
            #(swap! state assoc-in [:js-face :x] %)
            {:a 1 :b 0 :duration 0.4}
            #(swap! state assoc-in [:title :alpha] %)
-           ]))))
+           ))))
+
+(defn go-go-slide2!
+  []
+  (go
+    (<! (multi-animate!
+          {:a 0 :b -600 :duration 2}
+          #(swap! state assoc-in [:js-face :y] %)
+          {:a 0 :b 600 :duration 2}
+          #(swap! state assoc-in [:js-face :x] %)
+          {:a 0 :b (* 2 PI) :duration 2}
+          #(swap! state assoc-in [:js-face :angle] %)
+          {:a 1 :b 0 :duration 2}
+          #(swap! state assoc-in [:js-face :alpha] %)
+          {:a 0 :b 1 :duration 1}
+          #(swap! state assoc-in [:js-core :alpha] %)
+          {:a 1 :b 1.5 :duration 1}
+          #(swap! state assoc-in [:cam :zoom] %)
+          ))))
 
 ;;--------------------------------------------------------------------------------
 ;; Slide Control

(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]}]

  "Actions to take for each slide."
  [nil
   go-go-slide1!
   go-go-slide2!
   ])

(def num-slides
