All pastes #453440 Raw Edit

Something

public text v1 · immutable
·published 2007-04-23 00:30 UTC
rendered paste body
<CsoundSynthesizer>
<CsOptions>

</CsOptions>
<CsInstruments>
sr=44100
ksmps=25
nchnls=2

garvbl	init	0
garvbr	init	0
gkscale	init	1

	instr 11


acrnch	guiro	0dbfs * .7, p3

kjit	jitter	.2, 5, 15
koffs	=	kjit + 1
acrmod	=	acrnch * koffs

kfc	expseg	4000, p3,8000
kfreq	=	kfc * gkscale
;acrf	lowpass2	acrmod, kfc, 10
acrf	butterhp	acrmod, kfc
aenv	linseg	0, .008, 1, p3-.01, 1, .002, 0
acrenv	=	acrf * aenv

anot	delayr	.4
a1	deltap	.04
a2	deltap	.06
a3	deltap	.12
a4	deltap	.1
a5	deltap	.14
a6	deltap	.17
a7	deltap	.2
a8	deltap	.19
	delayw	acrenv

garvbl	=	garvbl + .4*a1 + .2*a3 + .3*a5 + .2*a7 + acrenv
garvbr	=	garvbr + .4*a2 + .2*a4 + .3*a6 + .2*a8 + acrenv

	outs	acrenv, acrenv

	endin


	instr 100
krvt	init	p4
al	reverb	garvbl, krvt
ar	reverb	garvbr, krvt

	outs	al, ar

garvbl	=	0
garvbr	=	0

gkscale	expseg	1, p3, 2

	endin



;	instr 13





</CsInstruments>
<CsScore>

t 0 60 10 100

i11	0	.24
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	.
i11	^+.16	1



i100	0	10	.09

e

</CsScore>
</CsoundSynthesizer>