blue_tuesday.tidal 2.34 KB
resetCycles

once $ "dr"

do
setcps (90/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 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
let gLPF = whenmod     64 48 (# lpfbus 4 (slow 16 $ range 20000 200  saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
let lagamount = pF "lagamount"
let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"]
-- Do Fa Do Do
-- Fa Fa Do Do
-- Sol Fa Do Do
-- Sol Fa Do Sol
d1 $ gF $ gMute2
  -- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
  $ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
  $ midiOff "^42" (<| "k . k(<3!3 5>,8)")
  $ "k"
  # "[cpu,jazz,808bd:3,808bd:2]"
  -- # midiG' "^78" 0 1.9
  # gain 1.8
d2 $ gF $ gMute
  $ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
  -- # midiG' "^79" 0 1.3
d3 $ gF $ gMute
  $ midiOn "^76" (ply 2)
  $ rarely (ply 2)
  $ "drum:2*[8 <8 16>]" # gain 0.5
  # midiG' "^80" 0 1.9
d8 $ gF $ gM
  $ chop 16
  $ midiOn "^36" ((# "break:18") . loopAt 2)
  $ midiOn "^56" ((# "jungle_breaks:45") . loopAt 2)
  $ midiOn "^60" (mask "f . f(3,8)" . chop 8)
  $ midiOn "^92" (ply 2)
  $ loopAt 2
  $ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>"
  $ "break:9"
  # cut 8
  # gain 1.2
d4 $ gF2 $ gMute3
  $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
  $ midiOn "^57" (juxBy 0.2 (
    -- ply "<2 4 [4 8] 8>" .
    arp "pinkyup"
    . (often (ply 2))
  ))
  $ superimpose (|+ note "[0,7]")
  $ note (
    cat blues
    - 24
  )
  # "bassWarsaw"
  # pan 0.3
  # room 0.1
  # voice 0.8
  # crushbus 41 (range 16 1.3 "^53")
  # octerbus 42 (range 0 1.3 "^33")
  # gain 1
d9
  $ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
  # "FMRhodes2"
  # modIndex 0
  # gain 1.3
d10 $ gM3 $ gF3 $ note ("c'maj'4"  - 12 + cat blues) # "moogBass"
  # pan 0.8
  # room 0.2
  # chorus (range 0 2 "^29")
  # sz 0.6 # dry 2
  # room 0.3 # dry 0.9
  # pan 0.2
d11 -- DEBUG CUE Voice
  $ ("0.125" <~)
  $ off "h" ((|* gain 0.95) . (# pan 0.8))
  $ "numbers"
  # n "<1 2 3 4 5 6 7 8>"
  # pan 0.3