(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "distance-cues" (quote ((let ((box (om-load-boxcall (quote genfun) "OM-SCALE-EXP" (quote om-scale-exp) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" 1) (om-load-inputfun (quote input-funbox) "a number" "MINOUT" 10) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" -10) (om-load-inputfun (quote input-funbox) "an exponent" "EXPONENT" 1) (om-load-inputfun (quote input-funbox) "an exponent" "MININ" 30) (om-load-inputfun (quote input-funbox) "an exponent" "MAXIN" 2))) (om-make-point 477 119) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-REVERB 2" (quote sox-reverb) (quote ((om-load-inputfun (quote input-funbox) "Reverberance (%)" "REVERBERANCE" 50) (om-load-inputfun (quote input-funbox) "HF-damping (%)" "HF-DAMPING" 50) (om-load-inputfun (quote input-funbox) "Room-scale (%)" "ROOM-SCALE" 100) (om-load-inputfun (quote input-funbox) "Stereo-depth (%)" "STEREO-DEPTH" 100) (om-load-inputfun (quote input-funbox) "Pre-delay (ms)" "PRE-DELAY" 0) (om-load-inputfun (quote input-funbox) "Wet-gain (dB)" "WET-GAIN" 0))) (om-make-point 513 325) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (let ((box (om-load-boxcall (quote genfun) "LIST-ELEMENTS" (quote list-elements) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 650 204) nil nil nil nil 5))) (setf (numouts box) 5) box))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-CLIP 2" (quote om-clip) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" nil) (om-load-inputfun (quote input-funbox) "minimum value or list of values" "MIN" -10) (om-load-inputfun (quote input-funbox) "maximum value or list of values" "MAX" 10))) (om-make-point 551 228) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "rev-params" 5 (om-make-point 656 131) "" "rev-params" (list 50 50 100 100 0) nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FLOAT 2" (quote float) (quote ((om-load-inputfun (quote input-funbox) "N" "N" nil))) (om-make-point 501 184) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "padding" 4 (om-make-point 472 417) "" "padding" 2.0 nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "sound-duration" 3 (om-make-point 557 417) "" "sound-duration" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-CLIP" (quote om-clip) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" nil) (om-load-inputfun (quote input-funbox) "minimum value or list of values" "MIN" 0) (om-load-inputfun (quote input-funbox) "maximum value or list of values" "MAX" 20000))) (om-make-point 117 421) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "gain-factor" (om-load-lisp-abspatch "gain-factor" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"time-delay\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (distance gain-expt) $$(float (/ (expt distance gain-expt)))$$)") (quote ((om-load-inputfun (quote input-funbox) "" "DISTANCE" nil) (om-load-inputfun (quote input-funbox) "" "GAIN-EXPT" nil))) (om-make-point 215 300) nil (list 0.16) nil "gain-factor"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "airabsorption" (om-load-lisp-abspatch "airabsorption" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"time-delay\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (distance) $$(float (/ 100000 (if (zerop distance) 0.01 distance)))$$)") (quote ((om-load-inputfun (quote input-funbox) "" "DISTANCE" nil))) (om-make-point 91 242) nil (list 40000.0) nil "airabsorption"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-LOWPASS" (quote sox-lowpass) (quote ((om-load-inputfun (quote input-funbox) "Cutoff-frequency (Hz)" "CUTOFF-FREQUENCY" 1000) (om-load-inputfun (quote input-funbox) "Filter width (applies only to two-pole filters). Default unit: Hz" "WIDTH" 100) (om-load-inputfunmenu1 (quote input-funmenu) "One- or Two-pole filtering" "POLES" "onepole" (list (list "onepole" "onepole") (list "twopole" "twopole"))) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 200 493) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (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" 2) (om-load-inputkeyword (quote input-keyword) "position in the soundfile to insert silence" "position" (quote :position) nil 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 506 488) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-AMPLITUDE" (quote sox-amplitude) (quote ((om-load-inputfun (quote input-funbox) "amplitude factor (linear)" "AMPLITUDE" 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 218 403) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "gain-expt" 2 (om-make-point 233 225) "" "gain-expt" 2.0 nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "time-delay" (om-load-lisp-abspatch "time-delay" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"time-delay\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (distance speed-of-sound) $$(float (* (/ speed-of-sound) distance))$$)") (quote ((om-load-inputfun (quote input-funbox) "" "DISTANCE" nil) (om-load-inputfun (quote input-funbox) "" "SPEED-OF-SOUND" nil))) (om-make-point 291 151) nil (list 0.007352941) nil "time-delay"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (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-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 369 328) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "speed-of-sound" 1 (om-make-point 290 39) "" "speed-of-sound" 340 nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 127 604) (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-boxin "distance" 0 (om-make-point 106 39) "" "distance" 2.5 nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((19 0 0 0 nil 0) (2 0 1 0 nil 0) (2 1 1 1 nil 0) (2 2 1 2 nil 0) (2 3 1 3 nil 0) (2 4 1 4 nil 0) (3 0 1 5 nil 0) (4 0 2 0 nil 0) (5 0 3 0 nil 0) (0 0 5 0 nil 0) (10 0 8 0 nil 0) (19 0 9 0 nil 0) (14 0 9 1 nil 0) (19 0 10 0 nil 0) (8 0 11 0 nil 0) (13 0 11 3 nil 0) (6 0 12 0 nil 0) (7 0 12 1 nil 0) (1 0 12 2 nil 0) (9 0 13 0 nil 0) (16 0 13 1 nil 0) (19 0 15 0 nil 0) (17 0 15 1 nil 0) (15 0 16 0 nil 0) (12 0 16 1 nil 0) (11 0 18 0 nil 0))) nil 7.05))
|
