algorave_week06.hs

-- 102bpm
setcps (102/60/4)

let the_scale = "hexMajor6"

d1 $ cat [ n (scale the_scale "0 4 8 13?"), n (scale the_scale "<[0,4,7,11]>") ] # s "supersquare" # attack "1.2" # sustain "4" # release "3" # cutoff (range 300 500 $ slow 11 $ sine) # pitch1 (slow 9 $ range 0.95 1.05 $ sine) # gain 0.6

d1 silence

d2 $ euclid 5 16 $ every 3 (rev) $ every 7 (euclid 5 22 ) $ n (scale the_scale "<[-3 2]*2>") # s "supercomparator" # cutoff (range 320 1100 $ rand) # attack "0.24" # sustain "2" # release "0.7" # voice (slow 17 $ range 0.4 0.9 $ sine) # gain 0.9

d2 silence

d3 silence

hush