123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 |
- -- 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 $ stack [
- (1 ~>) $ sound "cy/8",
- -- whenmod 16 14 (trunc 0.4) $
- whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
- s "[k 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 $
- every 7 (0.25 ~>) $
- (within (0, 0.5) $ gap 16) $
- every 2 (0.07 ~>) $
- (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
- # shape ((/3) <$> slow 16 saw1)
- # vowel "[i o]*2"
- # speed "0.8"
- d4 $
- -- 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
|