examples/1-basics/6-input-classes.omp

New file
@@ -0,0 +1,6 @@
; OM File Header - Saved 2025/03/11 17:03:18
; (7.05 :patc (om-make-point 141 130) (om-make-point 369 287) (om-make-point 862 413) "" 183 0 nil "2025/03/11 17:03:18")
; End File Header
; External resources 
; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :abstraction) "#P\"../support/input-combiners/sox-multiply.omp\"" "#P\"../support/input-combiners/sox-pan.omp\"" "#P\"../support/input-combiners/sox-hoaencode.omp\"" "#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\""))
(in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "6-input-classes" (quote ((let ((box (om-load-boxcall (quote patch-box) "sox-multiply" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-multiply")) (quote nil) (om-make-point 405 296) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 8" (om-make-point 101 24) (quote "SoX-MULTIPLY") "" (om-make-point 403 273) 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-pan" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-pan")) (quote nil) (om-make-point 140 295) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-hoaencode" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-hoaencode")) (quote nil) (om-make-point 249 297) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 7" (om-make-point 120 24) (quote "SoX-HOAENCODE") "" (om-make-point 249 273) 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 6" (om-make-point 67 24) (quote "SoX-PAN") "" (om-make-point 137 274) 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-split" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-split")) (quote nil) (om-make-point 641 298) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-remix 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-remix")) (quote nil) (om-make-point 554 299) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-splice 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-splice")) (quote nil) (om-make-point 501 141) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-concatenate 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-concatenate")) (quote nil) (om-make-point 377 140) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-record 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-record")) (quote nil) (om-make-point 630 143) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-merge 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-merge")) (quote nil) (om-make-point 245 147) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-mix 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-mix")) (quote nil) (om-make-point 149 148) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 4" (om-make-point 95 24) (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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 151 24) (quote "SoX-REMIX / SoX-SPLIT") "" (om-make-point 561 276) 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 9" (om-make-point 213 24) (quote "SoX-CONCATENATE / SoX-SPLICE") "" (om-make-point 376 117) 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 78 30) (quote "SoX-MERGE") "" (om-make-point 243 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))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 367 51) (quote "$The following OM-SoX input classes are available:") "" (om-make-point 128 9) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (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)) 7.05))

 examples/1-basics/6-input-combiners.omp

File was deleted

 examples/scripts-and-macros/ola.omp

@@ -1,4 +1,4 @@
; OM File Header - Saved 2025/03/04 17:25:04
; (7.05 :patc (om-make-point 24 24) (om-make-point 1098 236) (om-make-point 489 555) "" 183 0 nil "2025/03/04 17:25:04")
; OM File Header - Saved 2025/03/11 16:44:13
; (7.05 :patc (om-make-point 24 24) (om-make-point 264 351) (om-make-point 524 552) "" 183 0 nil "2025/03/11 16:44:13")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "ola" (quote ((let ((box (om-load-boxcall (quote genfun) "SOX-PAD" (quote sox-pad) (quote ((om-load-inputfun (quote input-funbox) "duration of silence/zero-padding (if float in seconds, otherwise in samples)" "DURATION" nil))) (om-make-point 262 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 187 26) (quote "asymetrical fades are possible!") "" (om-make-point 291 116) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 11.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 bastype) "aux 2" (quote t) (quote nil) (om-make-point 240 118) (om-make-point 45 30) 0.49 "0.49" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 201 182) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "windowsize" 1 (om-make-point 175 39) "" "windowsize" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-APPEND" (quote x-append) (quote ((om-load-inputfun (quote input-funbox) "first element" "L1?" nil) (om-load-inputfun (quote input-funbox) "second element" "L2?" nil))) (om-make-point 106 309) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" nil) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0.2))) (om-make-point 138 181) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 142 463) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-FADE" (quote sox-fade) (quote ((om-load-inputfun (quote input-funbox) "fadein-length (in secs). Optionally <sound> object." "SOUNDFILE" 1) (om-load-inputfun (quote input-funbox) "fadeout-length (in secs)" "FADEOUT-LENGTH" 1) (om-load-inputfun (quote input-funbox) "stoptime (in secs). if 0 = duration of soundfile)" "STOPTIME" 0) (om-load-inputkeyword (quote input-keyword) "fade-type (logarithmic/parabola/quarter-sine/half-sine/linear)" "type" (quote :type) "q" (list (list "logarithmic" "l") (list "parabola" "p") (list "quarter sinewave" "q") (list "half sinewave" "h") (list "linear" "t"))) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 191 295) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-TRIM" (quote sox-trim) (quote ((om-load-inputfun (quote input-funbox) "start (number in secs), or start and end (list of 'start' and 'end' point (in secs)" "START-AND-END" nil) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 138 376) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "onsets" 0 (om-make-point 106 39) "" "onsets" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((10 0 0 0 nil 0) (4 0 3 0 nil 0) (2 0 3 1 nil 0) (10 0 5 0 nil 0) (6 0 5 1 nil 0) (10 0 6 0 nil 0) (4 0 6 1 nil 0) (9 0 7 0 nil 0) (3 0 8 0 nil 0) (3 0 8 1 nil 0) (0 0 8 4 nil 0) (5 0 9 0 nil 0) (8 0 9 1 nil 0))) nil 7.05))

 examples/support/input-combiners/sox-hoaencode.omp

@@ -1,6 +1,6 @@
; OM File Header - Saved 2025/03/06 00:43:14
; (7.05 :patc (om-make-point 238 218) (om-make-point -1490 447) (om-make-point 997 583) "" 183 0 "2025/03/01 02:15:44" "2025/03/06 00:43:14")
; OM File Header - Saved 2025/03/11 16:59:13
; (7.05 :patc (om-make-point 238 218) (om-make-point -1502 188) (om-make-point 997 583) "" 183 0 "2025/03/01 02:15:44" "2025/03/11 16:59:13")
; End File Header
; External resources 
; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\"") (list (quote :abstraction) "#P\"../distance-cue rendering.omp\"" "#P\"sox-hoaencode continuous.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-hoaencode" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 102 24) (quote "ambisonics order") "" (om-make-point 241 253) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote 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 215 254) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 62 24) (quote "elevation") "" (om-make-point 215 224) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 188 226) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-HOAENCODE" (quote sox-hoaencode) (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" (list 0.0)) (om-load-inputfun (quote input-funbox) "azimuth angle in degrees" "azimuth" 0) (om-load-inputfun (quote input-funbox) "elevation angle in degrees" "elevation" 0) (om-load-inputfun (quote input-funbox) "Ambisonics order. [int]" "order" 3))) (om-make-point 144 302) (om-make-point 70 50) (if (find-class (quote sox-hoaencode) nil) (make-instance (quote sox-hoaencode) :sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device :unspecific :host :unspecific :name "clarinet-multi-mono" :type "aif") :gains (list 0.0) :azimuth -30 :elevation 0 :order 3 :from-file t)) nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 328) (om-make-point -447 361))) nil nil nil t (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "distance-cue rendering" (quote ("elements" "OM-SoX-tutorial-patches" "support" "distance-cue rendering")) (quote nil) (om-make-point 534 312) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 188 72) (quote "SoX-HOAENCODE $does not render distance natively.$ $Check out this example $for distance cue rendering") "" (om-make-point 531 248) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 279 24) (quote "Select box and press 'd' for documentation of inlets.") "" (om-make-point 222 322) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-hoaencode continuous" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-hoaencode continuous")) (quote nil) (om-make-point 522 415) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 136 36) (quote "check out this example $for continuous panning") "" (om-make-point 535 385) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 56 24) (quote "azimuth") "" (om-make-point 205 192) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (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) "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-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 134 355) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 524 36) (quote "The signal follows the ambiX convention, i.e. it uses SN3D normalization and ACN channel ordering. $The resulting file will have (<order>+1)^2 channels") "" (om-make-point 145 508) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 166 194) (om-make-point 39 30) -30 "-30" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "clarinet-multi-mono.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 146 131) (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 "clarinet-multi-mono" :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 "clarinet-multi-mono.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 540 306) (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-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 149 444) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode onset measure)) (list 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 559 303) (om-make-point 400 38) 0 1 (quote t) nil 0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 662 60) (quote "Encode audio into higher-order ambisonics B-format following SN3D and ACN conventions. $Positions can be specified in polar (azimuth elevation in degrees) or cartesian coordinates (x y z), see doc.$Order can be specified numerically up to 3rd-order.") "" (om-make-point 128 51) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 141 34) (quote "SoX-HOAENCODE") "" (om-make-point 135 18) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((14 0 4 1 nil 0) (13 0 4 3 nil 0) (3 0 4 4 nil 0) (1 0 4 5 nil 0) (4 0 11 0 nil 0) (11 0 15 0 nil 0))) (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 63 48)) newpict)) 7.05))
; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\"") (list (quote :abstraction) "#P\"../sox-hoaencode trajectory.omp\"" "#P\"../distance-cue rendering.omp\"" "#P\"sox-hoaencode continuous.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-hoaencode" (quote ((let ((box (om-load-boxcomment "comment 4" (om-make-point 136 36) (quote "check out this example $for trajectory control") "" (om-make-point 536 385) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-hoaencode trajectory" (quote ("elements" "OM-SoX-tutorial-patches" "support" "sox-hoaencode trajectory")) (quote nil) (om-make-point 527 417) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 102 24) (quote "ambisonics order") "" (om-make-point 241 253) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote 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 215 254) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 62 24) (quote "elevation") "" (om-make-point 215 224) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 188 226) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-HOAENCODE" (quote sox-hoaencode) (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" (list 0.0)) (om-load-inputfun (quote input-funbox) "azimuth angle in degrees" "azimuth" 0) (om-load-inputfun (quote input-funbox) "elevation angle in degrees" "elevation" 0) (om-load-inputfun (quote input-funbox) "Ambisonics order. [int]" "order" 3))) (om-make-point 144 302) (om-make-point 70 50) (if (find-class (quote sox-hoaencode) nil) (make-instance (quote sox-hoaencode) :sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device :unspecific :host nil :name "clarinet-multi-mono" :type "aif") :gains (list 0.0) :azimuth -30 :elevation 0 :order 5 :from-file t)) nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 328) (om-make-point -447 361))) nil nil nil t (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "distance-cue rendering" (quote ("elements" "OM-SoX-tutorial-patches" "support" "distance-cue rendering")) (quote nil) (om-make-point 532 199) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 188 72) (quote "SoX-HOAENCODE $does not render distance natively.$ $Check out this example $for distance cue rendering") "" (om-make-point 529 135) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 279 24) (quote "Select box and press 'd' for documentation of inlets.") "" (om-make-point 222 322) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-hoaencode continuous" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-hoaencode continuous")) (quote nil) (om-make-point 520 302) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 136 36) (quote "check out this example $for continuous panning") "" (om-make-point 533 272) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 56 24) (quote "azimuth") "" (om-make-point 205 192) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (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) "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-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 134 365) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 524 36) (quote "The signal follows the ambiX convention, i.e. it uses SN3D normalization and ACN channel ordering. $The resulting file will have (<order>+1)^2 channels") "" (om-make-point 145 508) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 166 194) (om-make-point 39 30) -30 "-30" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "clarinet-multi-mono.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 146 131) (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 "clarinet-multi-mono" :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 "clarinet-multi-mono.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 540 306) (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-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 149 444) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode onset measure)) (list 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 660 724) (om-make-point 400 38) 0 1 (quote t) nil 0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 601 60) (quote "Encode audio into higher-order ambisonics B-format following SN3D and ACN conventions. $Positions are be specified in polar (azimuth elevation in degrees) coordinates, following SpatDIF.$Order can be specified numerically up to 7th-order. Resulting channel count is (<order>+1)^2") "" (om-make-point 128 51) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 141 34) (quote "SoX-HOAENCODE") "" (om-make-point 135 18) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((16 0 6 1 nil 0) (15 0 6 3 nil 0) (5 0 6 4 nil 0) (3 0 6 5 nil 0) (6 0 13 0 nil 0) (13 0 17 0 nil 0))) (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 63 48)) newpict)) 7.05))

 examples/support/input-combiners/sox-multiply.omp

New file
@@ -0,0 +1,6 @@
; OM File Header - Saved 2025/03/11 16:31:58
; (7.05 :patc (om-make-point 238 218) (om-make-point 584 117) (om-make-point 618 561) "" 183 0 "2025/03/11 16:25:26" "2025/03/11 16:31:46")
; End File Header
; External resources 
; (list (list (quote :picture) "#P\"../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\"" "#P\"../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-multiply" (quote ((let ((box (om-load-editor-box1 "SOX-MULTIPLY" (quote sox-multiply) (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 103 249) (om-make-point 70 50) (if (find-class (quote sox-multiply) nil) (make-instance (quote sox-multiply) :sound (list (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device :unspecific :host :unspecific :name "altosax-multi-1" :type "wav") (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device :unspecific :host :unspecific :name "altosax-multi-2" :type "wav")) :gains (list 0.0 0.0) :from-file t)) nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 206 150) (om-make-point 10 40))) nil nil nil t (quote nil)))) (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 142 473) (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 (scale show-stems notechancolor? cmnpref obj-mode deltapict show-spectrum winpos winsize mode grillestep zoom player inport outport onset measure)) (list 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) nil (om-make-point 400 38) (om-make-point 760 386) 0 nil 1 (quote :om-audio) nil nil 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-PROCESS" (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-load-inputkeyword (quote input-keyword) "Output type (new file, replace file, pipe, or realtime) [string]. Also accepts directory, filename, filepath [path]" "output" (quote :output) "realtime" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 158 358) nil nil nil nil 1))) (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 225 276) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (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 128 201) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "clarinet-multi-mono.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 81 132) (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 "clarinet-multi-mono" :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 "clarinet-multi-mono.aif") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (measure onset scale show-stems notechancolor? cmnpref obj-mode deltapict 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) nil (om-make-point 400 38) (om-make-point 821 361) 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-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 163 133) (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 scale show-stems notechancolor? cmnpref obj-mode deltapict 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) nil (om-make-point 400 38) (om-make-point 491 280) 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-boxcomment "comment 2" (om-make-point 279 24) (quote "Select box and press 'd' for documentation of inlets.") "" (om-make-point 177 250) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :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 438 30) (quote "Multiplies two signals with each other (also known as ringmodulation)") "" (om-make-point 140 50) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 105 34) (quote "SoX-Multiply") "" (om-make-point 135 18) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 0 1 nil 0) (2 0 1 0 nil 0) (0 0 2 0 nil 0) (3 0 2 1 nil 0) (5 0 4 0 nil 0) (6 0 4 1 nil 0))) (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 63 48)) newpict)) 7.05))

 examples/support/input-combiners/sox-pan.omp

@@ -1,6 +1,6 @@
; OM File Header - Saved 2025/03/05 15:53:26
; (7.05 :patc (om-make-point 238 218) (om-make-point 508 304) (om-make-point 697 517) "" 183 0 "2025/03/01 00:57:08" "2025/03/05 15:53:26")
; OM File Header - Saved 2025/03/11 16:44:13
; (7.05 :patc (om-make-point 238 218) (om-make-point 508 304) (om-make-point 669 589) "" 183 0 "2025/03/01 00:57:08" "2025/03/11 16:43:22")
; End File Header
; External resources 
; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\"") (list (quote :abstraction) "#P\"../distance-cue rendering.omp\"" "#P\"sox-pan continuous.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan" (quote ((let ((box (om-load-boxcomment "comment 4" (om-make-point 188 72) (quote "SoX-PAN $does not render distance natively.$ $Check out this example $for distance cue rendering") "" (om-make-point 423 200) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "distance-cue rendering" (quote ("elements" "OM-SoX-tutorial-patches" "support" "distance-cue rendering")) (quote nil) (om-make-point 428 267) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 139 60) (quote "planned future features:$$- spread$- panning function") "" (om-make-point 210 395) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (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 2" (om-make-point 148 39) (quote "check out this example $for continuous panning") "" (om-make-point 430 363) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 11.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 patch-box) "sox-pan continuous" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-pan continuous")) (quote nil) (om-make-point 432 395) nil nil nil nil 0))) (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 256 225) (om-make-point 27 30) 4 "4" 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 207 207) (om-make-point 38 30) 2.5 "2.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 170 187) (om-make-point 32 30) -3 "-3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "clarinet-multi-mono.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 74 174) (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 "clarinet-multi-mono" :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 "clarinet-multi-mono.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 540 306) (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-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 94 256) (om-make-point 70 50) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device nil :host nil :name "clarinet-multi-mono" :type "aif") :gains (list -3) :panning 2.5 :numchannels 4 :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) nil nil nil nil (quote nil)))) (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 121 412) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode onset measure)) (list 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 559 303) (om-make-point 400 38) 0 1 (quote t) nil 0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 209 26) (quote "-> Double-click to open the editor.") "" (om-make-point 167 270) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 11.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 446 60) (quote "Pan audio between adjacent output audio channels specified $as a floating point number. Gain (db) value before panning and $number of channels in the multichannel audio output can be specified. ") "" (om-make-point 61 67) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (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) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" ""))) (om-make-point 106 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 79 34) (quote "SoX-PAN") "" (om-make-point 135 18) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((8 0 9 1 nil 0) (7 0 9 2 nil 0) (6 0 9 3 nil 0) (5 0 9 4 nil 0) (13 0 10 0 nil 0) (9 0 13 0 nil 0))) (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 63 48)) newpict)) 7.05))
; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\"") (list (quote :abstraction) "#P\"../sox-pan trajectory.omp\"" "#P\"../distance-cue rendering.omp\"" "#P\"sox-pan continuous.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan" (quote ((let ((box (om-load-boxcall (quote patch-box) "sox-pan trajectory" (quote ("elements" "OM-SoX-tutorial-patches" "support" "sox-pan trajectory")) (quote nil) (om-make-point 437 469) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 5" (om-make-point 148 39) (quote "check out this example $ffor trajectory control") "" (om-make-point 426 427) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 11.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 4" (om-make-point 188 72) (quote "SoX-PAN $does not render distance natively.$ $Check out this example $for distance cue rendering") "" (om-make-point 419 154) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 10.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "distance-cue rendering" (quote ("elements" "OM-SoX-tutorial-patches" "support" "distance-cue rendering")) (quote nil) (om-make-point 424 221) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 139 60) (quote "planned future features:$$- spread$- panning function") "" (om-make-point 210 395) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (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 2" (om-make-point 148 39) (quote "check out this example $for continuous panning") "" (om-make-point 426 317) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 11.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 patch-box) "sox-pan continuous" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-pan continuous")) (quote nil) (om-make-point 432 349) nil nil nil nil 0))) (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 256 225) (om-make-point 27 30) 4 "4" 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 207 207) (om-make-point 38 30) 2.5 "2.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 170 187) (om-make-point 32 30) -3 "-3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "clarinet-multi-mono.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 74 174) (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 "clarinet-multi-mono" :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 "clarinet-multi-mono.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 540 306) (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-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 94 256) (om-make-point 70 50) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device nil :host nil :name "clarinet-multi-mono" :type "aif") :gains (list -3) :panning 2.5 :numchannels 4 :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) nil nil nil nil (quote nil)))) (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 121 412) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode onset measure)) (list 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 559 303) (om-make-point 400 38) 0 1 (quote t) nil 0 nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 209 26) (quote "-> Double-click to open the editor.") "" (om-make-point 167 270) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 11.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 446 60) (quote "Pan audio between adjacent output audio channels specified $as a floating point number. Gain (db) value before panning and $number of channels in the multichannel audio output can be specified. ") "" (om-make-point 61 67) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (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) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" ""))) (om-make-point 106 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 79 34) (quote "SoX-PAN") "" (om-make-point 135 18) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((10 0 11 1 nil 0) (9 0 11 2 nil 0) (8 0 11 3 nil 0) (7 0 11 4 nil 0) (15 0 12 0 nil 0) (11 0 15 0 nil 0))) (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 63 48)) newpict)) 7.05))

 examples/support/sox-hoaencode trajectory.omp

@@ -1,6 +1,6 @@
; OM File Header - Saved 2025/03/06 01:07:16
; (7.05 :patc (om-make-point 334 210) (om-make-point 430 80) (om-make-point 805 815) "" 183 0 "2025/03/06 00:51:32" "2025/03/06 01:07:16")
; OM File Header - Saved 2025/03/11 16:44:13
; (7.05 :patc (om-make-point 334 210) (om-make-point 430 80) (om-make-point 919 925) "" 183 0 "2025/03/06 00:51:32" "2025/03/11 16:44:08")
; End File Header
; External resources 
; (list (list (quote :sound) "#P\"../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif\"") (list (quote :abstraction) "#P\"../scripts-and-macros/distance-cues.omp\"" "#P\"../scripts-and-macros/ola.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-hoaencode trajectory" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 48 24) (quote "Sound") "" (om-make-point 147 60) 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 314 181) 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 333 27) 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 462 483) 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 428 436) 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 369 324) 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 339 288) (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 381 267) (om-make-point 27 30) 1 "1" 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 393 400) 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 412 268) (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 437 292) (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-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 241 352) nil nil nil nil 3))) (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 239 560) (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  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8574929 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5144958 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.76414007 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.4075413 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.039877016 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.52510506 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.31506306 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.78956306 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 17149.86  vol 0.1714986  pad 0.017149859   pad 0.5@0.5  reverb 75 100 100 100 0 -7.263605 trim 0 0.63   fade q 0.3087 0 0.3087   pad 0s " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.39477125 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.91877944 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6282282 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5960951 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.74172986 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.24174704 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.56263525 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.27356324 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 11966.391  vol 0.1196639  pad 0.024578644   pad 0.5@0.5  reverb 75 100 100 100 0 -5.4594717 trim 0.315 0.63   fade q 0.3087 0 0.3087   pad 0.315 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.12826146 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9917404 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.22032045 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8375314 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.29752627 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.07854379 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6073145 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7324467 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 8026.3867  vol 0.08026387  pad 0.036643844   pad 0.5@0.5  reverb 75 100 100 100 0 -2.5293532 trim 0.63 0.63   fade q 0.3087 0 0.3087   pad 0.63 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.00604667 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9999817 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.010472949 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8659621 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.014340239 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0037028143 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.61236126 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.79043937 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 5870.5044  vol 0.058705043  pad 0.050100915   pad 0.5@0.5  reverb 75 100 100 100 0 0.7387934 trim 0.945 0.63000006   fade q 0.3087 0 0.3087   pad 0.945 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.08280263 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.99656594 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.14292586 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.85415 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.19458841 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.05070605 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.61026955 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7662476 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 4589.932  vol 0.04589932  pad 0.06407887   pad 0.5@0.5  reverb 75 100 100 100 0 4.1334396 trim 1.26 0.63   fade q 0.3087 0 0.3087   pad 1.26 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.13204241 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9912441 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.22670165 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.83582676 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.30588594 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.08085913 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.60701055 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7289951 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 4213.2188  vol 0.04213219  pad 0.0698083   pad 0.5@0.5  reverb 75 100 100 100 0 5.5248723 trim 1.575 0.6299999   fade q 0.3087 0 0.3087   pad 1.575 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.18955323 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9818705 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.3223636 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.80379206 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.42802754 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.11607718 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.60127044 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6646747 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 5287.4014  vol 0.052874014  pad 0.055626125   pad 0.5@0.5  reverb 75 100 100 100 0 2.0806303 trim 1.8900001 0.6299999   fade q 0.3087 0 0.3087   pad 1.8900001 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.28420585 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9587633 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.4719598 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7261225 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6014596 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.17403983 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.58712024 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.51307536 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 7043.515  vol 0.07043515  pad 0.041757226   pad 0.5@0.5  reverb 75 100 100 100 0 -1.2875309 trim 2.2050002 0.6299999   fade q 0.3087 0 0.3087   pad 2.2050002 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.46017346 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.887829 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7076386 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.49924698 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7832454 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.28179756 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.54368204 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.107362256 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 10257.99  vol 0.10257991  pad 0.028672053   pad 0.5@0.5  reverb 75 100 100 100 0 -4.4653597 trim 2.5200003 0.6299999   fade q 0.3087 0 0.3087   pad 2.5200003 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.8003694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.59950716 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.831085 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.24351099 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.27691275 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.49012417 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.3671217 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7404859 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 16211.656  vol 0.16211656  pad 0.018142358   pad 0.5@0.5  reverb 75 100 100 100 0 -7.0225697 trim 2.8350003 0.6299999   fade q 0.3087 0 0.3087   pad 2.8350003 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.9868008 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.16193897 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.2767843 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.82060367 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.69830084 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6042896 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.09916696 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.37064266 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 20000  vol 0.44611248  pad 0.0065929038   pad 0.5@0.5  reverb 75 100 100 100 0 -9.827438 trim 3.1500004 0.6299999   fade q 0.3087 0 0.3087   pad 3.1500004 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.65574146 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7549856 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.85749555 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.12124907 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6635703 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.40155798 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.46233237 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.42973772 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 17320.159  vol 0.17320159  pad 0.016981233   pad 0.5@0.5  reverb 75 100 100 100 0 -7.304558 trim 3.4650004 0.6299999   fade q 0.3087 0 0.3087   pad 3.4650004 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.057653703 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.9983366 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.099693045 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8602681 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.13613177 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.03530554 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6113539 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7787607 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 20000  vol 0.230616  pad 0.012753567   pad 0.5@0.5  reverb 75 100 100 100 0 -8.331278 trim 3.7800005 0.6299999   fade q 0.3087 0 0.3087   pad 3.7800005 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8239394 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5666779 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.80870885 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.30982247 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.18531512 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5045578 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.34701797 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.768543 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 15949.275  vol 0.15949275  pad 0.018440817   pad 0.5@0.5  reverb 75 100 100 100 0 -6.9500866 trim 4.0950003 0.6300001   fade q 0.3087 0 0.3087   pad 4.0950003 " "| '/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9641277 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.26543877 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.44326103 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.743989 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5473956 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5904053 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.1625474 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5704017 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 9561.913  vol 0.09561913  pad 0.03075929   pad 0.5@0.5  reverb 75 100 100 100 0 -3.958458 trim 4.4100003 0.6300001   fade q 0.3087 0 0.3087   pad 4.4100003 ") :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) :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 250 327) (om-make-point 920 150))) 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 118 11) (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 (palette-mode scale show-stems obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx :show-spectrum onset measure)) (list 0 nil (quote t) 1 0 (om-make-point 400 38) (om-make-point 860 331) 0 1000 nil 1 (quote :soxplayer) 0 nil (om-make-point 0 0) (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) (quote g) 24 2 (quote t) nil nil)) 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-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 209 427) 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 278 641) 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 240 480) 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 293 733) (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 (outport inport player zoom grillestep mode winsize winpos show-spectrum :show-spectrum deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :multiplayer) 1 nil 0 (om-make-point 1328 809) (om-make-point 122 38) nil (quote t) (om-make-point 0 0) 0 (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) nil (quote t) nil 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 348 549) 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 622 162) 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 646 307) 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 581 384) 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 583 315) 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 643 224) nil (list 0.315) 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 662 394) 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 594 270) 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 591 233) (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 701 364) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-HOAENCODE" (quote sox-hoaencode) (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" 0) (om-load-inputfun (quote input-funbox) "azimuth angle in degrees" "azimuth" 0) (om-load-inputfun (quote input-funbox) "elevation angle in degrees" "elevation" 0) (om-load-inputfun (quote input-funbox) "Ambisonics order. [int]" "order" 3))) (om-make-point 106 343) (om-make-point 108 52) (if (find-class (quote sox-hoaencode) nil) (make-instance (quote sox-hoaencode) :sound nil :gains 0 :azimuth 0 :elevation 0 :order 3 :from-file t)) "l" nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 200) (om-make-point 317 184))) nil nil nil nil (quote 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 139 309) (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 184 309) (om-make-point 27 30) 3 "3" 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 243 286) (om-make-point 60 60) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-5.0 -3.299 -1.598 0.103 1.804 3.134 3.585 4.035 4.486 4.937 2.212 3.786 -0.25 -5.166 -10.083 -15.0)) (quote (3.0 7.678 12.356 17.034 21.712 23.527 18.57 13.612 8.655 3.698 0.363 -4.359 -4.329 -3.553 -2.776 -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)) (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))) newobj) "&" nil (pairlis (quote (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) 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 277 184) (om-make-point 34 30) 16 "16" 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 237 224) 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 248 11) (om-make-point 83 84) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-5.0 3.0 5.0 2.0 4.0 -15.0)) (quote (3.0 25.0 3.0 1.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 (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 3 0 nil 0) (8 0 3 1 nil 0) (21 0 3 2 nil 0) (6 0 5 1 nil 0) (7 0 5 2 nil 0) (9 0 5 3 nil 0) (9 0 5 4 nil 0) (10 0 5 5 nil 0) (5 0 8 0 nil 0) (11 2 8 1 nil 0) (31 1 11 0 nil 0) (31 2 11 1 nil 0) (31 3 11 2 nil 0) (16 0 12 1 nil 0) (28 0 14 0 nil 0) (11 0 14 1 nil 0) (11 1 14 2 nil 0) (12 0 15 0 nil 0) (18 0 15 1 nil 0) (14 0 16 0 nil 0) (3 0 16 1 nil 0) (15 0 17 0 nil 0) (13 0 19 0 nil 0) (19 0 20 1 nil 0) (23 0 20 2 nil 0) (22 0 21 0 nil 0) (24 0 21 1 nil 0) (25 0 22 1 nil 0) (19 0 23 0 nil 0) (32 0 23 1 nil 0) (20 0 24 0 nil 0) (27 0 24 1 nil 0) (26 0 25 0 nil 0) (23 0 25 1 nil 0) (13 0 28 1 nil 0) (29 0 28 2 nil 0) (30 0 28 5 nil 0) (33 0 31 0 nil 0) (34 0 33 0 nil 0) (32 0 33 1 nil 0))) nil 7.05))
; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif\"") (list (quote :abstraction) "#P\"../scripts-and-macros/distance-cues.omp\"" "#P\"../scripts-and-macros/ola.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-hoaencode trajectory" (quote ((let ((box (om-load-boxcomment "comment 3" (om-make-point 530 34) (quote "Using Breakpoint-Curves (Trajectories) for control of continuous panning") "" (om-make-point 137 18) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 14.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 2" (om-make-point 189 48) (quote "Future feature:$Use 3D-trajectory obj with explicit$time specifications") "" (om-make-point 542 551) 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 48 24) (quote "Sound") "" (om-make-point 139 147) 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 306 248) 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 325 114) 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 454 550) 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 444 469) 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 361 391) 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 331 355) (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 373 334) (om-make-point 27 30) 1 "1" 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 385 467) 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 404 335) (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 430 359) (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-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 233 419) nil nil nil nil 3))) (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 231 627) (om-make-point 70 50) (if (find-class (quote sox-mix) nil) (make-instance (quote sox-mix) :sound (list "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8574929 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5144958 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.76414007 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.4075413 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.039877016 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.52510506 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.31506306 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.78956306 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 17149.86  vol 0.1714986  pad 0.017149859   pad 0.5@0.5  reverb 75 100 100 100 0 -7.263605 trim 0 0.63   fade q 0.3087 0 0.3087   pad 0s " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.39477125 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.91877944 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6282282 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5960951 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.74172986 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.24174704 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.56263525 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.27356324 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 11966.391  vol 0.1196639  pad 0.024578644   pad 0.5@0.5  reverb 75 100 100 100 0 -5.4594717 trim 0.315 0.63   fade q 0.3087 0 0.3087   pad 0.315 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.12826146 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9917404 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.22032045 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8375314 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.29752627 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.07854379 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6073145 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7324467 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 8026.3867  vol 0.08026387  pad 0.036643844   pad 0.5@0.5  reverb 75 100 100 100 0 -2.5293532 trim 0.63 0.63   fade q 0.3087 0 0.3087   pad 0.63 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.00604667 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9999817 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.010472949 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8659621 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.014340239 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0037028143 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.61236126 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.79043937 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 5870.5044  vol 0.058705043  pad 0.050100915   pad 0.5@0.5  reverb 75 100 100 100 0 0.7387934 trim 0.945 0.63000006   fade q 0.3087 0 0.3087   pad 0.945 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.08280263 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.99656594 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.14292586 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.85415 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.19458841 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.05070605 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.61026955 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7662476 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 4589.932  vol 0.04589932  pad 0.06407887   pad 0.5@0.5  reverb 75 100 100 100 0 4.1334396 trim 1.26 0.63   fade q 0.3087 0 0.3087   pad 1.26 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.13204241 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9912441 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.22670165 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.83582676 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.30588594 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.08085913 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.60701055 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7289951 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 4213.2188  vol 0.04213219  pad 0.0698083   pad 0.5@0.5  reverb 75 100 100 100 0 5.5248723 trim 1.575 0.6299999   fade q 0.3087 0 0.3087   pad 1.575 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.18955323 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9818705 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.3223636 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.80379206 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.42802754 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.11607718 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.60127044 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6646747 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 5287.4014  vol 0.052874014  pad 0.055626125   pad 0.5@0.5  reverb 75 100 100 100 0 2.0806303 trim 1.8900001 0.6299999   fade q 0.3087 0 0.3087   pad 1.8900001 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.28420585 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9587633 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.4719598 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.7261225 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6014596 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.17403983 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.58712024 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.51307536 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 7043.515  vol 0.07043515  pad 0.041757226   pad 0.5@0.5  reverb 75 100 100 100 0 -1.2875309 trim 2.2050002 0.6299999   fade q 0.3087 0 0.3087   pad 2.2050002 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.46017346 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.887829 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7076386 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.49924698 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7832454 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.28179756 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.54368204 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.107362256 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 10257.99  vol 0.10257991  pad 0.028672053   pad 0.5@0.5  reverb 75 100 100 100 0 -4.4653597 trim 2.5200003 0.6299999   fade q 0.3087 0 0.3087   pad 2.5200003 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.8003694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.59950716 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.831085 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.24351099 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.27691275 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.49012417 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.3671217 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7404859 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 16211.656  vol 0.16211656  pad 0.018142358   pad 0.5@0.5  reverb 75 100 100 100 0 -7.0225697 trim 2.8350003 0.6299999   fade q 0.3087 0 0.3087   pad 2.8350003 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.9868008 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.16193897 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.2767843 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.82060367 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.69830084 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6042896 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.09916696 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.37064266 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 20000  vol 0.44611248  pad 0.0065929038   pad 0.5@0.5  reverb 75 100 100 100 0 -9.827438 trim 3.1500004 0.6299999   fade q 0.3087 0 0.3087   pad 3.1500004 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.65574146 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7549856 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.85749555 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.12124907 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.6635703 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.40155798 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.46233237 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.42973772 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 17320.159  vol 0.17320159  pad 0.016981233   pad 0.5@0.5  reverb 75 100 100 100 0 -7.304558 trim 3.4650004 0.6299999   fade q 0.3087 0 0.3087   pad 3.4650004 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.057653703 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.9983366 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.099693045 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8602681 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.13613177 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.03530554 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.6113539 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.7787607 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 20000  vol 0.230616  pad 0.012753567   pad 0.5@0.5  reverb 75 100 100 100 0 -8.331278 trim 3.7800005 0.6299999   fade q 0.3087 0 0.3087   pad 3.7800005 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.8239394 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5666779 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.80870885 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.30982247 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.18531512 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5045578 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.34701797 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.768543 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 15949.275  vol 0.15949275  pad 0.018440817   pad 0.5@0.5  reverb 75 100 100 100 0 -6.9500866 trim 4.0950003 0.6300001   fade q 0.3087 0 0.3087   pad 4.0950003 " "| '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/executables/macos/sox-1442'  -q --multi-threaded --buffer 4096 --input-buffer 512 -V0  -M -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.9641277 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.26543877 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.44326103 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.743989 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5473956 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.5904053 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.1625474 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' -v0.5704017 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif' '-p'  lowpass  -1 9561.913  vol 0.09561913  pad 0.03075929   pad 0.5@0.5  reverb 75 100 100 100 0 -3.958458 trim 4.4100003 0.6300001   fade q 0.3087 0 0.3087   pad 4.4100003 ") :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) :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 250 327) (om-make-point 920 150))) 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 110 98) (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 (palette-mode scale show-stems obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx :show-spectrum onset measure)) (list 0 nil (quote t) 1 0 (om-make-point 400 38) (om-make-point 860 331) 0 1000 nil 1 (quote :soxplayer) 0 nil (om-make-point 0 0) (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) (quote g) 24 2 (quote t) nil nil)) 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-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 201 494) 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 270 708) 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 232 547) 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 285 800) (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 (outport inport player zoom grillestep mode winsize winpos show-spectrum :show-spectrum deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :multiplayer) 1 nil 0 (om-make-point 1328 809) (om-make-point 122 38) nil (quote t) (om-make-point 0 0) 0 (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) nil (quote t) nil 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 340 616) 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 614 229) 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 638 374) 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 573 451) 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 575 382) 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 635 291) nil (list 0.315) 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 654 461) 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 586 337) 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 583 300) (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 693 431) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-HOAENCODE" (quote sox-hoaencode) (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" 0) (om-load-inputfun (quote input-funbox) "azimuth angle in degrees" "azimuth" 0) (om-load-inputfun (quote input-funbox) "elevation angle in degrees" "elevation" 0) (om-load-inputfun (quote input-funbox) "Ambisonics order. [int]" "order" 3))) (om-make-point 98 410) (om-make-point 108 52) (if (find-class (quote sox-hoaencode) nil) (make-instance (quote sox-hoaencode) :sound nil :gains 0 :azimuth 0 :elevation 0 :order 3 :from-file t)) "l" nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 200) (om-make-point 317 184))) nil nil nil nil (quote 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 131 376) (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 176 376) (om-make-point 27 30) 3 "3" 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 235 353) (om-make-point 60 60) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-5.0 -3.299 -1.598 0.103 1.804 3.134 3.585 4.035 4.486 4.937 2.212 3.786 -0.25 -5.166 -10.083 -15.0)) (quote (3.0 7.678 12.356 17.034 21.712 23.527 18.57 13.612 8.655 3.698 0.363 -4.359 -4.329 -3.553 -2.776 -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)) (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))) newobj) "&" nil (pairlis (quote (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) 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 269 251) (om-make-point 34 30) 16 "16" 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 229 291) 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 240 98) (om-make-point 83 84) (let ((newobj (when (find-class (quote 3dc) nil) (let ((newbpf (3dc-from-list (quote (-5.0 3.0 5.0 2.0 4.0 -15.0)) (quote (3.0 25.0 3.0 1.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 (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 5 0 nil 0) (10 0 5 1 nil 0) (23 0 5 2 nil 0) (8 0 7 1 nil 0) (9 0 7 2 nil 0) (11 0 7 3 nil 0) (11 0 7 4 nil 0) (12 0 7 5 nil 0) (7 0 10 0 nil 0) (13 2 10 1 nil 0) (33 1 13 0 nil 0) (33 2 13 1 nil 0) (33 3 13 2 nil 0) (18 0 14 1 nil 0) (30 0 16 0 nil 0) (13 0 16 1 nil 0) (13 1 16 2 nil 0) (14 0 17 0 nil 0) (20 0 17 1 nil 0) (16 0 18 0 nil 0) (5 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) (34 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) (15 0 30 1 nil 0) (31 0 30 2 nil 0) (32 0 30 5 nil 0) (35 0 33 0 nil 0) (36 0 35 0 nil 0) (34 0 35 1 nil 0))) (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 65 18)) (setf (pict-size newpict) (om-make-point 63 45)) newpict)) 7.05))

 examples/support/sox-pan trajectory.omp

@@ -1,6 +1,6 @@
; OM File Header - Saved 2025/03/06 01:22:44
; (7.05 :patc (om-make-point 334 210) (om-make-point 50 50) (om-make-point 955 892) "" 183 0 "2025/03/06 01:07:28" "2025/03/06 01:22:44")
; OM File Header - Saved 2025/03/11 16:44:13
; (7.05 :patc (om-make-point 334 210) (om-make-point 50 50) (om-make-point 889 923) "" 183 0 "2025/03/06 01:07:28" "2025/03/11 16:43:18")
; End File Header
; External resources 
; (list (list (quote :sound) "#P\"../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif\"") (list (quote :abstraction) "#P\"OM-SoX-tutorial-patches/scripts-and-macros/distance-cues.omp\"" "#P\"OM-SoX-tutorial-patches/scripts-and-macros/ola.omp\""))
(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))
; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/drumloop.aif\"") (list (quote :abstraction) "#P\"../scripts-and-macros/distance-cues.omp\"" "#P\"../scripts-and-macros/ola.omp\""))
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan trajectory" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 530 34) (quote "Using Breakpoint-Curves (Trajectories) for control of continuous panning") "" (om-make-point 150 20) nil (om-make-color 0.0 0.0 1.0) (om-make-font "Verdana" 14.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 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 (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) 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 206) 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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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/Alexander Ng/OM-SoX hoaencode/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 (winpos winsize)) (list (om-make-point 250 327) (om-make-point 920 150))) 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 124 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 (palette-mode scale show-stems obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx :show-spectrum onset measure)) (list 0 nil (quote t) 1 0 (om-make-point 400 38) (om-make-point 860 331) 0 1000 nil 1 (quote :soxplayer) 0 nil (om-make-point 0 0) (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) (quote g) 24 2 (quote t) nil nil)) 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 (outport inport player zoom grillestep mode winsize winpos show-spectrum :show-spectrum deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :om-audio) 1 nil 0 (om-make-point 1328 809) (om-make-point 391 280) nil (quote t) (om-make-point 0 0) 0 (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) nil (quote t) nil 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 227) 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 311) (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 (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) 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 209) (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 249) 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 (picture bg-color line-width room-size show-room show-axes mode winpos winsize)) (list nil nil 1.0 2 1 1 0 (om-make-point 600 200) (om-make-point 800 800))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((33 1 1 0 nil 0) (33 2 1 1 nil 0) (33 3 1 2 nil 0) (33 1 2 0 nil 0) (16 0 3 1 nil 0) (31 0 3 2 nil 0) (32 0 3 4 nil 0) (8 0 7 0 nil 2) (12 0 7 1 nil 1) (24 0 7 2 nil 1) (10 0 9 1 nil 0) (11 0 9 2 nil 0) (13 0 9 3 nil 0) (13 0 9 4 nil 0) (14 0 9 5 nil 0) (9 0 12 0 nil 0) (1 2 12 1 nil 0) (19 0 15 1 nil 0) (3 0 17 0 nil 0) (2 0 17 1 nil 0) (15 0 18 0 nil 0) (21 0 18 1 nil 0) (17 0 19 0 nil 0) (7 0 19 1 nil 0) (18 0 20 0 nil 0) (16 0 22 0 nil 0) (22 0 23 1 nil 0) (26 0 23 2 nil 0) (25 0 24 0 nil 0) (27 0 24 1 nil 0) (28 0 25 1 nil 0) (22 0 26 0 nil 0) (34 0 26 1 nil 0) (23 0 27 0 nil 0) (30 0 27 1 nil 0) (29 0 28 0 nil 0) (26 0 28 1 nil 0) (35 0 33 0 nil 0) (36 0 35 0 nil 0) (34 0 35 1 nil 0))) (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 78 20)) (setf (pict-size newpict) (om-make-point 63 45)) newpict)) 7.05))

 sources/classes/sox-hoaencode.lisp

@@ -1,19 +1,39 @@
;*************************************************************************
; OM-SoX, (c) 2011-2025 Marlon Schumacher (CIRMMT/McGill, HfM Karlsruhe) *
;             http://sourceforge.net/projects/omsox/                     *
;                                                                        *
;  Multichannel Audio Manipulation and Functional Batch Processing.      *
;        DSP based on SoX - (c) C.Bagwell and Contributors               *
;                  http://sox.sourceforge.net/                           *
;*************************************************************************
;
;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.
;
;See file LICENSE for further informations on licensing terms.
;
;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,10 USA.

;Authors: 
; A. Nguyen, 2025
; M. Schumacher, 2025

; Design limitations:
; 1) Sounds must have identical sample rate; otherwise, SoX fails silently, literally.

; Questions:
; 1) Is there a built-in (flatten lst)-function? Yes, om:flat
; 2) Implement up to which order? <=> CLI issues to be expected (e.g., maximum command character length)? max character length for CLI should be changeable 

(in-package :om)

;;; SOX-HOAENCODE ========================

; Util
; Utility functions

(defun flatten (structure)
    (cond 
        ((null structure) 
@@ -36,7 +56,7 @@
    )
)

;  ### Ambisonics ###
;  ### Ambisonics Formulas ###

(defun sox-hoaencode-sn3d-factor (order degree)
"This is a placeholder for documentation"
@@ -203,9 +223,6 @@
            (sox-hoaencode-elevation-factor order degree elevation_deg)))
    )

; (sox-hoaencode-gain-single-component 1 1 45 0)
; @AN: what is the difference between "order" and "degree"?


(defun sox-hoaencode-gains-by-order (order azimuth_deg elevation_deg)
  "Returns the gain values for all components at a specific order"
@@ -221,6 +238,8 @@
                (sox-hoaencode-gains-by-order ord azimuth_deg elevation_deg)))))


; ####### SoX-HOAENCODE class ##########

(defclass! sox-hoaencode (sox-input)
    (
     (gains :accessor gains :initarg :gains :initform nil :documentation *sox-gain-doc*)