You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

146 lines
4.4 KiB

-- 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