Mercurial > cortex

comparison org/touch.org @ 316:2c7fbcbd5ebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
replaced clojure.contrib.shell-out with clojure.java.shell
author Robert McIntyre <rlm@mit.edu>
date Tue, 28 Feb 2012 13:44:46 -0600
parents e0e1561cbd22
children bb3f8a4af87f
comparison
equal deleted inserted replaced
315:a48a75e5876c 316:2c7fbcbd5ebb
576 ** Generating the Basic Touch Video 576 ** Generating the Basic Touch Video
577 #+name: magick4 577 #+name: magick4
578 #+begin_src clojure 578 #+begin_src clojure
579 (ns cortex.video.magick4 579 (ns cortex.video.magick4
580 (:import java.io.File) 580 (:import java.io.File)
581 (:use clojure.contrib.shell-out)) 581 (:use clojure.java.shell))
582 582
583 (defn images [path] 583 (defn images [path]
584 (sort (rest (file-seq (File. path))))) 584 (sort (rest (file-seq (File. path)))))
585 585
586 (def base "/home/r/proj/cortex/render/touch-cube/") 586 (def base "/home/r/proj/cortex/render/touch-cube/")
674 ** Generating the Worm Touch Video 674 ** Generating the Worm Touch Video
675 #+name: magick5 675 #+name: magick5
676 #+begin_src clojure 676 #+begin_src clojure
677 (ns cortex.video.magick5 677 (ns cortex.video.magick5
678 (:import java.io.File) 678 (:import java.io.File)
679 (:use clojure.contrib.shell-out)) 679 (:use clojure.java.shell))
680 680
681 (defn images [path] 681 (defn images [path]
682 (sort (rest (file-seq (File. path))))) 682 (sort (rest (file-seq (File. path)))))
683 683
684 (def base "/home/r/proj/cortex/render/worm-touch/") 684 (def base "/home/r/proj/cortex/render/worm-touch/")