max in tidal

scratch.tidal

do
  let nn num = stack [speed (segment 1 $ range 0.5 3 $ (cF 1 num)) # s "arpy", s "drum" ]
      step1 = nn "96"
      step2 = nn "98"
      step3 = nn "100"
      step4 = nn "70"
      step5 = nn "72"
      step6 = nn "74"
      step7 = nn "76"
      step8 = nn "78"
      step9 = nn "80"
      step10 = nn "82"
      step11 = nn "84"
      step12 = nn "86"
      step13 = nn "88"
      step14 = nn "90"
      step15 = nn "92"
      step16 = nn "94"
      real1 = stack [step1, s "bd"]
      pat1 = fast 16 $ fastcat [ real1 ]
      pat2 = fast (16/2) $ fastcat [ real1, step2 ]
      pat3 = fast (16/3) $ fastcat [ real1, step2, step3 ]
      pat4 = fast (16/4) $ fastcat [ real1, step2, step3, step4 ]
      pat5 = fast (16/5) $ fastcat [ real1, step2, step3, step4, step5 ]
      pat6 = fast (16/6) $ fastcat [ real1, step2, step3, step4, step5, step6 ]
      pat7 = fast (16/7) $ fastcat [ real1, step2, step3 ,step4, step5, step6, step7 ]
      pat8 = fast (16/8) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8 ]
      pat9 = fast (16/9) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9 ]
      pat10 = fast (16/10) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10 ]
      pat11 = fast (16/11) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11 ]
      pat12 = fast (16/12) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11, step12 ]
      pat13 = fast (16/13) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11, step12, step13 ]
      pat14 = fast (16/14) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11, step12, step13, step14 ]
      pat15 = fast (16/15) $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11, step12, step13, step14, step15 ]
      pat16 = fast 1 $ fastcat [ real1, step2, step3, step4, step5, step6, step7, step8, step9, step10, step11, step12, step13, step14, step15, step16 ]
      patselect num = (select (cF 1 num) [pat1, pat2, pat3, pat4, pat5, pat6, pat7, pat8]) 
      patselect1 = patselect "96"
      patselect2 = patselect "98"
      patselect3 = patselect "100"
      patselect4 = patselect "70"
      patselect5 = patselect "72"
      patselect6 = patselect "74"
      patselect7 = patselect "76"
      patselect8 = patselect "78"
      patselect9 = patselect "80"
      patselect10 = patselect "82"
      patselect11 = patselect "84"
      patselect12 = patselect "86"
      patselect13 = patselect "88"
      patselect14 = patselect "90"
      patselect15 = patselect "92"
      patselect16 = patselect "94"
  d1 
    $ degradeBy (slowcat [ 
      (range 0 0.5 $ (cF 1 "96")),
      (range 0 0.5 $ (cF 1 "98")),
      (range 0 1 $ (cF 1 "100")),
      (range 0 0.5 $ (cF 1 "70")),
      (range 0 0.5 $ (cF 1 "72")),
      (range 0 0.5 $ (cF 1 "74")),
      (range 0 0.5 $ (cF 1 "76")),
      (range 0 0.5 $ (cF 1 "78")),
      (range 0 0.5 $ (cF 1 "80")),
      (range 0 0.5 $ (cF 1 "82")),
      (range 0 0.5 $ (cF 1 "84")),
      (range 0 0.5 $ (cF 1 "86")),
      (range 0 0.5 $ (cF 1 "88")),
      (range 0 0.5 $ (cF 1 "90")),
      (range 0 0.5 $ (cF 1 "92")),
      (range 0 0.5 $ (cF 1 "94"))
    ]) 
    $ stack [
        slow 16 $ fastcat [
          patselect1        
          , patselect2
          , patselect3
          , patselect4
          , patselect5
          , patselect6
          , patselect7
          , patselect8
          , patselect9
          , patselect10
          , patselect11
          , patselect12
          , patselect13
          , patselect14
          , patselect15
          , patselect16
        ]
    ] # legato 1 # cps 0.9