annotate src/clojureDemo/Defines.clj @ 1:6d9bdaf919f7

added clojureDemo source
author Robert McIntyre <rlm@mit.edu>
date Fri, 20 Aug 2010 00:32:44 -0400
parents
children
rev   line source
rlm@1 1 (ns clojureDemo.Defines)
rlm@1 2
rlm@1 3 (import '(java.io File))
rlm@1 4
rlm@1 5 (def -inf Double/NEGATIVE_INFINITY)
rlm@1 6 (def inf Double/POSITIVE_INFINITY)
rlm@1 7
rlm@1 8
rlm@1 9 (def lian (File. "/home/r/Desktop/source-videos/lian1.mpeg"))
rlm@1 10 (def look (File. "/home/r/Desktop/source-videos/dramatic_look.flv"))
rlm@1 11 (def getto(File. "/home/r/Desktop/source-videos/Ghetto.flv"))
rlm@1 12 (def human0(File. "/home/r/Desktop/source-videos/vsr1/human0.avi"))
rlm@1 13 (def blow (File. "/home/r/Desktop/source-videos/blow.avi"))
rlm@1 14
rlm@1 15 (def base (File. "/home/r/Desktop/source-videos/"))
rlm@1 16
rlm@1 17 (def app0 (File. base "approach0v2.avi"))
rlm@1 18 (def app1 (File. base "approach1v3.avi"))
rlm@1 19 (def app2 (File. base "approach0v3.avi"))
rlm@1 20 (def app3 (File. base "approach2v2.avi"))
rlm@1 21 (def app4 (File. base "approach1v2.avi"))
rlm@1 22 (def app5 (File. base "approach2v3.avi"))
rlm@1 23
rlm@1 24 (def bounce0 (File. base "bounce0v2.avi"))
rlm@1 25 (def bounce1 (File. base "bounce1v3.avi"))
rlm@1 26 (def bounce2 (File. base "bounce3v2.avi"))
rlm@1 27 (def bounce3 (File. base "bounce0v3.avi"))
rlm@1 28 (def bounce4 (File. base "bounce2v2.avi"))
rlm@1 29 (def bounce5 (File. base "bounce1v2.avi"))
rlm@1 30 (def bounce6 (File. base "bounce2v3.avi"))
rlm@1 31
rlm@1 32 (def collide0 (File. base "collide0v3.avi"))
rlm@1 33 (def collide1 (File. base "collide2v3.avi"))
rlm@1 34 (def collide2 (File. base "collide1v2.avi"))
rlm@1 35 (def collide3 (File. base "collide0v2.avi"))
rlm@1 36 (def collide4 (File. base "collide1v3.avi"))
rlm@1 37
rlm@1 38 (def give0 (File. base "give0v3.avi"))
rlm@1 39 (def give1 (File. base "give2v3.avi"))
rlm@1 40 (def give2 (File. base "give1v2.avi"))
rlm@1 41 (def give3 (File. base "give0v2.avi"))
rlm@1 42 (def give4 (File. base "give1v3.avi"))
rlm@1 43
rlm@1 44
rlm@1 45 (def target (File. "/home/r/Desktop/output-vision/"))
rlm@1 46 (def default(File. target "default.avi"))