
do
setcps (130/60/4)
-- resetCycles
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1 
  $ midiOn "^42" (<| "k k k <k k*2 k [~ k?]>")
  $ midiOff "^42" (<| "k . k" )
  $ "[kick:5,808bd:5]" 
  # gain 1.4
d2 $ "~ s ~ s" # "vec1_snare:30"
d3 
  $ "~ h ~ h ~ h ~ h*<1!3 [<2 4> 2]>" # "h2ogmhh" 
  # n "<1!7 2 1!7 2 2!4 3!4>" 
  # gain 1.4
d5 $ gF3 $ gM3 
  $ superimpose ((# cut 51) . (jux (# cut 52)) .
  (midiOn "^90" (ply 4)) .
  (# begin 0.79) . (# end 0.85) . (# pan 0.8) . (# hpf 3000)
  . (# gain "^54")
  )
  $ midiOn "^58" (slow 2)
  $ "rhadamanthe_melo:20/4" 
  # cut 5
  -- # pan 0.3
  
once$ "rhadamanthe_melo:20" 
# begin 0.79 
# end 0.85 
# cut 5

movie_haunted : "HM PlayingGod", "HM LittleDevil", "HM Midnight"
movie_search : "TS Devil"
movie_telescope : "TE Devil"

Sombres/provocants:

movie_tyrant : "OT HellOnEarth", "OT Attack", "OT DeathMissile"
movie_deadly : "DM Revolution", "DM OutOfMind", "DM Patriot"
movie_not_dead : "ND ColdBlood"
movie_rude : "RW Blow", "RW Cumming" (si tu veux du provoc direct)

Concepts intéressants:

movie_memory : "MM Truth", "MM Is he crazy"
movie_final : "FP DarkWorld"

-- d1 $ gF1 $ gM1 
--   $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
--   $ midiOff "^42" (<| "<k ~>")
--   -- $ fix (|* gain 0.6) "jazz"
--   $ "[808bd:13,jazz,kicklinn]"
--   # gain 1.4
-- d2 
--   $ midiOn  "^43" ((<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
--   $ midiOff "^43" (<| "~ <s <~ [~ s]>>")
--   $ "vec1_claps" 
--   # gain 1
--   # room (slow 16 $ range 0 0.8 perlin)
--   # sz 0.67 
--   # dry 0.9
--   -- # att 0.03 # rel 2
-- d3 $ gF1 $ gM1 $ 
--   "dr*[8 <8!7 16>]"
--   # gain 0.8

-- d4 $ gF2 $ gM3 
--   $ note "<<g3 [g3@2 g3 a3@2]> <e3!3 [e3 c3]>>" 
--   # "bassWarsaw"   
--   # gain 1.4
--   # crushbus 41 (range 16 3.5 "^53")
-- d7 $ gF3 $ gM3 
--   $ midiOn "^91" (ply 2 . (# legato 0.25))
--   $ midiOn "^59" ((|+ note 12))
--   $ fast 2 
--   $ note "e3 b3 <e3 <c4 e4>> <b3!15 ~>" 
--   # "FMRhodes1" 
--   # modIndex (range 0 2.4 "^35")
--   # crushbus 71 (range 16 2.4 "^55")
--   # gain 1.8
--   # room 0.5 # dry 1.3 # sz 0.9
--   -- # crushbus 41 (range 16 3.5 "^53")
-- d5 $ gF3 $ gM3 -- guitar+synth mariés pour toujours
--   $ chop 2
--   $ "gfunk_lead:4/4" 
--   # cut 5 
--   # gain 1.3
--   # bandf 200
-- d8 $ gF1 $ gM1
--   $ midiOn "^92" (ply "1 <2!3 4>")
--   $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
--   $ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
--   $ midiOn "^56" ((# n "23")) -- Raise COMEON!
--   $ chop 16
--   $ loopAt 2
--   $ "jungle_breaks:45"
--   # cut 8
--   # gain 1.5
