# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1362595835 0
# Node ID b72fea69b2e1010995774c176a1334bf53e225ca
# Parent  90b34cb842dedf8b140da548c382bf5d513bf2d4
achieved convolution.

diff -r 90b34cb842de -r b72fea69b2e1 org/gabor.org
--- a/org/gabor.org	Wed Mar 06 18:13:34 2013 +0000
+++ b/org/gabor.org	Wed Mar 06 18:50:35 2013 +0000
@@ -15,6 +15,7 @@
   (:import org.opencv.core.CvType)
   (:import java.awt.image.BufferedImage)
   (:import ij.ImagePlus)
+  (:import org.opencv.core.Mat)
   (:use cortex.sense)
   (:use cortex.util)
   )
@@ -25,6 +26,15 @@
   []
   (clojure.lang.RT/loadLibrary "opencv_java249"))
 
+(defn make-kernel []
+  (let [r (org.opencv.core.Mat. 5 5 CvType/CV_32F)]
+    (.put r 0 0 (float-array (map (fn [_] (rand)) (range 25))))
+    (println (.dump r))
+
+    ;;r
+
+    (org.opencv.core.MatOfFloat. (float-array [1]))
+    ))
 
 (defn convolve-practice []
   (let [input "/home/r/proj/cortex/images/dominos.jpg"
@@ -33,15 +43,20 @@
         output "/home/r/ppp.png"
 
         i (org.opencv.highgui.Highgui/imread input)
-        
+
+        kernel (make-kernel)
+
+        new-mat (Mat.)
+                
         ]
 
-
-
-
+    (org.opencv.imgproc.Imgproc/filter2D  i new-mat CvType/CV_32F (make-kernel))
+    
+    (org.opencv.highgui.Highgui/imwrite "/home/r/ppp.png" new-mat)
+    
     (view (ImagePlus. input))
     (view (ImagePlus. output))
-
+        
     ))