Archived
Aneurin Barker Snook
3f3af2213d
also cleaned up some rubbish comments, created a channel map and generated a megalet
40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
-- megalet for juliese.tidal
|
|
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
|
d'drum = d1
|
|
d'perc = d2
|
|
d'bass = d3
|
|
d'eg = d4
|
|
d'gt = d5
|
|
d'udu = d6
|
|
d'pc = d7
|
|
d'pcl = d8
|
|
d'wbass = d9
|
|
bassbass = s "[[vb vb:1] ~]/2"
|
|
# end (slow 1.4 "0.2 0.4")
|
|
# vowel "e o"
|
|
bassbass' = bassbass # speed (slow 2.5 "1 -1")
|
|
morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
|
|
drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
|
hhb m = smash 16 [0.25, 0.5] $
|
|
(if m then (every 3 (append $ s "hh:1 hh")) else id) $
|
|
s "hh hh:2"
|
|
# gain "0.6"
|
|
ududu = slow 4 . chop 128 $
|
|
s (samples "udu" (slow 4 $ irand 4))
|
|
# gain "0.8"
|
|
# cut "6"
|
|
eg = gap 128 $ s "eg*2"
|
|
# cut "4"
|
|
gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
|
|
chop 128 $
|
|
s "[gt [~ gt] ! ~]/2"
|
|
# cut "5"
|
|
pcbeep = slow 16 $ gap 48 $ s "pc:1"
|
|
# gain "0.7"
|
|
# cut "7"
|
|
# speed "[1 0.7]"
|
|
ju'drum2 = stack [
|
|
every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
|
|
every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
|
|
]
|