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.
146 lines
4.4 KiB
146 lines
4.4 KiB
-- raw input: -2212340095055708872 |
|
-- hex seed: -0x1EB3CF98502642C8 |
|
-- decimal seed: -2212340095055708872 |
|
-- generated at 1633725162.39 |
|
-- Auto-Techno Generator v0.1.2 |
|
|
|
do |
|
let fourToTheFloor = 0 -- set to 0 to hear it |
|
-- extra stuff |
|
extraCP = "[0]" |
|
extraHH = "[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.12 8 |
|
-- fills |
|
$ whenmod 8 7 (rev) |
|
$ whenmod 16 14 (bite 2 "{0}%2") |
|
$ whenmod 16 15 (scramble 4) |
|
$ whenmod 16 14 (rev) |
|
$ whenmod 16 15 (rev) |
|
$ whenmod 16 15 (scramble 4) |
|
$ stack [ |
|
-- four to the floor |
|
mask "t" |
|
$ degradeBy "<1 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0>/8" |
|
$ degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0, |
|
-------------- kick --------------- |
|
mask kickM |
|
$ degradeBy "<0 0 0 1 1 1 1 1>/8" |
|
$ every 4 (rev) |
|
$ (0.125 ~>) |
|
$ struct "<[t(3,16)] [t*4]>" |
|
$ n 10 |
|
# gain "{0.85 0.85 1 0.9 0.9 0.9 0.85 1 0.85}%16" |
|
# midichan 0, |
|
-------------- hh --------------- |
|
mask hhM |
|
$ degradeBy "<0 0 1 1 0 0 0 0>/8" |
|
$ every 8 (scramble 8) |
|
$ every 3 (stut 4 1 "0.125") |
|
$ every 4 (rev) |
|
$ struct "<t(3,8)>" |
|
$ n 0 |
|
# gain "{1 1 0.9 1 1 0.9}%16" |
|
# midichan 1, |
|
-------------- sd --------------- |
|
mask sdM |
|
$ degradeBy "<0 0 0 0 0 1 1 0>/8" |
|
$ every 8 ((0.125 ~>)) |
|
$ every 6 (stut 4 1 "0.125") |
|
$ every 14 ((0.125 ~>)) |
|
$ (0.125 ~>) |
|
$ struct "<[{0 1 0 1 0 0 0 1 1 1 0 1 0 1 0 0}%16] [tttt*2]>" |
|
$ n 11 |
|
# gain "{0.85 0.9 1 1 0.85 0.85 0.9 0.9 0.85 0.85 1 0.9 0.85}%16" |
|
# midichan 2, |
|
-------------- ohh --------------- |
|
mask ohhM |
|
$ every 9 (degradeBy 0.34) |
|
$ struct "<[tttt*2]>" |
|
$ n 10 |
|
# gain "{1 1 0.9 1 0.85 1 0.85 0.85 0.9 1 0.9}%16" |
|
# midichan 3, |
|
-------------- rim --------------- |
|
mask rimM |
|
$ every 11 (rev) |
|
$ every 6 (scramble 8) |
|
$ struct "<[{100001}%16]>" |
|
$ n 8 |
|
# gain "{1 0.9 1 0.9 1 1 1 0.85 1}%16" |
|
# midichan 4, |
|
-------------- cp --------------- |
|
mask cpM |
|
$ degradeBy "<1 1 1 1 0 1 1 0>/8" |
|
$ struct "<[{0 0 1 0 1 0 1 1 1 0 1 1 0 0 0 1}%16]>" |
|
$ n 5 |
|
# gain "{1 0.85 0.9 1 0.85 1 0.85 1 1}%16" |
|
# midichan 5, |
|
-------------- tom --------------- |
|
mask tomM |
|
$ degradeBy "<1 0 0 0 1 0 1 0>/8" |
|
$ every 14 (degradeBy 0.34) |
|
$ (0.1875 ~>) |
|
$ struct "<t(3,8)>" |
|
$ n 9 |
|
# gain "{1 1 1 0.85 1 0.85}%16" |
|
# midichan 6, |
|
-------------- ride --------------- |
|
mask rideM |
|
$ degradeBy "<1 0 0 0 0 1 0 0 0 0 1 1 0 1 0 0>/8" |
|
$ struct "<[{0 0 0 1 1 1 1 0 0 1 1 1 1 1 0 1}%16]>" |
|
$ n 4 |
|
# gain "{0.85 0.9 0.9 1 1 0.85 0.9 0.9 1 0.85 0.9}%16" |
|
# midichan 7, |
|
-------------- cymbal --------------- |
|
mask cymbalM |
|
$ degradeBy "<0 0 0 0 1 0 1 0>/8" |
|
$ every 16 (rev) |
|
$ every 13 (stut 4 1 "0.125") |
|
$ every 7 (degradeBy 0.34) |
|
$ (0.125 ~>) |
|
$ struct "<[{1 1 0 0 1 1 0 1 1 0 1 1 1 1 1 1}%16] [t(9,16)]>" |
|
$ n 6 |
|
# gain "{0.9 1 0.85 0.85 1 1 0.9 0.85 0.9 0.85}%16" |
|
# midichan 8, |
|
------------ bassline {{{ACID MODE}}}------- |
|
degradeBy 0 |
|
$ struct "[{110110001}%16]" |
|
$ n "[{17 2 22 8 8 6 10 19 2 }%16]" |
|
# midichan 10 + n (-24), |
|
--------- bassline filter cutoff ---- |
|
struct "[t*16]" $ ccn 20 # ccv "{67 79 33 90 74 77 5 68 59 71 66 26 72 76 60 46}%16" # midichan 10, |
|
------------ pad ------- |
|
degradeBy 1 |
|
$ degradeBy "<1 0 1 1 1 0 0 0 1 1 1 0 0 0 0 1>/8" |
|
$ struct "[{0110111101111110}%16]" |
|
$ n "<[19,2,8,2]>/1" |
|
# midichan 11 + n (0), |
|
--------- MIDI CC's --------------- |
|
stack [ |
|
struct "t*1" $ ccn 0 # ccv "{0}%1", |
|
struct "[t*2]" $ ccn 1 # ccv "{14 33 65 27 47 12 86 88 120 33 59 86 101 90}%2", |
|
struct "t*1" $ ccn 2 # ccv "{0}%1", |
|
struct "t*1" $ ccn 3 # ccv "{0}%1", |
|
struct "t*1" $ ccn 4 # ccv "{0}%1", |
|
struct "[t*3]" $ ccn 5 # ccv "{11 56 47 2 58 1 111 112 119 27}%3", |
|
struct "t*1" $ ccn 6 # ccv "{0}%1", |
|
ccn 126 # ccv 45] # midichan 15, |
|
------- bass patch ---- |
|
struct "t" $ ccn 101 # ccv 100 # midichan 10, |
|
------- pads patch ---- |
|
struct "t" $ ccn 102 # ccv 127 # midichan 11, |
|
-- EXTRA STUFF --- |
|
stack [ |
|
(# gain extraCP) $ struct "[~ t ~ t]" $ n "0", |
|
(# gain extraHH) $ struct "[~t~t~t~t]" $ n "1"] # midichan 12 |
|
] # sunvox
|
|
|