;================================================================================================== ; "Bugs, Incoming" ; by Darren Nelsen ; An experiment in RM synthesis. ; Program note: Imagine giant, flying beetles coming in for a landing on your face. ; 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 instr RM itab_weird_pulse chnget "com.curiomusic.global.weird.pulse" if (itab_weird_pulse == 0) then itab_weird_pulse ftgen 0, 0, 65536, 10, 1, .75, .5, .25, .125, .0625;, 0.03125, 0.015625, 0.0078125, 0.00390625 chnset itab_weird_pulse, "com.curiomusic.global.weird.pulse" endif idur = p3 iamp = p4 icarfrq = p5 iatk = p6 idec = p7 kmodfrq linseg 2000, idur*.82, 1, idur*.09, 10, idur*.09, 10 ifn = itab_weird_pulse ;panning ipan = p8 kpan2 = ipan*3.14159265*.5 kpanl = cos(kpan2) kpanr = sin(kpan2) kenv linen iamp, iatk, idur, idec ; ENVELOPE acarr oscili 1, icarfrq, ifn ; CARRIER amod oscili 1, kmodfrq, ifn ; MODULATOR asig = acarr*amod ; MODULATION outs kenv*asig*kpanl, kenv*asig*kpanr ; OUTPUT endin t 0 60 ; p1 p2 p3 p4 p5 p6 p7 p8 ; inst str dur amp carr atk dec pan i "RM" 0 60 13000 220 5 .01 .35 i "RM" 10 50 . 440 . . .65 i "RM" 20 40 . 660 . . .1 i "RM" 30 30 . 880 . . .9 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 367 84 1904 1172 CurrentView: options IOViewEdit: Off Options: -b128 -A -o/Users/darren/Music/Projects/12x60/05 Bugs, Incoming/Bugs, Incoming.aif -l -m135 -R ioView background {60108, 65535, 63132} ioListing {749, 36} {633, 801} ioGraph {163, 38} {582, 734} ioSlider {76, 39} {34, 229} 1.000000 8000.000000 81.789902 modfrq ioText {39, 271} {106, 26} display 81.789902 0.010000 "modfrq" center "Lucida Grande" 10 {0, 0, 0} {65535, 65535, 65535} nobackground noborder