-- Inspiré par [PV Nova](https://www.youtube.com/watch?v=EE-6l6g7YtA)
-- # Rythmique
-- Poum tchak poum tchak
-- Charley fretillants
-- Claps reverb
-- p t p t pp t p cc
-- h hhh h hh hhh h
-- # Melodie: accords magiques
-- Fa Sol Lam Mim
-- Grosse basse qui tache
-- Guitares elec legere cocotte bondissant de croche en croche
-- # Refrain
-- Piano: memes accords, plaqués
-- Guitare: aigus "a la neil rogers"? -- Lol non je code pas ça
-- Basse: nouvelle ligne!
-- Gimmick funky piano electrique
-- Synthé aérien "famille des pads"
-- Percus bonus: triangle/claves

do
resetCycles
setcps (105/60/4)
d1
  $ fix (
    (# "hh") . (# n "0 <0!3 <7 [7 8]>>")
    . (sometimesBy  "0 <0!3 <0 1>>" (ply "2 [2 1]"))
    . (# cut 11)
    . (# hpf 3000)
  ) "h"
  $ fix (# "cpu:2") "sn"
  $ fix (
    (# "clap:1")
    . (# room 0.1)
    . (# sz 0.2)
    . (# dry 0.9)
    . (|* gain 0.65)
  ) "cp"
  $ fix (
    (# "[808bd:3,cpu2]")
  ) "bd"
  $ stack [
  "bd sn bd <[sn bd] cp*2>",
  "h(<3!3 5>,8) h(<5 3>,8)"
  ]
  # gain 0.7
d2 -- Piano altéré: FAM7 SOLsus4 LAm7 MIm7
  $ mask "<f!8 t!56>"
  $ someCyclesBy "<f!32 t!8 f!32 t!24>" (superimpose ( -- Accords aigus
    swing "1 <1 2>"
    . sometimesBy "<f!32 t!8 f!32 t!16 f!8>" (fast 2)
    . scramble 4
    . arp "<up!3 down>"
    . (|+ note 12)
    . (|* gain 0.9)
    . (|+ pan 0.1)
  ))
  $ note "<f'maj7 g'sus4 a4'min7 e'min7>"
  # "<FMRhodes1!8 FMRhodes2!8>"
  -- # "superpiano" # velocity 0.75 # hpf 2500
  # octave 4
  # pan 0.4
  -- # gain 0.95
d3 -- Bassline
  $ mask "<f!4 t!60>"
  $ sometimesBy "<f!8 [f t] t!3 f [f t] t t>" (# lpf 200)
  $ loopAt 2
  $ slice 8 (
    sometimesBy "<f!32 t!8 f!32 t!16 f!8>" ((>| "0 1 0 1 1 1 1*2 [1 0]"))
    "0 0 1 1 0 1 [0 1] <~ [~ 1]>"
  )
  $ "fbass:3"
  # cut 3
  # pan 0.55
  # gain (slow 16 $ range 0.65 0.85 sine)
d4 -- Cocotte
  $ mask "<f!16 t!48>"
  $ slice 4 "0(3,8) <4!3 3>"
  $ "fguitar:48"
  # gain (slow 64 $ range 0.45 0.75 sine)
  # pan 0.8
  # legato (slow 32 $ range 0.8 1.2 sine)
  # cut 4
d5 -- EPiano groovy refrain
  $ mask "<f!32 t!8 f!32 t!16 f!8>"
  $ loopAt 2
  $ "fepiano:19"
  # gain (slow 64 $ range 0.5 0.75 (1 - sine))
  # cut 5
  # pan 0.25
d6 -- Percus bonus
  $ mask "<f!16 t!48>"
  $ fast "<16 <16!4 <16 [16 8 16]>!4> 16 [16 <8 [8 16]>]>"
  $ "tech:8"
  # pan (slow 32 $ range 0.7 0.85 sine)
  # gain 0.8
  # cut 6
d7 -- Roll bonus
  $ mask "<f!4 t?!4 t!48>"
  $ someCyclesBy (slow 32 $ sine) (# gain 0.95)
  $ "gretsch:11(<12!3 [12 16]>,16)"
  # hpf 2500
  # gain 0
  # pan (slow 32 $ range 0.3 0.45 sine)
  # cut 7
d8 -- Synthé aerien pad-like
  $ note "<a5'min g5'maj <a5'min f'maj7> <g5'maj e'min7>>"
  # "supersaw"
  # voice 0.1
  # gain (slow 32 $ range 0 0.25 saw)
  # room 0.1