cleaning up

gigasquid · Aug 23, 2013 · d7872a5 · d7872a5
1 parent e66e87a
commit d7872a5
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
@@ -14,4 +14,5 @@ home.m4v
 vid.h264
 faceDetections.png
 next.h264
-opencvin.png
+opencvin.png
+.lein-repl-history
diff --git a/examples/face_recognition.clj b/examples/face_recognition.clj
@@ -0,0 +1,12 @@
+(ns clj-drone.example.video
+  (:require [clj-drone.core :refer :all]
+            [clj-drone.video :refer :all]))
+
+;This video input from the drone is h264.  It is converted to png and
+;then put through openvcv for face recognition
+(configure-opencv true)
+(drone-initialize)
+(init-opencv)
+(init-video (drone-ip drone-host))
+(start-video (drone-ip drone-host))
+(end-video)
diff --git a/src/clj_drone/core.clj b/src/clj_drone/core.clj
@@ -121,8 +121,7 @@
 (defn drone-init-navdata []
   (let [host (:host (:default @drones))
         navdata-port (:navdata-port (:default @drones))
-        navdata-socket (:navdata-socket (:default @drones))
-        ]
+        navdata-socket (:navdata-socket (:default @drones))]
     (do
       (init-logger)
       (log/info "Initializing navdata")