17 lines
655 B
Haskell
17 lines
655 B
Haskell
setcps(110 / 60 / 4)
|
|
|
|
|
|
do
|
|
resetCycles
|
|
d1 $ stack [
|
|
off (1/12) ((# up (scale "dorian" "<7!4 8 [8 6] 7!2>")) . (# krush 3)) $
|
|
off (3/24) ((# up (scale "dorian" "<1 2 -1 3>")) . (# pan ( slow 4 $ sine ))) $
|
|
echo 2 (1/8) (range 0.7 0.9 $ saw ) $ s "[cpluck:4!2 ~]*2" # lpf 500 # krush ( range 0.61 1.3 $ slow 3 $ sine )
|
|
]
|
|
d2 $ stack [
|
|
s "[~ akailinnbd]*2" # room 0.2 # lpf 800
|
|
, s "[~ akailinnsd]*2" # room 0.1 # lpf (range 1600 2300 $ slow 3 saw)
|
|
, sometimes (superimpose (# up "[12|-12]")) $ s "akailinnhh*12" # lpf 600
|
|
]
|
|
d3 $ n ("c4*4" |+ (scale "dorian" "-4")) # s "superfm" # krush (range 1.3 2.3 $ slow 2 saw)
|
|
|