44 lines
1 KiB
Text
44 lines
1 KiB
Text
-- sounds
|
|
-- ======
|
|
|
|
-- # Bass
|
|
-- bass2, ht
|
|
-- clubkick
|
|
-- kicklinn
|
|
-- popkick
|
|
-- reverbkick
|
|
-- rs,sd,sn,stomp,ul,ulgab
|
|
-- # aigus
|
|
-- co, cp (clap), cr (cimbales), dr, dr2
|
|
-- hc, ho
|
|
-- # sons
|
|
-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
|
|
-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
|
|
-- rave2, sine, stab
|
|
-- # templates
|
|
-- hardcore, hardkick
|
|
|
|
-- Inspiration https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
|
|
|
|
import qualified Sound.Tidal.Chords as Chords
|
|
|
|
do
|
|
let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
|
|
arp2 = "[7 0 2 4]*2"
|
|
pat = "<0 2 5 4>"
|
|
oct = -2
|
|
d1 $ stack [
|
|
n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
|
|
n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
|
|
n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
|
|
] # orbit 1 # room 0.1 # size 0.93
|
|
d2 $ s "clubkick*4"
|
|
# orbit 2 # room 0.5
|
|
d3 $ s "[~ cp:2]*4"
|
|
# orbit 2
|
|
|
|
solo 4
|
|
|
|
unsolo 4
|
|
|
|
hush
|