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.1 KiB
64 lines
1.1 KiB
2 years ago
|
|
||
|
|
cps = (120/60/4)
|
||
|
|
|
||
|
|
hush
|
||
|
|
|
||
|
|
p "techno" $ struct "[t(<3 6 5>,8)]" $ n "0" # midichan 0 # sunvox
|
||
|
|
|
||
|
|
|
||
|
|
p "techno"
|
||
|
|
$ every 5 (scramble 4)
|
||
|
|
$ every 11 (bite 4 "{0*4 4*4 2*4 1*4 0*4 2*4}%4")
|
||
|
|
$ stack [
|
||
|
|
-- kick
|
||
|
|
st "[t t t t]" $ n "0" # midichan 0
|
||
|
|
-- hh
|
||
|
|
,st "[~t~t~t~t]" $ n "0" # midichan 1
|
||
|
|
-- sd
|
||
|
|
,st "[~ t ~ t]" $ n "0" # midichan 2
|
||
|
|
-- cp
|
||
|
|
,st "{t~~t~}%16" $ n "0" # midichan 3
|
||
|
|
-- ride
|
||
|
|
,st "{t~~~t~tt~}" $ n "0" # midichan 4
|
||
|
|
-- bassline
|
||
|
|
, st "{1001 0011 1001 0101}%16"
|
||
|
|
$ n "{10 20 0 3 4 1 23 10 11}%16"
|
||
|
|
# midichan 7
|
||
|
|
]
|
||
|
|
# sunvox
|
||
|
|
|
||
|
|
|
||
|
|
-- seed: 289431606803713161
|
||
|
|
cps = (117/60/4)
|
||
|
|
|
||
|
|
p "techno"
|
||
|
|
$ whenmod 8 7 (scramble 4)
|
||
|
|
$ stack [
|
||
|
|
n "0"
|
||
|
|
-- kick
|
||
|
|
, struct "{1011001100011110}%16"
|
||
|
|
$ n 0
|
||
|
|
# midichan 0
|
||
|
|
-- hh
|
||
|
|
, struct "{1010111011110001}%16"
|
||
|
|
$ n 0
|
||
|
|
# midichan 1
|
||
|
|
-- sd
|
||
|
|
, struct "{1101001111100010}%16"
|
||
|
|
$ n 0
|
||
|
|
# midichan 2
|
||
|
|
-- cp
|
||
|
|
, struct "{0111000101010000}%16"
|
||
|
|
$ n 0
|
||
|
|
# midichan 3
|
||
|
|
-- cymbal
|
||
|
|
, struct "{0101101101111010}%16"
|
||
|
|
$ n 0
|
||
|
|
# midichan 4
|
||
|
|
-- ?
|
||
|
|
,
|
||
|
|
n "{34 22 6 29 3 3 30 2 27 21 23 3 3 7 24 19 }%16"
|
||
|
|
# midichan 7
|
||
|
|
]
|
||
|
|
# sunvox
|