;================================================================================================== ; "A Brief Encounter" ; by Darren Nelsen ; A Csound experiment. ; http://www.curiomusic.com ; Copyright 2008 ; Licensed to the public under http://creativecommons.org/licenses/by-nc-sa/3.0/ ;================================================================================================== sr = 44100 ksmps = 1 nchnls = 2 ga_dly init 0 instr Drone itab1 chnget "com.curiomusic.global.sawtooth" if (itab1 == 0) then itab1 ftgen 0, 0, 65536, 10, 1, .5, .333, .25, .2, .166, .142, .125, .111, .1, .09, .083, .076, .071, .066, .062 chnset itab1, "com.curiomusic.global.sawtooth" endif ;overall volume ivol = 1.225 ; variables idur = p3 iamp = p4 ifrq = cpspch(p5) ifun = itab1 iatk = p6 irel = p7 kenv linen iamp, idur*iatk, idur, idur*irel ; panning ipan = p8 kpan2 = ipan*3.14159265*.5 kpanl = cos(kpan2) kpanr = sin(kpan2) ; effects iwetamt = p9 ; chorused oscil asig3 oscili kenv, ifrq*.997, ifun asig2 oscili kenv, ifrq*1.003, ifun asig1 oscili kenv, ifrq, ifun amix = (asig1+asig2+asig3) * ivol ; output outs amix*kpanl, amix*kpanr ga_dly = ga_dly + amix * iwetamt 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 instr +Delay itap1vol = p4 itap2vol = p5 atap1 delay ga_dly*itap1vol,p6 ; use global var for inputs atap2 delay ga_dly*itap2vol,p7 outs atap1, atap2 ga_dly = 0 endin a 0 0 0 t 0 60 ;; DRONE(S) ; parameter1 p2 p3 p4 p5 p6 p7 p8 p9 ; instrument strt dur amp frq atk rel pan dly ;=============================================================== i "Drone" 0 60 7000 5.00 .2 .6 .5 0 i "Drone" 4 48 6000 5.04 .2 . .4 i "Drone" 10 36 4400 6.02 .2 . .6 i "Drone" 22 9 450 11.02 .4 .4 .41 .3 i "Drone" ^+4 . < 11.04 < < .65 i "Drone" ^+4 . . 11.06 . . .32 i "Drone" ^+4 . . 11.07 . . .74 i "Drone" ^+4 . . 11.09 . . .45 i "Drone" ^+4 . 460 11.11 .4 .6 .69 i "Drone" 28 9 700 10.02 .4 .4 .35 0.3 i "Drone" ^+4 . < 10.04 . < .69 i "Drone" ^+4 . 796 10.06 . . .22 i "Drone" ^+4 . < 10.07 . . .83 i "Drone" ^+4 . . 10.09 . . .43 i "Drone" ^+4 . 580 10.11 .4 .6 .62 ; p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 ; instr strt dur amp frq atk rel cffr cfto bwfr bwto ;======================================================================= ;i "Air" 28 5 1000 200 ; Delay ; parameter1 p2 p3 p4 p5 p6 p7 ; instrument ST DUR vol1 vol2 ECHO1 ECHO2 ;=============================================================== i "Delay" 0 60 .5 .5 2 3 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 467 44 1655 991 CurrentView: orc IOViewEdit: Off Options: -b128 -A -o/Users/darren/Music/Projects/12x60/03 A Brief Encounter with the Unexplained/A Brief Encounter.aif -l -m135 -R ioView background {60108, 65535, 63132} ioListing {530, 9} {570, 652} ioGraph {23, 9} {507, 630}