Mercurial > lasercutter
comparison src/clojureDemo/BasicVision.clj @ 1:6d9bdaf919f7
added clojureDemo source
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 20 Aug 2010 00:32:44 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 0:163bf9b2fd13 | 1:6d9bdaf919f7 |
|---|---|
| 1 (ns clojureDemo.BasicVision) | |
| 2 | |
| 3 | |
| 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)) | |
| 15 | |
| 16 (use 'clojureDemo.appeture) | |
| 17 | |
| 18 (import-static java.lang.Math pow abs) | |
| 19 | |
| 20 (import '(ij Macro)) | |
| 21 | |
| 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)) | |
| 30 | |
| 31 (import '(java.awt Polygon)) | |
| 32 (import '(java.awt.geom Line2D$Double)) | |
| 33 (use 'clojure.contrib.str-utils) | |
| 34 | |
| 35 | |
| 36 ;genesis imports | |
| 37 (import '(http Start)) | |
| 38 | |
| 39 | |
| 40 (use '[clojureDemo.Xuggle :only (video-seq trans-save flash display video-data)]) | |
| 41 (use 'clojureDemo.MegaDeath) | |
| 42 | |
| 43 | |
| 44 (use 'clojure.contrib.combinatorics) | |
| 45 | |
| 46 (use 'clojure.contrib.repl-utils) | |
| 47 | |
| 48 (use 'clojureDemo.GenesisPlay) | |
| 49 (use 'clojureDemo.ArchLearning) | |
| 50 | |
| 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)]) | |
| 57 | |
| 58 | |
| 59 | |
| 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. | |
| 63 | |
| 64 | |
| 65 | |
| 66 | |
| 67 | |
| 68 | |
| 69 | |
| 70 | |
| 71 | |
| 72 | |
| 73 | |
| 74 | |
| 75 | |
| 76 | |
| 77 | |
| 78 | |
| 79 | |
| 80 | |
| 81 | |
| 82 (comment | |
| 83 | |
| 84 (do (use :reload-all 'clojureDemo.BasicVision) (in-ns 'clojureDemo.BasicVision)) | |
| 85 ) |