;============================================================================================================== ; "Cyclemotor for James Tenney" ; by Darren Nelsen ; Program note: This piece is a small tribute to James Tenney. Inspired by his 'ramp' form, I made a ramp of ramps cycling through ring modulated frequencies. The end result sounds a little bit like a motorcycle revving through gears. Tenney was also fond of palindromes so the title is a reverse play on the word 'motorcycle'. ; 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 Ramper itab_sign chnget "com.curiomusic.global.sign" if (itab_sign == 0) then itab_sign ftgen 0, 0, 65536, 10, 1 chnset itab_sign, "com.curiomusic.global.sign" endif itab_sawtooth chnget "com.curiomusic.global.sawtooth" if (itab_sawtooth == 0) then itab_sawtooth ftgen 0, 0, 65536, 10, 1, .5, .333, .25, .2, .166, .142, .125, .111, .1, .09, .083, .076, .071, .066, .062 chnset itab_sawtooth, "com.curiomusic.global.sawtooth" endif itab_mod_frq chnget "com.curiomusic.modulation.frq" if (itab_mod_frq == 0) then itab_mod_frq ftgen 0, 0, 512, 5, 0.01, 112, 0.285714285714, 1, .14, 63, 0.428571428571, 1, .21, 63, 0.571428571429, 1, .285, 63, 0.714285714286, 1, .355, 80, 1, 16, 1, 86, 0.01, 25, 0.004 chnset itab_mod_frq, "com.curiomusic.modulation.frq" endif idur = p3 iamp = p4 icarfrq = p5 iatk = p6 irel = p7 kmodfrq oscili 220, 1/idur, itab_mod_frq icarfn = itab_sign imodfn = itab_sawtooth ;panning ipan = p8 kpan2 = ipan*3.14159265*.5 kpanl = cos(kpan2) kpanr = sin(kpan2) kenv linen iamp, idur*iatk, idur, idur*irel acarr oscili 1, icarfrq, icarfn ; CARRIER amod oscili 1, kmodfrq, imodfn ; MODULATOR asig = acarr*amod ; MODULATION amix = kenv*asig outs amix*kpanl, amix*kpanr ; OUTPUT endin t 0 60 ;; MotorCycle/Ramps ; parameter1 p2 p3 p4 p5 p6 p7 p8 ; instrument str dur amp carr atk dec pan i "Ramper" 0 60 46250 220 .8 .1 .5 e Version: 3 Render: File Ask: No Functions: ioObject Listing: ioObject WindowBounds: 290 82 1827 1170 CurrentView: orc IOViewEdit: Off Options: -b128 -A -o/Users/darren/Music/Projects/12x60/06 Cyclemotor for James Tenney/Cyclemotor for James Tenney.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