(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "xfade" (quote ((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 156 108) nil nil nil nil 1) (om-load-editor-box1 "SOX-SPLICE 2" (quote sox-splice) (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) "Beginning of the splice (sec)" "splice-begin" 0.01) (om-load-inputfun (quote input-funbox) "End of the splice (sec)" "splice-end" 2) (om-load-inputfun (quote input-funbox) "Fade type (linear, half-cosine, quarter-cosine) [symbol]" "fade-type" nil) (om-load-inputfun (quote input-funbox) "Temporal region for searching the best position to make the splice (ms)." "tolerance" 0.05))) (om-make-point 169 294) (om-make-point 70 50) (if (find-class (quote sox-splice) nil) (make-instance (quote sox-splice) :sound nil :gains nil :splice-begin 1.292 :splice-end 2.657 :fade-type 3 :tolerance 0.0 :from-file t)) nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 104 150) (om-make-point 10 40))) nil nil nil nil) (om-load-boxin "fadetype" 2 (om-make-point 275 138) "" "fadetype" 3 nil) (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 271 249) (om-make-point 52 30) 0.001 "0.001" nil) (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 107 140) nil nil nil nil 1) (om-load-boxout "output" 0 (om-make-point 144 357) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) "sox-splice" nil) (om-load-boxin "sound2" 1 (om-make-point 103 25) "" "sound2" nil nil) (om-load-boxin "sound1" 0 (om-make-point 42 44) "" "sound1" nil nil))) (quote ((7 0 0 0 nil 0) (4 0 1 1 nil 0) (0 0 1 4 nil 0) (2 0 1 5 nil 0) (3 0 1 6 nil 0) (7 0 4 0 nil 0) (6 0 4 1 nil 0) (1 0 5 0 nil 0))) nil 6.070004))
|
