wip ditty for renick's mix

2016-03-16 08:54:35 +00:00
commit 18a52506e4
26 changed files with 484 additions and 0 deletions
@@ -0,0 +1,75 @@
+-- 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