add clojure sample
This commit is contained in:
parent
2784fd7b27
commit
f07e9e7c5f
9
samples/java/clojure/simple-sample/.gitignore
vendored
Normal file
9
samples/java/clojure/simple-sample/.gitignore
vendored
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
/target
|
||||||
|
/classes
|
||||||
|
/checkouts
|
||||||
|
pom.xml
|
||||||
|
pom.xml.asc
|
||||||
|
*.jar
|
||||||
|
*.class
|
||||||
|
/.lein-*
|
||||||
|
/.nrepl-port
|
14
samples/java/clojure/simple-sample/project.clj
Normal file
14
samples/java/clojure/simple-sample/project.clj
Normal file
@ -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)])
|
BIN
samples/java/clojure/simple-sample/resources/images/lena.png
Normal file
BIN
samples/java/clojure/simple-sample/resources/images/lena.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 606 KiB |
@ -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!")))
|
@ -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))))
|
Loading…
Reference in New Issue
Block a user