12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394 |
- cps (100/60)
- let every' n o f = when ((== (o-1)) . (`mod` n)) f
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- d2 $
- iter 4 $
- (# pan (density 16 "0.25 0.75")) $
- whenmod 16 15 (density 3) $
- smash 16 [0.25, 0.5] $
- every 3 (append $ s "hh:1 hh") $
- s "hh hh:2"
- # gain "0.6"
- d3 $
- whenmod 3 2 (slow 2) $
- (whenmod 4 2 $ density 3) $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # speed (slow 2.5 "1 -1")
- d1 $ stack [
- whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- d4 $
- (0.18 <~) $
- (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
- density 0.245 $
- slowspread density [1, 2, 0.5, 2] $
- gap 128 $
- s "eg*2"
- # gain "0.8"
- # cut "4"
- d2 silence
- d4 $
- (0.18 <~) $
- every 2 (const silence) $
- (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
- density 0.245 $
- slowspread density [1, 2, 0.5, 2] $
- gap 128 $
- s "eg*2"
- # gain "0.8"
- # cut "4"
- d1 $ stack [
- every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
- s "[k ~ k*2 ~]/4",
- every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $
- every' 16 16 (const $ s "sn*2") $
- (1 ~>) $ s "sn/2"
- ]
- d5 $
- (0.32 ~>) $
- slow 4 . chop 256 $ sound "gt"
- # gain "0.7"
- # speed ((+0.8).(/3) <$> slow 8 sinewave1)
- d4 $
- (0.18 <~) $
- (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
- slowspread density [1, 2, 0.5, 2] $
- density 0.245 $
- gap 128 $
- s "[eg [~ eg] ! ~]/2"
- # gain "0.8"
- # cut "4"
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (1 ~>) $ s "sn/2"
- ]
- d4 silence
- d2 silence
- hush
|