1;Csound_Scelsi
2;Alfonso Peduto 2012
3
4<CsoundSynthesizer>
5
6<CsOptions>
7-d -g
8</CsOptions>
9
10<CsInstruments>
11sr 		= 		44100
12ksmps 		= 		32
13nchnls 		= 		2
140dbfs = 1
15
16iwave ftgen 1, 0, 4096, 10, 1, .5, .33, .25,  .0, .1,  .1, .1
17
18gasendL		init		0
19gasendR		init		0
20
21turnon  "reverber"
22turnon  "generate1"
23turnon  "generate2"
24turnon  "generate3"
25turnon  "generate4"
26
27
28seed		0
29
30;3-notes, medium-low velocity, low to medium frequencies
31instr generate1
32
33ininstr = 3
34indx = 0
35
36loop:
37ivel  random 30, 50
38ifreq random 48, 80
39idur  random 30, 40
40
41event_i "i", "strings", 0+rnd(6), idur, ifreq, ivel
42event_i "i", "strings", 60+rnd(10), idur, ifreq, ivel
43loop_lt indx, 1, ininstr, loop
44
45endin
46
47
48;6-note cluster background, low velocity, low frequencies
49instr generate2
50
51ininstr = 6
52indx = 0
53
54loop:
55ivel  random 0, 30
56ifreq random 30, 60
57idur  random 60, 100
58
59event_i "i", "strings", 20+rnd(12), idur, ifreq, ivel
60event_i "i", "strings", 90+rnd(12), idur, ifreq, ivel
61event_i "i", "strings", 225+rnd(12), idur, ifreq, ivel
62loop_lt indx, 1, ininstr, loop
63
64endin
65
66
67;sharp attacks, high velocity, short durations
68instr generate3
69
70ininstr = 15
71indx = 0
72
73loop:
74ivel  random 90, 110
75ifreq random 48, 80
76idur  random 0.07, 0.6
77
78event_i "i", "strings", 120+rnd(50), idur, ifreq, ivel
79loop_lt indx, 1, ininstr, loop
80
81endin
82
83
84;7-notes cluster background, high frequency, low velocity
85instr generate4
86
87ininstr = 7
88indx = 0
89
90loop:
91ivel  random 0, 35
92ifreq random 60, 90
93idur  random 40, 80
94
95event_i "i", "strings", 180+rnd(8), idur, ifreq, ivel
96loop_lt indx, 1, ininstr, loop
97
98endin
99
100
101
102instr strings
103;Main
104kdtn		jspline		0.05, 0.4, 0.8
105inote  = cpsmidinn(p4)
106kcps transeg inote, p3*0.3, 2, inote -rnd(8) , p3*0.3 , 2 , inote +rnd(9), p3*0.4, 2, inote-rnd(2)
107iamp  = (p5/127)/4
108kctrl   linseg  0, p3*0.80, iamp, p3*0.20, 0
109amain   oscil   kctrl, kcps*semitone(kdtn), 1
110aflat   oscil   kctrl, kcps - .25, 1
111asharp   oscil   kctrl, kcps + .25, 1
112asig    =   amain + asharp + aflat
113
114;LPF
115asig butterlp asig, (p5)*10
116
117;Panning
118kpan		rspline		0,1,0.01,2
119a1, a2	pan2		asig, kpan
120		outs		a1, a2
121
122gasendL		=		gasendL+a1
123gasendR		=		gasendR+a2
124endin
125
126
127		instr		reverber
128aL, aR		reverbsc	gasendL,gasendR,0.85,10000
129		outs		aL, aR
130		clear		gasendL, gasendR
131		endin
132
133</CsInstruments>
134
135<CsScore>
136f 0 4000
137</CsScore>
138</CsoundSynthesizer>
139<bsbPanel>
140 <label>Widgets</label>
141 <objectName/>
142 <x>100</x>
143 <y>100</y>
144 <width>320</width>
145 <height>240</height>
146 <visible>true</visible>
147 <uuid/>
148 <bgcolor mode="nobackground">
149  <r>255</r>
150  <g>255</g>
151  <b>255</b>
152 </bgcolor>
153</bsbPanel>
154<bsbPresets>
155</bsbPresets>
156