resetCycles

-- Alerte Verte
do
setcps (160/60/4)
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
d1 $ gF1 $ gM1 -- KICK
  $ mask "t t <t!14 f f> <t!12 f t f f>"
  $ whenmod 16 14 (ply "<2 0>")
  $ every' 8 7 (ply 2)
  $ midiOn "^74" (fast 2)
  $ midiOn "^41" (<| "k k k <k [~ k] k k*2>") -- RUN!
  $ midiOff "^41" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
  -- $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
  -- $ fix ((# lpf 6000) . (|* gain 0.9)) "techno:0"
  -- $ "[techno:0,kick:4]"
  $ stack [
  ("kick:4" # lpf 2000 # octersub 0.8 ),
  ("kick:4" # hpf 200 # squiz 2 # octersub 0.4)
  ]
  # lpf 800
  # release 0.8
  # octer 0
  # delay "<0!12 0.3!3 0.8>"
  # delayfb "<0!3 0.5>"
  # delayt 0.2
d2 $ gF1 $ gM2 -- Snare tchak!
  $ midiOn "^42" (ply 2)
  $ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
  $ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>"
  # "[snare:40,snare:22]"
  # pan 0.55
  # note (range "-7" 7 "^30")
  # room 0.8 # dry 0.99 # sz 0.2
  -- # midiG' "^79" 0 1.2
d3 $ gF1 $ gM2 -- Running Hats
  $ g32Bridge
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  $ midiOn "^44" (slow 2)
  $ midiOn "^43" (mask "t(32,64)" . ply 2)
  $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h*<1 <0 1>> ~ h*<1 <2!3 0>>"
  # "h2ogmhh:3"
  -- # legato (0.5 + 0.1 * perlin)
  -- # n "[0|0|0|0|1|1|3|3]*8"
  |* gain (range 0.8 1.2 perlin)
  # room  (slow 8 $ range 0.2 0.45 saw)
  # sz    (slow 8 $ range 0.8 0.2 saw)
  # dry   (slow 4 $ range 0.8 1.2 perlin)
  -- # note (range "-12" 12 "^52")
  # pan 0.6
  # cut 344
  # gain 1.6
d4 $ gF2 $ gM3 -- Resolute Bass
  $ superimpose ((# crushbus 41 (range 16 2.5 "^32")). (# pan 0.2))
  $ superimpose ((# octerbus 42 ("^52")) . (# cut 41))
  -- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
  $ midiOn "^76" ( -- Glitch vary end
    slice 8 "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>"
    . (# legato "<1!7 [1@3 0.25]>")
  )
  $ midiOn "^44" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers
  $ loopAt 4
  $ chop 16
  $ "fbass:25"
  # pan 0.8
  -- # cut 4
  # legato 1
d5 $ gF3 $ gM3-- Guitar A/B - La surprise et l'attente
  $ fix (
    mask "<f!7 <t f>>"
    . ("0.175" ~>) -- Calage
    . (whenmod 4 2 (slice 8 "0"))
    . slice 5 4
    -- . segment 16
    . (# "fguitar:24")
    ) "guitarA"
  $ fix (
    whenmod 4 3 (# silence)
    . midiOn "^57" (# n "25")
    . midiOn "^89" (  (# n 27))
    . midiOff "^89" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
    . (# "fguitar")
    . (# n "<25!3 [25 26] 25!2 27!2 27!8>")
    . (# pan 0.65)
    . (# leslie "^33")
    . (# lsize (1 + (slow 16 perlin * 2)))
    . (# crushbus 71 (range 10 2 "^53"))
    . (# lrate 6.7)
    -- . (# cut 61)
    ) "guitarB"
  $ "[guitarA,guitarB]"
  # pan 0.8
  # crushbus 51 (range 10 3.5 "^53")
  # cut 5
d7 $ gF3 $ gM3 -- Clave de l'été pitchable
  $ midiOn "^91" (fast 2)
  $ midiOn ("^59" - "^91") (fast 2)
  $ (|* gain "0.75 1 1 1 0.75 1 1 1")
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
  # speed (range 0 2 "^35")
  # gain 1.7
d8 $ gF1 $ gM2 -- I WANT THEM DRUMS
  $ midiOn "^92"  --BOUTON NASSIM
    (
      chop 16 .
      (loopAt 0.5) .
     (# "breaks165")
     -- . (# cut 2)
    . (|* gain 1.1)
    )
  $ loopAt 2
  $ midiOff "^60" (mask "t(8,16,1)") . chop 16
  $ chop 8
  $ "jungle_breaks:45" # cut 8
  # hpf 5000
  # gain 1.2
d9 $ gF3 $ gM3 -- Nappes crushées indépendantes
  $ superimpose
    ((# cut 91)
    . (# crushbus 91 (range 16 1.5 "^19"))
    . (# hpf 1400)
    -- . (# delay 0.5) . (# delayt 0.125) . (# delayfb 0)
    . (|* gain 0.5)
    )
  -- $ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
  -- $ superimpose ((|- note 12) . (# cut 101))
  $ note (euclid "<5 3 6>" 6
  $ "<e e <c c g> <e b>>")
  # "moog"
  # cut 10
  # rel 1
  # octersub 2
  # pan 0.85
  # lpf 2000
d10 $ gF3 $ gM3 -- Sirene indépendante
  $ superimpose ((# cut 101)
  . (# lpf 3000)
  . ( # crushbus 101 (range 10 0.1 "^29"))
  . (|* gain 0.8)
  )
  $ note ("<e e c e>/4")
  # octave 3
  # legato 2
  # "supersiren"
  # speed 0.2
  # lpf 5000
  # ampbus 111 (range 0 0.15 "^13")
  # pan "<0.2!16 0.8!16>"
  # room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
  # dry (slow 32 $ range 0 2 perlin)
  # cut 10
  # gain 0.8
d6 $ gF1 $ gM3 -- CLAPS!
  $ "~ c ~ <c!3 <c*2 [c c*2]>>" # "cp"
d11
  -- $ mask "<f!8 t!8>"
  $ stack [
  -- SELF-DESTRUCT SEQUENCE --
  whenmod 8 6 (# silence) $ slow 4
  $ whenmod 32 24 ((# begin 0.44) . (# end 1) . (# n 45)) -- Activated!
  $ ("~!2 rhadamanthe_vocal:45" # gain 1.1
  # begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110,
  -- SYSTEM OVERLOAD
  mask "<t!8 f!56>" $
  "<~!7 [~ rhadamanthe_vocal:46]>" # cut 111,
  -- Cigarette Luck
  mask "<f!24 t!8>" $
  n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>"
  # gain 0.7
  # cut 112
  # gain 1.2
  ]
d12 -- Angels of AAh --
    $ slow 2
    $ gF3 $ gM3
    $ note "<[a3,<e4 e4(3,8)>] [a4([3 <3!3 5>],8),[~ <d4 fs4>]]>"
    # "rhadamanthe_vocal:5" # legato 2
    # gain 0.8 # room 0.4 # dry 1.2 # sz 0.5
    # octersub (slow 16 $ range 0.2 0.8 perlin)
d6 $ "seawolf:0/4"
  # cut 6
  # gain 0.75

once $ "rhadamanthe_vocal:5" # cut 1

once $ "movie_giant:13" # orbit 8 -- Jungle
