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
_______ _ ______ _
(_______) | (_____ \ _ | |
_______| | ____ ___ _____) ) _ _| |_| |__ ____
| ___ | |/ _ |/ _ \| __ / | | (_ _) _ \| \
| | | | ( (_| | |_| | | \ \ |_| | | |_| | | | | | |
|_| |_|\_)___ |\___/|_| |_\__ | \__)_| |_|_|_|_|
(_____| (____/
FETE DE LA MUSIQUE
2022
____ __ __
| _ \ __ _ _ _\ \ / /_ _ __ _ _ _ ___ ___
| |_) / _` | '__\ \ / / _` |/ _` | | | |/ _ \/ __|
| __/ (_| | | \ V / (_| | (_| | |_| | __/\__ \
|_| \__,_|_| \_/ \__,_|\__, |\__,_|\___||___/
____/
Music LiveCoding with TidalCycles
setcps (120/60/4)
do
let g = (# djf "^49")
d1 $ g $ "k . k(3,8)" # "kick:5"
d2 $ g $ "~ snare:20"
d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
d1 $ "k*<4 8>" # "808:1"
d1 $ "kick:5*4"
-- L'interprete c'est l'Ordinateur
once $ "ircam:1" # cut 1 # gain 0.9
-- Le medium, c'est du code
do
let g1 = whenmod 32 24 (# djfbus 1 ((slow 8 $ range 0.5 0.1 saw)))
let g2 = whenmod 64 32 (# djfbus 2 ((slow 32 $ range 0.5 0.9 saw)))
let g = g1 . g2
d1 $ g $ "k . k(<1 3 3 <5 8>>,8)" # "kick:5" # gain 0.9
d2 $ g $ fast 2 $ "~ snare:20" # gain 0.8
d3 $ g $ fast "<1 [2|1] [2|4] 4>" $ "dr*<8 4 8 16>" # gain 0.9
d4 $ g $ slice 2 "<0!3 1>" $ "fpiano:8" # gain 0.8
# cut 4
do
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw))) -- Les effets aussi :)
setcps (80/60/4) -- Le BPM aussi
d1 $ g $ "kick:5" -- Le kick aussi
d2 $ g
$ loopAt 2
$ whenmod 4 3 (ply "<2 4>") -- Les variations aussi!
$ "break:3"
# cut 2 # gain 0.8 -- Les loops de breaks aussi
d4 $ g
$ slice 2 "< 0 1>" -- L'orchestration aussi
$ "fpiano:8" -- Les samples aussi
# cut 4 # gain 0.8
d5 $ "drum:2*[8 <16 [8 16] [16 8] <16 32>>" # gain 1.2 -- Le drumroll aussi
once $ "fguitar" # lpf 5000
do
setcps (80/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 1 saw))
d1 $ g $ "k k(2,8)" # "kick:5" # gain 0.95
d2 $ g $ loopAt 2
$ whenmod 4 3 (mask "t t <t f> f")
$ slice 4 ("[<0 1 2 3> <3 2 1 0>]*2")
$ "break:3" # cut 2 # gain 0.8
d3 $ g $ slice 2 "<0 1>" $ "fpiano:8" # cut 3 # gain 0.8
d4 -- Drumroll cubique
$ g $ "d*<8 [8 16] [16 8] [16 <16 32>]>" # "drum:2" # gain 0.8