SuperClean-code/clump-test.scd at main · danielmkarlsson/SuperClean-code · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(
~clump = Plprand(1, 29).asStream;
Pdef(0,
	Pseed(4,
		Pbind(*[
			type: \cln,
			snd: \sin,
			dur: Pseg(Plprand(1/8, 1), Plprand(10, 50), \wel, inf),
			atk: Pdup(Phprand(0, 2), Plprand(1/8, 8)),
			rel: Pdup(Plprand(0, 2), Plprand(1/8, 8)),
			crv: Pseg([-8, 8, -8], Plprand(10, 100), \wel, inf),
			amp: Pseg(Plprand(0.333, 0.725), Plprand(10, 50), \wel, inf),
			freq: (20 * Pdup(Plprand(0, 2), Plprand(1, 226).clump(Pfunc({~clump.next})).asStream.trace
				% (50 * Plprand(1, 226))) * Plprand(1, 5)),
			legato: Pkey(\atk) + Pkey(\rel),
			bnd: Pseg(Pwhite(-0.01, 0.01), Plprand(10, 50), \wel, inf)
				* Pkey(\legato).linlin(2/8, 16, 1, 2),
			cai: Pseg(Pwhite(0.0, 0.5), Plprand(10, 50), \wel, inf)
				* Pkey(\legato).linlin(2/8, 16, -0.25, 1.25).clip(0,1),
		])
	)
).play
)