music-2010s/juliese
Archived
1
0
Fork 0
Code Pull Requests Activity

superdirt compatibility patches

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-11-14 23:13:24 +00:00
parent 7ad23cb4bc
commit 523da37b58
3 changed files with 24 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
juliese.megalet.tidal
+5 -5
View File
@@ -9,18 +9,18 @@ let every' n o f = when ((== (o-1)) . (`mod` n)) f
d'pc = d7
d'pcl = d8
d'wbass = d9
bassbass = s "[[vb vb:1] ~]/2"
bassbass = sound "[[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"
(if m then (every 3 (append $ sound "hh:1 hh")) else id) $
sound "hh hh:2"
# gain "0.6"
ududu = slow 4 . chop 128 $
s (samples "udu" (slow 4 $ irand 4))
sound (samples "udu" (slow 4 $ irand 4))
# gain "0.8"
# cut "6"
eg = gap 128 $ s "eg*2"
@@ -29,7 +29,7 @@ let every' n o f = when ((== (o-1)) . (`mod` n)) f
chop 128 $
s "[gt [~ gt] ! ~]/2"
# cut "5"
pcbeep = slow 16 $ gap 48 $ s "pc:1"
pcbeep = slow 16 $ gap 48 $ sound "pc:1"
# gain "0.7"
# cut "7"
# speed "[1 0.7]"