implement pyr-down

nakkaya · Feb 20, 2011 · a02f262 · a02f262
1 parent f357114
commit a02f262
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/resources/lib/vision.c b/resources/lib/vision.c
@@ -849,6 +849,15 @@ void release_surf(void* p){
   free(surf);
 }
 
+void* pyr_down(void* i){
+  IplImage* img = (IplImage*)i;
+  IplImage* out = cvCreateImage(cvSize(img->width/2,img->height/2), img->depth, img->nChannels);
+
+  cvPyrDown(img, out, CV_GAUSSIAN_5x5);
+
+  return (void*)out;
+}
+
 /* 
    Drawing Functions 
 */

diff --git a/src/vision/core.clj b/src/vision/core.clj
@@ -421,6 +421,11 @@
 (defmethod release Surf [s]
            (call :release_surf [(:pointer s)]))
 
+(defn pyr-down
+  "Downsamples an image."
+  [{p :pointer t :color-space}]
+  (ipl-image (call :pyr_down Pointer [p]) t))
+
 ;;
 ;; GUI Calls
 ;;