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"))