N-Trance - Set You Free in TidalCycles code

suf.tidal

do -- suf
  bps (140/120)
  t1 (j 0) . m . sl 4
     -- . fE [3,4] (jux rev)  . fE [2,5] (iter 4 . fa 3 . degBy 0.5)
     -- . rarely ((> sustain "0.2") . fa 2 . degBy 0.9)
     $ stack [
         n (fmap (+12) $ 
           -- almostNever (oa (3/8) 19) $ rarely (fmap (subtract 12)) $
           "[-4 0 3]*2 [-5 -2 3]*2 [-7 -4 0]*2 [[-7 -4 0] [-7 1 -4]]") > s "superpiano"
         ,n ("[-4, -16] [-9, -21] [-7, -19] [~ [-11, -23]]")
          > s "superpiano" > attack "0.5" > sustain "1 1 2 1"
       ] > rvb "0.5:0.5" > go "0.8:0"
  t2 (j 0) . m . sl 2
     -- . fE [2,3] (juxBy 0.75 (rev) . fa 0.5 . (> sustain "3") . (> attack "0.5"))
     -- . ev 3 (chop 1) . ev 2 (chop 2) .  often (iter 2)
     $ stack [
         n (fmap (+12) $
           -- often (fmap (+9)) $ sometimes (fmap (+11)) $
           "[-4, 0, 3](5,8,4) [-5, -2, 3](3,8,4) [-7, -4, 0](5,8,4) [[-7, -4, 0] [-7, 1, -4]](3,8,4)"
         ) > s "superpiano" > sustain "0.5"
        ,n (--rarely (fmap (+17)) $ often (fmap (+5)) $ sometimes (fmap (+7)) $ rarely (fmap (subtract 17)) $
          "[-4, -16](3,8,4) [-9, -21](5,8,4) [-7, -19](3,8,4) [-11, -23](5,8,4)") > s "superpiano"
         > sustain "0.25" > release "0.1"
       ] > go "0.8:2"
  t3 (j 0) . m . sl 4
     -- . rarely (chop 3) . sometimesBy 0.3 (iter 3) . often (chop 8 . fa 2 . (> sustain "0.3 0.4 0.5 0.7"))
     -- . (> pan (ssinf 0.2 0.8 (1/2))) . (> lpf' (ssinf 0.1e3 4e3 (1/4)) (ssinf 0.1 0.3 (1/4)))
     $ stack [
         n (-- fE [2,3] (fmap (+12)) $ rarely (oa (3/16) 7) $ rarely (oa (5/12) 12) $
           "[-4, 0, 3] [-5, -2, 3] [-7, -4, 0] [[-7, -4, 0] [-7, 1, -4]]"
         ) > s "[supercomparator, superchip, supersaw, supersquare]"
        ,n (-- rarely (oa (1) 7) $ rarely (oa (1) 12) $
           "[-4, -16] [-9, -21] [-7, -19] [[-7,-19] [-11, -23]]"
         ) > s "[supersquare, supersaw]"
     ] > go' (ssinf 0.8 0.5 (1/4)) 4 > sustain "[2 2 1.9 1]" > release ("1" + 1)
  t4 (j 0) . m
     -- . ev 3 (fa 0.9 . chop 5 . (> shape "0.8")) . ev 5 (fa 0.7 . (> sp "2") . jux rev)
     -- . ev 7 (fa 0.5 . (> crush "0.75") . chop 3)  ev 9 (fa 0.3 . brak)
     -- . often (iter 5 . (> sp "0.9 1.1 1.2"))
     $ stack [
         s "[bddnb [~ bddnb] [sn, sn:2, cp] bddnb [~ bddnb] bddnb*2 [sn:2, sn, cp bddnb] bddnb?]"
         ,jux rev $ s "[hc*16]" > pan "0.25" > end "[0.7 0.5 0.2 0.1]*4"
         ,s "[~ ~ [~ superhat:12] [~ superhat:12]]" > pan "0.75"
         ,sl 4 $ s "[pcmimpact]" > end "0.1" > hpf "6e3:0.2"
       ] > go "1:6" > shape "0.5"
  t5 (j 0) . m . sl 2
     -- . fE [2,3] (fa 0.5 . rev) . almostAlways ((|+| sp (ssin 0.2 0.5))) . rarely (fa 5 . degBy 0.8)
     -- . sometimesBy 0.8 (> del "0.8:0.03:0.8") . often (iter 5 . (|+| sp "-0.5") . chop 12)
     . (> rvb "0.5:0.5") . (> del "0.5:0.5:0.5")
     . (> lpf "10e3:0.3") . (> pan "[0.5 [0 1 0]]")
     $ u (rarely (oa (3/16) 5) $
         -- rarely (oa (5/16) 7) $
         "[[2 ~ ~ ~ ~ ~ 0] [~ [2 [2 5]]]?]"
     ) > s "vxsuf" > end "[1 0.2]" > go "0.7:8"
  -- hush