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