(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "ms->lr" (quote ((om-load-boxcall (quote genfun) "SOX-PROCESS 2" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "Audio input to be processed [sound, path, string/pipe, sox-input]" "SOX-INPUT" nil) (om-load-inputfun (quote input-funbox) "Sox-effect to be applied to audio input [string]" "SOX-EFFECT" ""))) (om-make-point 131 182) nil nil nil nil 1) (om-load-boxout "output" 0 (om-make-point 145 266) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil) (om-load-boxin "input" 0 (om-make-point 106 81) "" nil nil nil) (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 163 115) (om-make-point 124 30) "remix -m 1,2 1,2i" "\"remix -m 1,2 1,2i\"" nil))) (quote ((2 0 0 0 nil 0) (3 0 0 1 nil 0) (0 0 1 0 nil 0))) nil 6.070004))
|
