view src/clojureDemo/BasicVision.clj @ 21:e72220627685 tip

0.002 inch discrepancy with target. going to test anyway
author Robert McIntyre <rlm@mit.edu>
date Mon, 30 Aug 2010 01:19:21 -0400
parents 6d9bdaf919f7
children
line wrap: on
line source
1 (ns clojureDemo.BasicVision)
4 (use 'clojure.contrib.import-static)
5 (import '(java.io File))
6 (import '(org.apache.commons.io FileUtils))
7 (import '(javax.imageio ImageIO) )
8 (import '(javax.swing JFrame))
9 (import '(java.awt Color BorderLayout))
10 (import '(ij.plugin PlugIn))
11 (import '(ij ImagePlus IJ))
12 (import '(java.lang Math))
13 (import '(java.awt Polygon))
14 (import '(java.awt.geom Line2D$Double))
16 (use 'clojureDemo.appeture)
18 (import-static java.lang.Math pow abs)
20 (import '(ij Macro))
22 (import '(java.io BufferedReader InputStreamReader))
23 (import '(java.awt.image BufferedImage))
24 (import '(genesis Genesis))
25 (import '(utils Mark))
26 (import '(capenLow StoryProcessor))
27 (import '(connections Connections WiredBox))
28 (import '(specialBoxes BasicBox MultiFunctionBox))
29 (import '(engineering NewHardWiredTranslator))
31 (import '(java.awt Polygon))
32 (import '(java.awt.geom Line2D$Double))
33 (use 'clojure.contrib.str-utils)
36 ;genesis imports
37 (import '(http Start))
40 (use '[clojureDemo.Xuggle :only (video-seq trans-save flash display video-data)])
41 (use 'clojureDemo.MegaDeath)
44 (use 'clojure.contrib.combinatorics)
46 (use 'clojure.contrib.repl-utils)
48 (use 'clojureDemo.GenesisPlay)
49 (use 'clojureDemo.ArchLearning)
51 (use ['clojureDemo.Defines
52 :only '(
53 lian look getto human0 blow base app0 app1 app2 app3 app4 app5
54 bounce0 bounce1 bounce2 bounce3 bounce4 bounce5 bounce6
55 collide0 collide1 collide2 collide3 collide4
56 give0 give1 give2 give3 give4 target default)])
60 ; a concept is going to be derived from Genesis' own xml based representations.
61 ; this is an form of archlearning which figures out a function that representes
62 ; the concepts.
82 (comment
84 (do (use :reload-all 'clojureDemo.BasicVision) (in-ns 'clojureDemo.BasicVision))
85 )