   [opts]
   (draw-sign! opts "MODULE SYS" 2))
 
+(defn draw-staticsphere!
+  [{:keys [alpha r]}]
+  (save!)
+  (when-not (zero? alpha)
+    (global-alpha! alpha)
+    (circle! 0 0 r)
+    (fill-style! "#BCC")
+    (fill!))
+  (restore!))
+
+(defn draw-static!
+  [{:keys [title sphere typescript soundscript flow]}]
+  (save!)
+
+  (save!)
+  (global-alpha! (:alpha title))
+  (font! "100 90px Roboto")
+  (text-baseline! "middle")
+  (text-align! "center")
+  (fill-style! "#677")
+  (fill-text! "STATIC TYPING" 0 -600)
+  (restore!)
+
+  (draw-staticsphere! sphere)
+  (restore!))
+
 ;;--------------------------------------------------------------------------------
 ;; Drawing
 ;;--------------------------------------------------------------------------------

                {:a :_ :b 0 :duration t} [:cam :y]
                ))))

     ])))

(def num-slides

               :y 140
               :alpha 0
               :font-alpha 0}
   :static {:title {:alpha 0}
            :sphere {:alpha 0
                     :r 200}
            :typescript {:alpha 0}
            :soundscript {:alpha 0}
            :flow {:alpha 0}}
   })

;; Current state of the application.
