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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
do
setcps (120/60/4)
d1
$ superimpose (const $ "jazz"
)
$ loopAt 4 $ "dusty"
# gain 0.8
# cut 1
d2 $ fast "<4!3 8>" $ "dr" # gain 0.5
d3
$ sometimesBy "0.75 0.5 0.25 0.1" (ply 2)
$ fast "<1!3 2>"
$ "~ ~ ~ [sn:1,snare:2]"
-- # gain 0.8
-- TECHNO-CLAP
do
d1
$ "k . <~!4 k!4 k(<3 5>,8)!4>"
# "jazz" # gain 1.8
d2
$ fix (
(stut 2 0.9 "<q e s>") .
(|* gain 2)
) ("hh")
$ "c*2 c*<4 [2 4]>"
# "cpu:3!7 [cpu2:2,hh]"
# lpf (fast 4 $ range 2000 10000 rand)
# gain (slow 16 $ range 0.8 2 sine)
-- Samedi après-midi venteux
do
setcps (130/60/4)
let glob = (degradeBy ("0 1 1 [1 0]" * 0.95) . (# djf 0.3))
d1
$ glob
$ "bd*<4!16 2 2 1 2>" # gain 1.5
d2 -- continuous laser
$ glob
$ whenmod 32 0 (|* gain (slow 16 $ range 1 0.5 isaw))
$ jux rev
$ slow 2
$ "bd" >| speed (segment (slow 24 "<32 64 128>") $ range 40 5 sine)
d3
-- $ glob
$ jux rev
$ iter 4
$ whenmod 64 32 (# squiz 2)
$ "bd*<[8 <8 8 2> 4 8]!3 [16!3 8]>"
# gain 2.5
# hpf 5000
d4
$ glob
$ superimpose (
swing 2 . arp "<updown!3 downup>"
. (|+ note 12)
)
$ "supersaw"
# note ("<c3'maj c3'maj c3'min g3'maj>")
# voice 0.1
# gain (slow 8 $ range 0.55 1 sine)
d5
$ glob
$ arp "up"
$ "supergong"
# note ("<c3'maj c3'maj c3'min g3'maj>")
# octave "<7 7 8 9>"
# gain 1.2
d6 -- bourrasque
$ glob
$ every 16 (jux rev) -- echo
-- $ every 8 (# gain 0.9)
$ s "space:3"
# speed 0.25
# gain 1.25
# pan 1