once $ "drum:2"


-- 0 Intro 16 Premier 48 second 80 Outro 96
do
-- resetCycles
let tempo = 110
setcps (tempo/60/4)
let g = id
d1 $ g
  $ mask "<f!16 t!32 t!32 t!15 f>"
  $ whenmod 8 7 (fast 2)
  $ "k k <k!2 [~ k] k> k*<1 2 [0 2] 2>"
  # "jazz"
  # gain 1.1
d2
  $ mask "<f!16 f!4 t!28 f!4 t!28 f!16>"
  $ g $ "[~ clap]*2"
  # gain (slow 48 $ range 0.6 1.4 saw)
  # lpf 2000
d3 $ g
  $ mask "<f!8 t!8 f!2 t!30 f!3 t!29 t!16>"
  $ degradeBy "<0!8 0.1!8 0.2!8 0.25!8>"
  $ "d*[8 <8 16>]" # "[drum:2,amencutup:7]"
  # lpf 4000
  # gain 1.2
d4
  $ mask "<f!16 f!7 t!25 f!16 t!16 t!6 f!2>"
  $ whenmod 4 3 (slice 4 "0*<8 4>")
  $ g "fguitar" # n "<19 19 <19 ~> 1>"
  # cut 4
  # gain 0.9
  # pan 0.8
  # crush "<16!48 16!7 2.5 1.9!24 1.9!8 2.5!4 16!4>"
d5 $ g
  $ someCyclesBy "<0!16 1!64 0!16>" (# crush ("<1.8!3 <16 2.5>>"))
  $ whenmod 16 8 (slice 4 (run 4))
  $ loopAt 2 $ "fbass" # n "<16!8 19!8>"
  # cut 5
  # gain "<1!16 1.1!32 1.2!32 0.9!16>"
  # pan 0.2
d6 $ g -- Nappes moog
  $ mask "<t(<1!6 3 3>,4)!8 t!8 t!24 t(2,4)!8 t!24 t(3,4)!8 t(<1!6 3 3>,4)!8>"
 $ note (
   -- arp "up"
   "c4"
   + "[0 <7!4 5!4>](<5!3 3>,8)"
   + "0 12"
   )
 # "moog"
 # pan 0.4
 # room 0.4
 # sz 0.8
 # gain 0.8
 # cut 6
d7 $ g -- Cello
  $ mask "<t!16 f!32 t!32 t!16>"
  $ whenmod 16 6 (juxBy 0.5 (
    (# cut 61)
    . (# n 2)
    . (|+| note (arp "<up!7 <down downup>>" "c'min'3"
    + "[0 <0!16 0!32 12!32 0!16>!3]" -- Retour du roi
    )
    )
  ))
  $ note "<0 <7 5>>"
  # "cbow:1"
  # gain (1.0 * "<0.6!16 0.8!32 0.9!32 0.8!8 0.7!8>")
  # cut 6
  # pan 0.7