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.
 

116 lines
3.1 KiB

-- raw input: -1654319963628270068
-- hex seed: -0x16F5533DF0E671F4
-- decimal seed: -1654319963628270068
-- generated at 1633644744.38
-- Auto-Techno Generator v0.1
do
let fourToTheFloor = 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"
-- fills
$ whenmod 32 31 (rev)
$ whenmod 16 15 (scramble 8)
$ whenmod 16 15 (bite 4 "{4}%4")
$ whenmod 8 7 (bite 2 "{8}%2")
$ whenmod 32 31 (rev)
$ whenmod 32 30 (bite 2 "{8}%2")
$ whenmod 32 31 (rev)
$ stack [
-- four to the floor
degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
-------------- kick ---------------
mask kickM
$ every 9 ((0.125 ~>))
$ every 9 ((0.125 ~>))
$ struct "<[{101000010}%16]>"
$ n 5
# gain "{0.85 1 0.85}%16"
# midichan 0,
-------------- hh ---------------
mask hhM
$ degradeBy "<0 1 0 0 0 0 0 0>/8"
$ struct "<[t*4]>"
$ n 3
# gain "{0.9 0.85 0.9}%16"
# midichan 1,
-------------- sd ---------------
mask sdM
$ degradeBy "<0 0 0 0 0 1 1 0>/8"
$ every 11 ((0.125 ~>))
$ every 12 ((0.125 ~>))
$ every 8 (scramble 8)
$ struct "<[t(7,16)]>"
$ n 6
# gain "{0.85 0.9 1}%16"
# midichan 2,
-------------- ohh ---------------
mask ohhM
$ degradeBy "<0 0 0 0 0 1 0 0>/8"
$ every 6 ((0.125 ~>))
$ struct "<[{0000}%16] [{00001}%16]>"
$ n 4
# gain "{0.85 0.85 0.85 0.9 0.85 1 1 0.9 1 1 1}%16"
# midichan 3,
-------------- rim ---------------
mask rimM
$ degradeBy "<0 1 0 1 0 1 0 0>/8"
$ every 14 ((0.125 ~>))
$ every 5 (scramble 8)
$ (0.125 ~>)
$ struct "<[{111010}%16]>"
$ n 1
# gain "{0.9 1 0.85}%16"
# midichan 4,
-------------- cp ---------------
mask cpM
$ every 3 ((0.125 ~>))
$ every 11 (scramble 8)
$ every 10 (stut 1 1 "0.0625")
$ (0.125 ~>)
$ struct "<[{0000}%16] [{10010010010}%16]>"
$ n 2
# gain "{0.9 0.9 0.9 1 0.9 0.9 1}%16"
# midichan 5,
-------------- tom ---------------
mask tomM
$ every 12 (stut 1 1 "0.0625")
$ (0.1875 ~>)
$ struct "<[{10011100}%16] [t(11,16)]>"
$ n 0
# gain "{0.9 0.85 0.85 0.9 0.9 1 1 0.85 0.9 1 1 0.85 0.9 0.85}%16"
# midichan 6,
-------------- ride ---------------
mask rideM
$ degradeBy "<0 0 0 0 0 0 0 0>/8"
$ every 15 (stut 1 1 "0.0625")
$ struct "<[t(10,16)]>"
$ n 7
# gain "{0.9 1 0.9 0.85 0.85 0.9 0.85 1 0.9 0.9 1 0.9 0.9}%16"
# midichan 7,
-------------- cymbal ---------------
mask cymbalM
$ degradeBy "<1 0 0 0 0 0 0 1>/8"
$ struct "<[{1011010}%16]>"
$ n 5
# gain "{0.85 1 0.9 0.85 0.9 0.85 1 0.9}%16"
# midichan 8,
------------ bassline -------
degradeBy 0
$ struct "[{00111110101011110000}%16]"
$ n "[{4 11 0 22 3 10 10 3 11 1 5 10 5 10 4 4 }%16]"
# midichan 10 + n (-24),
------------ pad -------
degradeBy 0
$ n "[1,4,3,3]"
# midichan 11 + n (0)
] # sunvox