 
     ;; draw the arc
     (let [a (/ PI 2)
-          da (/ (* 2 PI) 3)
-          start-a (+ a da)]
+          num-arcs 4
+          da (/ (* 2 PI) num-arcs)
+          start-a (+ a (* 2 da))]
 
       (draw-static-arc! start-a (+ start-a angle) "#FFF")
 
       ;; hack to grey out previously visited arcs
       (let [second-a (cond
+                       (> angle (* 3 da)) (* 3 da)
                        (> angle (* 2 da)) (* 2 da)
                        (> angle da) da)]
-        (draw-static-arc! start-a (+ start-a second-a) "#CDD")))
-
-    ;; draw dividers
-    (when (= 1 alpha)
-      (line-width! 24)
-      (stroke-style! "#BCC")
-      (let [r (-> @state :static :sphere :r)]
-        (dotimes [i 3]
-          (stroke-line! 0 0 0 r)
-          (rotate! (/ (* 2 PI) 3)))))
+        (draw-static-arc! start-a (+ start-a second-a) "#CDD"))
+
+      ;; draw dividers
+      (when (= 1 alpha)
+        (line-width! 24)
+        (stroke-style! "#BCC")
+        (let [r (-> @state :static :sphere :r)]
+          (dotimes [i num-arcs]
+            (stroke-line! 0 0 0 r)
+            (rotate! da)))))
     )
   (restore!))
 
 (defn draw-static!
-  [{:keys [title sphere angle typescript soundscript flow]}]
+  [{:keys [title sphere angle typescript soundscript flow closure]}]
   (when-not (zero? (:alpha sphere))
     (save!)
 


        ;; show flow
        #(go
           (swap! state assoc-in [:static :typescript :alpha] low)
           (<! (multi-animate!
                 {:a :_ :b 1 :duration 1} [:static :flow :alpha]
                 {:a :_ :b (* 2 angle) :duration 1} [:static :sphere :angle]
                 )))

        ;; show soundscript
        #(go
           (swap! state assoc-in [:static :flow :alpha] low)
           (<! (multi-animate!
                 {:a :_ :b 1 :duration 1} [:static :soundscript :alpha]
                 {:a :_ :b (* 3 angle) :duration 1} [:static :sphere :angle]
                 )))])

     ;; fade out staticsphere details
     #(go
        (<! (multi-animate!
              {:a :_ :b 0 :duration 1} [:static :typescript :alpha]
              {:a :_ :b 0 :duration 1} [:static :flow :alpha]
              {:a :_ :b 0 :duration 1} [:static :soundscript :alpha]
              {:a :_ :b 0 :duration 1} [:cam :x]
              {:a :_ :b 0 :duration 1} [:static :sphere :angle]
              {:a :_ :b 0 :duration 1} [:static :title :alpha]
              {:a :_ :b 0.2 :duration 2} [:cam :zoom]
              )))

     ;; show coffeescript
     #(go

     #(go
        (swap! state assoc :caption
               (html [:div
                      "And for proper dependency loading, we need extra module tools like "
                      [:a {:href "http://browserify.org/"
                           :target "_blank"}
                       "Browserify"]
