123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111 |
- -- original ravey
- cps (155/60)
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- s "[k {k, sn}]/2"
- ]
- d2 $
- whenmod 16 15 (density 3) $
- smash 16 [0.25, 0.5] $
- s "hh hh:2"
- # gain "0.6"
- d3 $
- (within (0, 0.5) $ gap 16) $
- (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
- # shape ((/3) <$> slow 16 saw1)
- # vowel "[i o]*2"
- d4 $
- (0.5 <~) $
- slowspread density [1,2,0.5,2] $
- chop 32 $ s "eg:4/2"
- # gain "0.8"
- # speed ((+1).(/2) <$> slow 1.88 saw1)
- mapM_ ($ silence) [d3,d4]
- hush
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- whenmod 16 14 (trunc 0.4) $
- sound "[k {k, sn}]/2"
- ]
- -- slower bit
- cps (100/60)
- d1 $
- -- (overlay $ (1 ~>) $ sound "cy/8") $
- -- whenmod 16 14 (trunc 0.4) $
- stack [
- whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
- whenmod 11 10 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- -- (1 ~>) $ s "sn/2"
- ]
- d2 $
- -- iter 4 $
- 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 (density 1.5 . rev) $
- (density 1.5) $
- -- chop 256 .
- slow 8 $ sound "[vb:1 [~ vb:1] !? ~ vb [~ vb:1]? [~ vb] ~]"
- -- # speed "0.6"
- -- # end "0.2"
- # cut "3"
- d3 $
- s "[[vb vb:1] ~]/2"
- # end "0.2"
- # cut "3"
- d3 $
- whenmod 3 2 (slow 2) $
- (whenmod 4 2 $ density 3) $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # cut "3"
- # speed (slow 2.5 "1 -1")
- hush
- d4 $
- (1 ~>) $
- within (0, 0.5) (density (5%3)) $
- every 2 (0.07 ~>) $
- (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
- # shape ((/3) <$> slow 16 saw1)
- # speed "0.6"
- # cut "4"
- d4 $
- within (0, 0.5) (density (5%3)) $
- every 2 (0.07 ~>) $
- (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
- # shape ((/3) <$> slow 16 saw1)
- -- # speed "0.6"
- # cut "1"
- d5 $
- -- stut 4 0.6 1.25 $
- (0.5 <~) $
- slowspread density [1,2,0.5,2] $
- chop 32 $ s "eg/2"
- # gain "0.8"
- # speed ((+1).(/2) <$> slow 1.88 saw1)
- # cut "1"
- hush
|