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.

64 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,