hard_monday.tidal 3.05 KB
do
setcps (180/60/4)
let gF =  (# 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"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = id
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable
  $ midiOn "^41" (
    # "hardkick:2" -- Kick GABBER
   )
  $ midiOn "^75" (fast 2)
  $ midiOn  "^42" (struct "t t <t!3 [t t*2]> <t [t t] t [t t*2]>") -- FIXME GABBER DOUBLE
  -- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
  $ midiOff "^42" (struct "t ~")
  -- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
  $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
  # "[techno:0,jazz]" -- Kick dnb
  # midiG' "^78" 0 1
d2 $ gF $ gMute -- Clap timer
  $ midiOn "^43" (<| "c c c*<1!6 2 2> c*<1 2>")
  $ midiOff "^43" (<| "~ c")
  $ drumFrom "[linnlm1]" "cp"
  # lpf 1200
  # distortbus 21 (range 0 2 "^31")
  # midiG' "^79" 0 1
d3 $ gF $ gMute -- Chapeau!
  $ "~ h ~ h*<1!3 2> ~ h*<1!7 2> ~ h*<1 <2 4>>"
  # "[808oh, hh, dr]"
  # pan 0.6
  # midiG' "^80" 0 0.7
d4 $ gF3
  $ slow 2
  $ note (
    "c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
    - 24)
  # "bassWarsaw"
  # crushbus 41 (range 16 3.93 "^53")
  # cut 4
  # pan 0.3
  # legato 0.75
  # midiG' "^81" 0 0.7
d6 $ gF3
  -- $ slow 2
  $ note "c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
  # "harpsichord1"
  # crushbus 61 (range 16 3.93 "^54")
  # cut 6
# pan 0.3
  # legato 0.5
  # midiG' "^82" 0 0.7
d7 $ gF2
  --
  --  9   │     //Standard Values
  -- 10   │     out = 0, pan = 0, freq = 440, amp = 0.5, gate = 1,
  -- 11   │     att = 1, dec = 3, sus = 0, rel = 1.5, crv = -4,
  -- 12   │     //Other controls
  -- 13   │     rq = 0.5, rate = 1, minfreq = 100, maxfreq = 16000,
  -- 14   │     drylevel = 1.5, fmdepth = 1.5, fmfreq = 432;
  $ slow 2
  $ midiOn "^59" (arp "up")
  $ note ("<[c4 <f4 gs4> <gs4 <c5 b4>>@6]>")
  # "phazer"
  # crushbus 61 (range 16 3.93 "^54")
  -- # cut 7
  # pan 0.3
  # legato 0.5
  # midiG' "^83" 0 0.7
d8 $ gM $ gF -- Runner's breaks
  $ midiOn "^92" (off "e" id)
  $ midiOn "^60" (mask "[f t]")
  $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
  $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
  $ loopAt 2
  $ chop 8
  $ "jungle_breaks:1"
  # cut 8
  # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
  # midiG' "^84" 0 1
d9 $ "<~ risers:3 ~ ~>"
  # cut 9
  # speed 1.5
  # midiG' "^20" 0 0.8

once $ "c c " "phazer"
  # gain 0.8
  # cut 3















d6 $ gM2 $ gF3
  $ chop 4
  -- $ slice 4 "<0 1 2 3>"
  $ loopAt 4
  $ "bass_gameboy:7"
  # room 0.8 # dry 1
  # sz 0.64
  # midiG' "^82" 0 1
  # crushbus 61 (range 16 3.93 "^54")
  # legato 2
  # cut 6

-- once $ "risers:3" # speed 2 # cut 7

-- Regular Kick
once
  $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
    # lpf 5000
    # gain 0.8

-- HARDKICK
once
  -- $ "[gabba:0]"
  $ "[hardkick:3]"
    # lpf 5000
    # gain 0.8
    # cut 1

-- CRUSHED SNARE

-- SYNTH
-- nes 1 8