;================================================================================================== ; 12x60 #12: "Fifth Machine" ; by Darren Nelsen ; A Csound experiment, part of the 12x60 series. ; 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 gasend init 0 giamp init 7 gi_sine ftgen 0, 0, 2^16, 10, 1 instr 2202 ; dry pluck idur = p3 iamp = p4 * giamp ; iampvar gauss 500 ; iamp = iamp + iampvar icps = cpspch(p5) icps_note_above = icps * semitone(7) iatk = p7 irel = p8 ;kvol invalue "droneVol" k1 linen iamp, iatk, idur, irel asig pluck k1, icps, icps, 0, 1, 0, 0 asig2 pluck k1, icps_note_above, icps_note_above, 0, 1, 0, 0 amix = asig + asig2 outs amix, amix gasend = gasend + amix endin instr 2203 ; global delay effect atap1 delay gasend*p4,p6 ; use global var for inputs atap2 delay gasend*p5,p7 outs atap1, atap2 gasend = 0 endin ;p1 p2 p3 p4 p5 p6 p7 p8 ;i start dur amp freq semi atk rel i2202 0 7 16000 9.00 7 2 3 i2202 + 8 12000 8.00 . < < i2202 + 9 5000 6.00 . . . i2202 + 9.5 3800 5.00 . 4 2 i2202 + 9 5000 6.00 . < < i2202 + 8 11000 8.00 . . . i2202 + 7 16000 9.00 7 2 3 ;delay ;p1 p2 p3 p4 p5 p6 p7 ;i start dur fac1 fac2 echo1 echo1 i2203 0 60 .7 .7 1.5 2.5 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 275 330 1423 1148 CurrentView: sco IOViewEdit: Off Options: -b128 -A -o/Users/darren/Music/Projects/12x60/12 Fifth Machine/Fifth Machine.aif -l -m7 -R ioView nobackground {65535, 65535, 65535} ioListing {10, 10} {456, 576} ioGraph {469, 11} {620, 568}