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.

75 lines
1.9 KiB

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