#33 of my 100-Patterns-with-TidalCycles exercise.

033-2021-04-15.tidal

-- Pattern #33 from 100
-- 033-2021-04-15.tidal

d1 $
  slow 2 $ chop 4 $ n "4(2,4)" # up "0 0 -2" # s "lc" # begin 0 # end 0.25
  -- slow 2 $ striate 2 $ n "4(5,8)" # up "0 0 -2" # s "lc" # begin 1.0 # end 0.5
  # cut 1
  # room 0.75
  # sz 0.75
  # gain 1
  # orbit 1

d2 $ n "[e4 _ [e4 a4] b4 _ <d5 ~> <e5 ~> <d4 ~>]" # s "bass8" # release 1
  # gain 1.0

d3 $ struct "t t t <t t t [t f f t]>" $ s "808bd" # n "c0" # shape 0.75 # legato 1

d4 $ qtrigger 1 $ seqPLoop [
  (0,7, loopAt 2 $ s "break:11" # gain 1 # orbit 2),
  (7,8, loopAt 2 $ randslice 16 $ s "[break:11]*16" # cut 1 # orbit 2)
  ]