resetCycles

do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 -- Kick solide 4/4 disponible
  -- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
  $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
  $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
  $ "[kick:4]"
d2 $ gF1 $ gM1 -- Snare fantomatique
  $ midiOn "^43" (<| "~ s ~ s")
  $ midiOff "^43" (<| "~ s")
  $ "[cp:1,rampleM1:10]"
  # room 0.1 # sz 0.5 # dry 0.9
d3 $ gF1 $ gM1 -- Highest hats
  $ midiOff "^44" (slow 2)
  $ midiOn "^76" (fast 2)
  -- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
  $ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
  -- # "[h2ogmsn:14]"
  # "[rampleS57:2]"
  # note (-12 + "3.5" + "e6")
  -- # cut 3
  # gain (0.7 * (range 0.8 1.25 (fast 2 perlin)))
  # pan 0.3
d6 $ gF1 $ gM1 $ "hh(3,8) hh(<3!6 5 <5 [5 8]>>,8)"
  # "rampleS57:1" # "<hh:2 [hh:2 hh:3*<1!3 4>]>" # cut 6
  # gain 0.9 # cut 3
d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
  $ midiOn "^89" (ply "<8!8 [16 <8 16>]!8>  <8 16>")
  $ midiOn "^57" (juxBy 0.2 (
    ("h" ~>)
    . swing 2
    -- . rarely (off "e" id)
    . arp "<up!2 <updown!2 downup updown> up>"
    . (|+ note "[0,12]") . (# cut 4) . (|+ pan 0.5)
    . (# "FMRhodes1")
    ))
  $ superimpose ( -- Little Angels
    (0.5 ~>)
  . (|+ note "[7,-12]")
  . (|* gain 0.8)
  . (# rel 2))
  $ note ("<b3 d3 e3 g3>/2")
  # "bassWarsaw"
  # crushbus 41 (range 16 3.5  "^53")
  # squizbus 42 (range 0  1.5  "^33")
  # octerbus 43 (range 0  1    "^17")
  # octersubbus 44 (range 0  1 "^17")
  # att 0.25 # rel 4
  # pan 0.2 # room 0
d5 $ gF3 $ gM3 -- Guitare contetemps FIXME Pas convaincante
  $ n "~ <0 0 4 [3(3,8),4([1 3],8,2)] 8 8 10 [14 4 14(3,8)]>"
  # crushbus 51 (range 16 5 "^54")
  # room 0.4 # att 0.4 # rel 0.252 # legato 0.4
  # "nujazz_guitar"
d9 $ gF3 $ gM3 $ "wind:0" -- Vent de minuit originel
  # speed (slow 16 $ range 0.12 0.34 perlin)
  # roombus 91 (fast 4 $ range 0 0.4 sine)
d7 $ gM1 $ gF1 $ loopAt 2 -- Break de secours
  $ midiOn "^91" (ply 8)
  $ whenmod 4 2 (ply "1 <1 2>" . rev)
  $ slice 4 (run 4)
  $ "jungle_breaks:48" # gain 0.8
d8 $ gM1 $ gF1 -- Break horloger
  $ midiOn "^92" (ply "2!3 <2 4>")
  $ someCyclesBy (1-"^36") (mask "t(<3 3 5 [3 8]>,8)")
  $ midiOff "^60" (mask "t(<1 <0!3 1>>,4)")
  $ chop 8
  $ "jungle_breaks:2"
  # cut 8
  # speed (range 0.125 4 "^56")
d10 -- Choir of moog major voices
  $ ply "<1!8 2!8 4!16>"
  $ arp "pinkydown"
  $ "moogBass"
  # note "<b3'maj'2 d3'maj'2 e3'maj'2 g3'maj'2>/2"
  # cut 5
  # room 0.2
  # gain 0.6
  # pan (slow 32 $ range 0.9 0.1 saw)
d11 -- CBOW friendo
  $ whenmod 32 0 ( -- Triste souvenir du soleil
    (|- note 12) . sometimesBy "0 1!3" rev)
  -- $ ply "<1!8 2!8 4!16>"
  $ rolledBy "<1.33!3 1.4>"
  $ "cbow:3"
  # note ("<b'maj'8 d'maj'8 e'maj'8 g3'maj'16>/2" - 12)
  # cut 5
  # room 0.2
  # gain 0.6
  # pan (slow 32 $ range 0.9 0.1 saw)
