Mercurial > cortex
annotate org/gabor.org @ 357:90b34cb842de
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 |