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/input-combiners/sox-pan continuous.omp | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/examples/support/input-combiners/sox-pan continuous.omp b/examples/support/input-combiners/sox-pan continuous.omp
index 75bf0c4..cd1e766 100644
--- a/examples/support/input-combiners/sox-pan continuous.omp
+++ b/examples/support/input-combiners/sox-pan continuous.omp
@@ -1,6 +1,6 @@
-; OM File Header - Saved 2025/03/01 01:08:38
-; (7.05 :patc (om-make-point 305 651) (om-make-point 1126 337) (om-make-point 690 838) "" 183 0 nil "2025/03/01 01:08:38")
+; OM File Header - Saved 2025/03/04 17:27:51
+; (7.05 :patc (om-make-point 305 651) (om-make-point -1534 77) (om-make-point 653 785) "" 183 0 nil "2025/03/04 17:22:27")
; End File Header
; External resources
-; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../out-files/2025-03-01_00-55-56_omsox.aif\"" "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/clarinet-multi-mono.aif\""))
-(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan continuous" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 79 34) (quote "SoX-PAN") "" (om-make-point 144 11) 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) (let ((box (om-load-boxcomment "comment" (om-make-point 79 39) (quote "number$of channels") "" (om-make-point 282 147) 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-boxinstance "sox-pan-instances" (let ((copy (make-instance (quote omlistinstance) :name "sox-pan-instances" :icon 129))) (setf (instance copy) (list (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 0.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 1.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 2.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 3.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 4.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 5.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 6.99 :numchannels 8 :from-file t)) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Nextcloud" "HOSTNET" "Lehrveranstaltungen" "VPRS" "SKAS WS21" "WS_21" "SKAS_WS21" "in-files")) :device :unspecific :host nil :name "BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox" :type "aif") :gains (list 0.0) :panning 7.99 :numchannels 8 :from-file t)))) (setf (edition-params copy) (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275)))) (setf (create-info copy) (quote ("2022/02/10 14:10:46" "--"))) (setf (doc copy) (str-with-nl "")) copy) (quote nil) (om-make-point 134 421) "sox-pan-instances" (om-make-point 45 40)))) (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.01))) (om-make-point 255 300) nil nil nil nil 1))) (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 396 476) (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 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 356 506) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-DELAY" (quote sox-delay) (quote ((om-load-inputfun (quote input-funbox) "list of delaytimes (sec) to be applied to successive channels" "TIMES" (list 0.5 0.7 1.1)) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 344 546) 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 363 350) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "trim+fade" (om-load-patch-abs1 "trim+fade" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 187 26) (quote "asymetrical fades are possible!") "" (om-make-point 321 88) 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 307 56) (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 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 297 86) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "duration" 1 (om-make-point 220 11) "" "duration" 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 82 181) 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 147 147) 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 141 355) (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) "p" (list (list "logarithmic" "l") (list "parabola" "p") (list "quarter sinewave" "q") (list "half sinewave" "h") (list "linear" "t"))))) (om-make-point 240 167) 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-load-inputkeyword (quote input-keyword) "specify time in seconds or samples" "unit" (quote :unit) "seconds" (list (list "seconds" "seconds") (list "samples" "samples"))))) (om-make-point 137 268) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 86 11) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 2 0 nil 0) (1 0 2 1 nil 0) (9 0 4 0 nil 0) (5 0 4 1 nil 0) (9 0 5 0 nil 0) (3 0 5 1 nil 0) (8 0 6 0 nil 0) (2 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 8 0 nil 0) (7 0 8 1 nil 0))) 7.05 nil "" (om-make-point 980 434) (om-make-point 591 460)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil))) (om-make-point 314 277) nil (list nil) "l" "trim+fade"))) (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 428 275) 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" 1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 1))) (om-make-point 396 238) 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 404 149) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 381 32) (quote "Continuous Panning through 8 channels using SOX-PAN") "" (om-make-point 146 36) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 13.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) "SOX-NORMALIZE" (quote sox-normalize) (quote nil) (om-make-point 430 524) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "2025-03-01_00-55-56_omsox.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 311 720) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:relative "out-files")) :device :unspecific :host :unspecific :name "2025-03-01_00-55-56_omsox" :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 "2025-03-01_00-55-56_omsox.aif") (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 :soxplayer) 1 nil 0 (om-make-point 969 825) (om-make-point 400 23) 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-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) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 221 397) 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) 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 296 628) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER 2" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 1) (om-load-inputfun (quote input-funbox) "end " "END" 14) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 231 216) 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 140 294) 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 (dB). [float, list]" "gains" nil) (om-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels before processing (linear). [float, list]" "panning" nil) (om-load-inputfun (quote input-funbox) "" "numchannels" 5))) (om-make-point 109 192) (om-make-point 97 75) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Research" "OM-SoX" "sounds")) :device :unspecific :host nil :name "cherokee" :type "aif") :gains (list 0.0) :panning 3.0 :numchannels 5 :from-file t)) "l" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) nil nil nil t (quote 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 95 87) (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 (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 23) (om-make-point 540 306) 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 bastype) "aux 3" (quote t) (quote nil) (om-make-point 251 153) (om-make-point 27 30) 8 "8" 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 153 155) (om-make-point 38 30) 0.0 "0.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 220 557) (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/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p0.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0 0.8865278 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0.8865278 0.8865278 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 1.7730556 0.8865278 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 2.6595834 0.8865278 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 trim 3.546111 0.886528 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 trim 4.432639 0.886528 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 trim 5.319167 0.886528 fade p 0.4432639 0 0.4432639 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/profmschum/Nextcloud/Hostnet/Lehre/Semesters/2021 WS/VPRS1 - SKAS/WS_21/SKAS_WS21/in-files/BbCl-mul-C#4+-A#5-D#6-E5-mf_omsox.aif' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 trim 6.205695 0.886528 fade p 0.4432639 0 0.4432639 ") :gains (list 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 818 150))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((17 0 3 0 nil 0) (9 0 5 0 nil 0) (4 0 5 1 nil 0) (5 0 6 0 nil 0) (13 0 6 1 nil 0) (8 0 7 0 nil 0) (9 0 7 1 nil 0) (10 0 8 1 nil 0) (11 0 9 1 nil 0) (10 0 9 2 nil 0) (11 0 10 0 nil 0) (21 0 10 1 nil 0) (20 0 11 0 nil 0) (16 0 14 0 nil 0) (18 0 15 0 nil 0) (7 0 15 1 nil 0) (23 0 16 0 nil 0) (6 0 16 1 nil 0) (21 0 17 1 nil 0) (19 0 18 0 nil 0) (3 0 18 1 nil 0) (20 0 19 1 nil 0) (22 0 19 2 nil 0) (21 0 19 4 nil 0) (15 0 23 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 75 14)) (setf (pict-size newpict) (om-make-point 63 47)) newpict)) 7.05))
\ No newline at end of file
+; (list (list (quote :picture) "#P\"../../../../resources/pict/omsox\"") (list (quote :sound) "#P\"../../../../../../../../../../../../../Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav\"") (list (quote :abstraction) "#P\"../ola.omp\""))
+(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan continuous" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 473 375) (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" (quote t) (quote nil) (om-make-point 203 185) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 126 26) (quote "min to max channel") "" (om-make-point 260 183) 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 5" (quote t) (quote nil) (om-make-point 257 228) (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) "BUTLAST" (quote butlast) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2))) (om-make-point 444 407) nil nil nil nil 1))) (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 516 269) (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) "* 2" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 0.5))) (om-make-point 504 299) nil nil nil nil 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 387 233) nil (list 1.116) nil "/"))) (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" "support" "ola")) (quote ((om-load-inputfun (quote input-funbox) "" "onsets" nil) (om-load-inputfun (quote input-funbox) "" "windowsize" nil))) (om-make-point 365 314) nil nil "l" "ola" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 79 34) (quote "SoX-PAN") "" (om-make-point 144 11) 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) (let ((box (om-load-boxcomment "comment" (om-make-point 61 26) (quote "stepsize") "" (om-make-point 296 226) 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 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.01))) (om-make-point 238 320) 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 363 390) 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 428 315) 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 404 157) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 441 32) (quote "Continuous Panning through 8 channels using overlap-add (OLA)") "" (om-make-point 146 36) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 13.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) "SOX-NORMALIZE" (quote sox-normalize) (quote nil) (om-make-point 324 499) 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 311 680) (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 :soxplayer) 1 nil 0 (om-make-point 969 825) (om-make-point 400 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-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) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 221 437) 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) 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 296 588) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER 2" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 1) (om-load-inputfun (quote input-funbox) "end " "END" 14) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 214 261) 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 140 354) 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 (dB). [float, list]" "gains" nil) (om-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels before processing (linear). [float, list]" "panning" nil) (om-load-inputfun (quote input-funbox) "" "numchannels" 5))) (om-make-point 109 232) (om-make-point 97 75) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Research" "OM-SoX" "sounds")) :device :unspecific :host nil :name "cherokee" :type "aif") :gains (list 0.0) :panning 3.0 :numchannels 5 :from-file t)) "l" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) nil nil nil t (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "men-of-goodwill.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 123 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 "men-of-goodwill" :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 "men-of-goodwill.wav") (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 540 306) 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 bastype) "aux 3" (quote t) (quote nil) (om-make-point 234 185) (om-make-point 27 30) 8 "8" 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 150 200) (om-make-point 38 30) 0.0 "0.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 220 517) (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/men-of-goodwill.wav' '-p' remix 1p0.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0 1.116 fade q 0.54684 0 0.54684 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/men-of-goodwill.wav' '-p' remix 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0.558 1.1159999 fade q 0.54684 0 0.54684 pad 0.558 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 1.116 1.116 fade q 0.54684 0 0.54684 pad 1.116 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 1.674 1.1159999 fade q 0.54684 0 0.54684 pad 1.674 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 2.232 1.1159999 fade q 0.54684 0 0.54684 pad 2.232 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 2.7900002 1.1159999 fade q 0.54684 0 0.54684 pad 2.7900002 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 3.3480003 1.1159999 fade q 0.54684 0 0.54684 pad 3.3480003 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 1p-160.0 1p-160.0 trim 3.9060004 1.1159999 fade q 0.54684 0 0.54684 pad 3.9060004 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 trim 4.464 1.1160002 fade q 0.54684 0 0.54684 pad 4.464 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 1p-160.0 trim 5.0220003 1.1160002 fade q 0.54684 0 0.54684 pad 5.0220003 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 trim 5.5800004 1.1160002 fade q 0.54684 0 0.54684 pad 5.5800004 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 trim 6.1380005 1.1160002 fade q 0.54684 0 0.54684 pad 6.1380005 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 trim 6.6960006 1.1160002 fade q 0.54684 0 0.54684 pad 6.6960006 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 trim 7.2540007 1.1160002 fade q 0.54684 0 0.54684 pad 7.2540007 " "|'/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/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 trim 7.8120008 1.1159997 fade q 0.54684 0 0.54684 pad 7.8120008 ") :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 818 150))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((13 0 4 0 nil 0) (0 0 4 1 nil 0) (7 0 6 0 nil 0) (5 0 6 1 nil 0) (14 0 7 0 nil 0) (24 0 7 1 nil 0) (7 0 8 1 nil 0) (20 0 11 0 nil 0) (8 0 12 0 nil 0) (4 0 12 1 nil 0) (14 0 13 1 nil 0) (6 0 13 2 nil 0) (23 0 14 0 nil 0) (19 0 17 0 nil 0) (21 0 18 0 nil 0) (12 0 18 1 nil 0) (26 0 19 0 nil 0) (16 0 19 1 nil 0) (1 0 20 0 nil 0) (24 0 20 1 nil 0) (3 0 20 2 nil 0) (22 0 21 0 nil 0) (11 0 21 1 nil 0) (23 0 22 1 nil 0) (25 0 22 2 nil 0) (24 0 22 4 nil 0) (18 0 26 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 75 14)) (setf (pict-size newpict) (om-make-point 63 47)) newpict)) 7.05))
--
Gitblit v1.9.1