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.
74 lines
1.9 KiB
74 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
|
|
|