44100 1 2 44100 1 2 true false false false true true true true false false true true true true false false 0 false FMbot-00 gi_sine_<INSTR_ID> ftgenonce 0,0,65536,10,1 ifn = gi_sine_<INSTR_ID> seed 0 irnd random 1,5 irnd = round(irnd)*2 ibeat = p3/irnd iter = 1 start: timout 0, ibeat, continue ; BRANCH TO CONTINUE FOR ibeat seconds, THEN... reinit start ; REINIT ALL, BEGINNING WITH THE TIMOUT continue: iamp random 7000,9500 ; random amplitude imf random 1,7 imf = round(imf) ; random modulation frequency (harmonics 1 to 7) imi random 2,5 ; random modulation index invat random ibeat*.05,ibeat*.5 ; random amplitude envelope value invac random -3,3 ; random amplitude envelope value inva random .001,1 ; random amplitude envelope value invb random .001,1 ; random amplitude envelope value invc random -5,5 ; random amplitude envelope value invd random -3,3 ; random amplitude envelope value inve random .1,.4 ; random amplitude envelope value knv transeg .0001,invat,invac,inva,ibeat*.1,invc,invb,ibeat*inve,invd,.0001 ; amplitude envelope kmi = imi*knv ; Modulation Index = amplitude envelope (for horn-like sounds) ifq random 1,13 ; random root note = harmonic 1 to 13 of base frequency ifq = round(ifq)*32 ; set base frequency = 32Hz ipan random -1,1 ; random panning a0 foscili knv,ifq,1,imf,kmi,ifn ; FM signal generator a0 = (a0/(1+(iter*.1)))*iamp ; amplitude scale and envelope a0 dcblock a0 ; dcblock filter kL = sqrt(2) / 2 * cos(ipan) + sin(ipan) ; CONSTANT POWER PANNING kR = sqrt(2) / 2 * cos(ipan) - sin(ipan) ; FROM C.ROADS "CM TUTORIAL" pp460 aL = a0 * kL ; assign left channel aR = a0 * kR ; assign right channel blueMixerOut aL,aR ; OUTPUT iter = iter + 1 ; iteration counter true 2.0 1 Master 0.0 false false Freeverbw true 2 2 arev1,arev2 freeverb ain1,ain2,<rsize>,<hfdamp> aout1 = (arev1*<level>)+(ain1*(1-<level>))/2 aout2 = (arev2*<level>)+(ain2*(1-<level>))/2 A basic wrapper for the freeverb opcode. by Brian Wong, 2009 hfdamp 182 78 true 0.0 1.0 0.61208713 60 true roomsize 105 157 bsbObj0 185 157 rsize 105 78 true 0.0 1.0 0.62028205 60 true level 27 78 true 0.0 1.0 0.5623676 60 true 43 156 44 19 Master Master 0.0 false false csound -Wdo devaudio -L stdin false false 2.0 0.0 root -10066279 0 true 64 0 true 1.0 0 5 10.0 0.0 Instrument 1701 -12566464 2 i1 0.0 20 i1 0.0 20 i1 0.0 20 i1 20 10 i1 20 10 i1 20 10 i1 30 5 i1 30 5 i1 30 5 i1 30 10 i1 30 10 i1 35 5 i1 35 5 i1 35 5 i1 40 10 i1 40 10 i1 45 5 i1 45 5 i1 45 5 i1 50 20 i1 50 20 i1 50 20 i1 50 20 i1 70 10 i1 70 10 i1 70 10 i1 70 10 i1 80 20 i1 80 10 i1 80 10 i1 80 10 i1 80 10 i1 80 5 i1 80 5 i1 85 5 i1 85 5 i1 90 20 i1 90 20 i1 90 10 i1 90 10 i1 90 10 i1 90 10 i1 90 5 i1 90 5 i1 95 5 i1 95 5 i1 95 5 i1 100 20 i1 100 20 i1 100 20 i1 100 10 i1 100 10 i1 100 10 i1 100 10 i1 100 10 i1 100 5 i1 100 5 i1 100 5 i1 105 5 i1 105 5 i1 105 5 i1 110 10 i1 110 10 i1 110 10 i1 110 10 i1 110 10 i1 110 10 i1 110 5 i1 110 5 i1 110 5 i1 110 5 i1 115 5 i1 115 5 i1 115 5 i1 115 5 true 0.0 -1.0 false false false