Updated for turboshrimp 2.0.1.

wiseman · Apr 17, 2016 · b101533 · b101533
1 parent 288f23f
commit b101533
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/examples/controller.clj b/examples/controller.clj
@@ -165,12 +165,8 @@
   (.drawImage g image 0 0 (.getWidth view) (.getHeight view) nil))
 
 
-(defn get-video-input-stream [drone]
-  (.getInputStream (Socket. (:hostname drone) ar-drone/default-video-port)))
-
-
 (defn connect-video-controller [ui drone]
-  (let [is (get-video-input-stream drone)
+  (let [is (ar-drone/video-input-stream drone)
         fq (pave/make-frame-queue)
         ^JPanel view (seesaw/select ui [:#video])
         decoder (video/decoder)]