8
9
10
11
12
13
14
15
16
17
18
19
20
21
..
50
51
52
53
54
55
56
|
; p5 freq
givol ftgen 1, 0, 10000, 25, \
500, 60, \
1000, 20, \
7000, 3, \
10000, 5
instr sine
tigoto skipinit
kt init 0
al init 1.0
ifreq = p5
ichime = p6
................................................................................
if p3 >= 0 then
aw = aw * at
endif
out aw
endin
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
; p5 freq
givol ftgen 1, 0, 10000, 25, \
500, 60, \
1000, 20, \
7000, 3, \
10000, 5
gipian ftgen 2, 0, 10000, 10, \
1, 0.5, 0.3, 0.25, 0.2, 0.167, 0.14, 0.125, .111
instr sine
tigoto skipinit
kt init 0
al init 1.0
ifreq = p5
ichime = p6
................................................................................
if p3 >= 0 then
aw = aw * at
endif
out aw
endin
instr warbulator
tigoto skipinit
irange = p6
ifreq = p5
ivol = p4 * 40 * table(ifreq, givol)
ata poscil 1.0, 100
atf poscil 1.0, bpf(ata, 0,1, 1,100)
atq poscil 1.0, bpf(atf, 0,ifreq, 1,ifreq*irange)
skipinit:
aw = atq
if p3 >= 0 then
at linseg 1, p3, 0
aw = aw * at
endif
out ivol * aw
endin
instr bell
tigoto skipinit
ifreq = p5
ivol = p4 * 40 * table(ifreq, givol)
at poscil 1.0, ifreq*2
af poscil 1.0, bpfcos(at, 0,ifreq, 1,ifreq*2.5)
skipinit:
aw = af
if p3 >= 0 then
at linseg 1, p3, 0
aw = aw * at
endif
out ivol * aw
endin
|