<CsoundSynthesizer>
; this CSD file was generated with makecsd v1.1
; (written by Istvan Varga, Mar 2003)
<CsOptions>
; set command line options here
-Wdo test.wav
</CsOptions>
<CsInstruments>
sr	= 44100
kr	= 44100
ksmps	= 1
nchnls	= 1


; standard sine wave
giwfn	ftgen	1, 0, 32768, 10, 1
; octave weighting function
gioctfn	ftgen	2, 0, 1024, -19, 1, 0.5, 270, 0.5


	instr	1001
	;
iscale	=	1
	;
isus	=	p4
ibasfrq	=	cpspch(p5)
iamp	=	ampdbfs(p6)*iscale
	;
ktone	init	1
kbrite	init	1
	;
iatt	=	0.01
idec	=	0.05
islev	=	0.80
irel	=	p3 - p4
	;
asig	hsboscil	iamp, ktone, kbrite, ibasfrq, giwfn, gioctfn
kenv	xadsr		iatt, idec, islev, irel
	out		asig*kenv
	;
	endin


	instr	1002
	;
iscale	=	1
	;
isus	=	p4
ibasfrq	=	cpspch(p5)
iamp	=	ampdbfs(p6)*iscale
	;
kvib	lfo	1, 3.03
kvamp	expon	300, p3, 30
ktone	=	1 + kvib/kvamp
kbrite	init	1
	;
iatt	=	0.01
idec	=	0.05
islev	=	0.80
irel	=	p3 - p4
	;
asig	hsboscil	iamp, ktone, kbrite, ibasfrq, giwfn, gioctfn
kenv	xadsr		iatt, idec, islev, irel
	out		asig*kenv
	;
	endin


	instr	1003
	;
iscale	=	0.82
	;
isus	=	p4
ibasfrq	=	cpspch(p5)
iamp	=	ampdbfs(p6)*iscale
	;
ktone	init	1
kbrite	expon	2, p3, 0.1
	;
iatt	=	0.01
idec	=	0.05
islev	=	0.80
irel	=	p3 - p4
	;
asig	hsboscil	iamp, ktone, kbrite, ibasfrq, giwfn, gioctfn
kenv	xadsr		iatt, idec, islev, irel
	out		asig*kenv
	;
	endin


	instr	1004
	;
iscale	=	0.90
	;
isus	=	p4
ibasfrq	=	cpspch(p5)
iamp	=	ampdbfs(p6)*iscale
	;
kvib	lfo	1, 3.03
kvamp	expon	300, p3, 30
ktone	=	1 + kvib/kvamp
kbrite	expon	2, p3, 0.1
	;
iatt	=	0.01
idec	=	0.05
islev	=	0.80
irel	=	p3 - p4
	;
asig	hsboscil	iamp, ktone, kbrite, ibasfrq, giwfn, gioctfn
kenv	xadsr		iatt, idec, islev, irel
	out		asig*kenv
	;
	endin

</CsInstruments>
<CsScore>
t 0	60

;	p1	p2	p3	p4	p5	p6	p7	p8	p9
;	inst	time	dur	sus	pch	dBfs
i	1001	0.0	1.2	1.0	7.07	-1.2
i	1001	1.0	1.2	1.0	7.11	-2.1
i	1001	2.0	1.2	1.0	7.06	-2.1
i	1001	3.0	1.2	1.0	8.01	-2.3
i	1001	4.0	1.2	1.0	7.04	-1.9

;	p1	p2	p3	p4	p5	p6	p7	p8	p9
;	inst	time	dur	sus	pch	dBfs
i	1002	6.0	1.2	1.0	7.07	0.0
i	1002	7.0	1.2	1.0	7.04	-1.4
i	1002	8.0	1.2	1.0	8.01	-2.4
i	1002	9.0	1.2	1.0	7.06	-1.9
i	1002	10.0	1.2	1.0	7.11	-2.6

;	p1	p2	p3	p4	p5	p6	p7	p8	p9
;	inst	time	dur	sus	pch	dBfs
i	1003	12.0	1.2	1.0	7.07	-1.8
i	1003	13.0	1.2	1.0	7.11	-1.2
i	1003	14.0	1.2	1.0	7.04	0.0
i	1003	15.0	1.2	1.0	8.01	-1.3
i	1003	16.0	1.2	1.0	7.06	-1.2

;	p1	p2	p3	p4	p5	p6	p7	p8	p9
;	inst	time	dur	sus	pch	dBfs
i	1004	18.0	1.2	1.0	8.01	-0.9
i	1004	19.0	1.2	1.0	7.04	-2.5
i	1004	20.0	1.2	1.0	7.11	-0.7
i	1004	21.0	1.2	1.0	7.07	-2.0
i	1004	22.0	1.2	1.0	7.06	-2.9

</CsScore>
</CsoundSynthesizer>

