From 27d7ae0a3f50b5554d4ead0fbb09c2490d62ad07 Mon Sep 17 00:00:00 2001
From: Marlon Schumacher <schumacher@hfm-karlsruhe.de>
Date: Thu, 06 Mar 2025 15:40:52 +0100
Subject: [PATCH] fix: adding leading whitespace to sox-trim string output
---
examples/support/distance-cue rendering.omp | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/examples/support/distance-cue rendering.omp b/examples/support/distance-cue rendering.omp
index f9abc53..9f284ff 100644
--- a/examples/support/distance-cue rendering.omp
+++ b/examples/support/distance-cue rendering.omp
@@ -1,6 +1,6 @@
-; OM File Header - Saved 2025/03/05 15:54:40
-; (7.05 :patc (om-make-point 10 360) (om-make-point 418 84) (om-make-point 907 881) "" 183 0 "2025/03/04 17:45:21" "2025/03/05 15:54:40")
+; OM File Header - Saved 2025/03/06 00:45:09
+; (7.05 :patc (om-make-point 10 360) (om-make-point 418 84) (om-make-point 890 876) "" 183 0 "2025/03/04 17:45:21" "2025/03/06 00:45:09")
; End File Header
; External resources
; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :abstraction) "#P\"../scripts-and-macros/distance-cues.omp\"") (list (quote :sound) "#P\"../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav\""))
-(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "distance-cue rendering" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 130 24) (quote "pick rendering method") "" (om-make-point 209 387) 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-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) "Positions as 3dc object, or list of azimuth+elevation values, or list of x+y+z coordinates. [3dc, list]" "positions" (list 0 0)) (om-load-inputfun (quote input-funbox) "Ambisonics order. [int]" "order" 3))) (om-make-point 197 262) (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 "amen-break" :type "wav") :positions (list (list (list 0 0))) :order 3 :from-file t)) nil 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 2" (om-make-point 128 24) (quote "distance values (in m)") "" (om-make-point 637 457) 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 2" (om-make-point 134 24) (quote "SoX-reverb parameters") "" (om-make-point 630 269) 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 2" (om-make-point 252 84) (quote "this abstraction processes the audio to render:$$- gain rolloff$- air absorption$- time delay$- dry/reverb ratio") "" (om-make-point 614 341) 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) "=" (quote =) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 75 423) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OMIF" (quote omif) (quote ((om-load-inputfun (quote input-funbox) "IF" "TEST" nil) (om-load-inputfun (quote input-funbox) "THEN" "ACTION" nil) (om-load-inputfun (quote input-funbox) "ELSE" "ELSE" nil))) (om-make-point 115 437) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "SoX-PAN" "SoX-HOAENCODE")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 38 378) (om-make-point 172 43) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 152 26) "untitled" :range (quote ("SoX-PAN" "SoX-HOAENCODE"))))) (om-set-selected-item-index rep (quote 1)) rep) "x" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) 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 471 45) (quote "For spatialization applications it is convenient to use a macro (abstraction) $for rendering of artificial distance cues") "" (om-make-point 149 22) 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-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 624 293) (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 bastype) "aux 5" (quote t) (quote nil) (om-make-point 572 258) (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" (quote t) (quote nil) (om-make-point 610 480) (om-make-point 130 30) (list 1 4 7 10 13 16 19) "(1 4 7 10 13 16 19)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "lispfunction" (om-load-lisp-abspatch "lispfunction" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (lst) $$(butlast (om:mat-trans (list lst (cdr lst))))$$))") (quote ((om-load-inputfun (quote input-funbox) "" "LST" nil))) (om-make-point 377 359) nil (list (list (list 0.0 0.5) (list 0.5 1.0) (list 1.0 1.5) (list 1.5 2.0) (list 2.0 2.5) (list 2.5 3.0) (list 3.0 3.5))) nil nil))) (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-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 387 504) 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 553 454) 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) "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) 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 163 678) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-CONCATENATE" (quote sox-concatenate) (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 124 588) (om-make-point 134 53) (if (find-class (quote sox-concatenate) nil) (make-instance (quote sox-concatenate) :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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' lowpass -1 20000 vol 0.4 pad 0.007352941 pad 0.5@0.5 reverb 75 100 100 100 0 -9.642857" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' lowpass -1 20000 vol 0.4 pad 0.007352941 pad 0.5@0.5 reverb 75 100 100 100 0 -9.642857") :gains (list 0.0 0.0) :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 1022 150))) nil nil nil t (quote nil)))) (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.0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 0.5))) (om-make-point 382 296) 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 343 429) nil nil "l" 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 358 234) 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 136 775) (om-make-point 153 54) (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 deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :om-audio) 1 nil 0 (om-make-point 370 280) (om-make-point 400 38) nil (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 t (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) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 111 498) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "amen-break.wav" (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 127 153) (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 "amen-break" :type "wav") 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 "amen-break.wav") (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 1111 420) 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 "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" 0.0) (om-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels. [float, list]" "panning" 1.2) (om-load-inputfun (quote input-funbox) "Number of available output channels for panning." "numchannels" 2))) (om-make-point 121 262) (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 :unspecific :host nil :name "amen-break" :type "wav") :gains (list 0.0) :panning 1.2 :numchannels 2 :from-file t)) nil 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-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 541 257) (om-make-point 27 30) 1 "1" 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 499 278) (om-make-point 41 30) 340 "340" nil))) (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 529 344) nil nil "l" "distance-cues" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((22 0 1 1 nil 0) (7 0 5 1 nil 0) (5 0 6 0 nil 0) (23 0 6 1 nil 0) (1 0 6 2 nil 0) (17 0 12 0 nil 0) (18 0 13 0 nil 0) (12 0 13 1 nil 0) (14 0 13 2 nil 0) (26 0 14 0 nil 0) (11 0 14 1 nil 0) (16 0 15 0 nil 0) (21 0 16 1 nil 0) (19 0 17 1 nil 0) (22 0 19 0 nil 0) (15 0 20 0 nil 0) (6 0 21 0 nil 0) (13 0 21 1 nil 0) (22 0 23 1 nil 0) (25 0 26 1 nil 0) (24 0 26 2 nil 0) (10 0 26 3 nil 0) (10 0 26 4 nil 0) (9 0 26 5 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 19)) (setf (pict-size newpict) (om-make-point 63 46)) newpict)) 7.05))
\ No newline at end of file
+(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "distance-cue rendering" (quote ((let ((box (om-load-editor-box1 "SOX-HOAENCODE 2" (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 195 262) (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 "amen-break" :type "wav") :gains 0 :azimuth 0 :elevation 0 :order 3 :from-file t)) nil 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 2" (om-make-point 144 24) (quote "choose rendering method") "" (om-make-point 42 350) 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 2" (om-make-point 128 24) (quote "distance values (in m)") "" (om-make-point 597 457) 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 2" (om-make-point 134 24) (quote "SoX-reverb parameters") "" (om-make-point 590 269) 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 2" (om-make-point 252 84) (quote "this abstraction processes the audio to render:$$- gain rolloff$- air absorption$- time delay$- dry/reverb ratio") "" (om-make-point 574 341) 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) "=" (quote =) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 75 423) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OMIF" (quote omif) (quote ((om-load-inputfun (quote input-funbox) "IF" "TEST" nil) (om-load-inputfun (quote input-funbox) "THEN" "ACTION" nil) (om-load-inputfun (quote input-funbox) "ELSE" "ELSE" nil))) (om-make-point 115 437) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "SoX-PAN" "SoX-HOAENCODE")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 38 378) (om-make-point 172 43) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 152 26) "untitled" :range (quote ("SoX-PAN" "SoX-HOAENCODE"))))) (om-set-selected-item-index rep (quote 1)) rep) "x" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) 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 471 45) (quote "For spatialization applications it is convenient to use a macro (abstraction) $for rendering of artificial distance cues") "" (om-make-point 149 22) 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-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 584 293) (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 bastype) "aux 5" (quote t) (quote nil) (om-make-point 532 258) (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" (quote t) (quote nil) (om-make-point 570 480) (om-make-point 130 30) (list 1 4 7 10 13 16 19) "(1 4 7 10 13 16 19)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "lispfunction" (om-load-lisp-abspatch "lispfunction" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (lst) $$(butlast (om:mat-trans (list lst (cdr lst))))$$))") (quote ((om-load-inputfun (quote input-funbox) "" "LST" nil))) (om-make-point 337 359) nil (list (list (list 0.0 0.5) (list 0.5 1.0) (list 1.0 1.5) (list 1.5 2.0) (list 2.0 2.5) (list 2.5 3.0) (list 3.0 3.5))) nil nil))) (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-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 347 504) 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 513 454) 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) "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) 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 141 678) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-CONCATENATE" (quote sox-concatenate) (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 124 588) (om-make-point 134 53) (if (find-class (quote sox-concatenate) nil) (make-instance (quote sox-concatenate) :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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 0.0 0.5 lowpass -1 20000 vol 1.0 pad 0.0029411766 pad 0.5@0.5 reverb 75 100 100 100 0 -10" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 0.5 0.5 lowpass -1 20000 vol 0.25 pad 0.011764706 pad 0.5@0.5 reverb 75 100 100 100 0 -8.571428" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 1.0 0.5 lowpass -1 14285.714 vol 0.14285715 pad 0.020588236 pad 0.5@0.5 reverb 75 100 100 100 0 -6.428571" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 1.5 0.5 lowpass -1 10000.0 vol 0.1 pad 0.029411765 pad 0.5@0.5 reverb 75 100 100 100 0 -4.285714" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 2.0 0.5 lowpass -1 7692.3076 vol 0.07692308 pad 0.038235296 pad 0.5@0.5 reverb 75 100 100 100 0 -2.142857" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 2.5 0.5 lowpass -1 6250.0 vol 0.0625 pad 0.047058825 pad 0.5@0.5 reverb 75 100 100 100 0 0.0" "| '/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/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v1.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.5 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.8660254 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v-0.61237246 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' -v0.7905694 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/amen-break.wav' '-p' trim 3.0 0.5 lowpass -1 5263.1577 vol 0.05263158 pad 0.055882354 pad 0.5@0.5 reverb 75 100 100 100 0 2.142857") :gains (list 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 10 40) (om-make-point 1022 150))) nil nil nil t (quote nil)))) (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.0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 0.5))) (om-make-point 342 296) 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 303 429) nil nil "l" 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 318 234) 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 121 771) (om-make-point 219 60) (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 deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :om-audio) 1 nil 0 (om-make-point 771 733) (om-make-point 400 38) nil (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 t (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) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 111 498) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "amen-break.wav" (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 127 153) (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 "amen-break" :type "wav") 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 "amen-break.wav") (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 1111 420) 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 "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" 0.0) (om-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels. [float, list]" "panning" 1.2) (om-load-inputfun (quote input-funbox) "Number of available output channels for panning." "numchannels" 4))) (om-make-point 121 262) (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 :unspecific :host :unspecific :name "amen-break" :type "wav") :gains (list 0.0) :panning 1.2 :numchannels 4 :from-file t)) nil 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-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 501 257) (om-make-point 27 30) 1 "1" 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 459 278) (om-make-point 41 30) 340 "340" nil))) (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 489 344) nil nil "l" "distance-cues" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((22 0 0 1 nil 0) (7 0 5 1 nil 0) (5 0 6 0 nil 0) (23 0 6 1 nil 0) (0 0 6 2 nil 0) (17 0 12 0 nil 0) (18 0 13 0 nil 0) (12 0 13 1 nil 0) (14 0 13 2 nil 0) (26 0 14 0 nil 0) (11 0 14 1 nil 0) (16 0 15 0 nil 0) (21 0 16 1 nil 0) (19 0 17 1 nil 0) (22 0 19 0 nil 0) (15 0 20 0 nil 0) (6 0 21 0 nil 0) (13 0 21 1 nil 0) (22 0 23 1 nil 0) (25 0 26 1 nil 0) (24 0 26 2 nil 0) (10 0 26 3 nil 0) (10 0 26 4 nil 0) (9 0 26 5 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 19)) (setf (pict-size newpict) (om-make-point 63 46)) newpict)) 7.05))
\ No newline at end of file
--
Gitblit v1.9.1