;; SLIPSTREAM ;; by Darren Nelsen ;; April 2006 ;; Revised 2007 (Panning was revised to take out "hole in the middle".) ;; Revised 05/2008 - with updated csound techniques, ie. ftgen and named instruments ;; © 2006, 2007, 2008 Darren Nelsen. Licensed to the public under http://creativecommons.org/licenses/by-nc-sa/3.0/ sr = 44100 ksmps = 1 nchnls = 2 gi_sine ftgen 0, 0, 65536, 10, 1 gi_sawtooth ftgen 0, 0, 65536, 10, 1, .5, .333, .25, .2, .166, .142, .125, .111, .1, .09, .083, .076, .071, .066, .062 gi_attack_fn ftgen 0, 0, 513, 5, .001, 128, .8, 128, .6, 256, 1 instr Drone ; variables idur = p3 iamp = ampdb(p4) ifrq = cpspch(p5) ifun = p6 iatk = p7 irel = p8 iatkfun = p9 ; panning ipan = p10 kpan2 = ipan*3.14159265*.5 kpanl = cos(kpan2) kpanr = sin(kpan2) ; amplitude env kenv envlpx iamp, iatk, idur, irel, iatkfun, .7, .01 ; chorused oscil asig3 oscil kenv, ifrq*.997, ifun asig2 oscil kenv, ifrq*1.003, ifun asig1 oscil kenv, ifrq, ifun amix = asig1+asig2+asig3 ; output outs amix*kpanl, amix*kpanr ;display kenv, idur endin instr Air idur = p3 iamp = p4 ifrq = p5 iatk = p6 irel = p7 iCenterFreqFrom = p8 ; center frequency 1 iCenterFreqTo = p9 ; center frequency 2 iBandwidthFrom = p10 ; bandwidth 1 iBandwidthTo = p11 ; bandwidth 2 ; panning info ipanfr = rnd(1) ipanto = rnd(1) kPanLine line ipanfr,idur,ipanto kpan2 = kPanLine*3.14159265*.5 kpanl = cos(kpan2) kpanr = sin(kpan2) kenv expseg .001, iatk, iamp, idur/6, iamp*.4, idur-(iatk+irel+idur/6), iamp*.6, irel,.01 anoise rand ifrq kcf expon iCenterFreqFrom, idur, iCenterFreqTo kbw line iBandwidthFrom, idur, iBandwidthTo afilt reson anoise,kcf, kbw, 2 aout = afilt*kenv outs aout*kpanl,aout*kpanr ;display kenv, idur endin ;; DRONE(S) ; parameter1 p2 p3 p4 p5 p6 p7 p8 p9 p10 ; instrument strt dur amp frq fn atk rel atkfn pan ;==================================================================== i "Drone" 0 60 76 5.09 102 0 .1 103 .5 i "Drone" 4 52 71 6.04 . 3 .1 . .4 i "Drone" 15 36 66 6.01 . 4 .1 . .6 ;; NOISE/AIR SOUNDS ; p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 ; ins st dur amp frq atk rel cf1 cf2 bw1 bw2 ;========================================================================== i "Air" 0 10 .29 20000 1 .1 800 300 300 40 i "Air" + . . . 1 1 1000 3000 10 40 i "Air" . . . . .05 2 8000 150 100 50 i "Air" . . . . 2 1 800 2000 200 500 i "Air" . . . . .03 .1 5000 200 1000 70 i "Air" . . . . 1 .1 300 6000 10 400 v .93 i "Air" 0 10 .29 20000 1 .1 800 300 300 40 i "Air" + . . . 1 1 1000 3000 10 40 i "Air" . . . . .05 2 8000 150 100 50 i "Air" . . . . 2 1 800 2000 200 500 i "Air" . . . . .03 .1 5000 200 1000 70 i "Air" . . . . 1 .1 300 6000 10 400 v .84 i "Air" 0 10 .29 20000 1 .1 800 300 300 40 i "Air" + . . . 1 1 1000 3000 10 40 i "Air" . . . . .05 2 8000 150 100 50 i "Air" . . . . 2 1 800 2000 200 500 i "Air" . . . . .03 .1 5000 200 1000 70 i "Air" . . . . 1 .1 300 6000 10 400 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 14 107 1202 1054 CurrentView: orc IOViewEdit: Off Options: -b128 -A -o/Users/darren/Music/Csound/Slipstream/Slipstream.aif -l -m135 -R ioView background {60108, 65535, 63132} ioListing {530, 9} {570, 652} ioGraph {23, 9} {507, 630}