       (let [coll (<! (resources/load-urls urls
                       (fn [i num-urls url obj]
                         (set! (.-texture b)
-                              (progress-texture (/ i num-urls) options)))))]
+                              (progress-texture renderer (/ i num-urls) options)))))]
 
         ;; fadeout
         (<! (fadeout b :duration fade-out))

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

        (set! (.-alpha spr) (+ start (* (- end start) (/ (- ticks i) ticks))))
        (when (pos? i) (recur (dec i)))))))

(defn load-resources [{:keys [renderer] :as canvas} layer urls & {:keys [fade-in fade-out]
                                              :or {fade-in 0.01 fade-out 0.01}
                                                                  :as options}]
  (let [b (add-prog-bar renderer (m/get-layer canvas layer) options)]
    (go
      ;; fade in
      (<! (fadein b :duration fade-in))
