1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
<CsoundSynthesizer>
<CsOptions>
-odac
-m0
</CsOptions>
<CsInstruments>
sr = 44100
kr = 441
nchnls = 2
0dbfs = 1
seed 0
/*
SDL Example 2
Mouse triggered clusters of rectangles
*/
gisdl init -1
gicol init -1
instr 1
gisdl, ktrig, kx, ky sdlinit "A SDL Window", 1000, 1000, 30
schedkwhen ktrig, 0.05, 0, 2, 0, 1, kx, ky
kc = abs(oscil(40, 0.2))
ibg sdlcolour kc, kc, kc, 0
sdlrect gisdl, ibg, 0, 0, 10, 10
endin
instr 2
ix init p4
iy init p5
inum random 5, 20
index = 0
while (index < inum) do
event_i "i", 3, random(0, 0.5), random(0.5, 1.5), random(ix-0.05, ix+0.05), random(iy-0.05, iy+0.05)
index += 1
od
endin
instr 3
kc1 line 0, p3, random(100, 255)
kc2 line 0, p3, random(100, 255)
icol sdlcolour kc1, kc2, kc2, 255
kx init p4
ky init p5
isize random 0.01, 0.05
sdlrect gisdl, icol, kx, ky, isize, isize
iamp = 0.3 + (p5*0.7)
kamp line iamp, p3, 0
ipitch = 100 + (p4*1000)
a1 oscil kamp, ipitch
outs a1*0.01, a1*0.01
endin
</CsInstruments>
<CsScore>
i1 0 6000
</CsScore>
</CsoundSynthesizer>
|