|
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 )
|
