Mercurial > cortex
view 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 |
line wrap: on
line source
1 #+title: Fun with Gabor Filters2 #+author: Robert McIntyre3 #+email: rlm@mit.edu4 #+description: gabor filters in clojure with opencv5 #+keywords: computer vision, jMonkeyEngine3, clojure, opencv6 #+SETUPFILE: ../../aurellem/org/setup.org7 #+INCLUDE: ../../aurellem/org/level-0.org8 #+babel: :mkdirp yes :noweb yes :exports both12 #+name: gabor13 #+begin_src clojure14 (ns cortex.gabor15 (:import org.opencv.core.CvType)16 (:import java.awt.image.BufferedImage)17 (:import ij.ImagePlus)18 (:use cortex.sense)19 (:use cortex.util)20 )22 (defn load-opencv23 "Load the opencv native library. Must be called before any OpenCV24 stuff is used."25 []26 (clojure.lang.RT/loadLibrary "opencv_java249"))29 (defn convolve-practice []30 (let [input "/home/r/proj/cortex/images/dominos.jpg"33 output "/home/r/ppp.png"35 i (org.opencv.highgui.Highgui/imread input)37 ]42 (view (ImagePlus. input))43 (view (ImagePlus. output))45 ))53 (comment54 ;; these work55 (def i (org.opencv.highgui.Highgui/imread56 "/home/r/proj/cortex/images/dominos.jpg"))58 (org.opencv.highgui.Highgui/imwrite "/home/r/ppp.png" i)59 )60 #+end_src64 * COMMENT Generate Source65 #+begin_src clojure :tangle ../src/cortex/gabor.clj66 <<gabor>>67 #+end_src