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.

129 lines
3.9 KiB

-- raw input: -995834641349709608
-- hex seed: -0xDD1EA5484AD8F28
-- decimal seed: -995834641349709608
-- generated at 1633709399.6
-- 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"
$ swingBy 0.18 8
-- fills
$ whenmod 64 63 (bite 4 "{4}%4")
$ whenmod 16 14 (scramble 4)
$ whenmod 32 31 (bite 4 "{0}%4")
$ whenmod 32 31 (scramble 8)
$ stack [
-- four to the floor
degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
-------------- kick ---------------
mask kickM
$ (0.125 ~>)
$ struct "<[0101]>"
$ n 5
# gain "{0.9 0.85 0.85 0.85 0.9 0.85 0.9 0.85 0.85 0.9 0.85 0.9 1 0.85 0.9}%16"
# midichan 0,
-------------- hh ---------------
mask hhM
$ every 2 (stut 4 1 "0.125")
$ struct "<[t(5,16)] t(3,8)>"
$ n 2
# gain "{0.85 0.9 1 0.9 0.85 1 1 0.9 0.9 1}%16"
# midichan 1,
-------------- sd ---------------
mask sdM
$ every 2 ((0.1875 ~>))
$ every 6 (stut 4 1 "0.125")
$ struct "<[11*2]*4 t(3,8)>"
$ n 6
# gain "{1 1 0.9 0.85 0.85 0.85 0.85 0.85 0.9 0.9 1}%16"
# midichan 2,
-------------- ohh ---------------
mask ohhM
$ struct "<[t(3,16)] [t*4]>"
$ n 7
# gain "{0.85 0.9 0.85 0.85 1 0.9 0.85 0.9 1}%16"
# midichan 3,
-------------- rim ---------------
mask rimM
$ every 5 (stut 4 1 "0.125")
$ every 12 (degradeBy 0.49)
$ every 4 (stut 4 1 "0.125")
$ struct "<[{00001010}%16]>"
$ n 1
# gain "{1 0.85 0.9 0.85 0.9 0.9 0.9 0.85 1 0.9 0.85 0.85}%16"
# midichan 4,
-------------- cp ---------------
mask cpM
$ every 7 (rev)
$ every 5 (scramble 8)
$ struct "<[{000000000}%16]>"
$ n 3
# gain "{1 1 0.85 0.85 0.85 0.9 0.9}%16"
# midichan 5,
-------------- tom ---------------
mask tomM
$ every 12 (scramble 8)
$ every 10 (stut 4 1 "0.125")
$ every 8 (stut 4 1 "0.125")
$ (0.125 ~>)
$ struct "<[t(6,16)]>"
$ n 0
# gain "{0.9 1 0.9 1 0.9 1 1 0.9 0.9 0.85 0.9 1 0.85 1 0.9}%16"
# midichan 6,
-------------- ride ---------------
mask rideM
$ every 13 (rev)
$ every 7 (scramble 8)
$ every 15 (degradeBy 0.49)
$ struct "<[{000001000}%16] [tttt*2]>"
$ n 6
# gain "{0.85 0.85 0.85 0.85 0.9 1}%16"
# midichan 7,
-------------- cymbal ---------------
mask cymbalM
$ every 14 (stut 4 1 "0.125")
$ every 2 ((0.1875 ~>))
$ every 15 (scramble 8)
$ (0.125 ~>)
$ struct "<[0101]>"
$ n 5
# gain "{1 1 0.9 1 0.85}%16"
# midichan 8,
------------ bassline {{{ACID MODE}}}-------
degradeBy 0
$ struct "[{1101111111101100}%16]"
$ n "[{3 4 9 0 8 10 9 2 9 4 11 8 10 9 1 19 }%16]"
# midichan 10 + n (-24),
--------- bassline filter cutoff ----
struct "[t*16]" $ ccn 20 # ccv "{82 1 21 17 53 88 21 4 88 71 15 76 10 84 48 7}%16" # midichan 10,
------------ pad -------
degradeBy 1
$ degradeBy "<0 1 0 1 1 0 0 1>/8"
$ n "<[9,19,11,19]>/1"
# midichan 11 + n (0),
--------- MIDI CC's ---------------
stack [
struct "[t*5]" $ ccn 0 # ccv "{39 45 50 100 13 79 5 55 112 31 93}%5",
struct "[t*3]" $ ccn 1 # ccv "{127 16 42 96 59 86 95 5 40 86 98 119 5}%3",
struct "[t*2]" $ ccn 2 # ccv "{110 21 70}%2",
struct "[t*2]" $ ccn 3 # ccv "{113 41 105 26 46 3 104 100 59}%2",
struct "[t*2]" $ ccn 4 # ccv "{25 44 68 42}%2",
struct "t*1" $ ccn 5 # ccv "{0}%1",
struct "[t*4]" $ ccn 6 # ccv "{104 26 10 119 64 17}%4",
ccn 126 # ccv 84] # midichan 15,
-- EXTRA STUFF ---
stack [
(# gain 0) $ struct "[~ t ~ t]" $ n "0",
(# gain 0) $ struct "[~t~t~t~t]" $ n "1"] # midichan 12
] # sunvox