Mercurial > lasercutter
diff 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 |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/src/clojureDemo/Defines.clj Fri Aug 20 00:32:44 2010 -0400 1.3 @@ -0,0 +1,46 @@ 1.4 +(ns clojureDemo.Defines) 1.5 + 1.6 +(import '(java.io File)) 1.7 + 1.8 +(def -inf Double/NEGATIVE_INFINITY) 1.9 +(def inf Double/POSITIVE_INFINITY) 1.10 + 1.11 + 1.12 +(def lian (File. "/home/r/Desktop/source-videos/lian1.mpeg")) 1.13 +(def look (File. "/home/r/Desktop/source-videos/dramatic_look.flv")) 1.14 +(def getto(File. "/home/r/Desktop/source-videos/Ghetto.flv")) 1.15 +(def human0(File. "/home/r/Desktop/source-videos/vsr1/human0.avi")) 1.16 +(def blow (File. "/home/r/Desktop/source-videos/blow.avi")) 1.17 + 1.18 +(def base (File. "/home/r/Desktop/source-videos/")) 1.19 + 1.20 +(def app0 (File. base "approach0v2.avi")) 1.21 +(def app1 (File. base "approach1v3.avi")) 1.22 +(def app2 (File. base "approach0v3.avi")) 1.23 +(def app3 (File. base "approach2v2.avi")) 1.24 +(def app4 (File. base "approach1v2.avi")) 1.25 +(def app5 (File. base "approach2v3.avi")) 1.26 + 1.27 +(def bounce0 (File. base "bounce0v2.avi")) 1.28 +(def bounce1 (File. base "bounce1v3.avi")) 1.29 +(def bounce2 (File. base "bounce3v2.avi")) 1.30 +(def bounce3 (File. base "bounce0v3.avi")) 1.31 +(def bounce4 (File. base "bounce2v2.avi")) 1.32 +(def bounce5 (File. base "bounce1v2.avi")) 1.33 +(def bounce6 (File. base "bounce2v3.avi")) 1.34 + 1.35 +(def collide0 (File. base "collide0v3.avi")) 1.36 +(def collide1 (File. base "collide2v3.avi")) 1.37 +(def collide2 (File. base "collide1v2.avi")) 1.38 +(def collide3 (File. base "collide0v2.avi")) 1.39 +(def collide4 (File. base "collide1v3.avi")) 1.40 + 1.41 +(def give0 (File. base "give0v3.avi")) 1.42 +(def give1 (File. base "give2v3.avi")) 1.43 +(def give2 (File. base "give1v2.avi")) 1.44 +(def give3 (File. base "give0v2.avi")) 1.45 +(def give4 (File. base "give1v3.avi")) 1.46 + 1.47 + 1.48 +(def target (File. "/home/r/Desktop/output-vision/")) 1.49 +(def default(File. target "default.avi"))