       (when (> bw 0)
         (when highlight
           (doto box
-              (.lineStyle highlight-width highlight)
-              (.moveTo x1 y2)
-              (.lineTo x1 y1)
-              (.lineTo x2 y1)))
+            (.lineStyle highlight-width highlight)
+            (.moveTo x1 y2)
+            (.lineTo x1 y1)
+            (.lineTo x2 y1)))
         (when lowlight
           (doto box
             (.lineStyle lowlight-width lowlight)

      (let [coll (<! (resources/load-urls urls
                      (fn [i num-urls url obj]
                        (set! (.-texture b)
                              (progress-texture (/ i num-urls) options)))))]

        ;; fadeout
        (<! (fadeout b :duration fade-out))


    (.generateTexture box false)))

(defn add-prog-bar [renderer stage options]
  (let [s (sprite/make-sprite (progress-texture renderer 0 options)
                              :scale (get options :scale sprite/*default-scale*))]
    (set! (.-alpha s) 0)
    (.addChild stage s)
