1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojureDemo/BasicVision.clj	Fri Aug 20 00:32:44 2010 -0400
     1.3 @@ -0,0 +1,85 @@
     1.4 +(ns clojureDemo.BasicVision)
     1.5 +
     1.6 +
     1.7 +(use 'clojure.contrib.import-static)
     1.8 +(import '(java.io File))
     1.9 +(import '(org.apache.commons.io FileUtils))
    1.10 +(import '(javax.imageio ImageIO) )
    1.11 +(import '(javax.swing JFrame))
    1.12 +(import '(java.awt Color BorderLayout))
    1.13 +(import '(ij.plugin PlugIn))
    1.14 +(import '(ij ImagePlus IJ))
    1.15 +(import '(java.lang Math))
    1.16 +(import '(java.awt Polygon))
    1.17 +(import '(java.awt.geom Line2D$Double))
    1.18 +
    1.19 +(use 'clojureDemo.appeture)
    1.20 +
    1.21 +(import-static java.lang.Math pow abs)
    1.22 +
    1.23 +(import '(ij Macro))
    1.24 +
    1.25 +(import '(java.io BufferedReader InputStreamReader))
    1.26 +(import '(java.awt.image BufferedImage))
    1.27 +(import '(genesis Genesis))
    1.28 +(import '(utils Mark))
    1.29 +(import '(capenLow StoryProcessor))
    1.30 +(import '(connections Connections WiredBox))
    1.31 +(import '(specialBoxes BasicBox MultiFunctionBox))
    1.32 +(import '(engineering NewHardWiredTranslator))
    1.33 +
    1.34 +(import '(java.awt Polygon))
    1.35 +(import '(java.awt.geom Line2D$Double))
    1.36 +(use 'clojure.contrib.str-utils)
    1.37 +
    1.38 +
    1.39 +;genesis imports
    1.40 +(import '(http Start))
    1.41 +
    1.42 +
    1.43 +(use '[clojureDemo.Xuggle :only (video-seq trans-save flash display video-data)])
    1.44 +(use 'clojureDemo.MegaDeath)
    1.45 +
    1.46 +
    1.47 +(use 'clojure.contrib.combinatorics)
    1.48 +
    1.49 +(use 'clojure.contrib.repl-utils)
    1.50 +
    1.51 +(use 'clojureDemo.GenesisPlay)
    1.52 +(use 'clojureDemo.ArchLearning)
    1.53 +
    1.54 +(use ['clojureDemo.Defines 
    1.55 +      :only '(
    1.56 +	     lian look getto human0 blow base app0 app1 app2 app3 app4 app5 
    1.57 +		  bounce0 bounce1 bounce2 bounce3 bounce4 bounce5 bounce6
    1.58 +		  collide0 collide1 collide2 collide3 collide4  
    1.59 +		  give0 give1 give2 give3 give4 target default)])
    1.60 +
    1.61 +
    1.62 +
    1.63 +; a concept is going to be derived from Genesis' own xml based representations.
    1.64 +; this is an form of archlearning which figures out a function that representes
    1.65 +; the concepts.
    1.66 +
    1.67 +
    1.68 +     
    1.69 +
    1.70 +
    1.71 +
    1.72 +
    1.73 +
    1.74 +
    1.75 +
    1.76 +
    1.77 +
    1.78 +
    1.79 +
    1.80 +
    1.81 +
    1.82 +
    1.83 +
    1.84 +
    1.85 +(comment
    1.86 +
    1.87 +(do (use :reload-all 'clojureDemo.BasicVision) (in-ns 'clojureDemo.BasicVision))
    1.88 +)