because_its_there.tidal 2 KB
once $ "bassWarsaw"

do
setcps (110/60/4)
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"))
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 gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ midiOn  "^42" (<| "k k k k*2")
  $ midiOff "^42" (<| "k")
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
  $ "[jazz,kick:4]"
d2 $ gF1 $ gM $ "~ sn ~ sn" # "[snare:5,snare:19]"
d3 $ gF1 $ gM -- Hats ouverts legers
  $ midiOn "^76" (ply 2)
  $ midiOff "^44" (mask "t(4,8)")
  $ "ho:0*8"
  # att 0.25
  # rel 0.05
  # gain "1 0.9 1 0.8 <0.9!3 1.05> 1"
d4$ gF2 $ gM3
  $ midiOn "^57" ((|+ note 12) . (# freeze 0.8))
  $ sometimesBy (1 - "^17") (mask "[t@6 <f!3 t> <f t>]")
  $ note "[cs3@6 gs3 ds3]"
  # crushbus 41 (range 16 2.5 "^53")
  # octersubbus 42 (range 0 2.5  "^33")
  # octersubsubbus 43 (range 0 5  "^33")
  # squizbus 44 (range 0 2  "^17")
  # roombus 45 (range 0 0.5 "^53")
  # "bassWarsaw"
d7 $ note "<b4 as4 gs4 ~>"
  # legato 0.125
  # room 0.8
  # sz 0.4 # dry 1
  # "ikedaBass"
  # modIndex 0
  # crushbus 71 (range 16 4.5 "^55")
  # lpf 1500
  # att 0.4
  # rel 0.9
  # delay 0.9
  # delayfb 0.2
  # delayt 0.75
d9 $ gF3 $ gM3 -- Aterrissage sur venus
  $ note "gs5/2"
  # "FMRhodes1"
  # legato 0.25
  # delay 0.9
  # delayt 1
  # delayfb 0.25
  # modIndex 0
  # pan "0.1"
d10
  $ note "<b4 as4 gs4 ~>"
  # "90s_synatm:0"
  # room 0.4 # sz 0.9
  # cut 10
  # lpfbus 101 (slow 8 $ range 3000 1500 sine)
d7 $ note ("<e4 ds4 cs4 cs4>" + "0(3,8) 0(3,8)" + "[0,12]")
  # "giorgio_syn:7"
  -- # lpf 500
  # orbit 6
  # octersubbus 102 (range 0 2 "^55")
  # gain 0.8
d5 $ note "[<b5 as5 gs5 gs5>]" |+| "0 ~ ~ 0 ~ <~!2 0 ~> 0 ~"
  # "FMRhodes1"
  # room 0.8 # sz 0.1 # dry 1
  # rel 2
  # gain 0.7
  # orbit 4