fictional_yehuda.tidal 2.13 KB
resetCycles

do
setcps (123/60/4)
d1
  $ mask "<f!4 t!27 [t f]>"
  $ whenmod 64 16 (superimpose (# "jazz"))
  $ "k*<1!8 2!8 0 0 1 2 1 1 2 2 2!8> . <k(<1 3 5>,8) [~!3 k]>"
  # "[reverbkick,super808]"
  # lpf (slow 16 $ range 4000 500 cosine)
  # room 0.4
  # sz 0.2
  # dry 0.99
  # gain 0.5
d2 -- Aerian claps
  $ mask "<f!6 t t f!4 t!4 f f t!6>"
  $ "~ clap:1(<1!3 3>,8,<0!7 2>)"
  # gain 0.5
  # hpf 2000
d3
  $ mask "<f!3 t f!2 t!2 f t!3 t(5,8) t!3 t!16>"
  $ slice 8 "0 <~!8 1!7 ~> <~!4 2!3 <2 [~ 2]>> 3 . ~!2 <6!2 [~ 6] 6*2> 7"
  $ loopAt 1
  $ "breaks125" # gain 0.6
d4
  $ mask "<f!4 t!28>"
  $ whenmod 64 32 (superimpose ( -- Electro N0ISE
    (# cut 41)
    . (|+| note "<12!8 24 24 24 12 12 12 24 12> <24!8 24 12 24 24 12 24 12 24>(<1 3 <1 3> <1 5>>,<1 8 8 [1 8]>)")
    . (# crushbus 41 (slow 8 $ range 10 3.5 perlin))
    . (|* gain (slow 16 $ range 0.65 0.9 saw))
  ))
  $ note ("<g4'maj'4 g4'maj'4 g4'major7'4 d4'major7'4>")
  # "bassWarsaw"
  # gain 0.45
  # crushbus 4 (slow 16 $ range 16 5.4 saw)
  # pan 0.2
  # legato 1
d5
  $ sometimesBy "<0!3 0.5>" (ply 2)
  $ slice 8 ("<0 1 2 3>" + "<0!4 4!4>")
  $ loopAt 4
  $ "yehudi"
  # n "<1!3 2 1 1 2 2>"
  -- # n (slow 4 $ 8 + "<0 1 2 3 4 5 6 7>")
  # cut 5
  # pan 0.8
  # hpf 500
  -- # gain 0.8
  # room 0.5
  # sz 0.7
d6 -- HH RANDOMISÉ
  $ whenmod 8 6 (# hpf "<2500 5000>")
  $ sometimesBy "0 0.1" (ply 2)
  $ sometimesBy 0.1 (slow 2)
  $ slow "<4!4 [4|2] 2 2 [2|1]!2 1!8>"
  $ struct "t(<10!7 [10 16]>,16)"
  $ "hh" # gain (0.75 + 0.05 * (fast 4 perlin))
  # room 0.3 # dry 0.98 # sz 0.8
  # gain 0.45
  # pan (range 0 0.28 perlin)




  do
  setcps (123/60/4)
  d1 $ "k . ~!3 <~ k>" # "jazz" # lpf 2000 # gain 0.6
  d2 $ "~ s"
    # "snare:71"
    # hpf 1500 # gain 0.7
  d3
    $ loopAt 2
    $ "break:15"
    -- #
    # gain 0.65
  -- resetCycles

  -- region Sampled via:
  -- do
  -- setcps (123/60/4/2) -- Each sample over 2 cycles
  -- resetCycles
  -- d1
  --   -- $ qtrigger 1
  --   $ "looper"
  --   # n (8 + "<0 1 2 3 4 5 6 7>")
  --   # lname "yehudi"
  -- d2
  --   $ mask "<t!8 f!8>"
  --   $ "jazz" # gain 0.7
  -- d3 $ mask "<t!8 f!8>" $ "dr*4" # gain "0.7 0.7 0.81 0.7"
  --
-- endregion