|
4 |
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "LR->MS" (quote ((om-load-editor-box1 "SOX-MERGE 2" (quote sox-merge) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "Audio input for sox input modules. [sound object, pathname, string/pipe]" "sound" nil) (om-load-inputfun (quote input-funbox) "Gain value for audio input before processing (dBFS). [float, list]" "gains" nil))) (om-make-point 138 191) (om-make-point 70 50) (if (find-class (quote sox-merge) nil) (make-instance (quote sox-merge) :sound nil :gains nil :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 150))) nil nil nil nil) (om-load-boxout "output" 0 (om-make-point 142 363) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil) (om-load-boxcall (quote genfun) "SOX-PROCESS 2" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" ""))) (om-make-point 128 269) nil nil nil nil 1) (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 197 44) (om-make-point 213 30) (list "remix 1,2" "remix 1v0.5,2v-0.5") "(\"remix 1,2\" \"remix 1v0.5,2v-0.5\")" nil) (om-load-boxcall (quote genfun) "SOX-PROCESS" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" "") (om-load-inputkeyword (quote input-keyword) "" "output" (quote :output) "pipe" (list (list "realtime" "realtime") (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe"))))) (om-make-point 138 92) nil nil nil nil 1) (om-load-boxin "input" 0 (om-make-point 84 26) "" nil nil nil))) (quote ((4 0 0 1 nil 0) (2 0 1 0 nil 0) (0 0 2 0 nil 0) (5 0 4 0 nil 0) (3 0 4 1 nil 0))) nil 6.070004)) |
