   (draw-dart! (:dart @state))
   (draw-clojurescript! (:clojurescript @state))
 
-  (restore!))
-
+  (restore!)
+  (draw-progress!))
+

(ns solar-system-of-js.draw
  (:require
    [solar-system-of-js.state :refer [state]]
    [solar-system-of-js.canvas :refer [width height
                                       fill-style!
                                       stroke-style!

  (scale! zoom zoom)
  (rotate! angle))

(defn draw-progress!
  []
  (let [i (:slide @state)
        end-i (dec num-slides)
        len (* width (/ i end-i))]

    (begin-path!)
    (move-to! 0 0)
    (line-to! len 0)
    (line-width! 10)
    (stroke-style! "#ACC")
    (stroke!)))

(defn draw!
  "Draw the current state of the application."
  []
