Hawaii guitar (sort of; requires much imagination)

instr 6

; parameters names
; 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 1
; i st dur amp ft1 ft2 atk rel fq1 hm1 hm2 pa1 pa2 del rvn rvs pcd
;;Csgrouper param recognition: 
; CSGF=3:dur=1; CSGF=4:amp=60; CSGF=5:ft1=11; CSGF=6:ft2=10; CSGF=7:atk=0.03; CSGF=8:rel=1; 
; CSGF=9:hd1=0.3; CSGF=10:hd2=0.3; CSGF=11:gl1=0.2; CSGF=12:gl2=0.2; CSGF=13:fq1=440; CSGF=14:fq2=440; CSGF=15:fq3=440; 
; CSGF=16:hm1=2; CSGF=17:hm2=1; CSGF=18:car=1; CSGF=19:mod=1; CSGF=20:pa1=0.1; CSGF=21:pa2=0.9; CSGF=22:del=0.3; 
; CSGF=23:rvn=0; CSGF=24:rvs=0; CSGF=25:pcd=1;
idur = p3
iamp = ampdb(p4);
ifn1 = p5 ; 
ifn2 = p6 ;
iatk = p7*idur
irel = p8*idur
;;glissandi
ihd1 = p9*idur ; during the attack
ihd2 = p10*idur ; during the release
igl1 = p11*idur ; from freq1 to freq2
igl2 = p12*idur ; from freq2 to freq3
;;frequences 
ifq1 = p13;
ifq2 = p14;
ifq3 = p15;
ihm1 = p16
ihm2 = p17 
icar = p18
imod = p19 
ipn1 = abs(p20);
ipn2 = abs(p21);
idel = p22*idur; 
irvn = p23; fxnmbr.
irvs = p24; fxsend.
ipcd = p25; precedence.
itop = idur-ihd1-ihd2-igl1-igl2;
kfrq linseg ifq1, ihd1, ifq1, igl1, ifq2, itop, ifq2, igl2, ifq3, ihd2, ifq3;

kenv linen iamp,iatk, idur, irel ; 
kfqm line ihm1, idur, ihm2
awv1 foscil kenv, kfrq, icar, imod, kfqm, ifn1
if (ipn1 < 1) goto nextpn1
 ipn1 = 1
nextpn1:
if (ipn2 < 1) igoto nextpn2
 ipn2 = 1
nextpn2:
ista = idur-idel
kpan linseg ipn1, idel, ipn2, ista, ipn2 ;
; REVERB
if (irvn == 0) goto norev 
if (irvn == 3) goto rev3 
if (irvn == 2) goto rev2 
gacmb1 = gacmb1+(awv1*irvs) ;
goto norev 
rev2: 
garvb1 = garvb1+(awv1*irvs) ;
goto norev 
rev3: 
gamet1 = gamet1+(awv1*irvs) ;
norev:
outs awv1*(1-kpan),awv1*kpan
endin
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