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
97
98
99
100
101
102
103
104
105
106
107
d1
$ n "[0,[~ 2*<1!3 2>]*2]" # "cpu2" # gain 1
once $ "dr"
setcps (110/60/4) -- James
once $ s "loop" -- writes one cycle to the loop buffer and uses the input port 0 and the sample number 0
do
let linput = pI "linput"
let lname = pS "lname"
d1 $ "dr*4" # gain 0.5
d2 $ "looper*4" # n "<0 1 2 3 4 5 6 7>" # cut 2
-- d2 $ "loop" # n "<0 1 2 3 4 5 6 7>" # cut 2
once
$ n "5 6"
# "lJames"
# cut 4
once $ "looper" # lname "lEITS"
resetCycles
do -- Looper named loop
setcps (30/60/4) -- Slow sampling
let linput = pI "linput"
let lname = pS "lname"
d1
$ s "looper" # n "<0 1 2 3 4 5 6 7>"
# lname "lEITS"
d2 $ stut 4 0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.5
do
setcps (100/60/4)
d1 $ "k(3,8)" # "jazz" # gain 0.5
d2 $ "hh*8"
# gain 0.45
# room 0.4
# dry 0.99
d3
$ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>"
# s "lEITS"
# cut 3
# gain 1.3
# pan 0.8
d1 $ "jazz*4" # gain 0.8
once
$ "lEITS:1"
# gain 1.2
# cut 1
-- DRILL
do
setcps (120/60/4)
d1
$ "k . k(<3!3 <1 5>>,8)"
# "jazz" # gain 0.7
d2 $ mask "<f!4 t!12>"
$ "~ snare" # gain 0.7
d2 $ "lDrill:3" -- aaAa
# begin 0 # end 0.75
# cut 3 -- Je deviens haineux
once $ "lDrill:5" # begin 0.05 # end 0.25
# cut 3 -- Je deviens haineux
once
$ "lDrill:1"
# gain 1.1 # cut 1
resetCycles
do -- Looper named loop
setcps (30/60/4) -- Slow sampling
let linput = pI "linput"
let lname = pS "lname"
d1
$ s "looper" # n "<0 1 2 3 4 5 6 7>"
# lname "lDrill"
d2 $ stut 4 0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.75
do
setcps (100/60/4)
d1 $ "k(3,8)" # "jazz" # gain 0.5
d2 $ "hh*8"
# gain 0.45
# room 0.4
# dry 0.99
d3
-- $ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>"
$ n (run 8)
# s "lDrill"
# cut 3
# gain 1.3
# pan 0.8
do
d1
$ often (slow 4) $ "loop*[4 [4|8|16]]"
# gain 1.2 # cut 1
# begin (perlin/4)