; OM File Header - Saved 2013/09/16 10:20:33 ; (6.070001 :patc (om-make-point 226 110) (om-make-point 110 22) (om-make-point 1211 864) "" 183 0 "2013/09/15 14:12:28" "2013/09/16 10:20:33") ; End File Header ; External resources ; (list (list (quote :sdif) "../../../out-files/formants.sdif") (list (quote :sound) "../../../../../FILES/sound/guitar.aif") (list (quote :text) "../../../out-files/formants.txt")) (in-package :om)(load-lib-for (quote ("OM-SuperVP")))(setf *om-current-persistent* (om-load-patch1 "formants" (quote ((om-load-boxcomment "comment" (om-make-point 209 73) (quote "Lock/unlock [b] the box to avoid (or force) reinitialization of the SDIF file. ") "" (om-make-point 457 200) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 700 316) (om-make-point 64 34) "1REB" "\"1REB\"" nil) (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 765 316) (om-make-point 64 34) "1RES" "\"1RES\"" nil) (om-load-boxcomment "comment" (om-make-point 119 30) (quote ":max-n-formants") nil (om-make-point 413 105) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 391 70) (om-make-point 28 34) 5 "5" nil) (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 978 334) (om-make-point 28 34) 1 "1" nil) (om-load-boxcomment "comment" (om-make-point 279 71) (quote "!!! the standard description lists 5 fields, but the file returned by SuperVP has only 4. $=> Do not select the 5th one or you will be reading out of allocated memory") "" (om-make-point 117 696) nil (om-make-color 0.6325827 0.05350792 0.15096133) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 49 30) (quote "times") "" (om-make-point 904 434) 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" (om-make-point 113 42) (quote "field selection: 0-1-2-3$") "" (om-make-point 832 316) nil (om-make-color 0.6325827 0.05350792 0.15096133) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 187 58) (quote "tmax = 1s:$extracts only the frames from beginning to 1s.") "" (om-make-point 979 277) 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" (om-make-point 190 52) (quote "gets the position of the selection in the fields list..") "" (om-make-point 459 676) 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" (om-make-point 202 73) (quote "SINGLE-ITEM-LIST:$lock the list after it is initialized, otherwise the selection will get reinitialized at each evaluation") "" (om-make-point 196 620) 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" (om-make-point 172 79) (quote "get the standard type description for matrix \"1RES\" (= the list of matrix fields)") "" (om-make-point 398 401) 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" (om-make-point 180 131) (quote "SDIF->text wrote a textfile on the disk and returned its pathname.$$Files can be loaded in the TextFile object when the pathname is connected to its 1st input.") "" (om-make-point 38 435) 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" (om-make-point 110 30) (quote "Text conversion") "" (om-make-point 51 222) 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" (om-make-point 186 84) (quote "Formant-analysis returns higher-dimensional data: $4 \"fields\" x n formants (SDIF \"components\" or \"rows\")") "" (om-make-point 555 88) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 427 581) (om-make-point 91 34) (quote string-equal) "string-equal" nil) (om-load-boxcall (quote lispfun) "POSITION" (quote position) (quote ((om-load-inputfun (quote input-funbox) "ITEM" "ITEM" nil) (om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil) (om-load-inputkeyword (quote input-keyword) "" "test" (quote :test) nil nil))) (om-make-point 429 627) nil nil nil nil 1) (om-load-editor-box1 "SINGLE-ITEM-LIST" (quote single-item-list) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "uno" "dos" "tres")))) (om-make-point 263 457) (om-make-point 130 137) (let ((rep (om-make-dialog-item (quote single-item-list) (om-make-point 1 1) (om-make-point 114 104) "untitled" :range (quote ("Frequency" "Amplitude" "BandWidth" "Saliance" "Correction"))))) (setf (di-data rep) (quote ("Frequency" "Amplitude" "BandWidth" "Saliance" "Correction"))) (om-set-selected-item-index rep 1) rep) "x" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) t nil nil nil) (om-load-boxcomment "comment" (om-make-point 84 34) (quote "TEXTFILE") "" (om-make-point 186 346) nil (om-make-color 0 0 0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 72 337) (om-make-point 111 88) (load-textfile (om-make-pathname :directory (quote (:relative "out-files")) :device :unspecific :host nil :name "formants" :type "txt") (quote textfile) "supersede" "list") nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) t nil nil nil) (om-load-boxcall (quote genfun) "SDIF->TEXT" (quote sdif->text) (quote ((om-load-inputfun (quote input-funbox) "SDIF file" "SELF" nil))) (om-make-point 62 269) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 351 306) (om-make-point 64 34) "1RES" "\"1RES\"" nil) (om-load-boxcall (quote genfun) "SDIFTYPEDESCRIPTION" (quote sdiftypedescription) (quote ((om-load-inputfun (quote input-funbox) "SDIF file" "SELF" nil) (om-load-inputfun (quote input-funbox) "SDIF type Signature" "SIGNATURE" "1TYP") (om-load-inputfunmenu1 (quote input-funmenu) "Frame / Matrix" "TYPE" (quote m) (list (list "Matrix" (quote (quote m))) (list "Frame" (quote (quote f))))))) (om-make-point 321 342) nil nil nil nil 1) (om-load-editor-box1 "BPF-LIB" (quote bpf-lib) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of BPF objects" "bpf-list" (list (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0 100)) (quote (0 100)) (quote bpf) 0))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj))))) (om-make-point 680 706) (om-make-point 281 126) (if (find-class (quote bpf-lib) nil) (make-instance (quote bpf-lib) :bpf-list (list (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 100.0 200.0 300.0 400.0 500.0 600.0 700.0 800.0 900.0 1000.0 1100.0 1200.0 1300.0 1400.0 1500.0 1600.0 1700.0 1800.0 1900.0 2000.0 2100.0 2200.0 2300.0 2400.0 2500.0 2600.0 2700.0 2800.0 2900.0 3000.0 3100.0 3200.0 3300.0 3400.0 3500.0 3600.0 3700.0 3800.0 3900.0 4000.0 4100.0 4200.0 4300.0 4400.0 4500.0 4600.0 4700.0 4800.0 4900.0 5000.0 5100.0 5200.0 5300.0 5400.0 5500.0 5600.0 5700.0 5800.0 5900.0 6000.0 6100.0 6200.0 6300.0 6400.0 6500.0 6600.0 6700.0 6800.0 6900.0 7000.0 7100.0 7200.0 7300.0 7400.0 7500.0 7600.0 7700.0 7800.0 7900.0 8000.0 8100.0 8200.0 8300.0 8400.0 8500.0 8600.0 8700.0 8800.0 8900.0 9000.0 9100.0 9200.0 9300.0 9400.0 9500.0 9600.0 9700.0 9800.0 9900.0 10000.0 10100.0 10200.0 10300.0 10400.0 10500.0 10600.0 10700.0 10800.0 10900.0 11000.0 11100.0 11200.0 11300.0 11400.0 11500.0 11600.0 11700.0 11800.0 11900.0 12000.0 12100.0 12200.0 12300.0 12400.0 12500.0 12600.0 12700.0 12800.0 12900.0 13000.0 13100.0 13200.0 13300.0 13400.0 13500.0 13600.0 13700.0 13800.0 13900.0 14000.0 14100.0 14200.0 14300.0 14400.0 14500.0 14600.0 14700.0 14800.0 14900.0 15000.0 15100.0 15200.0 15300.0 15400.0 15500.0 15600.0 15700.0 15800.0 15900.0 16000.0 16100.0 16200.0 16300.0 16400.0 16500.0 16600.0 16700.0 16800.0)) (quote (0.043 0.073 0.089 0.088 0.079 0.067 0.055 0.044 0.03 0.016 0.041 0.079 0.105 0.113 0.112 0.109 0.11 0.109 0.104 0.099 0.097 0.096 0.094 0.093 0.092 0.091 0.091 0.089 0.085 0.081 0.078 0.076 0.072 0.062 0.047 0.03 0.017 0.012 0.016 0.017 0.013 0.01 0.009 0.028 0.062 0.095 0.116 0.116 0.107 0.102 0.101 0.095 0.086 0.082 0.083 0.085 0.083 0.077 0.076 0.078 0.081 0.081 0.075 0.069 0.069 0.068 0.05 0.023 0.011 0.008 0.021 0.04 0.05 0.051 0.051 0.051 0.051 0.052 0.052 0.051 0.047 0.042 0.041 0.04 0.04 0.04 0.04 0.039 0.037 0.016 0.035 0.033 0.027 0.018 0.015 0.017 0.022 0.006 0.001 0.001 0.001 0.001 0.001 0.014 0.037 0.067 0.096 0.123 0.137 0.139 0.135 0.129 0.126 0.123 0.121 0.122 0.125 0.121 0.108 0.085 0.052 0.022 0.0 0.001 0.0 0.008 0.006 0.004 0.003 0.003 0.003 0.003 0.004 0.003 0.0 0.003 0.017 0.05 0.097 0.138 0.155 0.15 0.14 0.126 0.112 0.108 0.109 0.104 0.098 0.104 0.129 0.154 0.166 0.167 0.17 0.18 0.18 0.171 0.168 0.172 0.173 0.169 0.173 0.184 0.191 0.19 0.191 0.199 0.199)) (quote bpf) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 100.0 200.0 300.0 400.0 500.0 600.0 700.0 800.0 900.0 1000.0 1100.0 1200.0 1300.0 1400.0 1500.0 1600.0 1700.0 1800.0 1900.0 2000.0 2100.0 2200.0 2300.0 2400.0 2500.0 2600.0 2700.0 2800.0 2900.0 3000.0 3100.0 3200.0 3300.0 3400.0 3500.0 3600.0 3700.0 3800.0 3900.0 4000.0 4100.0 4200.0 4300.0 4400.0 4500.0 4600.0 4700.0 4800.0 4900.0 5000.0 5100.0 5200.0 5300.0 5400.0 5500.0 5600.0 5700.0 5800.0 5900.0 6000.0 6100.0 6200.0 6300.0 6400.0 6500.0 6600.0 6700.0 6800.0 6900.0 7000.0 7100.0 7200.0 7300.0 7400.0 7500.0 7600.0 7700.0 7800.0 7900.0 8000.0 8100.0 8200.0 8300.0 8400.0 8500.0 8600.0 8700.0 8800.0 8900.0 9000.0 9100.0 9200.0 9300.0 9400.0 9500.0 9600.0 9700.0 9800.0 9900.0 10000.0 10100.0 10200.0 10300.0 10400.0 10500.0 10600.0 10700.0 10800.0 10900.0 11000.0 11100.0 11200.0 11300.0 11400.0 11500.0 11600.0 11700.0 11800.0 11900.0 12000.0 12100.0 12200.0 12300.0 12400.0 12500.0 12600.0 12700.0 12800.0 12900.0 13000.0 13100.0 13200.0 13300.0 13400.0 13500.0 13600.0 13700.0 13800.0 13900.0 14000.0 14100.0 14200.0 14300.0 14400.0 14500.0 14600.0 14700.0 14800.0 14900.0 15000.0 15100.0 15200.0 15300.0 15400.0 15500.0 15600.0 15700.0 15800.0 15900.0 16000.0 16100.0 16200.0 16300.0 16400.0 16500.0 16600.0 16700.0 16800.0)) (quote (0.006 0.009 0.01 0.008 0.006 0.004 0.003 0.002 0.001 0.005 0.014 0.055 0.072 0.077 0.076 0.075 0.073 0.073 0.073 0.076 0.079 0.077 0.074 0.075 0.079 0.084 0.087 0.017 0.019 0.021 0.023 0.025 0.029 0.033 0.041 0.045 0.033 0.015 0.007 0.005 0.008 0.005 0.004 0.014 0.028 0.054 0.096 0.047 0.047 0.044 0.087 0.074 0.059 0.05 0.047 0.045 0.043 0.042 0.043 0.045 0.042 0.016 0.021 0.02 0.015 0.009 0.005 0.002 0.001 0.002 0.01 0.018 0.025 0.034 0.041 0.044 0.044 0.013 0.014 0.013 0.012 0.021 0.029 0.031 0.031 0.03 0.031 0.034 0.038 0.036 0.043 0.044 0.046 0.048 0.046 0.038 0.001 0.001 0.001 0.001 0.001 0.001 0.0 0.002 0.006 0.01 0.012 0.012 0.013 0.013 0.013 0.012 0.011 0.01 0.009 0.007 0.005 0.004 0.003 0.001 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.005 0.017 0.035 0.052 0.063 0.063 0.053 0.036 0.022 0.016 0.012 0.008 0.008 0.011 0.015 0.017 0.018 0.018 0.016 0.015 0.015 0.014 0.014 0.014 0.013 0.013 0.013 0.012 0.012 0.012 0.012 0.012 0.012)) (quote bpf) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 100.0 200.0 300.0 400.0 500.0 600.0 700.0 800.0 900.0 1000.0 1100.0 1200.0 1300.0 1400.0 1500.0 1600.0 1700.0 1800.0 1900.0 2000.0 2100.0 2200.0 2300.0 2400.0 2500.0 2600.0 2700.0 2800.0 2900.0 3000.0 3100.0 3200.0 3300.0 3400.0 3500.0 3600.0 3700.0 3800.0 3900.0 4000.0 4100.0 4200.0 4300.0 4400.0 4500.0 4600.0 4700.0 4800.0 4900.0 5000.0 5100.0 5200.0 5300.0 5400.0 5500.0 5600.0 5700.0 5800.0 5900.0 6000.0 6100.0 6200.0 6300.0 6400.0 6500.0 6600.0 6700.0 6800.0 6900.0 7000.0 7100.0 7200.0 7300.0 7400.0 7500.0 7600.0 7700.0 7800.0 7900.0 8000.0 8100.0 8200.0 8300.0 8400.0 8500.0 8600.0 8700.0 8800.0 8900.0 9000.0 9100.0 9200.0 9300.0 9400.0 9500.0 9600.0 9700.0 9800.0 9900.0 10000.0 10100.0 10200.0 10300.0 10400.0 10500.0 10600.0 10700.0 10800.0 10900.0 11000.0 11100.0 11200.0 11300.0 11400.0 11500.0 11600.0 11700.0 11800.0 11900.0 12000.0 12100.0 12200.0 12300.0 12400.0 12500.0 12600.0 12700.0 12800.0 12900.0 13000.0 13100.0 13200.0 13300.0 13400.0 13500.0 13600.0 13700.0 13800.0 13900.0 14000.0 14100.0 14200.0 14300.0 14400.0 14500.0 14600.0 14700.0 14800.0 14900.0 15000.0 15100.0 15200.0 15300.0 15400.0 15500.0 15600.0 15700.0 15800.0 15900.0 16000.0 16100.0 16200.0 16300.0 16400.0 16500.0 16600.0 16700.0 16800.0)) (quote (0.002 0.004 0.0 0.0 0.0 0.003 0.002 0.001 0.0 0.009 0.03 0.013 0.016 0.016 0.015 0.014 0.013 0.013 0.012 0.012 0.012 0.011 0.011 0.012 0.013 0.013 0.014 0.084 0.079 0.074 0.069 0.063 0.061 0.059 0.045 0.023 0.009 0.006 0.008 0.01 0.005 0.004 0.001 0.007 0.015 0.023 0.032 0.112 0.106 0.096 0.025 0.022 0.024 0.026 0.026 0.026 0.027 0.027 0.026 0.024 0.021 0.035 0.032 0.029 0.022 0.012 0.005 0.002 0.001 0.004 0.009 0.021 0.033 0.039 0.036 0.031 0.029 0.044 0.043 0.039 0.028 0.031 0.027 0.022 0.019 0.016 0.028 0.031 0.035 0.041 0.043 0.045 0.04 0.027 0.013 0.002 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.002 0.002 0.002 0.002 0.002 0.001 0.001 0.001 0.001 0.0 0.0 0.0 0.0 0.001 0.002 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.002 0.008 0.016 0.022 0.025 0.024 0.022 0.016 0.011 0.009 0.008 0.005 0.004 0.008 0.013 0.016 0.016 0.015 0.013 0.012 0.011 0.011 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.009 0.008 0.008 0.007)) (quote bpf) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 100.0 200.0 300.0 400.0 500.0 600.0 700.0 800.0 900.0 1000.0 1100.0 1200.0 1300.0 1400.0 1500.0 1600.0 1700.0 1800.0 1900.0 2000.0 2100.0 2200.0 2300.0 2400.0 2500.0 2600.0 2700.0 2800.0 2900.0 3000.0 3100.0 3200.0 3300.0 3400.0 3500.0 3600.0 3700.0 3800.0 3900.0 4000.0 4100.0 4200.0 4300.0 4400.0 4500.0 4600.0 4700.0 4800.0 4900.0 5000.0 5100.0 5200.0 5300.0 5400.0 5500.0 5600.0 5700.0 5800.0 5900.0 6000.0 6100.0 6200.0 6300.0 6400.0 6500.0 6600.0 6700.0 6800.0 6900.0 7000.0 7100.0 7200.0 7300.0 7400.0 7500.0 7600.0 7700.0 7800.0 7900.0 8000.0 8100.0 8200.0 8300.0 8400.0 8500.0 8600.0 8700.0 8800.0 8900.0 9000.0 9100.0 9200.0 9300.0 9400.0 9500.0 9600.0 9700.0 9800.0 9900.0 10000.0 10100.0 10200.0 10300.0 10400.0 10500.0 10600.0 10700.0 10800.0 10900.0 11000.0 11100.0 11200.0 11300.0 11400.0 11500.0 11600.0 11700.0 11800.0 11900.0 12000.0 12100.0 12200.0 12300.0 12400.0 12500.0 12600.0 12700.0 12800.0 12900.0 13000.0 13100.0 13200.0 13300.0 13400.0 13500.0 13600.0 13700.0 13800.0 13900.0 14000.0 14100.0 14200.0 14300.0 14400.0 14500.0 14600.0 14700.0 14800.0 14900.0 15000.0 15100.0 15200.0 15300.0 15400.0 15500.0 15600.0 15700.0 15800.0 15900.0 16000.0 16100.0 16200.0 16300.0 16400.0 16500.0 16600.0 16700.0 16800.0)) (quote (0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.002 0.007 0.001 0.003 0.004 0.004 0.004 0.004 0.003 0.003 0.003 0.003 0.002 0.002 0.001 0.001 0.001 0.001 0.015 0.018 0.022 0.026 0.029 0.03 0.027 0.016 0.008 0.004 0.002 0.001 0.004 0.0 0.0 0.0 0.0 0.001 0.002 0.029 0.035 0.033 0.03 0.022 0.002 0.002 0.002 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.015 0.009 0.005 0.0 0.0 0.0 0.0 0.0 0.002 0.001 0.003 0.004 0.004 0.004 0.003 0.003 0.028 0.028 0.028 0.03 0.002 0.002 0.003 0.003 0.003 0.014 0.012 0.01 0.039 0.01 0.009 0.009 0.007 0.004 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.001 0.001 0.001 0.0 0.001 0.001 0.001 0.001 0.002 0.0 0.0 0.0 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)) (quote bpf) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 100.0 200.0 300.0 400.0 500.0 600.0 700.0 800.0 900.0 1000.0 1100.0 1200.0 1300.0 1400.0 1500.0 1600.0 1700.0 1800.0 1900.0 2000.0 2100.0 2200.0 2300.0 2400.0 2500.0 2600.0 2700.0 2800.0 2900.0 3000.0 3100.0 3200.0 3300.0 3400.0 3500.0 3600.0 3700.0 3800.0 3900.0 4000.0 4100.0 4200.0 4300.0 4400.0 4500.0 4600.0 4700.0 4800.0 4900.0 5000.0 5100.0 5200.0 5300.0 5400.0 5500.0 5600.0 5700.0 5800.0 5900.0 6000.0 6100.0 6200.0 6300.0 6400.0 6500.0 6600.0 6700.0 6800.0 6900.0 7000.0 7100.0 7200.0 7300.0 7400.0 7500.0 7600.0 7700.0 7800.0 7900.0 8000.0 8100.0 8200.0 8300.0 8400.0 8500.0 8600.0 8700.0 8800.0 8900.0 9000.0 9100.0 9200.0 9300.0 9400.0 9500.0 9600.0 9700.0 9800.0 9900.0 10000.0 10100.0 10200.0 10300.0 10400.0 10500.0 10600.0 10700.0 10800.0 10900.0 11000.0 11100.0 11200.0 11300.0 11400.0 11500.0 11600.0 11700.0 11800.0 11900.0 12000.0 12100.0 12200.0 12300.0 12400.0 12500.0 12600.0 12700.0 12800.0 12900.0 13000.0 13100.0 13200.0 13300.0 13400.0 13500.0 13600.0 13700.0 13800.0 13900.0 14000.0 14100.0 14200.0 14300.0 14400.0 14500.0 14600.0 14700.0 14800.0 14900.0 15000.0 15100.0 15200.0 15300.0 15400.0 15500.0 15600.0 15700.0 15800.0 15900.0 16000.0 16100.0 16200.0 16300.0 16400.0 16500.0 16600.0 16700.0 16800.0)) (quote (0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.002 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.003 0.003 0.002 0.002 0.001 0.001 0.001 0.001 0.001 0.001 0.002 0.002 0.002 0.001 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.001 0.002 0.03 0.028 0.024 0.002 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.0 0.001 0.001 0.001 0.001 0.001 0.003 0.002 0.002 0.002 0.002 0.001 0.001 0.001 0.001 0.004 0.005 0.006 0.01 0.002 0.002 0.003 0.002 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.001 0.001 0.001 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)) (quote bpf) 3))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj)) :from-file t)) nil nil (pairlis (quote (picture winpos winsize)) (list nil (om-make-point 45 40) (om-make-point 935 386))) t nil nil t) (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 777 624) nil nil nil nil 1) (om-load-boxcall (quote abstraction) "make-bpf" (om-load-patch-abs1 "make-bpf" (quote ((om-load-boxout "output" 0 (om-make-point 96 326) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil) (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 215 125) (om-make-point 32 48) 3 "3" nil) (om-load-editor-box1 "BPF" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 0))) (om-make-point 61 176) (om-make-point 165 78) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0 100)) (quote (0 100)) (quote bpf) 0))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf nil) newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (picture winpos winsize)) (list nil (om-make-point 10 40) (om-make-point 335 275))) nil nil nil nil) (om-load-boxin "freqs" 0 (om-make-point 140 20) "" "freqs" nil nil))) (quote ((2 0 0 0 nil 0) (3 0 2 2 nil 0) (1 0 2 3 nil 0))) 6.070001 nil "" (om-make-point 1170 507) (om-make-point 366 441)) (quote ((om-load-inputfun (quote input-funbox) "" "freqs" nil))) (om-make-point 686 544) nil nil "l" nil) (om-load-boxcall (quote genfun) "FORMANT-ANALYSIS" (quote formant-analysis) (quote ((om-load-inputfun (quote input-funbox) "" "INFILE" nil) (om-load-inputkeyword (quote input-keyword) "" "max-n-formants" (quote :max-n-formants) 45 nil))) (om-make-point 321 114) nil nil nil nil 1) (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 734 456) nil nil nil nil 1) (om-load-boxcall (quote genfun) "GETSDIFDATA" (quote getsdifdata) (quote ((om-load-inputfun (quote input-funbox) "sdif file" "SELF" nil) (om-load-inputfun (quote input-funbox) "stream number (int)" "SID" 0) (om-load-inputfun (quote input-funbox) "frame type (string)" "FRAMETYPE" "") (om-load-inputfun (quote input-funbox) "matrix type (string)" "MATTYPE" "") (om-load-inputfun (quote input-funbox) "field number (int or list)" "CNUM" 0) (om-load-inputfun (quote input-funbox) "min row" "RMIN" nil) (om-load-inputfun (quote input-funbox) "max row" "RMAX" nil) (om-load-inputfun (quote input-funbox) "min time (s)" "TMIN" nil) (om-load-inputfun (quote input-funbox) "max time (s)" "TMAX" nil))) (om-make-point 647 372) (om-make-point 370 64) nil "&" nil 2) (om-load-editor-box1 "guitar.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 (0 = no specific track)" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 174 33) (om-make-point 188 63) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "bresson" "FILES" "sound")) :device nil :host nil :name "guitar" :type "aif") 1))) (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 "guitar.aif") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale)) (list 2 24 (quote g) (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) (om-make-point 0 0) nil 0 (quote :libaudiostream) 1 nil 1000 0 (om-make-point 704 308) (om-make-point 400 22) 0 1 (quote t) nil)) t nil nil nil) (om-load-boxcomment "comment" (om-make-point 82 34) (quote "SDIFFILE") "" (om-make-point 216 200) nil (om-make-color 0 0 0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-editor-box1 "formants.sdif" (quote sdiffile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil))) (om-make-point 303 194) (om-make-point 140 63) (let ((newobj (load-sdif-file (om-make-pathname :directory (quote (:relative "out-files")) :device :unspecific :host :unspecific :name "formants" :type "sdif")))) (when newobj) newobj) "x" nil (pairlis (quote (winpos winsize)) (list (om-make-point 109 65) (om-make-point 1353 302))) t nil nil nil))) (quote ((18 0 17 0 nil 0) (23 0 17 1 nil 2) (16 0 17 2 nil 0) (23 0 18 0 nil 0) (21 0 20 0 nil 0) (32 0 21 0 nil 0) (32 0 23 0 nil 0) (22 0 23 1 nil 0) (25 0 24 1 nil 0) (26 0 25 0 nil 0) (28 0 25 1 nil 0) (30 0 27 0 nil 0) (4 0 27 1 nil 0) (29 0 28 0 nil 0) (32 0 29 0 nil 0) (1 0 29 2 nil 0) (2 0 29 3 nil 0) (17 0 29 4 nil 2) (5 0 29 8 nil 0) (27 0 32 0 nil 0))) nil 6.070001))