rlm@1: (ns clojureDemo.BasicVision)
rlm@1: 
rlm@1: 
rlm@1: (use 'clojure.contrib.import-static)
rlm@1: (import '(java.io File))
rlm@1: (import '(org.apache.commons.io FileUtils))
rlm@1: (import '(javax.imageio ImageIO) )
rlm@1: (import '(javax.swing JFrame))
rlm@1: (import '(java.awt Color BorderLayout))
rlm@1: (import '(ij.plugin PlugIn))
rlm@1: (import '(ij ImagePlus IJ))
rlm@1: (import '(java.lang Math))
rlm@1: (import '(java.awt Polygon))
rlm@1: (import '(java.awt.geom Line2D$Double))
rlm@1: 
rlm@1: (use 'clojureDemo.appeture)
rlm@1: 
rlm@1: (import-static java.lang.Math pow abs)
rlm@1: 
rlm@1: (import '(ij Macro))
rlm@1: 
rlm@1: (import '(java.io BufferedReader InputStreamReader))
rlm@1: (import '(java.awt.image BufferedImage))
rlm@1: (import '(genesis Genesis))
rlm@1: (import '(utils Mark))
rlm@1: (import '(capenLow StoryProcessor))
rlm@1: (import '(connections Connections WiredBox))
rlm@1: (import '(specialBoxes BasicBox MultiFunctionBox))
rlm@1: (import '(engineering NewHardWiredTranslator))
rlm@1: 
rlm@1: (import '(java.awt Polygon))
rlm@1: (import '(java.awt.geom Line2D$Double))
rlm@1: (use 'clojure.contrib.str-utils)
rlm@1: 
rlm@1: 
rlm@1: ;genesis imports
rlm@1: (import '(http Start))
rlm@1: 
rlm@1: 
rlm@1: (use '[clojureDemo.Xuggle :only (video-seq trans-save flash display video-data)])
rlm@1: (use 'clojureDemo.MegaDeath)
rlm@1: 
rlm@1: 
rlm@1: (use 'clojure.contrib.combinatorics)
rlm@1: 
rlm@1: (use 'clojure.contrib.repl-utils)
rlm@1: 
rlm@1: (use 'clojureDemo.GenesisPlay)
rlm@1: (use 'clojureDemo.ArchLearning)
rlm@1: 
rlm@1: (use ['clojureDemo.Defines 
rlm@1:       :only '(
rlm@1: 	     lian look getto human0 blow base app0 app1 app2 app3 app4 app5 
rlm@1: 		  bounce0 bounce1 bounce2 bounce3 bounce4 bounce5 bounce6
rlm@1: 		  collide0 collide1 collide2 collide3 collide4  
rlm@1: 		  give0 give1 give2 give3 give4 target default)])
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: ; a concept is going to be derived from Genesis' own xml based representations.
rlm@1: ; this is an form of archlearning which figures out a function that representes
rlm@1: ; the concepts.
rlm@1: 
rlm@1: 
rlm@1:      
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: 
rlm@1: (comment
rlm@1: 
rlm@1: (do (use :reload-all 'clojureDemo.BasicVision) (in-ns 'clojureDemo.BasicVision))
rlm@1: )