         )
       (restore!)
       ))
-  (restore!)
-  )
-
+  (restore!))
+
+(defn draw-sign!
+  [{:keys [x y alpha font-alpha highlight]} caption offset]
+  (when-not (zero? alpha)
+    (save!)
+    (translate! x y)
+    (let [a 10
+          w 100
+          h 30]
+      (translate! (- (* 2 a (* 1.2 offset))) 0)
+
+      (save!)
+      (global-alpha! alpha)
+      (begin-path!)
+      (move-to! (- a w) (- h))
+      (line-to! (+ a w) (- h))
+      (line-to! (- w a) (+ h))
+      (line-to! (- (+ w a)) (+ h))
+      (fill-style! (if highlight "#1EA" "#EEE"))
+      (fill!)
+      (restore!)
+
+      (global-alpha! font-alpha)
+      (text-baseline! "middle")
+      (text-align! "center")
+      (font! "100 24px Roboto")
+      (fill-style! "#222")
+      (fill-style! (if highlight "#222" "#222"))
+      (fill-text! caption 0 0))
+    (restore!)))
+
+(defn draw-transpiler!
+  [opts]
+  (draw-sign! opts "TRANSPILER" 0))
+
+(defn draw-linter!
+  [opts]
+  (draw-sign! opts "LINTER" 1))
+
+(defn draw-modulesys!
+  [opts]
+  (draw-sign! opts "MODULE SYS" 2))
 
 ;;--------------------------------------------------------------------------------
 ;; Drawing

                 {:a :_ :b 1 :duration t} [:es-captions :es8 :alpha])))
        ])
     #(go
        (let [chans [(multi-animate!
                       {:a :_ :b 0 :duration 0.01} [:es-captions :es8 :alpha]
                       {:a :_ :b 200 :duration 1} [:cam :x]
                       {:a :_ :b 1.3 :duration 1} [:cam :zoom]
                       {:a :_ :b 1 :duration 1} [:transpiler :x]
                       )
                     (go
                       (<! (timeout 50))

                 :es7 {:alpha 0}
                 :es8 {:alpha 0}}
   :highlight-layer nil
   :transpiler {:x 900
                :y 0
                :alpha 0
                :font-alpha 0}
   :linter {:x 900
            :y 70
            :alpha 0
            :font-alpha 0}
   :modulesys {:x 900
               :y 140
               :alpha 0
               :font-alpha 0}
   })

;; Current state of the application.
