|
6 |
(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "01-title" (quote ((om-load-boxcall (quote genfun) "OM-SOX-PAGE" (quote om-sox-page) (quote nil) (om-make-point 150 243) nil nil nil nil 0) (om-load-boxcall (quote abstraction) "readme" (om-load-patch-abs1 "readme" (quote ((om-load-boxcomment "comment 2" (om-make-point 168 45) (quote "You can also write to the $om-sox-mailing-list:") "" (om-make-point 452 179) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote genfun) "OM-SOX-MAILING-LIST" (quote om-sox-mailing-list) (quote nil) (om-make-point 449 229) nil nil nil nil 0) (om-load-boxcomment "comment 2" (om-make-point 631 45) (quote "All audio files used in examples/documentation are either own productions or from www.freesound.org $(http://creativecommons.org) See the file attributions.txt") "" (om-make-point 25 514) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 637 104) (quote "1-basics: Introduces the 2 main rendering functions sox-process and sox-analysis$2-processing: Provides an overview of audio processing functions (i.e. \"sox effects\")$3-analysis: Provides an overview of audio analysis functions (i.e. \"sox statistics\")$4-batch-processing: Illustrates the use of 'sox-process' and 'sox-analysis' for batch processing$scripts¯os: this folder contains examples of macros (patches) and scripts for audio processing tasks$support: this folder contains a collection of utilities and abstractions used in this example workspace") "" (om-make-point 26 388) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 330 30) (quote "The structure for this tutorial workspace is as follows:") "" (om-make-point 26 352) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 6" (om-make-point 197 75) (quote "In Audio Preferences:$ Display system output,$ Delete intermediate files, $ ...") "" (om-make-point 234 79) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 5" (om-make-point 169 60) (quote "In Externals/SoX:$ Path to executables, $ Global Options") "" (om-make-point 452 80) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 4" (om-make-point 157 75) (quote "In General Preferences:$ Default Input, $ Default Output,$ Temp folders") "" (om-make-point 62 77) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 3" (om-make-point 562 30) (quote "Before using OM-SoX objects in OpenMusic, please check your OM-SoX and OM Preferences:") "" (om-make-point 62 34) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 311 45) (quote "You can refer to the SoX online documentation $for detailed description of sox-effects and options:") "" (om-make-point 33 172) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote genfun) "SOX-HTML-DOCUMENTATION" (quote sox-html-documentation) (quote nil) (om-make-point 115 222) nil nil nil nil 0))) (quote nil) 6.070005 nil "" (om-make-point 95 406) (om-make-point 769 618)) (quote nil) (om-make-point 66 249) nil nil nil "readme") (om-load-boxcomment "comment 3" (om-make-point 330 30) (quote "DSP based on SoundExchange © Chris Bagwell & co.") "" (om-make-point 68 135) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 4" (om-make-point 290 44) (quote "Library for multichannel audio manipulation $and functional batch processing in OpenMusic") "" (om-make-point 68 91) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 122 56) (quote "OM-SoX") "" (om-make-point 70 13) nil (om-make-color 0 0 0) (om-make-font "Gill Sans" 24 :family "Gill Sans" :style (quote (:bold)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 233 25) (quote "© Marlon Schumacher, 2011-2013$") "" (om-make-point 73 48) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (quote nil) (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 444 34)) (setf (pict-size newpict) (om-make-point 205 188)) newpict)) 6.070005)) |
