;Studi di Sintesi ed Elaborazione del Suono
;Studio n.8 - G26 - Pripjat
;2012 - Mattia Giovanetti
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
<CsoundSynthesizer>
<CsOptions>
-g -o dac
;-g -W -o Pripjat.wav
</CsOptions>
<CsInstruments>
	sr	=	44100
	kr	=	4410
	ksmps	=	10
	nchnls	=	1
	

; ------- armonia  -------
	instr	1
iamp	=	ampdb(p4)
ifrq	=	cpspch(p5)
kenv	linseg	0,.1,iamp,p3-.1,0
kenv2	expseg	.01,.001,iamp,p3-.001,.1
kenv3	linseg	0,p3/3,iamp,p3/3,iamp,p3/3,0
kcnv	line	-5,p3,5
km	line	10,p3,9.9
kv	line	3,.5,2.99
kx	line	7.5,.25,7
k0	oscili	1,kx,1
k1	oscili	2.8,.512,1
a1	foscil	kenv*k0,(ifrq/31)*30,kv,km,kcnv,1
a2	oscili	kenv2,((ifrq/31)*30)+k1,2
a3	oscili	kenv3,((ifrq/31)*30),1
aout	=	a1*.75+a2*.66+a3*.25
;	out	aout
	MixerSetLevel	1,999,1
	MixerSend	aout,1,999,0
	endin

	
; ------- mixer    -------
	instr	999
kgain	MixerGetLevel	0,999
a1	MixerReceive	999,0
aout	=	a1
aRV	alpass	aout,4.5,.25
aMO	=	a1+aRV*.5
	out	aMO*4.5
	MixerClear
	endin
</CsInstruments>
<CsScore>
f1	0	4096	10	1
f2	0	4096	10	1 0 .5 0 .25 0 .12 0 .6 0 .3 0 .15 0 .05 0 .025 0
;a 0 0 72
;r2
t0 69.628 7 37.314  8 69.7  22 28.2  27 80  36 80  37 20  38 72  48 120  49 120  72 10
;01-4/4---------------------------------------------------------
i1	0	1.9	72	7.00
i1	2	.9	70	7.03
i1	3	.9	60	6.06
;
i1	0	.4	72	8.00
i1	.5	.4	72	8.01
i1	1	.4	65	8.03
i1	1.5	.4	65	8.06
i1	2	.4	70	7.10
i1	2.5	.4	70	8.00
i1	3	.4	60	8.01
i1	3.5	.4	60	8.05	
;02-------------------------------------------------------------
i1	4	.9	72	7.01
i1	5	.9	65	6.05
i1	6	1.9	60	7.00
;
i1	4	.4	72	7.08
i1	4.5	.4	72	7.10
i1	5	.4	65	8.00
i1	5.5	.4	65	8.03
i1	6	.4	70	7.06
i1	6.5	.4	70	7.08
i1	7	4.9	60	7.10
;03-------------------------------------------------------------
i1	8	3.9	72	6.05
;04-------------------------------------------------------------
i1	12	1.9	72	6.10
i1	14	.9	70	7.01
i1	15	.9	60	7.05
;
i1	12	.4	72	8.08
i1	12.5	.4	72	8.06
i1	13	.4	65	8.11
i1	13.5	.4	65	9.00
i1	14	.9	70	9.03
i1	15	.4	60	9.00
i1	15.5	.4	60	8.01
;05-------------------------------------------------------------
i1	16	1.9	72	6.08
i1	18	1.9	70	6.06
;
i1	17	.4	65	7.10
i1	17.5	.4	65	8.01
i1	18	.9	0	0.00
i1	19	.4	60	7.08
i1	19.5	.4	60	8.00
;
i1	16	1.9	72	8.06
i1	18	1.9	70	8.05
;06-------------------------------------------------------------
i1	20	3.9	72	6.05
;
i1	21	.4	65	7.06
i1	21.5	.4	65	7.10
;
i1	20	1.9	72	8.03
i1	22	1.9	70	8.01
;07-5/4---------------------------------------------------------
i1	24	1.4	72	6.11
i1	25.5	.4	65	7.00
i1	26	.9	70	7.04
i1	27	1.9	60	7.04
;
i1	25	.9	65	8.05
i1	26	.4	70	7.09
i1	26.5	.4	60	7.11
i1	27	1.9	60	8.00
i1	27	1.9	60	8.04
;08-4/4---------------------------------------------------------
i1	29	1.9	72	6.06
i1	31	1.9	70	6.08
;
i1	29	.9	72	8.03
i1	30	.4	65	8.06
i1	30.5	.4	65	7.10
i1	31	.9	70	8.05
i1	32	.4	60	8.08
i1	32.5	.4	60	8.00
;09-------------------------------------------------------------
i1	33	6.9	72	6.10
;
i1	33	.9	72	8.01
i1	34	.4	65	8.00
i1	34.5	.4	65	8.05
i1	35	.9	70	7.10
i1	36	.4	60	7.08
i1	36.5	.4	60	8.01
;10-3/4---------------------------------------------------------
i1	37	2.9	72	7.06
;11-4/4---------------------------------------------------------
i1	40	1.4	72	7.02
i1	41.5	1.9	65	7.00
i1	43.5	1.9	60	6.10
;
i1	40	.4	72	8.05
i1	40.5	.4	72	7.08
i1	41	.9	65	7.10
i1	42	.4	70	8.04
i1	42.5	.4	70	7.07
i1	43	.9	60	7.09
;12-------------------------------------------------------------
i1	45.5	1.9	65	6.09
i1	47.5	3.4	60	6.07
;
i1	44	.4	72	8.02
i1	44.5	.4	72	7.05
i1	45	.9	65	7.07
i1	46	.4	70	8.00
i1	46.5	.4	70	7.04
i1	47	.9	69	7.05
;13-------------------------------------------------------------
i1	48	.4	72	7.11
i1	48.5	.4	72	7.02
i1	49	1.9	65	7.04
;14-------------------------------------------------------------
i1	52	1.9	72	6.06
i1	54	.9	70	6.10
i1	55	2.9	60	7.01
;
i1	52	.9	72	8.04
i1	53	.4	65	8.06
i1	53.5	.4	65	7.10
i1	54	.9	70	8.01
i1	55	.4	60	8.05
i1	55.5	.4	60	7.08
;15-------------------------------------------------------------
i1	58	1.9	70	6.05
;
i1	56	.9	72	7.10
i1	57	.4	65	8.00
i1	57.5	.4	65	8.01
i1	58	1.9	70	8.06
;16-------------------------------------------------------------
i1	60	1.9	72	6.08
i1	62	1.9	70	6.11
;
i1	60	.9	72	7.10
i1	61	.4	65	8.01
i1	61.5	1.4	65	8.05
i1	63	.9	60	7.08
;17-------------------------------------------------------------
i1	64	1.9	72	6.10
i1	66	5.9	70	7.00
;
i1	64	.9	72	8.00
i1	65	.4	65	8.03
i1	65.5	1.4	65	8.06
i1	67	.9	60	7.10
;18-------------------------------------------------------------
i1	68	.9	72	7.11
i1	69	.9	65	8.00
i1	70	1.9	70	8.03
i1	70	1.9	70	8.03
;===============================================================
i999	0	72
s
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;r2
t0 69.628  7 69.62  8 30  9 69.7  16 69.6  17 30  18 69.8  29 69.77  30 20  32 72  38 70  39 20  40 70  59 68.127  60 62  67 60  68 10    
;19-------------------------------------------------------------
i1	0	1.9	72	7.00
i1	2	.9	70	7.03
i1	3	.9	60	6.06
;
i1	0	.4	72	7.08
i1	.5	.4	72	7.10
i1	1	.4	65	8.00
i1	1.5	.4	65	8.03
i1	2	.4	70	7.06
i1	2.5	.4	70	7.08
i1	3	.4	60	7.10
i1	3.5	.4	60	8.01
;20-------------------------------------------------------------
i1	4	.9	72	7.01
i1	5	.9	65	6.05
i1	6	1.9	70	7.00
;
i1	4	.4	72	7.05
i1	4.5	.4	72	7.06
i1	5	.4	65	7.08
i1	5.5	.4	65	8.00
i1	6	.4	70	7.03
i1	6.5	.4	70	7.05
i1	7	2.9	60	7.06
;21-2/4---------------------------------------------------------
i1	8	1.9	72	6.05
;22-4/4---------------------------------------------------------
i1	10	1.9	72	7.00
i1	12	.9	70	7.03
i1	13	.9	60	6.06
;
i1	10	.4	72	8.03
i1	10.5	.4	72	8.05
i1	11	.4	65	8.06
i1	11.5	.4	65	8.10
i1	12	.4	70	8.01
i1	12.5	.4	70	8.03
i1	13	.4	60	8.05
i1	13.5	.4	60	8.08
;23-------------------------------------------------------------
i1	14	.9	72	7.01
i1	15	.9	65	6.05
i1	16	1.9	70	7.00
;
i1	14	.4	72	8.00
i1	14.5	.4	72	8.01
i1	15	.4	65	8.03
i1	15.5	.4	65	8.06
i1	16	.4	70	7.10
i1	16.5	.4	70	8.00
i1	17	2.9	60	8.01
;24-2/4---------------------------------------------------------
i1	18	1.9	72	6.08
;25-4/4---------------------------------------------------------
i1	20	1.9	72	7.00
i1	22	.9	70	7.01
i1	23	.9	60	6.06
;
i1	20	.4	72	8.01
i1	20.5	.4	72	8.00
i1	21	.4	65	8.06
i1	21.5	.4	65	8.03
i1	22	.4	70	7.10
i1	22.5	.4	70	8.00
i1	23	.4	60	8.01
i1	23.5	.4	60	8.05
;26-------------------------------------------------------------
i1	24	.9	72	7.03
i1	25	.9	65	7.00
i1	26	.9	70	7.01
i1	27	.9	60	6.10
;
i1	24	.4	72	8.03
i1	24.5	.4	72	8.01
i1	25	.4	65	8.00
i1	25.5	.4	65	7.08
i1	26	.4	70	8.01
i1	26.5	.4	70	8.00
i1	27	.4	60	7.10
i1	27.5	.4	60	7.06
;27-------------------------------------------------------------
i1	28	3.9	72	7.00
;
i1	28	.4	72	8.00
i1	28.5	.4	72	7.10
i1	29	2.9	65	7.08
i1	29	2.9	65	7.03
;28-------------------------------------------------------------
i1	32	.9	72	6.10
i1	33	.9	65	7.00
i1	34	.9	70	6.06
i1	35	.9	60	6.05
;
i1	32.5	.4	72	7.01
i1	32.5	.4	72	7.05
i1	33.5	.4	65	7.01
i1	33.5	.4	65	7.05
i1	34.5	.4	70	7.01
i1	34.5	.4	70	7.05
i1	35.5	1.4	60	7.01
i1	35.5	1.4	60	7.05
;29-------------------------------------------------------------
i1	36	3.9	72	6.04
;
i1	37	1.9	65	8.00
i1	37	1.9	65	8.04
i1	39	.4	60	7.11
i1	39.5	.4	60	7.09
;30-------------------------------------------------------------
i1	40	1.9	72	6.06
i1	42	1.9	70	6.08
;
i1	40	.9	72	8.03
i1	41	.4	65	8.00
i1	41.5	.4	65	7.10
i1	42	.9	70	8.06
i1	43	.4	60	8.01
i1	43.5	.4	60	8.00
;31-------------------------------------------------------------
i1	44	1.9	72	7.00
i1	46	1.9	70	7.02
;
i1	44	.9	72	8.08
i1	45	.4	65	8.03
i1	45.5	.4	65	8.02
i1	46	.9	70	8.11
i1	47	.4	60	8.05
i1	47.5	.4	60	8.04
;32-------------------------------------------------------------
i1	48	1.4	72	7.04
i1	49.5	1.9	65	7.02
i1	51.5	1.9	60	7.00
;
i1	48	.4	72	9.00
i1	48.5	.4	72	8.11
i1	49	.9	65	8.05
i1	49	.9	65	8.09
i1	50	.4	70	8.11
i1	50.5	.4	70	8.09
i1	51	.9	60	8.04
i1	51	.9	60	8.07
;33-------------------------------------------------------------
i1	53.5	5.4	65	6.11
;
i1	52	.4	72	8.09
i1	52.5	.4	72	8.07
i1	53	.9	65	8.02
i1	53	.9	65	8.05
i1	54	.4	70	8.07
i1	54.5	.4	70	8.05
i1	55	3.9	60	8.00
i1	55	3.9	60	8.04
;34-------------------------------------------------------------
;35-------------------------------------------------------------
;36-------------------------------------------------------------
i1	60	1.9	72	7.00
i1	62	.9	70	7.04
i1	63	.9	60	6.07
;
i1	60	.4	72	8.02
i1	60.5	.4	72	8.00
i1	61	.4	65	8.07
i1	61.5	.4	65	8.04
i1	62	.4	70	8.00
i1	62.5	.4	70	7.11
i1	63	.4	60	8.05
i1	63.5	.4	60	8.02
;37-------------------------------------------------------------
i1	64	.9	72	7.02
i1	65	.9	65	6.05
i1	66	1.9	70	7.00
;
i1	64	.4	72	7.11
i1	64.5	.4	72	7.09
i1	65	.4	65	8.04
i1	65.5	.4	65	8.00
i1	66	.4	70	7.09
i1	66.5	.4	70	7.07
i1	67	3.9	60	7.11
;38-------------------------------------------------------------
i1	68	2.9	72	6.07
;===============================================================
i999	0	72
s
e
</CsScore>
</CsoundSynthesizer>