____          __     __
 |  _ \ __ _ _ _\ \   / /_ _  __ _ _   _  ___  ___
 | |_) / _` | '__\ \ / / _` |/ _` | | | |/ _ \/ __|
 |  __/ (_| | |   \ V / (_| | (_| | |_| |  __/\__ \
 |_|   \__,_|_|    \_/ \__,_|\__, |\__,_|\___||___/
                              ____/

Music LiveCoding with TidalCycles

-- L'interprete c'est l'Ordinateur
-- Le medium, c'est du code

once $ "ircam:1" # cut 1

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 ausso
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

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