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.

55 lines
1.4 KiB

some seeds I've liked:
1493546251137461290
1781197463452869364
14959707246264745
1411204103099713935
1157315305561367902
2275918688827233254
2209526836267835322 -- electro-ish
644793890351458335
803051260356546356
1061676950143263647
1726268759940563490
1035561506162950173 -- groovy
2138151558308434562 -- funky
-- seed: -2138151558308434562
do
let cps = (90/60/4)
p "techno"
$ whenmod 8 7 (scramble 4)
$ stack [
-- four to the floor
(#gain 0) $ struct "[t*4]" $ n "0" # midichan 0,
-- kick -----------------
degradeBy 0
$ every 3 (("1/4" ~>))
$ every 4 (rev)
$ struct "{1011000101001100}%16"
$ n 0 # midichan 0,
-- hh -----------------
degradeBy 0
$ every 10 (bite 8 "{4*4 7*1 2*2 4*4 0*4 7*1 4*2 8*1 3*1 3*1 1*1 8*1 1*4 4*2 }%8")
$ struct "[t(15,16)]"
$ n 0 # midichan 1,
-- sd -----------------
degradeBy 0
$ struct "[~ t]*2"
$ n 0 # midichan 2,
-- cp -----------------
degradeBy 0
$ struct "[t(6,16)]"
$ n 0 # midichan 3,
-- ? -----------------
degradeBy 0
$ every 6 (("1/4" ~>))
$ struct "{0100000000000001}%16"
$ n 0 # midichan 4,
-----------------------
degradeBy 0
$ struct "{0111111110111011}%16"
$ n "{28 15 3 6 21 21 22 16 2 34 9 6 0 35 23 28 }%16"
# midichan 7 + n (-36)
] # sunvox