| MS |
6 |
(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 3" (om-make-point 117 65) (quote "future features:$$- spread$- panning function") "" (om-make-point 55 566) 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-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 438 520) 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 720) (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 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 ((18 0 4 0 nil 0) (10 0 6 0 nil 0) (5 0 6 1 nil 0) (6 0 7 0 nil 0) (14 0 7 1 nil 0) (9 0 8 0 nil 0) (10 0 8 1 nil 0) (11 0 9 1 nil 0) (12 0 10 1 nil 0) (11 0 10 2 nil 0) (12 0 11 0 nil 0) (22 0 11 1 nil 0) (21 0 12 0 nil 0) (17 0 15 0 nil 0) (19 0 16 0 nil 0) (8 0 16 1 nil 0) (24 0 17 0 nil 0) (7 0 17 1 nil 0) (22 0 18 1 nil 0) (20 0 19 0 nil 0) (4 0 19 1 nil 0) (21 0 20 1 nil 0) (23 0 20 2 nil 0) (22 0 20 4 nil 0) (16 0 24 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)) |
