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
import Sound.Tidal.ParVagues.Control
once $ "dr"
do
setcps (152/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let slowdown = (midiOff "^41" (slow 2))
let g = gDJF
d1 $ g
$ slowdown
$ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL
$ midiOff "^42" (<| "k . ~ k ~ ~") -- Attente
$ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition
$ "kick:5"
# midiG "^78"
# room 0.85 # dry 0.98 # sz 0.8
d2 $ g
$ slowdown
$ fix (someCyclesBy "<1!16 0!16>" (degradeBy "0 0.5!6 0")) ("hh")
$ "[hh*[<16!4 8 8 16 16> . 8 16],[~ snare:20]*2]"
# note "0 2 0 <2 3 2 -1>"
# midiG' "^80" 0 1.5
d10
$ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>"
# "snare"
# n "[10,12]"
# midiG "^79"
d3 $ g -- Bassline + arps
$ midiOn "^57" (superimpose (
(|+| note (
"0 [12 <12 7>]*<2!4 2 4 4 8>" +
"12" -- Base
))
. (# cut 31)
. (|* gain 0.8)
))
$ slice 8 ("<0!4 1!4>")
$ "poesieSynth:2/4"
# midiG' "^81" 0 1.2
# cut 3
# pan 0.2
# room 0.13
# crushbus 31 (range 10 1.5 "^53")
d4 $ g -- Synth disto baseline
$ "poesieSynth/2"
# n (slow 4 "<0 1>")
# midiG' "^82" 0 0.95
# crushbus 41 (range 10 3.5 "^54")
# cut 4
# pan 0.8
# room 0.4
d5 $ g -- Riff guitaresque
$ whenmod 32 24 (mask "t f!7")
$ whenmod 32 16 ( mask "t f")
$ superimpose (
mask "f t"
. (|+ note 12)
. (# cut 41)
. (|* gain 0.75)
)
$ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>")
# "poesieBass:1"
# cut 4
# crushbus 51 (range 10 1.5 "^55")
# pan 0.7
# midiG "^83"
d8 -- Voices
$ g
$ someCyclesBy "<f!16 t!16>" (
slice 16 (cat [
"10 10(3,8)",
"10 11 10 11",
"10 10(3,8)",
"10 11 9 12"
]))
$ someCyclesBy "<t!16 f!16>" (slice 16 (cat [
"0", "0*2", "0", "0 . 1",
"0*4", "0", "0 1 0 1", "0 1 2 3"
]) )
$ loopAt 4
$ "poesieVoice:1"
# midiG' "^84" 0 0.75
# crushbus 81 (range 5 1.5 "^56")
# distortbus 82 (range 1 2 "^36")
# pan "0.25 0.75"
# room 0.4
# cut 8