some cleanup, clearer compat tags, add snippets

snippets/cuadrillion

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cuadrillion
+# group: cuadrillion
+# key: cuadrillion
+# expand-env: (yas-indent-line fixed)
+# --
+cusetup
+cubleep
+cudrumintro
+cuperc
+cudrum
+cubass
+cugt
+cugt2
+cugt3

snippets/cubass

@@ -0,0 +1,19 @@
+# -*- mode: snippet -*-
+# name: cubass
+# group: cuadrillion
+# key: cubass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cubass
+d'bass $
+  -- slowspread slow [1,1,1,2,3] $ -- (2)
+  (0.5 <~) $ rev $ gap 32 $
+  -- superimpose ((# gain 0.7) . (# speed 3)) $ -- (1)
+  every' 32 31 (overlay $ n "2" # s "$1") $
+  every' 16 16 (overlay $ n "1 ~" # s "$1") $
+  n "[0 0 [~ 0] !]/4" # s "${1:drbass}"
+  # gain 0.9
+  # vowel "{a, i}"
+  # shape 0.4
+  # orbit 1 # room 0.2 # size 0.1
+  # resonance 0.1 # cutoff 10 -- 10 -> 130, then delete

snippets/cubleep

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: cubleep
+# group: cuadrillion
+# key: cubleep
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cubleep
+d'bleep $
+  -- every' 5 2 (iter 4) $ -- (2)
+  -- every 3 (rev . slow 2 . chop 4) $ -- (1)
+  n "[[~ 0] ~ 1 ~]/4" # s "${1:bleep}"
+  # gain 1.2

snippets/cudrum

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: cudrum
+# group: cuadrillion
+# key: cudrum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @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 "${1:drum}"

snippets/cudrumintro

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: cudrumintro
+# group: cuadrillion
+# key: cudrumintro
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cudrumintro
+d'drum $
+  every' 16 16 (overlay $ n "~ 1!!" # s "$1") $
+  1 <~ n "1/16" # s "${1:drum}" -- (0)
+  -- n "{1, [~! [~ 0]!]/4}" # s "$1" -- (1)
+  -- n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "$1" -- (2)

snippets/cugt

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: cugt
+# group: cuadrillion
+# key: cugt
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt
+d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
+  -- every 3 (slow 32) $ -- (1) then (2) remove
+  every 2 rev $
+  (0.5 ~>) $
+  slow 8 $ smash 16 [1,2] $ striate 16 $
+  n "0" # s "${1:acb}"
+  # cut 7
+  # gain 0.8 -- 0.1 -> 0.8
+  # speed (scale 0.7 1.4 $ slow 3 sine1)
+  # vowel "u"

snippets/cugt2

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cugt2
+# group: cuadrillion
+# key: cugt2
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt2
+d'gt2 $ (0.5 <~) $
+  slow 8 $
+  iter 4 $
+  striate 16 $
+  sound "${1:acg}"
+  # cut 6
+  # shape 0.4
+  # gain 0.9

snippets/cugt3

@@ -0,0 +1,21 @@
+# -*- mode: snippet -*-
+# name: cugt3
+# group: cuadrillion
+# key: cugt3
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt3
+let hp = 240
+    lp = 1200
+    r = 0.3
+  in d'gt3 $
+     (3 ~>) $
+     -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
+     slow 16 . gap 8 $ -- (2) remove
+     -- slow 30 . gap 15 $ -- (2)
+     sound "${1:dg}"
+     # gain 0.9
+     # orbit 1 # room 0.2 # size 0.1
+     # speed (scale 1 1.25 $ slow 4.1 sine1)
+     # cutoff lp # resonance r
+     # hcutoff hp # resonance r

snippets/cuperc

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cuperc
+# group: cuadrillion
+# key: cuperc
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cuperc
+d'perc $
+  stack [
+    -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7", -- (3)
+    -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (2)
+    -- 0.5 ~> n "[3 2 ~]/3", -- (1)
+    n "[~ 1 0 ~]/4"
+  ]
+  # s "${1:drum2}"

snippets/cusetup

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: cusetup
+# group: cuadrillion
+# key: cusetup
+# expand-env: (yas-indent-line fixed)
+# --
+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
+    d'bass = d3
+    d'bleep = d4
+    d'gt = d5
+    d'gt2 = d6
+    d'gt3 = d7