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