tidal-autotechno/deleteme.tidal

-- raw input: 268982558670766555
-- hex seed: 0x3BB9E364458C1DB
-- decimal seed: 268982558670766555
-- generated at 1633539511.09
-- Auto-Techno Generator v0.1

do
  let fourToTheFloor = 0
      -- control density per track
      kickM = "[1111]"
      hhM = "[1111]"
      sdM = "[1111]"
      cpM = "[1111]"
      ohhM = "[1111]"
      rideM = "[1111]"
      cymbalM = "[1111]"
  p "techno"
    -- fills
    $ whenmod 32 30 (rev)
    $ whenmod 32 31 (stut 2 1 "0.125")
    $ whenmod 32 30 (scramble 16)
    $ whenmod 16 15 (rev)
    $ whenmod 64 62 (rev)
    $ stack [
    -- four to the floor
    degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
    -------------- kick ---------------
    mask kickM
    $ every 6 ((0.125 ~>))
    $ (0.125 ~>)
    $ struct "<[{0101011}%16]>"
    $ n 1 # midichan 0,
    -------------- hh ---------------
    mask hhM
    $ every 16 (scramble 8)
    $ every 15 ((0.125 ~>))
    $ struct "<[1*16]>"
    $ n 3 # midichan 1,
    -------------- sd ---------------
    mask sdM
    $ every 15 (stut 5 1 "0.0625")
    $ (0.125 ~>)
    $ struct "<[t(15,16)]>"
    $ n 2 # midichan 2,
    -------------- cp ---------------
    mask cpM
    $ degradeBy "[0 0 1]/8"
    $ struct "<[{0000100}%16]>"
    $ n 3 # midichan 3,
    -------------- ohh ---------------
    mask ohhM
    $ struct "<[tt*2]*4 [[0001]]*4>"
    $ n 0 # midichan 4,
    -------------- ride ---------------
    mask rideM
    $ every 10 (scramble 8)
    $ every 5 (rev)
    $ every 13 (scramble 8)
    $ (0.1875 ~>)
    $ struct "<[t(4,16)]>"
    $ n 0 # midichan 5,
    -------------- cymbal ---------------
    mask cymbalM
    $ every 8 (rev)
    $ every 7 (rev)
    $ every 12 (stut 5 1 "0.0625")
    $ struct "<[{10011000}%16]>"
    $ n 3 # midichan 6,
    -----------------------
    degradeBy 0
    $ struct "[{0010100000000000}%16]"
    $ n "[{18 6 8 7 19 35 8 24 11 7 7 8 3 23 8 33 }%16]"
    # midichan 7 + n (-42)
    ] # sunvox