From 2fe7b5182d42cddeb9c09d17f927718dcfc515ad Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Fri, 9 Jun 2017 16:05:06 +0100
Subject: [PATCH] tidy up reference comments

---
 cuadrillion.tidal | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/cuadrillion.tidal b/cuadrillion.tidal
index 33ca386..10d5291 100644
--- a/cuadrillion.tidal
+++ b/cuadrillion.tidal
@@ -14,6 +14,7 @@ See README.md
 -}
 
 let bpm b = cps (b/60)
+    msil = mapM_ ($ silence)
     every' n o f = when ((== (o-1)) . (`mod` n)) f
     d'drum = d1
     d'perc = d2
@@ -25,7 +26,7 @@ let bpm b = cps (b/60)
 
 bpm 149
 
--- @bleep
+-- @cubleep
 d'bleep $
   -- every' 5 2 (iter 4) $ -- (2)
   -- every 3 (rev . slow 2 . chop 4) $ -- (1)
@@ -36,7 +37,7 @@ d'drum $
   every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
   1 <~ n "1/16" # s "drum"
 
--- @drumintro
+-- @cudrumintro
 d'drum $
   every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
   n "{1, [~! [~ 0]!]/4}" # s "drum"
@@ -47,7 +48,7 @@ d'drum $
 
 d'perc $ n "[~ 1 ~ ~]/4" # s "drum2"
 
--- @perc
+-- @cuperc
 d'perc $
   stack [
     n "[~ 1 0 ~]/4",
@@ -57,13 +58,13 @@ d'perc $
   ]
   # s "drum2"
 
--- @drum
+-- @cudrum
 d'drum $
   -- every' 16 16 (density 2) $ -- (1) replacing (0)
   every' 16 16 (within (0.5, 1) $ density 2) $ -- (0)
   n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
 
--- @bass
+-- @cubass
 d'bass $
   -- slowspread slow [1,1,1,2,3] $ -- (2)
   (0.5 <~) $ rev $ gap 32 $
@@ -77,7 +78,7 @@ d'bass $
   # orbit "1" # room "0.2" # size "0.1"
   # resonance "0.1" # cutoff "130" -- 10 -> 130
 
--- @gt
+-- @cugt
 d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
   -- every 3 (slow 32) $ -- (1) then (2) remove
   every 2 rev $
@@ -89,7 +90,7 @@ d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
   # speed (scale 0.7 1.4 $ slow 3 sine1)
   # vowel "u"
 
--- @gt2
+-- @cugt2
 d'gt2 $ (0.5 <~) $
   slow 8 $
   iter 4 $
@@ -99,9 +100,9 @@ d'gt2 $ (0.5 <~) $
   # shape "0.4"
   # gain "0.9"
 
--- ~drum w/ (1)
+-- drum @ 1
 
--- @gt3
+-- @cugt3
 let hp = "240"
     lp = "1200"
     r = "0.3"
@@ -117,16 +118,16 @@ let hp = "240"
      # cutoff lp # resonance r
      # hcutoff hp # resonance r
 
-mapM_ ($ silence) [d'gt, d'gt2, d'gt3]
+msil [d'gt, d'gt2, d'gt3]
 
--- ~perc w/ (1)
--- ~perc w/ (2)
--- ~gt w/ (1)
--- ~bass w/ (1)
--- ~gt2
--- ~gt w/ (2) then (3)
--- ~gt3 w/ (2)
+-- cuperc @ 1
+-- cuperc @ 2
+-- cugt @ 1
+-- cubass @ 1
+-- cugt2
+-- cugt @ 2 then 3
+-- cugt3 @ 2
 
-mapM_ ($ silence) [d'gt, d'gt2, d'gt3, d'bass]
+msil [d'gt, d'gt2, d'gt3, d'bass]
 
 hush