view src/clojureDemo/Defines.clj @ 8:0f48db8d2a05

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