annotate 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
rev   line source
rlm@1 1 (ns clojureDemo.BasicVision)
rlm@1 2
rlm@1 3
rlm@1 4 (use 'clojure.contrib.import-static)
rlm@1 5 (import '(java.io File))
rlm@1 6 (import '(org.apache.commons.io FileUtils))
rlm@1 7 (import '(javax.imageio ImageIO) )
rlm@1 8 (import '(javax.swing JFrame))
rlm@1 9 (import '(java.awt Color BorderLayout))
rlm@1 10 (import '(ij.plugin PlugIn))
rlm@1 11 (import '(ij ImagePlus IJ))
rlm@1 12 (import '(java.lang Math))
rlm@1 13 (import '(java.awt Polygon))
rlm@1 14 (import '(java.awt.geom Line2D$Double))
rlm@1 15
rlm@1 16 (use 'clojureDemo.appeture)
rlm@1 17
rlm@1 18 (import-static java.lang.Math pow abs)
rlm@1 19
rlm@1 20 (import '(ij Macro))
rlm@1 21
rlm@1 22 (import '(java.io BufferedReader InputStreamReader))
rlm@1 23 (import '(java.awt.image BufferedImage))
rlm@1 24 (import '(genesis Genesis))
rlm@1 25 (import '(utils Mark))
rlm@1 26 (import '(capenLow StoryProcessor))
rlm@1 27 (import '(connections Connections WiredBox))
rlm@1 28 (import '(specialBoxes BasicBox MultiFunctionBox))
rlm@1 29 (import '(engineering NewHardWiredTranslator))
rlm@1 30
rlm@1 31 (import '(java.awt Polygon))
rlm@1 32 (import '(java.awt.geom Line2D$Double))
rlm@1 33 (use 'clojure.contrib.str-utils)
rlm@1 34
rlm@1 35
rlm@1 36 ;genesis imports
rlm@1 37 (import '(http Start))
rlm@1 38
rlm@1 39
rlm@1 40 (use '[clojureDemo.Xuggle :only (video-seq trans-save flash display video-data)])
rlm@1 41 (use 'clojureDemo.MegaDeath)
rlm@1 42
rlm@1 43
rlm@1 44 (use 'clojure.contrib.combinatorics)
rlm@1 45
rlm@1 46 (use 'clojure.contrib.repl-utils)
rlm@1 47
rlm@1 48 (use 'clojureDemo.GenesisPlay)
rlm@1 49 (use 'clojureDemo.ArchLearning)
rlm@1 50
rlm@1 51 (use ['clojureDemo.Defines
rlm@1 52 :only '(
rlm@1 53 lian look getto human0 blow base app0 app1 app2 app3 app4 app5
rlm@1 54 bounce0 bounce1 bounce2 bounce3 bounce4 bounce5 bounce6
rlm@1 55 collide0 collide1 collide2 collide3 collide4
rlm@1 56 give0 give1 give2 give3 give4 target default)])
rlm@1 57
rlm@1 58
rlm@1 59
rlm@1 60 ; a concept is going to be derived from Genesis' own xml based representations.
rlm@1 61 ; this is an form of archlearning which figures out a function that representes
rlm@1 62 ; the concepts.
rlm@1 63
rlm@1 64
rlm@1 65
rlm@1 66
rlm@1 67
rlm@1 68
rlm@1 69
rlm@1 70
rlm@1 71
rlm@1 72
rlm@1 73
rlm@1 74
rlm@1 75
rlm@1 76
rlm@1 77
rlm@1 78
rlm@1 79
rlm@1 80
rlm@1 81
rlm@1 82 (comment
rlm@1 83
rlm@1 84 (do (use :reload-all 'clojureDemo.BasicVision) (in-ns 'clojureDemo.BasicVision))
rlm@1 85 )