| commit | author | age | ||
| 92c40d | 1 | ; OM File Header - Saved 2013/11/09 16:07:14 |
| AN | 2 | ; (6.070005 :patc (om-make-point 141 130) (om-make-point 757 368) (om-make-point 914 420) "" 183 0 nil "2013/11/09 15:13:33") |
| 3 | ; End File Header | |
| 4 | ; External resources | |
| 5 | ; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :abstraction) "#P\"../support/input-combiners/sox-split.omp\"" "#P\"../support/input-combiners/sox-remix.omp\"" "#P\"../support/input-combiners/sox-splice.omp\"" "#P\"../support/input-combiners/sox-concatenate.omp\"" "#P\"../support/input-combiners/sox-record.omp\"" "#P\"../support/input-combiners/sox-merge.omp\"" "#P\"../support/input-combiners/sox-mix.omp\"")) | |
| 6 | (in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "6-input-combiners" (quote ((om-load-boxcall (quote patch-box) "sox-split" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-split")) (quote nil) (om-make-point 618 293) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-remix 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-remix")) (quote nil) (om-make-point 531 293) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-splice 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-splice")) (quote nil) (om-make-point 302 298) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-concatenate 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-concatenate")) (quote nil) (om-make-point 178 297) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-record 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-record")) (quote nil) (om-make-point 630 143) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-merge 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-merge")) (quote nil) (om-make-point 391 147) nil nil nil nil 0) (om-load-boxcall (quote patch-box) "sox-mix 2" (quote ("elements" "om-sox-tutorials" "support" "input-combiners" "sox-mix")) (quote nil) (om-make-point 150 148) nil nil nil nil 0) (om-load-boxcomment "comment 4" (om-make-point 76 30) (quote "SoX-Record") "" (om-make-point 630 115) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 140 30) (quote "SoX-REMIX / SoX-Split") "" (om-make-point 538 270) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 9" (om-make-point 184 30) (quote "SoX-Concatenate / SoX-Splice") "" (om-make-point 201 270) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 5" (om-make-point 78 30) (quote "SoX-MIX") "" (om-make-point 150 120) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 3" (om-make-point 78 30) (quote "SoX-MERGE") "" (om-make-point 389 119) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 744 51) (quote "$The following OM-SoX input classes are available for combining/splitting audio input before processing:") "" (om-make-point 140 3) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (quote nil) (list (let ((newpict (make-instance (quote patch-picture) :name "omsox" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "omsox" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 60 8)) (setf (pict-size newpict) (om-make-point 64 56)) newpict)) 6.070005)) | |
