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.
63 lines
1.4 KiB
63 lines
1.4 KiB
p "techno" $ struct "t*4" $ n "0" # sunvox |
|
|
|
hush |
|
|
|
|
|
-- seed: -413486887982277853 |
|
-- generated at 1633532891.3 |
|
|
|
do |
|
let kickM = "[1111]" |
|
let hhM = "[1111]" |
|
let sdM = "[1111]" |
|
let cpM = "[1111]" |
|
let ohhM = "[1111]" |
|
let rideM = "[1111]" |
|
let cymbalM = "[1111]" |
|
p "techno" |
|
$ whenmod 8 7 (stut 4 1 "1/16") |
|
$ whenmod 32 31 (rev) |
|
$ stack [ |
|
-- four to the floor |
|
(#gain 0) $ struct "[t*4]" $ n "0" # midichan 0, |
|
-- kick ----------------- |
|
mask kickM |
|
$ every 3 ((0.1875 ~>)) |
|
$ every 10 ((0.1875 ~>)) |
|
$ every 7 (rev) |
|
$ (0.125 ~>) |
|
$ struct "<[t*4]>" |
|
$ n 0 # midichan 0, |
|
-- hh ----------------- |
|
mask hhM |
|
$ every 16 ((0.1875 ~>)) |
|
$ (0.125 ~>) |
|
$ struct "<{000101}%16 {100000001}%16>" |
|
$ n 2 # midichan 1, |
|
-- ride ----------------- |
|
mask rideM |
|
$ every 3 (stut 2 1 "1/8") |
|
$ (0.125 ~>) |
|
$ struct "<[t(2,8)] [tttt*2?]>" |
|
$ n 3 # midichan 5, |
|
-- cymbal ----------------- |
|
mask cymbalM |
|
$ every 4 (scramble 8) |
|
$ every 12 ((0.1875 ~>)) |
|
$ (0.1875 ~>) |
|
$ struct "<[01]*2>" |
|
$ n 1 # midichan 6, |
|
----------------------- |
|
degradeBy 0 |
|
$ struct "{1011111111011101}%16" |
|
$ n "{23 21 20 3 6 32 10 19 9 9 0 0 10 0 2 11 }%16" |
|
# midichan 7 + n (-42) |
|
] # sunvox |
|
|
|
|
|
p "techno" |
|
$ every 16 ((0.1875 ~>)) |
|
$ (0.125 ~>) |
|
-- $ struct "<{000101}%16 {100000001}%16>" |
|
$ struct "t*4" |
|
$ n 2 # midichan 1,
|
|
|