_______ _             ______             _
(_______) |           (_____ \        _  | |
_______| | ____  ___  _____) )   _ _| |_| |__  ____
|  ___  | |/ _  |/ _ \|  __  / | | (_   _)  _ \|    \
| |   | | ( (_| | |_| | |  \ \ |_| | | |_| | | | | | |
|_|   |_|\_)___ |\___/|_|   |_\__  |  \__)_| |_|_|_|_|
         (_____|            (____/


           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