Mercurial > lasercutter
view src/clojureDemo/Defines.clj @ 10:ef7dbbd6452c
added clojure source goodness
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 21 Aug 2010 06:25:44 -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"))