slice.tidal

hi.tidal

d1 $ whenmod 10 8 (|*| speed (scale 1 1.25 $ slow 2 saw)) $
    every 4 (# pan (scale 0 1 $ slow 3 rand)) $ 
    sometimesBy 0.15 (|+| n "2") $ shift $
    slice ("{0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15}%16" + "<0 0 2 0 1>") 16 $ 
    sound "1bar" 
    # n "<0 0 0 2 0 3>"
    # unit "c" # speed 1 # shape 0.9 # orbit 0 # delay 0 # delayfb 0 

slice.tidal

let slice :: Pattern Int -> Pattern Int -> ParamPattern -> ParamPattern
    slice pi pn p = begin b # end e # p
      where b = (\i n -> (div' i n)) <$> pi <*> pn
            e = (\i n -> (div' i n) + (div' 1 n)) <$> pi <*> pn
            div' a b = fromIntegral (a `mod` b) / fromIntegral b
            
d1 $ slice ("0 [3 4] 2 1 [4 6] 2 4*4 5" + "<0 0 2 0>") 8 $ sound "breaks125"
  # legato 1