sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 garvb init 0 instr 199; Global Reverb idur = p3 irvbtim = p4 ihiatn = p5 arvb nreverb garvb, irvbtim, ihiatn outs arvb, arvb garvb = 0 endin instr 143 ; Chatty Whales; Modified Etude Patch idur = p3 iamp = ampdb(p4) ifrq1 = cpspch(p5) ifrq2 = cpspch(p6) itim1 = p7 itim2 = p8 ipnv1 = p9 ipnv2 = p10 irvbsnd = p11 kenv linen iamp, .01, idur, .01 kfrq linseg ifrq1, itim1, ifrq2, itim2, ifrq1 kpaneg expseg ipnv1, itim1, ipnv2, itim2, ipnv1 asigl buzz kenv, kfrq, 2, 1 asig butterlp asigl, 5000 kpan = sqrt(kpaneg) outs asig*kpan, asig*(1-kpan) garvb = garvb+(asig*irvbsnd) endin instr 3; Juice Bottle.orc ; CREATED BY PER BYRNE VILLEZ 1997 HBYRNE@PAVILION.CO.UK ifq = p4 ; JITTER k50 randi .01, 20 , .8135 k60 randi .01, 9 , .3111 k70 randi .01, .8 , .6711 kjitter = (k50 + k60 + k70) * p4 ; FROM ONE SHOT TO GRANULATION FUNDAMENTAL ksing linseg 1 ,p3*.02 ,1 ,p3*.02 ,ifq ,p3*.96 ,ifq ; kdur CHANGE (DETERMINES OVERLAPS!!!) kdur linseg 1 ,p3*.02 ,1 ,p3*.02 ,.5 ,p3*.96 ,.5 kdec linseg 1 ,p3*.02 ,1 ,p3*.02 ,.5 ,p3*.96 ,.5 ; kdec CHANGE kenv linseg 10000 ,p3*.02 ,10000 ,p3*.02 ,2000 ,p3*.96 ,500 ;LEVEL COMPENSATOR kf0 = ksing+kjitter ktwist linseg 1 ,p3 ,1.2 ; ADD MOVEMENT BY SLIDING THE FORMANT FREQ SLIGHTLY ktwist2 linseg 1 ,p3 ,1.1 ; SLIGHTLY DIFFERENT ON OTHER CHANNEL ; SEE CSOUND MANUAL FOR FOF ARGUMENT DESCRIPTIONS a1 fof kenv, kf0, ktwist, 0, 0, .003, kdur, kdec, 150, 2, 19, p3,0 ,1 a2 fof kenv, kf0, ktwist2, 0, 0, .003, kdur, kdec, 150, 3, 19, p3,0 ,1 outs a1,a2 endin instr 1; Organ, original patch iatt = p5 idec = p6 islev = p7 irel = p8 ;Amplitude Envelope. kenv adsr iatt, idec, islev, irel kamp = kenv * 7000 ; Gets the frequency from the fourth p-field. kcps = cpspch(p4) klfo oscil 10, p10, 1 ; vibrato a1 buzz kamp, kcps+(klfo*p9),4,1,.7 a2 buzz kamp, kcps+((klfo-1)*p9),4,1,.7 outs a1, a2 garvb = garvb+(a1*.02) endin ; Table #1, a sine wave. f 1 0 4096 10 1 f 2 0 131072 1 "Dusty2.aiff" 0 0 0 f 3 0 131072 1 "Dusty2.aiff" .01 0 0 f 19 0 1024 19 .5 .5 270 .5 ; Sets the beats per minute. t 0 90 ; st dur rvbtim hfroll REVERBBBBB ;=================================================================== i 199 0 80 4 .3 ; strt dur amp frq1 frq2 tim1 tim2 panv1 panv2 rvbsnd WHALESSS ;============================================================================ i 143 0 2 50 7.08 8.01 .6 1.4 1.4 .6 1 i 143 4.6 4 60 6.10 9.06 1 3 3 1 .02 i 143 8.3 3.9 55 6.10 8.03 2.5 1.2 .2 1 .9 i 143 11.5 3 70 5.09 7.06 2 1 .9 2.1 .02 i 143 14 6 70 6.09 13.04 6 0 2 .2 .7 ; start idur ifq GRANULARSSSSSSSSS ;============================================================================ i 3 0 19 10.47 i 3 4.003 19 12.47 i 3 8.3 19 14.47 i 3 12.5 19 18.47 i 3 14 19 21.47 b 15 ;Inst Strt End Pitch Attack Decay Sustain Release LFO Amount LFO Speed i 1 0 6 6.04 2 2 0.08 0.6 0 10 i 1 0 6 7.09 2 2 0.08 0.6 0 10 i 1 0 6 8.02 2 2 0.08 0.6 0 10 i 1 0 6 9.07 2 2 0.08 0.6 0 10 i 1 4 6 6.05 2 2 0.08 0.008 0 10 i 1 4 6 7.00 2 2 0.08 0.008 0 10 i 1 4 6 7.09 2 2 0.08 0.008 0 10 i 1 4 6 9.04 2 2 0.08 0.008 0 10 i 1 8 6 6.05 2 3 0.08 0.008 0 10 i 1 8 6 7.00 2 3 0.08 0.008 0 10 i 1 8 6 7.07 2 3 0.08 0.008 0 10 i 1 8 6 9.02 2 3 0.08 0.008 0 10 i 1 10 3 9.00 1 1.7 0.00 0.5 0 10 i 1 10 3 7.05 1 1.7 0.00 0.5 0 10 i 1 11 3 8.11 1 1.7 0.00 0.5 0 10 i 1 11 3 7.04 1 1.7 0.00 0.5 0 10 i 1 12 6 6.04 2 2 0.08 0.008 0 10 i 1 12 6 6.11 2 2 0.08 0.008 0 10 i 1 12 6 7.02 2 2 0.08 0.008 0 10 i 1 12 6 8.09 2 2 0.08 0.008 0 10 i 1 16 6 6.09 2 2 0.08 0.6 0.2 2 i 1 16 6 7.04 2 2 0.08 0.6 0.2 2 i 1 16 6 8.02 2 2 0.08 0.6 0.2 2 i 1 16 6 9.07 2 2 0.08 0.6 0.2 2 i 1 20 6 6.05 2 2 0.08 0.008 0.2 2 i 1 20 6 7.00 2 2 0.08 0.008 0.2 2 i 1 20 6 7.09 2 2 0.08 0.008 0.2 2 i 1 20 6 9.04 2 2 0.08 0.008 0.2 2 i 1 24 6 6.05 2 3 0.08 0.008 0.2 2 i 1 24 6 7.00 2 3 0.08 0.008 0.2 2 i 1 24 6 7.07 2 3 0.08 0.008 0.2 2 i 1 24 6 9.02 2 3 0.08 0.008 0.2 2 i 1 26 3 9.00 1 1.7 0.00 0.5 0.2 2 i 1 26 3 7.05 1 1.7 0.00 0.5 0.2 2 i 1 27 3 8.11 1 1.7 0.00 0.5 0.2 2 i 1 27 3 7.04 1 1.7 0.00 0.5 0.2 2 i 1 28 6 6.04 2 2 0.08 0.008 0.2 5 i 1 28 6 6.11 2 2 0.08 0.008 0.2 5 i 1 28 6 7.02 2 2 0.08 0.008 0.2 7 i 1 28 6 8.09 2 2 0.08 0.008 0.2 7 i 1 32 6 6.09 2 2 0.08 0.6 0.2 10 i 1 32 6 8.04 2 2 0.08 0.6 0.2 9 i 1 32 6 9.00 2 2 0.08 0.6 0.2 11 i 1 32 6 9.07 2 2 0.08 0.6 0.2 10 i 1 36 6 6.05 2 2 0.08 0.008 0.2 10 i 1 36 6 7.00 2 2 0.08 0.008 0.2 11 i 1 36 6 7.09 2 2 0.08 0.008 0.2 10 i 1 36 6 7.12 2 2 0.08 0.008 0.2 9 i 1 36 6 9.04 2 2 0.08 0.008 0.2 10 i 1 40 6 6.05 2 3 0.08 0.008 0.2 8 i 1 40 6 7.00 2 3 0.08 0.008 0.2 8 i 1 40 6 7.07 2 3 0.08 0.008 0.2 8 i 1 40 6 9.02 2 3 0.08 0.008 0.2 8 i 1 42 3 9.00 1 1.7 0.00 0.5 0.2 8 i 1 42 3 7.05 1 1.7 0.00 0.5 0.2 10 i 1 43 3 8.11 1 1.7 0.00 0.5 0.2 10 i 1 43 3 7.04 1 1.7 0.00 0.5 0.2 10 i 1 44 6 6.04 2 2 0.08 0.008 0.2 10 i 1 44 6 6.11 2 2 0.08 0.008 0.2 8 i 1 44 6 7.02 2 2 0.08 0.008 0.2 10 i 1 44 6 8.09 2 2 0.08 0.008 0.2 9 i 1 48 6 6.09 1 2 0.08 0.6 0.2 15 i 1 48 6 7.04 1 2 0.08 0.6 0.2 15 i 1 48 6 7.011 1 2 0.08 0.6 0.2 15 i 1 48 6 8.02 1 2 0.08 0.6 0.2 15 i 1 48 6 9.07 1 2 0.08 0.6 0.2 15 i 1 48 20 9.09 3 17 0.08 0.6 0.2 15 i 1 52 6 6.05 1 2 0.08 0.008 0.2 15 i 1 52 6 7.00 1 2 0.08 0.008 0.2 15 i 1 52 6 7.09 1 2 0.08 0.008 0.2 15 i 1 52 6 7.12 1 2 0.08 0.008 0.2 15 i 1 52 6 9.04 1 2 0.08 0.008 0.2 15 i 1 56 6 6.05 1 3 0.08 0.008 0.2 15 i 1 56 6 7.00 1 3 0.08 0.008 0.2 15 i 1 56 6 7.07 1 3 0.08 0.008 0.2 15 i 1 56 6 9.02 1 3 0.08 0.008 0.2 15 i 1 58 3 9.00 1 1.7 0.00 0.5 0.2 15 i 1 58 3 7.05 1 1.7 0.00 0.5 0.2 15 i 1 59 3 8.11 1 1.7 0.00 0.5 0.2 15 i 1 59 3 7.04 1 1.7 0.00 0.5 0.2 15 i 1 60 16 6.04 2 10 0.08 0.6 0.2 15 i 1 60 16 4.04 8 4 0.08 0.6 0.2 15 i 1 60 16 6.11 2 10 0.08 0.6 0.2 15 i 1 60 16 8.02 2 10 0.08 0.6 0.2 15 i 1 60 16 8.06 2 10 0.08 0.6 0.2 15 i 1 60 16 8.09 2 10 0.08 0.6 0.2 15 i 143 32 6 67 7.08 8.01 2 4 2 4 1 i 143 38 7 67 7.02 8.06 0 7 3 4 1 i 143 63 6 67 7.08 8.01 2 4 4 2 1 i 143 70.003 4 67 6.10 9.06 1 3 3 1 .02 e Version: 3 Render: File Ask: Yes Functions: ioObject Listing: ioObject WindowBounds: 348 239 1029 810 CurrentView: orc IOViewEdit: Off Options: -b128 -A -s -m167 -R --midi-velocity-amp=4 --midi-key-cps=5 ioView background {60108, 65535, 63132} ioText {20, 44} {130, 218} label 0.000000 0.001000 "" center "Lucida Grande" 10 {0, 0, 0} {65535, 65535, 65535} nobackground border Transposition Level ioListing {163, 267} {473, 179} ioGraph {163, 38} {472, 230} ioSlider {69, 68} {34, 184} 20.000000 2000.000000 743.888000 pitch ioButton {11, 272} {146, 54} event 1.000000 "" "Click for new note" "/" i1 0 10 10000 300