Mercurial > cortex

     1 #+title: Fun with Gabor Filters

     2 #+author: Robert McIntyre

     3 #+email: rlm@mit.edu

     4 #+description: gabor filters in clojure with opencv

     5 #+keywords: computer vision, jMonkeyEngine3, clojure, opencv

     6 #+SETUPFILE: ../../aurellem/org/setup.org

     7 #+INCLUDE: ../../aurellem/org/level-0.org

     8 #+babel: :mkdirp yes :noweb yes :exports both

     9 

    10 

    11 

    12 #+name: gabor

    13 #+begin_src clojure

    14 (ns cortex.gabor

    15   (:import org.opencv.core.CvType)

    16   (:import java.awt.image.BufferedImage)

    17   (:import ij.ImagePlus)

    18   (:use cortex.sense)

    19   (:use cortex.util)

    20   )

    21 

    22 (defn load-opencv

    23   "Load the opencv native library. Must be called before any OpenCV

    24   stuff is used."

    25   []

    26   (clojure.lang.RT/loadLibrary "opencv_java249"))

    27 

    28 

    29 (defn convolve-practice []

    30   (let [input "/home/r/proj/cortex/images/dominos.jpg"

    31         

    32         

    33         output "/home/r/ppp.png"

    34 

    35         i (org.opencv.highgui.Highgui/imread input)

    36         

    37         ]

    38 

    39 

    40 

    41 

    42     (view (ImagePlus. input))

    43     (view (ImagePlus. output))

    44 

    45     ))

    46 

    47   

    48 

    49 

    50 

    51 

    52 

    53 (comment

    54   ;; these work

    55   (def i (org.opencv.highgui.Highgui/imread

    56           "/home/r/proj/cortex/images/dominos.jpg"))

    57   

    58   (org.opencv.highgui.Highgui/imwrite "/home/r/ppp.png" i)

    59 )

    60 #+end_src

    61 

    62 

    63 

    64 * COMMENT Generate Source

    65 #+begin_src clojure :tangle ../src/cortex/gabor.clj

    66 <<gabor>>

    67 #+end_src
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 06 Mar 2013 18:13:34 +0000
parents	446300cb5ae7
children	b72fea69b2e1