Mercurial > lasercutter

     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 )
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 20 Aug 2010 00:32:44 -0400
parents
children