123456789101112131415161718192021222324252627282930313233343536373839 |
- -- 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"
- ]
|