diff --git a/samples/java/clojure/simple-sample/.gitignore b/samples/java/clojure/simple-sample/.gitignore new file mode 100644 index 000000000..e04714ba8 --- /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 index 000000000..2702b8106 --- /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 index 000000000..68342fae5 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 index 000000000..86a1b3113 --- /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 index 000000000..d84585e01 --- /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))))