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.

60 lines
1.1 KiB

some seeds I've liked:
1493546251137461290
1781197463452869364
14959707246264745
1411204103099713935
1157315305561367902
2275918688827233254
2209526836267835322 -- electro-ish
644793890351458335
803051260356546356
1061676950143263647
-- seed: -1061676950143263647
cps = (114/60/4)
p "techno"
$ whenmod 8 7 (scramble 4)
$ stack [
-- four to the floor
(#gain 1) $ struct "[t*4]" $ n "0" # midichan 0,
-- kick -----------------
degradeBy 0
$ every 3
(
bite 8 "{6*4 0*2 5*2 5*2 }%8"
)
$ struct "[t(2,4)]"
$ n 0 # midichan 0,
-- hh -----------------
degradeBy 0
$ struct "{1001110110100101}%16"
$ n 0 # midichan 1,
-- sd -----------------
degradeBy 0
$ struct "[t(5,8)]"
$ n 0 # midichan 2,
-- cp -----------------
degradeBy 0
$ struct "[t(7,8)]"
$ n 0 # midichan 3,
-- ? -----------------
degradeBy 0
$ every 3
(
bite 4 "{0*2 0*2 0*1 1*4 0*1 0*4 0*1 2*4 0*1 3*1 1*4 0*4 4*1 }%4"
)
$ every 4
(
bite 4 "{3*2 3*4 2*4 3*1 0*4 3*1 3*1 4*1 4*2 3*4 0*1 1*4 1*4 }%4"
)
$ struct "{1111000101111000}%16"
$ n 0 # midichan 4,
-----------------------
degradeBy 0
$ struct "{1101111111110111}%16"
$
n "{22 8 22 10 2 9 11 12 8 2 0 0 10 17 3 4 }%16"
# midichan 7 + n (-36)
] # sunvox