Cymbals

instr 27
; Adapted from Mykelson's Newcymbal.

;; Parameters names
;  1 2 3 4 5 6 7 8 9 10 11 12 13
;   i st dur amp fq1 pan fqc fqq res otf aac pbn pti

;;Csgrouper param recognition 
; CSGF=3:dur=1; CSGF=4:amp=9000; CSGF=5:fq1=9.00; CSGF=6:pan=0.5
; CSGF=7:qfq=7000; CSGF=8:iqq=15; CSGF=9:qac=1; CSGF=10:otf=10000; 
; CSGF=11:acc=1; CSGF=12:pbd=1.02; CSGF=13:pbt=0.05;

idur = p3 ; Duration
iamp = p4/(1+sqrt(p3))*.3*sqrt(p8) ; Amplitude
ifqc = cpspch(p5)
ipanl = sqrt(p6) ; Pan left
ipanr = sqrt(1-p6) ; Pan right
iqfqc = p7 ; Primary resonance
iqq = p8 ; Resonance Q
iqact = p9*.02 ; Resonance accent
iotfqc = p10 ; Overtone frequency
iotq = p10*.25 ; Overtone bandwidth
iotact = .02 ; Overtone accent
ilpfco = p10*1.25 ; Lowpass
iaact = p11*.001 ; Amplitude accent
ipbend = p12
iptim = p13
adclck linseg 0, .002, 1, idur-.004, 1, .002, 0 ; Declick envelope
kamp expseg 1, idur, iaact
kamp2 expseg 2, idur, iqact
kamp3 expseg 1, idur, iotact
kptch expseg ipbend, iptim, 1, idur-iptim, 1
arnd rand kamp2
asig1 vco 1, ifqc*kptch, 2, .5, 1, 2/ifqc ; Genrate impulse
asig2 vco 1, ifqc*1.3*kptch, 2, .5, 1, 2/ifqc ; Genrate impulse
;asig3 vco 1, ifqc*.573, 2, .5, 1, 2/ifqc ; Genrate impulse
asig = (asig1*asig2*(1+arnd))*iamp*adclck*kamp
aout1 rezzy asig, iqfqc, iqq, 1 ; Apply amp envelope and declick
aout2 butterbp aout1*kamp3, iotfqc, iotq ; Apply amp envelope and declick
aout butterlp aout1+aout2*4, ilpfco ; Apply amp envelope and declick
  outs aout*ipanl, aout*ipanr ; Output the sound
endin

; Example:
; Sta Dur Amp Pitch Pan QFqc QQ QAcct OTFqc Accent PBend PBTime
;i17 0.0 0.15 30000 10.00 .5 7000 15 1 14000 1 1.02 .05
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