TamBooGui

instr 29
; parameters names
; 1 2 3 4 5 6 7 8 9 10 11 12 13 
; i st dur amp att num dam msh fq1 ffq sfq pan cho
;;Csgrouper Param Recognition: 
; CSGF=3:dur=1; CSGF=4:amp=60; CSGF=5:att=0.1; CSGF=6:num=0
; CSGF=7:dam=0; CSGF=8:msh=0.5; CSGF=9:fq1=2000; CSGF=10:ffq=3000; 
; CSGF=11:sfq=4000; CSGF=12:pan=0.5; CSGF=13:cho=2;

iamp = ampdb(p4);
iatt = p5; // Period of time over which all sound is stopped.
inum = p6; // The number of beads, teeth, bells, timbrels, etc. If zero, the default value is 128.
idamp = p7; // The damping factor of the instrument. Not used.
imaxshake = p8; // Amount of energy to add back into the system. The value should be in range 0 to 1.
ifreq = p9; // The main resonant frequency. The default value is 2500 Hz.
iffq = p10;// The first resonant frequency. Default value here is 4000 Hz.
isfq = p11;
ipan = p12;
icho = p13;
ipanr = ipan;
ipanl = 1-ipan;

if( icho == 1 ) goto doguiro;
if( icho == 2 ) goto dotambo;
dobambo:
asig bamboo iamp, iatt, inum, idamp, imaxshake, ifreq, iffq, isfq;
goto output;
doguiro:
asig guiro iamp, iatt, inum, idamp, imaxshake, ifreq, isfq;
goto output;
dotambo:
asig tambourine iamp, iatt, inum, idamp, imaxshake, ifreq, iffq, isfq;
output:
 outs asig*ipanr, asig*ipanl;
endin
; bamboo:
;i1 sta dur amp att num damp maxshake freq freq1 freq2
;i1 0 1 60 0.1 0 0 0 2800 2240 3360
;i1 + 1 60 0.1 0 0 0 3000 2800 2240
; guiro:
;i1 0 1 60 1 128 0 0.5 2500 4000
;i1 + 1 60 0.01 64 0 0.9 3200 7000
; tamborine:
;i1 0 .3 60 0.1 32 0 0.5 2300 5600 8100 
;i1 + .2 60 0.1 16 > 0.3 1200 2800 4050 
;i1 + 1 60 0.1 8 0.7 0.1 600 1400 2025
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s