         (reset! strips new-strips)))))
 
 
+(defn- set-pixels!
+  "Renders a sequence of pixel colors to an LED strip."
+  [^Strip strip colors]
+  (dorun (map #(when %2 (.setPixel strip (int %1) (unchecked-int %2)))
+              (range (.getLength strip))
+              colors)))
+
+
 
 ;;;;; PIXEL PUSHER DISPLAY ;;;;;
 


  (set-colors!
    [this colors]
    ; TODO: implementation
    nil))



  (stop
    [this]
    (println "Stopping PixelPusher display...")
    ; TODO: remove device observer
    (.stopPushing registry)
    (reset! strips [])
    (assoc this :running false))


