add clojure sample

diff --git a/samples/java/clojure/simple-sample/.gitignore b/samples/java/clojure/simple-sample/.gitignore
new file mode 100644 (file)
index 0000000..e04714b
--- /dev/null
+++ b/samples/java/clojure/simple-sample/.gitignore
@@ -0,0 +1,9 @@
+/target
+/classes
+/checkouts
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port

diff --git a/samples/java/clojure/simple-sample/project.clj b/samples/java/clojure/simple-sample/project.clj
new file mode 100644 (file)
index 0000000..2702b81
--- /dev/null
+++ b/samples/java/clojure/simple-sample/project.clj
@@ -0,0 +1,14 @@
+(defproject simple-sample "0.1.0-SNAPSHOT"
+  :pom-addition [:developers [:developer {:id "magomimmo"}
+                              [:name "Mimmo Cosenza"]
+                              [:url "https://github.com/magomimmoo"]]]
+
+  :description "A simple project to start REPLing with OpenCV"
+  :url "http://example.com/FIXME"
+  :license {:name "BSD 3-Clause License"
+            :url "http://opensource.org/licenses/BSD-3-Clause"}
+  :dependencies [[org.clojure/clojure "1.5.1"]
+                 [opencv/opencv "2.4.7"]
+                 [opencv/opencv-native "2.4.7"]]
+  :main simple-sample.core
+  :injections [(clojure.lang.RT/loadLibrary org.opencv.core.Core/NATIVE_LIBRARY_NAME)])

diff --git a/samples/java/clojure/simple-sample/resources/images/lena.png b/samples/java/clojure/simple-sample/resources/images/lena.png
new file mode 100644 (file)
index 0000000..68342fa
Binary files /dev/null and b/samples/java/clojure/simple-sample/resources/images/lena.png differ

diff --git a/samples/java/clojure/simple-sample/src/simple_sample/core.clj b/samples/java/clojure/simple-sample/src/simple_sample/core.clj
new file mode 100644 (file)
index 0000000..86a1b31
--- /dev/null
+++ b/samples/java/clojure/simple-sample/src/simple_sample/core.clj
@@ -0,0 +1,16 @@
+;;; to run this code from the terminal: "$ lein run". It will save a
+;;; blurred image version of resources/images/lena.png as
+;;; resources/images/blurred.png
+
+(ns simple-sample.core
+  (:import [org.opencv.core Point Rect Mat CvType Size Scalar]
+           org.opencv.highgui.Highgui
+           org.opencv.imgproc.Imgproc))
+
+(defn -main [& args]
+  (let [lena (Highgui/imread "resources/images/lena.png")
+        blurred (Mat. 512 512 CvType/CV_8UC3)]
+    (print "Blurring...")
+    (Imgproc/GaussianBlur lena blurred (Size. 5 5) 3 3)
+    (Highgui/imwrite "resources/images/blurred.png" blurred)
+    (println "done!")))

diff --git a/samples/java/clojure/simple-sample/test/simple_sample/core_test.clj b/samples/java/clojure/simple-sample/test/simple_sample/core_test.clj
new file mode 100644 (file)
index 0000000..d84585e
--- /dev/null
+++ b/samples/java/clojure/simple-sample/test/simple_sample/core_test.clj
@@ -0,0 +1,7 @@
+(ns simple-sample.core-test
+  (:require [clojure.test :refer :all]
+            [simple-sample.core :refer :all]))
+
+(deftest a-test
+  (testing "FIXME, I fail."
+    (is (= 0 1))))