-
Notifications
You must be signed in to change notification settings - Fork 5
Expand file tree
/
Copy pathfix kps bnd.scd
More file actions
28 lines (28 loc) · 841 Bytes
/
Copy pathfix kps bnd.scd
File metadata and controls
28 lines (28 loc) · 841 Bytes
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
(
Routine{
Pdef(0,
Pbind(*[
type: \cln,
snd: Pwrand2([\ixa, \kps, \sin, \saw, \fmx, \dfd], [1, 200, 1, 1, 1, 1], inf),
dup: 128,
freq: (200 * Pdup(Pkey(\dup), Pxshuf((1 .. 6), inf))),
dur: 1 / Pdup(Pkey(\dup), Pkey(\dup)),
bnd: Phprand(-0.5, 0.0, 128).round(0.1),
bnt: Pexprand(1.0, 1.3) -1,
bno: (1 / Pkey(\dup) * Pseq((128 .. 1), 1)),
sustain: 8,
pan: Pkey(\bno),
atk: Pkey(\bno),
crv: 8,
rel: 6,
jpr: 2,
jps: Pexprand(1.1, 1.14) - 1,
jpg: Pexprand(1.0, 8.0) - 1,
amp: Pexprand(0.25, 1.0).trace,
jts: 1,
ocu: Pexprand(1.0, 2.0) - 1,
])
).play;
exprand(6.0, 12.0).wait;
}.loop.play
)