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.

119 lines
3.2 KiB

-- raw input: -1432897721833003170
-- hex seed: -0x13E2ACE2DD5298A2
-- decimal seed: -1432897721833003170
-- generated at 1633706019.61
-- Auto-Techno Generator v0.1.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 8 7 (rev)
$ whenmod 64 63 (scramble 8)
$ whenmod 32 31 (bite 4 "{0}%4")
$ whenmod 64 63 (rev)
$ whenmod 8 7 (bite 4 "{4}%4")
$ stack [
-- four to the floor
degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
-------------- kick ---------------
mask kickM
$ every 8 (scramble 8)
$ every 16 (scramble 8)
$ struct "<[t*4]>"
$ n 7
# gain "{1 0.9 1}%16"
# midichan 0,
-------------- hh ---------------
mask hhM
$ (0.125 ~>)
$ struct "<[{111111011}%16]>"
$ n 1
# gain "{0.9 0.9}%16"
# midichan 1,
-------------- sd ---------------
mask sdM
$ every 4 (scramble 8)
$ every 5 ((0.125 ~>))
$ (0.125 ~>)
$ struct "<[t(7,16)]>"
$ n 5
# gain "{1 1 1 1 1 0.85 0.85 0.9}%16"
# midichan 2,
-------------- ohh ---------------
mask ohhM
$ every 16 (stut 5 1 "0.0625")
$ struct "<[t(6,16)]>"
$ n 5
# gain "{1 0.9}%16"
# midichan 3,
-------------- rim ---------------
mask rimM
$ every 7 ((0.125 ~>))
$ every 2 (stut 5 1 "0.0625")
$ struct "<[t(3,16)] [{00000}%16]>"
$ n 7
# gain "{1 1 1 0.9 0.85 0.85 0.85 0.9 0.85 0.9 1 0.85}%16"
# midichan 4,
-------------- cp ---------------
mask cpM
$ struct "<[{01000}%16]>"
$ n 6
# gain "{0.85 0.9 0.9 0.85 1}%16"
# midichan 5,
-------------- tom ---------------
mask tomM
$ every 13 (scramble 8)
$ struct "<[t(11,16)] [{0001000}%16]>"
$ n 2
# gain "{0.9 0.85}%16"
# midichan 6,
-------------- ride ---------------
mask rideM
$ struct "<t(3,8)>"
$ n 2
# gain "{1 0.9 0.9 0.9 0.9 0.9 0.85 1 0.85 0.9}%16"
# midichan 7,
-------------- cymbal ---------------
mask cymbalM
$ struct "<[t(3,16)]>"
$ n 4
# gain "{0.9 0.9 0.9 1 0.9 0.9 0.9 0.9 0.85 0.85 0.85 1 0.85 1 0.9}%16"
# midichan 8,
------------ bassline -------
degradeBy 0
$ struct "[{1010000011011111}%16]"
$ n "[{18 11 0 14 23 7 1 0 6 8 6 4 2 4 6 5 }%16]"
# midichan 10 + n (-24),
------------ pad -------
degradeBy 0
$ degradeBy "<0 1 0 0 0 1 1 0>/8"
$ struct "[{1110011100000010}%16]"
$ n "<[2,11,6,7]>/2"
# midichan 11 + n (0),
--------- MIDI CC's ---------------
stack [
struct "[t*5]" $ ccn 0 # ccv "{62 99 97 95 111 60 51 24}%5",
struct "t*1" $ ccn 1 # ccv "{0}%1",
struct "[t*3]" $ ccn 2 # ccv "{79 124 39 94 52 57 17 40 35 8 41 14 3 30 53 54}%3",
struct "t*1" $ ccn 3 # ccv "{0}%1",
struct "t*1" $ ccn 4 # ccv "{0}%1",
struct "t*1" $ ccn 5 # ccv "{0}%1",
struct "[t*2]" $ ccn 6 # ccv "{4 33 118 44 10 94 49 99 110 92}%2",
ccn 126 # ccv 71] # midichan 15,
-- extra stuff
stack [
struct "[~ t ~ t]" $ n "0" # midichan 12
]
] # sunvox