Mercurial > cortex

annotate org/gabor.org @ 357:90b34cb842de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
playing around.
author Robert McIntyre <rlm@mit.edu>
date Wed, 06 Mar 2013 18:13:34 +0000
parents 446300cb5ae7
children b72fea69b2e1
rev   line source
rlm@356 1 #+title: Fun with Gabor Filters
rlm@356 2 #+author: Robert McIntyre
rlm@356 3 #+email: rlm@mit.edu
rlm@356 4 #+description: gabor filters in clojure with opencv
rlm@356 5 #+keywords: computer vision, jMonkeyEngine3, clojure, opencv
rlm@356 6 #+SETUPFILE: ../../aurellem/org/setup.org
rlm@356 7 #+INCLUDE: ../../aurellem/org/level-0.org
rlm@356 8 #+babel: :mkdirp yes :noweb yes :exports both
rlm@356 9
rlm@356 10
rlm@356 11
rlm@356 12 #+name: gabor
rlm@356 13 #+begin_src clojure
rlm@357 14 (ns cortex.gabor
rlm@357 15 (:import org.opencv.core.CvType)
rlm@357 16 (:import java.awt.image.BufferedImage)
rlm@357 17 (:import ij.ImagePlus)
rlm@357 18 (:use cortex.sense)
rlm@357 19 (:use cortex.util)
rlm@357 20 )
rlm@356 21
rlm@356 22 (defn load-opencv
rlm@356 23 "Load the opencv native library. Must be called before any OpenCV
rlm@356 24 stuff is used."
rlm@356 25 []
rlm@356 26 (clojure.lang.RT/loadLibrary "opencv_java249"))
rlm@356 27
rlm@356 28
rlm@357 29 (defn convolve-practice []
rlm@357 30 (let [input "/home/r/proj/cortex/images/dominos.jpg"
rlm@357 31
rlm@357 32
rlm@357 33 output "/home/r/ppp.png"
rlm@356 34
rlm@357 35 i (org.opencv.highgui.Highgui/imread input)
rlm@357 36
rlm@357 37 ]
rlm@356 38
rlm@357 39
rlm@357 40
rlm@357 41
rlm@357 42 (view (ImagePlus. input))
rlm@357 43 (view (ImagePlus. output))
rlm@357 44
rlm@357 45 ))
rlm@357 46
rlm@357 47
rlm@357 48
rlm@357 49
rlm@357 50
rlm@357 51
rlm@357 52
rlm@357 53 (comment
rlm@357 54 ;; these work
rlm@357 55 (def i (org.opencv.highgui.Highgui/imread
rlm@357 56 "/home/r/proj/cortex/images/dominos.jpg"))
rlm@357 57
rlm@357 58 (org.opencv.highgui.Highgui/imwrite "/home/r/ppp.png" i)
rlm@357 59 )
rlm@356 60 #+end_src
rlm@356 61
rlm@356 62
rlm@356 63
rlm@356 64 * COMMENT Generate Source
rlm@356 65 #+begin_src clojure :tangle ../src/cortex/gabor.clj
rlm@356 66 <<gabor>>
rlm@356 67 #+end_src