2 changed files with 280 additions and 50 deletions
@ -1,7 +1,133 @@
@@ -1,7 +1,133 @@
|
||||
-- raw input: 1431850643693044900 |
||||
-- hex seed: 0x13DEF492FCBD04A4 |
||||
-- decimal seed: 1431850643693044900 |
||||
-- style: techno |
||||
-- generated at 1633801547.93 |
||||
-- Auto-Techno Generator v0.1.3 |
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
d1 $ struct "<[t*4] <[1000 1000 1000 1001][1001 1000 1000 1010]>/4>" $ s "bd" |
||||
do |
||||
let fourToTheFloor = 1 -- set to 0 to hear it |
||||
-- extra stuff |
||||
extraCP = "[0]" |
||||
extraHH = "[0]" |
||||
-- control density per track |
||||
kickM = "[1111]" |
||||
hhM = "[1111]" |
||||
sdM = "[1111]" |
||||
rimM = "[1111]" |
||||
cpM = "[1111]" |
||||
tomM = "[1111]" |
||||
rideM = "[1111]" |
||||
cymbalM = "[1111]" |
||||
p "techno" |
||||
-- fills |
||||
$ whenmod 16 14 (bite 4 "{4}%4") |
||||
$ whenmod 32 30 (bite 2 "{0}%2") |
||||
$ whenmod 32 30 (rev) |
||||
$ whenmod 32 31 (scramble 8) |
||||
$ whenmod 32 31 (scramble 4) |
||||
$ whenmod 16 14 (bite 2 "{0}%2") |
||||
$ stack [ |
||||
-- four to the floor |
||||
mask "t" |
||||
$ degradeBy "<1 0 0 1 0 0 1 1>/8" |
||||
$ degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0, |
||||
-------------- kick --------------- |
||||
mask kickM |
||||
$ every 9 (stut 1 1 "0.125") |
||||
$ every 7 (scramble 8) |
||||
$ every 8 (rev) |
||||
$ struct "<[{10101001010}%16]>" |
||||
$ n 9 |
||||
# gain "{0.9 1 0.85 0.9 1 0.85}%16" |
||||
# midichan 0, |
||||
-------------- hh --------------- |
||||
mask hhM |
||||
$ every 16 (degradeBy 0.64) |
||||
$ struct "<[t(4,16)]>" |
||||
$ n 12 |
||||
# gain "{0.85 0.85}%16" |
||||
# midichan 1, |
||||
-------------- sd --------------- |
||||
mask sdM |
||||
$ degradeBy "<0 0 1 1 0 0 0 1 0 1 0 0 1 0 1 0>/8" |
||||
$ every 10 (stut 1 1 "0.125") |
||||
$ every 15 (degradeBy 0.64) |
||||
$ every 9 ((0.1875 ~>)) |
||||
$ struct "<<[0000 0000 0000 0000][0000 0000 0000 0000][0000 0000 0000 0000][0000 0010 0000 1000]>>" |
||||
$ n 11 |
||||
# gain "{0.85 0.9 1 0.9 0.85 1 0.85 0.85 1 1 0.9 1 1}%16" |
||||
# midichan 2, |
||||
-------------- rim --------------- |
||||
mask rimM |
||||
$ struct "<[{0 0 1 0 0 1 1 0 1 1 0 1 1 0 0 0}%16] [{10101001010}%16]>" |
||||
$ n 9 |
||||
# gain "{0.85 1 1 0.9 1 0.85 1 1 0.85}%16" |
||||
# midichan 3, |
||||
-------------- cp --------------- |
||||
mask cpM |
||||
$ degradeBy "<0 0 0 0>/8" |
||||
$ every 16 (scramble 8) |
||||
$ every 14 (rev) |
||||
$ struct "<[{1011010}%16]>" |
||||
$ n 2 |
||||
# gain "{0.9 1 0.85 0.9 0.85 0.9 0.9 1 0.9 0.85}%16" |
||||
# midichan 4, |
||||
-------------- tom --------------- |
||||
mask tomM |
||||
$ degradeBy "<0 0 0 0>/8" |
||||
$ every 13 (rev) |
||||
$ every 3 (degradeBy 0.64) |
||||
$ struct "<[1*16]>" |
||||
$ n 10 |
||||
# gain "{0.9 0.9 1 0.85 0.85}%16" |
||||
# midichan 5, |
||||
-------------- ride --------------- |
||||
mask rideM |
||||
$ every 2 (rev) |
||||
$ every 16 (rev) |
||||
$ every 9 (degradeBy 0.64) |
||||
$ (0.125 ~>) |
||||
$ struct "<[{1 0 0 0 1 1 1 1 1 0 1 1 1 0 1 0}%16]>" |
||||
$ n 12 |
||||
# gain "{1 0.9 1 0.85 0.85 1 1}%16" |
||||
# midichan 6, |
||||
-------------- cymbal --------------- |
||||
mask cymbalM |
||||
$ degradeBy "<0 0 0 0>/8" |
||||
$ every 13 (rev) |
||||
$ (0.1875 ~>) |
||||
$ struct "<[{0 1 0 1 1 0 1 0 0 1 1 1 1 1 0 0}%16]>" |
||||
$ n 10 |
||||
# gain "{0.9 0.85 1}%16" |
||||
# midichan 7, |
||||
------------ bassline ------- |
||||
degradeBy 0 |
||||
$ struct "[{10011}%16]" |
||||
$ n "[{3 0 1 11 16 4 4 18 }%16]" |
||||
# midichan 10 + n (-24), |
||||
------------ pad ------- |
||||
degradeBy 0 |
||||
$ degradeBy "<1 0 0 0 0 1 1 1>/8" |
||||
$ struct "[{0010001000100000}%16]" |
||||
$ n "<[18,1,4,3]>/4" |
||||
# midichan 11 + n (0), |
||||
--------- MIDI CC's --------------- |
||||
stack [ |
||||
struct "[t*2]" $ ccn 0 # ccv "{28 101 2 33}%2", |
||||
struct "[t*4]" $ ccn 1 # ccv "{23 27}%4", |
||||
struct "[t*1]" $ ccn 2 # ccv "{12 100 95 67}%1", |
||||
struct "[t*1]" $ ccn 3 # ccv "{17 14}%1", |
||||
struct "t*1" $ ccn 4 # ccv "{0}%1", |
||||
struct "[t*4]" $ ccn 5 # ccv "{31 0 7 23 28 26 85}%4", |
||||
struct "[t*5]" $ ccn 6 # ccv "{94 101 104 88 54 112 110 114 87 41 44 55 93 66 119}%5", |
||||
ccn 126 # ccv 4] # 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 |
||||
|
Loading…
Reference in new issue