ElectronicaBell v1.0 Author: Atte André Jensen (atte.dk), 2007 Mellow bell-like sound with reverse. git_instr_bell_electronica1 ftgen 0, 0, 1024, 10, 1 git_instr_bell_electronica2 ftgen 0, 0, 1024, 10, 1, .07 git_instr_bell_electronica3 ftgen 0, 0, 1024, 10, 1, .1, .01 git_instr_bell_electronica4 ftgen 0, 0, 1024, 10, 1, .2, .02, .005 git_instr_bell_electronica5 ftgen 0, 0, 1024, 10, 1, .03, .4, .02, .01, .007, .005, .002 git_instr_bell_electronica6 ftgen 0, 0, 1024, 10, 1, .3, .7, .02, .08, .005, .5, .1, .05, .001, .2 git_instr_bell_electronica7 ftgen 0, 0, 1024, 10, 1, .3, .07, .01, .002, 1, 6 ifreq = p4; <20: pitch, >= 20: hz ; optional ivol = p5; 0-1 ilength = p6; seconds iwaveform = p7; 1, 2, 3 or 4 idetune1= p8; <.05 idetune2= p9; <.5 ; setup iattack = .001 ; defaults ifreq = (p4 >= 20) ? ifreq : cpspch(ifreq) ivol = (ivol == 0) ? <volume> : ivol ilength = (ilength == 0) ? <length> : ilength iwaveform = (iwaveform == 0) ? <waveform> : iwaveform idetune1 = (idetune1 == 0) ? <detune1> : idetune1 idetune2 = (idetune2 == 0) ? <detune2> : idetune2 ; calculations iamp = 4000 * ivol ; envelopes kkeepalive linsegr 1, ilength, 0 ;aampenv expseg .001, ilength-(iattack*(<reverse>)), 1, ilength-(iattack*(1-<reverse>)), .001 aampenv = 0 cigoto (<reverse> ==1), reverse irise = iattack ifall = ilength - iattack igoto endif_reverse reverse: irise = ilength - iattack ifall = iattack endif_reverse: aampenv expseg .001, irise, 1, ifall, .001 ; oscillators aosc1 oscili iamp, ifreq * (1 + idetune1), git_instr_bell_electronica<waveform> aosc2 oscili iamp, ifreq * (1 - idetune1), git_instr_bell_electronica<waveform> aosc3 oscili iamp, ifreq * (1 + idetune2), git_instr_bell_electronica<waveform> aosc4 oscili iamp, ifreq * (1 - idetune2), git_instr_bell_electronica<waveform> ; mix aoutl = (aosc1 + aosc4) * aampenv aoutr = (aosc2 + aosc3) * aampenv ; output blueMixerOut aoutl, aoutr length 99 54 true 0.5 6.0 2.4768746 60 true 111 130 Length 15 130 Waveform reverse 9 68 Reverse true true detune1 177 54 true 0.0 0.05 0.001200144 60 true 181 130 Detune 1 detune2 239 54 true 0.0 0.05 5.0E-4 60 true 243 130 Detune 2 92 3 <html><font size="6"><b>ElectronicaBell<b></font></html> volume 318 54 true 0.0 1.0 1.0 60 false 327 130 Volume waveform 4 106 Sine 1 Bright Sine 2 Warm 3 Normal 4 Hollow 5 Metal 6 Glass 7 2 true 170 30 v 1.0 ver2:0.001 ver2:0.0005 ver2:4 false ver2:1 3 ver2:0.0012001439 ver2:0.0005 ver2:2.4768745899 true ver2:1 2