-- raw input: -2212340095055708872
-- hex seed: -0x1EB3CF98502642C8
-- decimal seed: -2212340095055708872
-- generated at 1633725162.39
-- Auto-Techno Generator v0.1.2

do
  let fourToTheFloor = 0 -- set to 0 to hear it
      -- extra stuff
      extraCP = "[0]"
      extraHH = "[0]"
      -- control density per track
      kickM = "[1111]"
      hhM = "[1111]"
      sdM = "[1111]"
      ohhM = "[1111]"
      rimM = "[1111]"
      cpM = "[1111]"
      tomM = "[1111]"
      rideM = "[1111]"
      cymbalM = "[1111]"
  p "techno"
    $ swingBy 0.12 8
    -- fills
    $ whenmod 8 7 (rev)
    $ whenmod 16 14 (bite 2 "{0}%2")
    $ whenmod 16 15 (scramble 4)
    $ whenmod 16 14 (rev)
    $ whenmod 16 15 (rev)
    $ whenmod 16 15 (scramble 4)
    $ stack [
    -- four to the floor
    mask "t"
    $ degradeBy "<1 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0>/8"
    $ degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
    -------------- kick ---------------
    mask kickM
    $ degradeBy "<0 0 0 1 1 1 1 1>/8"
    $ every 4 (rev)
    $ (0.125 ~>)
    $ struct "<[t(3,16)] [t*4]>"
    $ n 10
    # gain "{0.85 0.85 1 0.9 0.9 0.9 0.85 1 0.85}%16"
    # midichan 0,
    -------------- hh ---------------
    mask hhM
    $ degradeBy "<0 0 1 1 0 0 0 0>/8"
    $ every 8 (scramble 8)
    $ every 3 (stut 4 1 "0.125")
    $ every 4 (rev)
    $ struct "<t(3,8)>"
    $ n 0
    # gain "{1 1 0.9 1 1 0.9}%16"
    # midichan 1,
    -------------- sd ---------------
    mask sdM
    $ degradeBy "<0 0 0 0 0 1 1 0>/8"
    $ every 8 ((0.125 ~>))
    $ every 6 (stut 4 1 "0.125")
    $ every 14 ((0.125 ~>))
    $ (0.125 ~>)
    $ struct "<[{0 1 0 1 0 0 0 1 1 1 0 1 0 1 0 0}%16] [tttt*2]>"
    $ n 11
    # gain "{0.85 0.9 1 1 0.85 0.85 0.9 0.9 0.85 0.85 1 0.9 0.85}%16"
    # midichan 2,
    -------------- ohh ---------------
    mask ohhM
    $ every 9 (degradeBy 0.34)
    $ struct "<[tttt*2]>"
    $ n 10
    # gain "{1 1 0.9 1 0.85 1 0.85 0.85 0.9 1 0.9}%16"
    # midichan 3,
    -------------- rim ---------------
    mask rimM
    $ every 11 (rev)
    $ every 6 (scramble 8)
    $ struct "<[{100001}%16]>"
    $ n 8
    # gain "{1 0.9 1 0.9 1 1 1 0.85 1}%16"
    # midichan 4,
    -------------- cp ---------------
    mask cpM
    $ degradeBy "<1 1 1 1 0 1 1 0>/8"
    $ struct "<[{0 0 1 0 1 0 1 1 1 0 1 1 0 0 0 1}%16]>"
    $ n 5
    # gain "{1 0.85 0.9 1 0.85 1 0.85 1 1}%16"
    # midichan 5,
    -------------- tom ---------------
    mask tomM
    $ degradeBy "<1 0 0 0 1 0 1 0>/8"
    $ every 14 (degradeBy 0.34)
    $ (0.1875 ~>)
    $ struct "<t(3,8)>"
    $ n 9
    # gain "{1 1 1 0.85 1 0.85}%16"
    # midichan 6,
    -------------- ride ---------------
    mask rideM
    $ degradeBy "<1 0 0 0 0 1 0 0 0 0 1 1 0 1 0 0>/8"
    $ struct "<[{0 0 0 1 1 1 1 0 0 1 1 1 1 1 0 1}%16]>"
    $ n 4
    # gain "{0.85 0.9 0.9 1 1 0.85 0.9 0.9 1 0.85 0.9}%16"
    # midichan 7,
    -------------- cymbal ---------------
    mask cymbalM
    $ degradeBy "<0 0 0 0 1 0 1 0>/8"
    $ every 16 (rev)
    $ every 13 (stut 4 1 "0.125")
    $ every 7 (degradeBy 0.34)
    $ (0.125 ~>)
    $ struct "<[{1 1 0 0 1 1 0 1 1 0 1 1 1 1 1 1}%16] [t(9,16)]>"
    $ n 6
    # gain "{0.9 1 0.85 0.85 1 1 0.9 0.85 0.9 0.85}%16"
    # midichan 8,
    ------------ bassline {{{ACID MODE}}}-------
    degradeBy 0
    $ struct "[{110110001}%16]"
    $ n "[{17 2 22 8 8 6 10 19 2 }%16]"
    # midichan 10 + n (-24),
    --------- bassline filter cutoff ----
    struct "[t*16]" $ ccn 20 # ccv "{67 79 33 90 74 77 5 68 59 71 66 26 72 76 60 46}%16" # midichan 10,
    ------------ pad -------
    degradeBy 1
    $ degradeBy "<1 0 1 1 1 0 0 0 1 1 1 0 0 0 0 1>/8"
    $ struct "[{0110111101111110}%16]"
    $ n "<[19,2,8,2]>/1"
    # midichan 11 + n (0),
    --------- MIDI CC's ---------------
    stack [
      struct "t*1" $ ccn 0 # ccv "{0}%1",
      struct "[t*2]" $ ccn 1 # ccv "{14 33 65 27 47 12 86 88 120 33 59 86 101 90}%2",
      struct "t*1" $ ccn 2 # ccv "{0}%1",
      struct "t*1" $ ccn 3 # ccv "{0}%1",
      struct "t*1" $ ccn 4 # ccv "{0}%1",
      struct "[t*3]" $ ccn 5 # ccv "{11 56 47 2 58 1 111 112 119 27}%3",
      struct "t*1" $ ccn 6 # ccv "{0}%1",
      ccn 126 # ccv 45] # midichan 15,
      ------- bass patch ----
      struct "t" $ ccn 101 # ccv 100 # midichan 10,
      ------- pads patch ----
      struct "t" $ ccn 102 # ccv 127 # midichan 11,
    -- EXTRA STUFF ---
    stack [
      (# gain extraCP) $ struct "[~ t ~ t]" $ n "0",
      (# gain extraHH) $ struct "[~t~t~t~t]" $ n "1"] # midichan 12
    ] # sunvox