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
|
<info>
pichej
Thu Mar 28 09:42:57 PST 1996
Shows use of graphical input for score control.
Generates grains at a pace determined by the rhythm function and
the dur graph controls each grains's duration.
Other pitch and amplitude parameters are also controled by grpahs
</info>
<tk_interface>
cgraph rythm -uni s -rel log -min 0.001 -max 1 -init .05
cgraph dur -uni s -min 0.001 -max 1 -init .05
cgraph pitchhi -uni note -min 4.0 -max 12.0 -init 8.0
cgraph pitchlo -uni note -min 4.0 -max 12.0 -init 6.0
cgraph amp -uni db -min 40 -max 80 -init 75.0
cslider duree_totale -uni sec. -res .1 -min 10 -max 300 init 30
</tk_interface>
<mono>
</mono>
<stereo>
instr 1
krang = (gkpitchhi-gkpitchlo)
kpit rand krang, .987
gkpit = kpit +gkpitchlo
endin
instr 2
ipit = i(gkpit)
ar oscil ampdb(p4-10), cpsoct(ipit), 14
ad oscil ampdb(p4-10), cpsoct(ipit)*1.01, 14
ad linen ad, .001, p3, p3*.9
ar linen ar, .001, p3, p3*.9
outs ar, ad
endin
</stereo>
<quad>
</quad>
<score>
#cyb
f14 0 8192 10 1 0 0 0 1 1 0 0 1 .1 1 0 0 0 0 1
instr 1
p 2 {sq [duree_totale] [duree_totale]s} ;
p 3 {sq [duree_totale] [duree_totale]s} ;
e
instr 2
p 2 {gr rythm [duree_totale]s} ;
p 3 {gr dur [duree_totale]s} ;
p 4 {gr amp [duree_totale]s} ;
e
</score>
|
