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
do
setcps (125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . [k*<1 2 <1 2> <1 <4 [4 2]>>>] ~")
$ "jazz"
d2 $ gF1 $ gM1
$ "~ s ~ s*2" # "<rampleM12:3!3 rampleM12:2>" # note "<-0.5!3 -4.5>"
# gain 0.8
d3 $ gF1 $ gM1 $ "hh(<3!3 <3 5 7 1>>,8) hh(<3!3 5>,8)"
# "h2ogmhh"
# gain 0.8
d4 $ gF2 $ gM3 -- Blues "Fenbass" bassline
$ sometimesBy (1 - "^17") (# n "7")
$ midiOn "^89" (ply "2 <2 2 4 8>")
$ midiOn "^57" ( -- SLICING MACHINE
slice 16 ("<0 4 8 12>"
+ "<[0 1 2 3]!8 [<0 3 1 <3 2>>*8]!8>"))
-- $ chop 16
$ "nujazz_bass125:6"
# crushbus 41 (range 16 4 "^53")
# roombus 42 (range 0 0.4 "^33")
# pan 0.4
# cut 4
d5 $ gF3 $ gM3 -- Pixelated love
-- $ midiOn "^58" ()
$ swing 16
$ arp "up"
-- Shape of my pixel hearts
$ whenmod 64 8 (|+| note "0 12 0 <12!8 [12 24 12 0 12]!4 [12 0 12 -12 0]!3 [[12 0 12]*8]>")
$ note (
"<g a bf <c6!3 d6>>" -- Gamme
- 12 -- Octave
)
# "FMRhodes1" # cut 5
# roombus 52 (range 0 0.4 "^34")
# modIndex "^54"
# pan 0.7
d10
$ off 0.5 ((# n 6) . (|* gain 0.35) . (|+ pan 0.1))
$ note (
"<g4 <a4 bf4 a4 ef4>>"
-- + "0 0 0 0"
)
# "cbow:1"
-- # cut 10
-- # att 0.5
-- # rel 2
# legato 0.8
# gain 0.5
d11 $ gF3 $ gM3
$ note ("~ 0 ~ 0" + "<d4 <[d4 ef4] <[ef4 d4] [g4 fs4]>>>" +3)
# "daft"
# end 0.05
# gain 0.7
# room 0.8 # sz 0.8 # dry 1.9
d8 $ gF1 $ gM1 -- Break danse orleanaise
$ chop 16
$ midiOn "^92" (ply "<2 [2!3 <4 8>]>")
$ midiOn "^36" (loopAt 2 . (# n "<44!7 [44 48]>"))
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:48"))
$ loopAt 2
$ "jungle_breaks:45"