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.5 KiB

-- raw input: 1233355034973181724
-- hex seed: 0x111DC1DEA584171C
-- decimal seed: 1233355034973181724
-- style: electro
-- generated at 1633814060.65
-- created with Auto-Techno Generator v0.1.3
-- by Chris Beckstrom - chrisbeckstrom.com
-- test
do
setcps (98/60/4)
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 8 7 (scramble 4)
$ whenmod 64 63 (scramble 4)
$ whenmod 64 63 (bite 4 "{4}%4")
$ whenmod 16 14 (bite 2 "{4}%2")
$ stack [
-- four to the floor
mask "t"
$ degradeBy "<0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0>/8"
$ degradeBy fourToTheFloor $ struct "[t*4]" $ n "0" # midichan 0,
-------------- kick ---------------
mask kickM
$ degradeBy "<0 0 0 0 0 0 0 1>/8"
$ every 10 (degradeBy 0.02)
$ every 16 (rev)
$ every 8 (degradeBy 0.02)
$ struct "<<[1000 0010 0000 0110][1000 1010 0010 0000]> <[1000 0010 0010 0100]>>"
$ n 10
# gain "{0.9 0.9 1 0.9 1 0.9}%16"
# midichan 0 # sustain 0.001 # release 0.02,
-------------- hh ---------------
mask hhM
$ struct "<[{0 0 0 1 0 1 1 0 1 0 0 0 0 0 0 0}%16]>"
$ n 2
# gain "{0.9 1 0.9 0.85 0.9 1 1 1 1 0.9}%16"
# midichan 1,
-------------- sd ---------------
mask sdM
$ every 12 (degradeBy 0.02)
$ every 3 ((0.1875 ~>))
$ every 13 (degradeBy 0.02)
$ struct "<<[0000 1000 0000 1001][0100 1000 0000 1000]>>"
$ n 15
# gain "{0.85 0.85 1 0.85 0.9 0.9 0.9}%16"
# midichan 2,
-------------- rim ---------------
mask rimM
$ degradeBy "<0 0 1 0 1 0 0 0>/8"
$ every 15 (rev)
$ every 2 (degradeBy 0.87)
$ every 11 (scramble 8)
$ struct "<[{001001000}%16]>"
$ n 6
# gain "{0.85 1 1 0.85}%16"
# midichan 3,
-------------- cp ---------------
mask cpM
$ degradeBy "<0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0>/8"
$ struct "<[{00000000}%16]>"
$ n 11
# gain "{1 1 0.9 0.85 1 0.9 0.85 1 0.85 1 1 0.85 0.85 0.85}%16"
# midichan 4,
-------------- tom ---------------
mask tomM
$ degradeBy "<0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0>/8"
$ every 6 ((0.1875 ~>))
$ every 11 (rev)
$ every 3 ((0.1875 ~>))
$ (0.1875 ~>)
$ struct "<[{00000}%16]>"
$ n 14
# gain "{0.85 1 1 1 0.85 1 0.85 1}%16"
# midichan 5,
-------------- ride ---------------
mask rideM
$ every 6 (degradeBy 0.02)
$ every 9 (rev)
$ every 4 (degradeBy 0.02)
$ (0.125 ~>)
$ struct "<[{0 1 1 1 1 0 1 1 0 1 0 1 0 0 0 0}%16]>"
$ n 13
# gain "{1 0.9 0.85 0.9 0.85 0.9 0.9 0.9 0.9 1}%16"
# midichan 6,
-------------- cymbal ---------------
mask cymbalM
$ degradeBy "<0 1 0 0 0 0 0 0>/8"
$ every 11 (degradeBy 0.87)
$ every 12 (degradeBy 0.87)
$ every 10 ((0.1875 ~>))
$ (0.1875 ~>)
$ struct "<[{000000000}%16]>"
$ n 1
# gain "{1 1 1 1 0.85 0.85 0.85 0.9 1}%16"
# midichan 7,
------------ bassline {{{ACID MODE}}}-------
degradeBy 0
$ struct "[{0011110010111111}%16]"
$ n "[{9 11 22 9 6 5 5 10 2 1 21 21 3 0 2 9 }%8]"
# midichan 10 + n (-24),
--------- bassline filter cutoff ----
struct "[t*16]" $ ccn 20 # ccv "{21 42 19 72 64 3 48 77 65 69 36 67 2 16 72 52}%16" # midichan 10,
------------ pad -------
degradeBy 0
$ struct "[{1011110111111110}%16]"
$ n "<[6,9,6,6]>/2"
# midichan 11 + n (0),
--------- MIDI CC's ---------------
stack [
struct "[t*3]" $ ccn 0 # ccv "{0 107 70 70 49 107 59 24 54 85 33 34 51 87 15}%3",
struct "[t*3]" $ ccn 1 # ccv "{111 106 126 78 8 69 24 118 119}%3",
struct "[t*1]" $ ccn 2 # ccv "{117 13 119 116 116 2 61 81 42}%1",
struct "t*1" $ ccn 3 # ccv "{0}%1",
struct "[t*3]" $ ccn 4 # ccv "{124 100 81 42 126 124 94 94 51 66 94 10}%3",
struct "t*1" $ ccn 5 # ccv "{0}%1",
struct "[t*3]" $ ccn 6 # ccv "{3 34 127 55 52 49 2}%3",
ccn 126 # ccv 112] # midichan 15,
------- bass patch ----
struct "t" $ ccn 101 # ccv 30 # midichan 10,
------- pads patch ----
struct "t" $ ccn 102 # ccv 60 # midichan 11,
-- EXTRA STUFF ---
stack [
(# gain extraCP) $ struct "[~ t ~ t]" $ n "0",
(# gain extraHH) $ struct "[~t~t~t~t]" $ n "1"] # midichan 12
] # sunvox
hush
d1 $ struct "t*4" $ n "0" # midichan 0 # sunvox # sustain 0.5