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
resetCycles
-- LA NOVA BOSSERA
-- breakbeat X bossa nova <3
do
let gDJFManuel1 = someCyclesBy "<1!24 0!8>" (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJFManuel2 = someCyclesBy "<1!24 0!8>" (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gDJFPont = (midiOn "^41" (whenmod 32 24 (# djfbus 3 (slow 8 $ range 0.15 0.45 saw))))
let mBreak = ((mask "f . t f!3"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = gDJFManuel1
let g2 = gDJFManuel2
let modIndex = pF "modIndex"
let m = mBreak
setcps (60/60/4)
d1 $ g1 $ m
-- $ "k(<3!3 5>,8)"
$ midiOn "^42" (fast 2) -- Cooldown :')
$ fast 2 $ "k k k <k [<~ k> k]>" -- TECHNOOOO
-- $ "k . <~ [k . <k k(<3 [5 3]>,8)>]>"
# "[808bd:3,cpu2]" -- Bumpy kick
# midiG' "^78" 0 1.4
d2 $ g1 $ m
$ fast 2
$ "~ . <s!4 ~!3 s> <~!4 s!4> ~ ~"
-- $ "~ . s"
# "[snare:20,clap]"
# note "<0!7 <0 -3>>"
# midiG' "^79" 0 1.4
d3 $ g2 $ m
$ mask "<t!3 [t!3 f]>"
$ midiOn "^76" (iter "4 8")
$ midiOn "^44" (slice 4 (run "<8!3 <16 32>>"))
$ loopAt 2
$ chop 8
$ "break"
# pan 0.2
# cut 3
# speed (range "0" 2 "^52")
# midiG' "^80" 0 1.1
d4 $ g2
$ whenmod 16 14 (# n "<6 ~>")
$ midiOn "^57" (striate "4 <4 2>" . chop 8)
$ loopAt 1
$ "bossa"
# n "<0 0 0 1 0 1 <2!3 3> <1 0>>"
# cut 4
# pan 0.8
# midiG' "^81" 0 1
d5 $ g2
$ note (arp "<up down>" "<f'min'4 fs'min'4>*4"
+ "[0,12]"
- 24
)
# room 0.4 # dry 1 # sz 0.9
# modIndex (range 0 35 ("^54"))
# crushbus 5 (range 12 3.5 ("^34"))
# "FMRhodes1"
# release 4
# lpf 2000
# midiG' "^82" 0 1.3
d8 $ g2 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91") (scramble 4 . fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[h2ogmhh:13]"
# speed (range 0.5 1.5 "^55")
# midiG' "^83" 0 1.5
d9
$ g2
$ midiOn "^92" (ply "2 4")
$ midiOn "^60" (ply 8)
$ note (
"<f'min fs'min>"
+ "[0,12]"
- 12
)
# "superhammond"
# att (range 0.5 1.5 saw)
# rel 4
# crushbus 9 (range 10 3.5 (sine))
# midiG' "^84" 0 1
# pan 0.8