Pops

instr 26
Cf. http://www.csounds.com/ezine/autumn1999/synthesis/

;;Parameters names ; ; 1 2 3 4 5 6 7 8 9 
; i st dur amp fq1 pan fqc ia1 ibw 
;;Csgrouper param recognition 
; CSGF=3:dur=1; CSGF=4:amp=65; CSGF=5:fq1=7.00; CSGF=6:pan=0.5
; CSGF=7:fqc=4; CSGF=8:fam=0.6; CSGF=9:ibw=0.18

idur = p3;
iamp = ampdb(p4);
if1 = cpspch(p5);
ipan = p6;
ifqc = p7;
ia1 = p8;
iwdth = p9;
ipanr = ipan;
ipanl = 1-ipan;
adclck linseg 0, .002, 1, idur-.004, 1, .002, 0 ; Declick envelope
kamp linseg 0, .001, 1, .002, 0, idur-.003, 0
arnd rand kamp*6/iwdth ; Genrate impulse
asig butterbp arnd, ifqc, ifqc*iwdth ; Band pass filter
asig1 butterbp arnd, if1, if1*iwdth ; Band pass filter
aout = (asig+asig1*ia1)*iamp*adclck ; Apply amp envelope and declick
 outs aout*ipanl, aout*ipanr ; Output the sound
endin;
;Ex.:
; Sta Dur Amp Pitch Pan FrmFqc FrmAmp BW
; i10 0.000 .15 95 7.00 .5 4 .6 .18
; i10 0.250 .15 95 7.04 .9 3.5 .8 .18
; i10 0.500 .15 95 7.00 .7 4 .6 .16
; i10 0.750 .15 95 7.00 .3 4 .6 .17
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