-- 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