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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
import Sound.Tidal.ParVagues.Control
setcps 0.5
d4 $ n "0 2 4 12" # s "midi"
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^73" (fast 2)
$ midiOn "^41" (<| "k*<1!12 2!4> k*<1!8 2!8> k*<1!12 2!4> [<k ~ k k> <~ k>]")
$ midiOff "^41" (<| "k*2")
$ "[cpu2,jazz]"
-- # att "^30"
-- # rel "^50"
# midiG' "^78" 0 2
# room 0.2
-- # crushbus 11 (range 16 0.95 "^14")
d2 $ g
$ midiOn ("^75") (fast 2)
$ midiOn ("^41"-"^43") (fast 2)
$ "~ [cp,clap:1]"
# midiG' "^79" 0 3
# note (range "-12" "12" "^51")
# room 0.4 # dry 0.98
# crushbus 11 (range 16 1.95 "^15")
d3 $ g
$ midiOn ("^44" + "^76") (
const $ loopAt "<1!6 2 2>"
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ "breaks165"
# cut 3
# note (range "-12" "12" "^52")
# midiG' "^80" 0 1.8
)
$ rarely ("e" ~>)
$ every' 4 3 (fast "<1 2> <2 4>")
$ "[drum:2,tech:7]*8"
# midiG' "^80" 0 1.9
d4 $ g -- Mecano Course
$ midiOn "^57" (
slice 8 ("0*<1 2> 1 2 3*<2 1>")
-- . (>| "breaks125")
)
$ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ sometimesBy "0 ^33!7" (shuffle 8)
$ someCyclesBy "^53" (iter "1 4")
$ chop 8
$ loopAt 1
$ "breaks125:3"
# midiG' "^81" 0 1.2
# cut 4
d5 -- Runny Maracas Pitchables
$ g
$ mask "t(16,32)"
$ midiOn "^90" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^82" 0 2
# room "^34"
# note (range "-24" "0" "^18")
# crushbus 51 (range 16 4.2 "^54")
d6 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
# room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw)
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 6
d8 $ g
$ note (scale "aeolian" (iter 4 $ slow 4 $ arpeggiate "c'min'4") - 24)
# "supersaw"
# midiG' "^56" 0 1
# crushbus 51 (range 16 2 "^36")
# pan 0.2
# velocity 0.9
# room 0.4