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
import Sound.Tidal.ParVagues.Control
--
do
let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7))
let linput = pI "linput"
let lname = pS "lname"
let g = gF . gLeslie
setcps (120/60/4)
d1 $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4" )
$ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" )
$ "[jazz,bd]"
# midiG' "^78" 0 0.75
d2 $ g
$ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
$ "~ s ~ s"
# "h2ogmsn:6"
# midiG' "^79" 0 1.3
d3 $ "lJazzP"
# n "<0 1 2 3 4 5 6 7>"
# midiG' "^81" 0 1.2
# cut 3
once $ "lJazz"
d3 -- Dubbed midi!
$ qtrigger 1
$ midiOn "^57" (midiOn "^89" (superimpose (# "olooper")))
$ midiOff "^57" (midiOn "^89" (superimpose (# "looper")))
$ "loop"
resetCycles
do
d1 $ qtrigger 1 $ "looper" # n "<0 1 2 3 5 6 7>" # lname "lJazzP"
d2 $ "dr*4" # gain 0.8
d3 $ "jazz" # gain 0.85
d4 $ "<~!7 cp>" # gain 0.8
once $ "freeLoops"
once $ "lDrill:5" # begin 0.05 # end 0.25
# cut 3 -- Je deviens haineux
once
$ "lBlues"
# gain 1.1 # cut 1
-- OVERDUB!
d1
# gain 0.8