-odac -iadc - sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 0dbfs = 5 gamix init 0 instr 107 ifrq = cpspch(p5) aenv1 expon p8, p3, p9 a1 oscil p4*aenv1, ifrq, p6 out a1, a1 endin instr 108 ifrq = cpspch(p5) adelay delayr .25 a1 foscil p4, ifrq, p6, p7, p8 , p9 delayw a1 out adelay, a1 endin instr 109 ;common to all formants kfund init p4 koct init 0 kris init 0.003 kdur init 0.02 kdec init 0.007 iolaps = 14850 ifna = 1 ifnb = 2 itotdur = p3 ;each formant kenv linen .3, .3, p3, .2 k1amp = ampdb(0) k1form init 800 k1band init 150 k2amp = ampdb(-20) k2form init 1800 k2band init 150 k2amp = ampdb(-5) k2form init 2700 k2band init 150 a1 fof k1amp, kfund, k1form, koct, k1band, kris, \ kdur, kdec, iolaps, ifna, ifnb, itotdur a2 fof k2amp, kfund, k2form, koct, k2band, kris, \ kdur, kdec, iolaps, ifna, ifnb, itotdur a3 fof k2amp, kfund, k2form, koct, k2band, kris, \ kdur, kdec, iolaps, ifna, ifnb, itotdur out (a1+a2+a3)*kenv, (a1+a2+a3)*kenv endin instr 112 a1 diskin "ooh.wav", 1 out .3*a1, .3*a1 ;gamix = gamix + (.3*a1) endin instr 113 a1 diskin "ooh2.wav", 2 out .2*a1, .2*a1 gamix = gamix + (.2*a1) endin instr 114 a1 diskin "ooh3.wav", -1 out .5*a1, .5*a1 endin instr 115 a1 diskin "ooh.wav", 1.01 out .15*a1, .15*a1 endin instr 116 a1 diskin "ooh.wav", 1 out .25*a1, .25*a1 endin instr 111 a1 diskin "ooh4.aiff", 2 out .2*a1, .2*a1 endin instr 110 a1 diskin "ooh.wav", .99 out .15*a1, .15*a1 endin instr 117 krvt = 1 ilpt = .06 a2 comb gamix, krvt, ilpt out a2, a2 gamix = 0 endin f 1 0 2048 10 1 f 2 0 1024 19 0.5 0.5 270 0.5 f 3 0 1024 10 1 2 10 ;a 0 0 20 i109 0 27 110 i112 1 25 i115 1 10 i110 1 10 i112 4 25 i112 13 25 i112 16 25 i113 16 1 i111 16 20 i116 16 14 i112 40 15 i112 44 15 i112 45 20 i112 51 15 i108 1 .5 .2 8.09 3 2 3 1 i108 1 2 .2 9.04 1 4 8 1 i108 1 2 .2 8.02 1 1 13 1 i108 3 .5 .2 8.09 3 2 3 1 i108 3 2 .2 9.04 1 4 8 1 i108 3 2 .2 7.09 1 3 5 1 i108 5 .5 .2 8.09 3 2 3 1 i108 5 2 .2 9.04 1 2 2 1 i108 5 2 .2 7.11 1 3 2 1 i108 7 .5 .2 7.09 3 2 3 1 i108 7 2 .2 9.04 1 2 2 1 i108 7 2 .2 7.01 1 3 2 1 i108 7.5 .5 .3 8.04 3 2 3 1 i108 8 .5 .3 8.09 3 2 3 1 i108 8.5 .5 .3 8.04 3 2 3 1 i108 9 .5 .2 7.09 3 2 3 1 i108 9 2 .2 7.04 1 2 2 1 i108 9 2 .2 7.02 1 2 2 1 i108 11 .5 .2 8.09 3 2 3 1 i108 11 2 .2 9.04 1 2 2 1 i108 11 2 .2 7.09 1 2 2 1 i108 13 .5 .2 8.09 3 2 3 1 i108 13 2 .2 9.04 1 2 2 1 i108 13 2 .2 7.11 1 3 2 1 i108 15 .5 .2 7.09 3 2 3 1 i108 15 2 .2 9.04 1 2 2 1 i108 15 2 .2 7.01 1 3 2 1 i107 16 5 .1 5.04 1 0 1 1 i107 16.5 2 .2 8.09 1 0 3 5 i107 17.5 2 . 9.09 1 0 .1 5 i107 18.5 2 . 9.04 1 0 .1 5 i108 20 .25 .2 9.01 1 2 1 1 i108 20.25 .25 . 9.02 1 2 1 1 i108 20.5 2 . 9.01 1 2 1 1 i107 22.5 2 . 9.04 1 0 1 2 i107 25 10 .1 7.09 1 1 2 5 i108 25 1 .1 8.09 3 2 3 1 i108 . 4 . 9.04 3 2 3 1 i108 . 4 . 7.11 1 2 2 1 i108 29 1 .1 7.09 3 2 3 1 i108 . 4 . 9.04 3 2 3 1 i108 . 4 . 8.09 3 2 3 1 i109 29 14 220 i109 33 20 277.18 i109 34 4 146.83 ;i109 35 2 146.83 i108 30 .25 .15 7.06 3 2 3 1 i108 . 1.5 . 7.01 1 4 8 1 i108 . . . 6.06 1 1 13 1 i108 31.5 .25 .15 7.04 3 2 3 1 i108 . 1.5 . 7.01 1 4 8 1 i108 . . . 6.08 1 1 13 1 i108 33 .5 .2 7.04 3 2 3 1 i108 . 1 .2 7.01 1 4 8 1 i108 . . .2 6.08 1 1 13 1 i108 34 .25 .2 7.04 1 1 1 1 i108 . 4 .2 8.01 1 4 8 1 i108 . . .2 6.09 1 1 1 1 i108 . . .2 7.02 1 2 2 1 i108 38 .25 .2 7.06 3 2 3 1 i108 . 1.5 .2 7.01 1 4 8 1 i108 . . .2 6.06 1 1 13 1 i108 39.5 .25 .2 7.04 3 2 3 1 i108 . 1.5 .2 7.01 1 4 8 1 i108 . . .2 6.08 1 1 13 1 i108 41 .5 .2 7.04 3 2 3 1 i108 . 1 .2 7.01 1 4 8 1 i108 . . .2 6.08 1 1 13 1 i108 42 .25 .2 7.04 3 2 3 1 i108 . 4 .2 8.01 1 4 8 1 i108 . . .2 6.09 1 1 13 1 i108 . . .2 7.02 3 2 3 1 i108 46 .25 .2 7.06 3 2 3 1 i108 . 1.5 .2 7.01 1 4 8 1 i108 . . .2 6.06 1 1 13 1 i108 47.5 .25 .2 7.04 3 2 3 1 i108 . 1.5 .2 7.01 1 4 8 1 i108 . . .2 6.08 1 1 13 1 i108 49 ..5 .2 7.04 3 2 3 1 i108 . 1 .2 7.01 1 4 8 1 i108 . . .2 6.08 1 1 13 1 i108 50 .25 .2 8.04 3 2 3 1 i108 . 4 .2 8.01 1 4 8 1 i108 . . .2 7.09 1 1 13 1 i108 . . .2 7.02 3 2 3 1 i108 54 .25 .2 8.06 3 2 3 1 i108 . 3.5 .2 8.03 1 4 8 1 i108 . . .2 7.11 1 1 13 1 i109 58 4 73.41 i108 57.5 .25 .2 8.04 3 2 3 1 i108 . 3.5 .2 7.09 1 2 2 1 i108 . . .2 7.02 1 3 2 1 i108 52 .5 .2 8.09 3 2 3 1 i108 . 2 .2 9.04 1 2 2 1 i108 . 2 .2 8.02 1 3 2 1 i108 54 .5 .2 8.09 3 2 3 1 i108 . 2 .2 9.04 1 2 2 1 i108 . 2 .2 7.09 1 3 2 1 i108 56 .5 .2 8.09 3 2 3 1 i108 . 2 .2 9.04 1 2 2 1 i108 . 2 .2 7.11 1 3 2 1 i108 59 .5 .2 8.09 3 2 3 1 i108 . 5 .2 9.04 1 4 8 1 i107 . 5 .2 8.02 1 1 13 1 i108 61 2 .2 7.09 1 3 5 1 i117 0 60000 e Version: 3 Render: Real Ask: Yes Functions: ioObject Listing: Window WindowBounds: 1508 62 200 496 CurrentView: io IOViewEdit: On Options: -b128 -A -s -m167 -R ioView background {32125, 41634, 41120} ioSlider {8, 7} {20, 98} 0.000000 1.000000 0.367347 amp ioSlider {34, 6} {239, 22} 100.000000 1000.000000 100.000000 freq ioGraph {8, 112} {265, 116} table 0.000000 1.000000 ioListing {8, 234} {266, 158} ioText {34, 37} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Amp: ioText {74, 37} {70, 24} display 0.000000 0.00100 "amp" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 0.4184 ioText {35, 67} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Freq: ioText {75, 67} {69, 24} display 0.000000 0.00100 "freq" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 427.6151 ioText {152, 34} {119, 69} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} nobackground border ioText {169, 72} {78, 24} display 0.000000 0.00100 "freqsweep" center "DejaVu Sans" 8 {0, 0, 0} {14080, 31232, 29696} background border 999.6769 ioButton {160, 37} {100, 30} event 1.000000 "Button 1" "Sweep" "/" i1 0 10