(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan trajectory" (quote ((let ((box (om-load-boxcall (quote genfun) "XYZ->AED" (quote xyz->aed) (quote ((om-load-inputfun (quote input-funbox) "x" "X" 0) (om-load-inputfun (quote input-funbox) "y" "Y" 0) (om-load-inputfun (quote input-funbox) "z" "Z" 0))) (om-make-point 291 395) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-SCALE" (quote om-scale) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" 1) (om-load-inputfun (quote input-funbox) "a number" "MINOUT" 1) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" 3.9))) (om-make-point 221 429) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-PAN" (quote sox-pan) (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-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels. [float, list]" "panning" nil) (om-load-inputfun (quote input-funbox) "Number of available output channels for panning." "numchannels" nil))) (om-make-point 118 442) (om-make-point 70 50) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound nil :gains nil :panning nil :numchannels nil :from-file t)) "l" nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 200) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 48 24) (quote "Sound") "" (om-make-point 154 135) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 138 24) (quote "Granularity of trajectory") "" (om-make-point 321 226) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 67 24) (quote "Trajectory") "" (om-make-point 340 102) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR 4" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 469 558) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "STRING+" (quote string+) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 459 475) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "distance-cues" (quote ("elements" "OM-SoX-tutorial-patches" "scripts-and-macros" "distance-cues")) (quote ((om-load-inputfun (quote input-funbox) "" "distance" 2.5) (om-load-inputfun (quote input-funbox) "" "speed-of-sound" 340) (om-load-inputfun (quote input-funbox) "" "gain-expt" 2.0) (om-load-inputfun (quote input-funbox) "" "sound-duration" nil) (om-load-inputfun (quote input-funbox) "" "padding" nil) (om-load-inputfun (quote input-funbox) "" "rev-params" nil))) (om-make-point 376 399) nil nil "l" "distance-cues" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 11" (quote t) (quote nil) (om-make-point 346 363) (om-make-point 41 30) 340 "340" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 10" (quote t) (quote nil) (om-make-point 376 333) (om-make-point 38 30) 0.5 "0.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR 3" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 400 475) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 419 343) (om-make-point 38 30) 0.5 "0.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 444 367) (om-make-point 129 30) (list 75 100 100 100 0) "(75 100 100 100 0)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-MIX" (quote sox-mix) (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 (dB). [float, list]" "gains" nil))) (om-make-point 246 635) (om-make-point 70 50) (if (find-class (quote sox-mix) nil) (make-instance (quote sox-mix) :sound (list "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-5.2899 1p-1.52309 1p-160.0 1p-160.0 lowpass -1 9578.263 vol 0.30948767 pad 0.030706786 pad 0.5@0.5 reverb 75 100 100 100 0 -3.9712086 trim 0 0.314 fade q 0.15386 0 0.15386 pad 0s " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-11.86375 1p-0.29238 1p-160.0 1p-160.0 lowpass -1 10810.279 vol 0.3287899 pad 0.02720722 pad 0.5@0.5 reverb 75 100 100 100 0 -4.821104 trim 0.157 0.314 fade q 0.15386 0 0.15386 pad 0.157 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-0.01514 1p-24.58356 1p-160.0 lowpass -1 12066.628 vol 0.34737054 pad 0.024374469 pad 0.5@0.5 reverb 75 100 100 100 0 -5.509058 trim 0.314 0.314 fade q 0.15386 0 0.15386 pad 0.314 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-0.62928 1p-8.70026 1p-160.0 lowpass -1 13092.621 vol 0.36183727 pad 0.022464382 pad 0.5@0.5 reverb 75 100 100 100 0 -5.9729366 trim 0.47100002 0.314 fade q 0.15386 0 0.15386 pad 0.47100002 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-2.27856 1p-3.89082 1p-160.0 lowpass -1 13542.795 vol 0.36800537 pad 0.021717649 pad 0.5@0.5 reverb 75 100 100 100 0 -6.1542854 trim 0.628 0.314 fade q 0.15386 0 0.15386 pad 0.628 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-5.48627 1p-1.44318 1p-160.0 lowpass -1 13216.673 vol 0.3635474 pad 0.022253532 pad 0.5@0.5 reverb 75 100 100 100 0 -6.024143 trim 0.785 0.31399995 fade q 0.15386 0 0.15386 pad 0.785 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-12.35281 1p-0.26029 1p-160.0 lowpass -1 12261.943 vol 0.35017058 pad 0.023986219 pad 0.5@0.5 reverb 75 100 100 100 0 -5.603346 trim 0.94200004 0.314 fade q 0.15386 0 0.15386 pad 0.94200004 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.02332 1p-22.71137 lowpass -1 11022.575 vol 0.3320026 pad 0.026683208 pad 0.5@0.5 reverb 75 100 100 100 0 -4.9483643 trim 1.099 0.314 fade q 0.15386 0 0.15386 pad 1.099 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.67908 1p-8.39377 lowpass -1 9774.821 vol 0.31264713 pad 0.030089312 pad 0.5@0.5 reverb 75 100 100 100 0 -4.121168 trim 1.256 0.314 fade q 0.15386 0 0.15386 pad 1.256 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-1.77349 1p-4.74617 lowpass -1 10426.35 vol 0.32289857 pad 0.028209074 pad 0.5@0.5 reverb 75 100 100 100 0 -4.577798 trim 1.4130001 0.314 fade q 0.15386 0 0.15386 pad 1.4130001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-3.38549 1p-2.66496 lowpass -1 11352.315 vol 0.33693197 pad 0.025908165 pad 0.5@0.5 reverb 75 100 100 100 0 -5.136587 trim 1.5700002 0.314 fade q 0.15386 0 0.15386 pad 1.5700002 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-5.85623 1p-1.30559 lowpass -1 11974.799 vol 0.3460462 pad 0.024561387 pad 0.5@0.5 reverb 75 100 100 100 0 -5.463663 trim 1.7270002 0.31400013 fade q 0.15386 0 0.15386 pad 1.7270002 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-9.90652 1p-0.46809 lowpass -1 12090.589 vol 0.34771523 pad 0.024326165 pad 0.5@0.5 reverb 75 100 100 100 0 -5.520788 trim 1.8840003 0.31400013 fade q 0.15386 0 0.15386 pad 1.8840003 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-16.11336 1p-0.1076 lowpass -1 11894.753 vol 0.3448877 pad 0.024726673 pad 0.5@0.5 reverb 75 100 100 100 0 -5.423523 trim 2.0410004 0.31400013 fade q 0.15386 0 0.15386 pad 2.0410004 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-6.57809 1p-1.0784 lowpass -1 15148.09 vol 0.3892055 pad 0.019416156 pad 0.5@0.5 reverb 75 100 100 100 0 -6.7132206 trim 2.1980005 0.31400013 fade q 0.15386 0 0.15386 pad 2.1980005 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-2.72765 1p-3.31264 lowpass -1 20000 vol 0.45655468 pad 0.014110276 pad 0.5@0.5 reverb 75 100 100 100 0 -8.001791 trim 2.3550005 0.31400013 fade q 0.15386 0 0.15386 pad 2.3550005 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.79271 1p-7.77703 lowpass -1 20000 vol 0.57743007 pad 0.008821091 pad 0.5@0.5 reverb 75 100 100 100 0 -9.286306 trim 2.5120006 0.31400013 fade q 0.15386 0 0.15386 pad 2.5120006 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.03505 1p-20.94795 lowpass -1 20000 vol 0.9017315 pad 0.0036171507 pad 0.5@0.5 reverb 75 100 100 100 0 -10 trim 2.6690007 0.31400013 fade q 0.15386 0 0.15386 pad 2.6690007 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.1836 1p-13.83048 lowpass -1 20000 vol 0.66716677 pad 0.0066077295 pad 0.5@0.5 reverb 75 100 100 100 0 -9.823837 trim 2.8260007 0.31400013 fade q 0.15386 0 0.15386 pad 2.8260007 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.67836 1p-8.39799 lowpass -1 20000 vol 0.5013619 pad 0.011700877 pad 0.5@0.5 reverb 75 100 100 100 0 -8.586929 trim 2.9830008 0.31400013 fade q 0.15386 0 0.15386 pad 2.9830008 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-1.52448 1p-5.28659 lowpass -1 17371.352 vol 0.41678953 pad 0.016931192 pad 0.5@0.5 reverb 75 100 100 100 0 -7.3167114 trim 3.1400009 0.31400013 fade q 0.15386 0 0.15386 pad 3.1400009 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.77043 1p-7.89001 lowpass -1 17843.98 vol 0.42242137 pad 0.016482737 pad 0.5@0.5 reverb 75 100 100 100 0 -7.425621 trim 3.297001 0.31400013 fade q 0.15386 0 0.15386 pad 3.297001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-160.0 1p-0.01529 1p-24.54227 lowpass -1 20000 vol 0.46308556 pad 0.0137150865 pad 0.5@0.5 reverb 75 100 100 100 0 -8.097765 trim 3.454001 0.31400013 fade q 0.15386 0 0.15386 pad 3.454001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-10.69094 1p-0.38717 1p-160.0 lowpass -1 20000 vol 0.48138657 pad 0.01269209 pad 0.5@0.5 reverb 75 100 100 100 0 -8.346207 trim 3.611001 0.31400013 fade q 0.15386 0 0.15386 pad 3.611001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-4.33891 1p-1.99435 1p-160.0 lowpass -1 20000 vol 0.46153915 pad 0.013807149 pad 0.5@0.5 reverb 75 100 100 100 0 -8.075407 trim 3.768001 0.31400013 fade q 0.15386 0 0.15386 pad 3.768001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-1.45651 1p-5.45263 1p-160.0 lowpass -1 17679.856 vol 0.42047423 pad 0.01663575 pad 0.5@0.5 reverb 75 100 100 100 0 -7.38846 trim 3.9250012 0.31400013 fade q 0.15386 0 0.15386 pad 3.9250012 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-160.0 1p-0.18852 1p-13.71816 1p-160.0 lowpass -1 14363.161 vol 0.3789876 pad 0.020477223 pad 0.5@0.5 reverb 75 100 100 100 0 -6.455532 trim 4.082001 0.31400013 fade q 0.15386 0 0.15386 pad 4.082001 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-16.62164 1p-0.09559 1p-160.0 1p-160.0 lowpass -1 11826.155 vol 0.34389177 pad 0.0248701 pad 0.5@0.5 reverb 75 100 100 100 0 -5.38869 trim 4.2390013 0.31400013 fade q 0.15386 0 0.15386 pad 4.2390013 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-6.32603 1p-1.15217 1p-160.0 1p-160.0 lowpass -1 9947.03 vol 0.31538913 pad 0.029568389 pad 0.5@0.5 reverb 75 100 100 100 0 -4.247676 trim 4.3960014 0.31400013 fade q 0.15386 0 0.15386 pad 4.3960014 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-2.41261 1p-3.70358 1p-160.0 1p-160.0 lowpass -1 8538.179 vol 0.2922016 pad 0.034447354 pad 0.5@0.5 reverb 75 100 100 100 0 -3.0627842 trim 4.5530014 0.31400013 fade q 0.15386 0 0.15386 pad 4.5530014 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p' remix 1p-0.5614 1p-9.16277 1p-160.0 1p-160.0 lowpass -1 7457.345 vol 0.2730814 pad 0.039439995 pad 0.5@0.5 reverb 75 100 100 100 0 -1.8502884 trim 4.7100015 0.31400013 fade q 0.15386 0 0.15386 pad 4.7100015 ") :gains (list 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0) :from-file t)) nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 920 150) (om-make-point 250 327))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "drumloop.aif" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a track index for multichannel mixing" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 125 86) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device nil :host nil :name "drumloop" :type "aif") 0 1.0 0))) (when thesound (setf (markers thesound) (quote nil))) thesound))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj "drumloop.aif") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (measure onset :show-spectrum approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode)) (list nil nil (quote t) 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil 0 (quote :soxplayer) 1 nil 1000 0 (om-make-point 860 331) (om-make-point 400 38) 0 1 (quote t) nil 0)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR 2" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 216 502) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-PROCESS 2" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "SOX-INPUT" nil) (om-load-inputfun (quote input-funbox) "" "SOX-EFFECT" "") (om-load-inputkeyword (quote input-keyword) "Output type (new file, replace file, pipe, or realtime) [string]. Also accepts directory, filename, filepath [path]" "output" (quote :output) nil (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))) (om-load-inputkeyword (quote input-keyword) "Filetype of produced audio [string]" "filetype" (quote :filetype) "aif" (list (list "aif" "aif") (list "wav" "wav") (list "flac" "flac") (list "ogg" "ogg"))))) (om-make-point 285 716) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-PROCESS" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "SOX-INPUT" nil) (om-load-inputfun (quote input-funbox) "" "SOX-EFFECT" "") (om-load-inputkeyword (quote input-keyword) "Output type (new file, replace file, pipe, or realtime) [string]. Also accepts directory, filename, filepath [path]" "output" (quote :output) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 247 555) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a track index for multichannel mixing" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 300 808) (om-make-point 80 50) (let ((newobj nil)) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj "") (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (measure onset scale show-stems notechancolor? cmnpref obj-mode deltapict :show-spectrum show-spectrum winpos winsize mode grillestep zoom player inport outport)) (list nil nil nil (quote t) nil (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) 0 (om-make-point 0 0) (quote t) nil (om-make-point 391 280) (om-make-point 1328 809) 0 nil 1 (quote :om-audio) nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-NORMALIZE" (quote sox-normalize) (quote nil) (om-make-point 355 624) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "SOX-SOUND-DURATION" (quote sox-sound-duration) (quote ((om-load-inputfun (quote input-funbox) "SELF" "SELF" nil))) (om-make-point 629 237) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 653 382) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 588 459) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "ola" (quote ("elements" "OM-SoX-tutorial-patches" "scripts-and-macros" "ola")) (quote ((om-load-inputfun (quote input-funbox) "" "onsets" nil) (om-load-inputfun (quote input-funbox) "" "windowsize" nil))) (om-make-point 590 390) nil nil "l" "ola" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "/" (om-load-lisp-abspatch "/" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (x y)$$ (let ((arg (/ x y)) ; division$ (div (float (expt 10 3)))) ; truncation$ (/ (truncate (/ arg (/ div))) div)$ )$ )$") (quote ((om-load-inputfun (quote input-funbox) "" "X" nil) (om-load-inputfun (quote input-funbox) "" "Y" nil))) (om-make-point 650 299) nil (list 0.157) nil "/"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "BUTLAST" (quote butlast) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 669 469) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "*" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" 2) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 601 345) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 598 308) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 708 439) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 152 401) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 181 401) (om-make-point 27 30) 4 "4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "3DC" (quote 3dc) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 10)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Z coordinates (list)" "z-points" (list 0 0)) (om-load-inputfun (quote input-funbox) "precision (number)" "decimals" 2))) (om-make-point 250 331) (om-make-point 60 60) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-10.0 -8.408 -6.816 -5.224 -3.632 -2.04 -0.448 1.143 2.735 3.876 4.927 5.978 7.029 7.874 6.212 4.55 2.888 1.226 1.804 2.734 3.664 2.859 1.073 -0.713 -2.499 -4.285 -6.07 -7.856 -9.642 -11.428 -13.214 -15.0)) (quote (3.0 3.857 4.714 5.572 6.429 7.286 8.143 9.0 9.858 8.773 7.302 5.831 4.359 2.946 2.234 1.521 0.809 0.097 -1.339 -2.89 -4.44 -4.82 -4.538 -4.256 -3.974 -3.692 -3.41 -3.128 -2.846 -2.564 -2.282 -2.0)) (quote (0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)) (quote 3dc) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "3DC") newbpf)))) (when newobj (setf (z-points newobj) (list 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0))) newobj) "&" nil (pairlis (quote (winsize winpos mode show-axes show-room room-size line-width bg-color picture)) (list (om-make-point 800 800) (om-make-point 600 200) 0 1 1 2 1.0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 284 229) (om-make-point 34 30) 32 "32" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-SAMPLE" (quote om-sample) (quote ((om-load-inputfun (quote input-funbox) "object to resample" "SELF" nil) (om-load-inputfun (quote input-funbox) "number of samples (int) or sample rate (float)" "SAMPLE-RATE" 1))) (om-make-point 244 269) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "3DC" (quote 3dc) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 10)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Z coordinates (list)" "z-points" (list 0 0)) (om-load-inputfun (quote input-funbox) "precision (number)" "decimals" 2))) (om-make-point 255 86) (om-make-point 83 84) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-10.0 3.0 8.0 1.0 4.0 -15.0)) (quote (3.0 10.0 3.0 0.0 -5.0 -2.0)) (quote (0.0 0.0 0.0 0.0 0.0 0.0)) (quote 3dc) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "3DC") newbpf)))) (when newobj (setf (z-points newobj) (list 0.0 0.0 0.0 0.0 0.0 0.0))) newobj) "x" nil (pairlis (quote (winsize winpos mode show-axes show-room room-size line-width bg-color picture)) (list (om-make-point 800 800) (om-make-point 600 200) 0 1 1 2 1.0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((32 1 0 0 nil 0) (32 2 0 1 nil 0) (32 3 0 2 nil 0) (32 1 1 0 nil 0) (15 0 2 1 nil 0) (30 0 2 2 nil 0) (31 0 2 4 nil 0) (7 0 6 0 nil 2) (11 0 6 1 nil 1) (23 0 6 2 nil 1) (9 0 8 1 nil 0) (10 0 8 2 nil 0) (12 0 8 3 nil 0) (12 0 8 4 nil 0) (13 0 8 5 nil 0) (8 0 11 0 nil 0) (0 2 11 1 nil 0) (18 0 14 1 nil 0) (2 0 16 0 nil 0) (1 0 16 1 nil 0) (14 0 17 0 nil 0) (20 0 17 1 nil 0) (16 0 18 0 nil 0) (6 0 18 1 nil 0) (17 0 19 0 nil 0) (15 0 21 0 nil 0) (21 0 22 1 nil 0) (25 0 22 2 nil 0) (24 0 23 0 nil 0) (26 0 23 1 nil 0) (27 0 24 1 nil 0) (21 0 25 0 nil 0) (33 0 25 1 nil 0) (22 0 26 0 nil 0) (29 0 26 1 nil 0) (28 0 27 0 nil 0) (25 0 27 1 nil 0) (34 0 32 0 nil 0) (35 0 34 0 nil 0) (33 0 34 1 nil 0))) nil 7.05))
|
