add some extra tags, and expand to snippets

pigs-nose.tidal

@@ -50,20 +50,22 @@ d'qs $ cf $
 
 -- pn1qs @ 1
 
-d'drum $ cf $ s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
+-- @pn1drumintro
+d'drum $ cf $ stack [
+  -- s "bd/2", -- (2)
+  s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
+  -- s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2" -- (1)
+  ]
 
 -- pn1print @ 2
 -- pn1qs @ 2
 
-d'drum $ cf $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
+-- pn1drumintro @ 1
 
 -- pn1qs @ 3
 -- pn1print @ 3
 
-d'drum $ cf $ stack [
-  s "bd/2",
-  s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
-  ]
+-- pn1drumintro @ 2
 
 -- pn1qs @ 4
 
@@ -110,12 +112,14 @@ d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
 
 d'qs silence
 
+-- @pn1mons
 d'mons $ cf $
   -- striate 4 $ -- (1)
   slow 2 $ s "monsterb"
   # gain 0.7
   # speed (scale 0.6 1.1 $ slow 4 sinewave1)
 
+-- pn1mons @ 1
 -- pn1drum @ 5 w/ 1,2,3
 
 msil [d'drum, d'jbass]
@@ -139,6 +143,12 @@ d'casio $ cf $
   -- fastspread density [1,4/3] $ -- (1)
   s "casio*2 ~"
 
+-- @pn2drumintro
+d'drum $ cf $ stack [
+  -- s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2", -- (1)
+  s "[hh*8 [hh*4 ho]]/2"
+  ]
+
 d'drum $ cf $ s "[hh*8 [hh*4 ho]]/2"
 
 -- @pn2mons
@@ -156,11 +166,7 @@ let p = slow 4 $ s "bass*2 bass*2 bass*3 bass*3" -- (3) slow 5
   in d'bass $ p
      -- # speed (scale 1 2 $ density 2.4 sinewave1) -- (1)
 
-d'drum $ cf $ stack [
-  s "[hh*8 [hh*4 ho]]/2",
-  s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
-  ]
-
+-- pn2drumintro @ 1
 -- pn2bass @ 1
 
 -- @pn2drum
@@ -203,6 +209,7 @@ d'baa $ slow 6 $ s "baa"
 
 msil [d'print, d'qs, d'jbass, d'mons, d'baa]
 
+-- @pn2drumoutro
 solo $ d'drum $ cf $
   overlay (s "[hh*8 [hh*4 ho]]/2") $
   jux (iter 4 . rev) $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
@@ -214,7 +221,8 @@ Savour
 
 -- @pn3drum
 d'drum $ cf $
-  {- overlay ( -- (1)
+  {- -- (1)
+  overlay (
     -- every 4 (density 3) $ -- (5)
     s "house*2"
     ) $ -- -}
@@ -228,7 +236,6 @@ d'drum $ cf $
 -- pn3drum @ 3
 
 -- @pn3arm
-
 d'arm $ cf $
   -- every 2 (density 3) $ -- (2)
   -- every 8 (# speed "2") $ -- (1)

snippets/pigsnose

@@ -0,0 +1,22 @@
+# -*- mode: snippet -*-
+# name: pigsnose
+# group: pigsnose
+# key: pigsnose
+# expand-env: (yas-indent-line fixed)
+# --
+pnsetup
+pn1print
+pn1qs
+pn1drumintro
+pn1drum
+pn1jbass
+pn2ql
+pn2casio
+pn2drumintro
+pn2mons
+pn2bass
+pn2drum
+pn2baa
+pn2drumoutro
+pn3drum
+pn3arm

snippets/pn1drum

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: pn1drum
+# group: pigsnose
+# key: pn1drum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1drum
+d'drum $ cf $
+  -- overlay (s "[hh*8 [hh*4 ho]]/2") $ -- (5)
+  -- every 8 (density 2) $ -- (3)
+  -- jux (iter 4) . -- (2)
+  -- jux (density 2 . iter 4) . -- (4) replace (2)(3)
+  -- every 3 rev $ -- (1)
+  stack [
+    s "[bd [~ ~ ~ bd] bd*2 ~]/2",
+    s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
+    ]

snippets/pn1drumintro

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: pn1drumintro
+# group: pigsnose
+# key: pn1drumintro
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1drumintro
+d'drum $ cf $ stack [
+  s "[~ [~ ho] ~ ho ~ ~ ho ~]/2",
+  -- s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2" -- (1)
+  ]

snippets/pn1jbass

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn1jbass
+# group: pigsnose
+# key: pn1jbass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1jbass
+d'jbass $ slow 8 $
+  ((1/32) <~) $ -- (1) remove
+  s "jungbass jungbass:1"
+  # pan (slow 2 sinewave1)
+  # speed 1.2

snippets/pn1mons

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn1mons
+# group: pigsnose
+# key: pn1mons
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1mons
+d'mons $ cf $
+  -- striate 4 $ -- (1)
+  slow 2 $ s "monsterb"
+  # gain 0.7
+  # speed (scale 0.6 1.1 $ slow 4 sinewave1)

snippets/pn1print

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn1print
+# group: pigsnose
+# key: pn1print
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1print
+let p = s "print" -- (3) "{print, wobble}" -- (4) "wobble"
+  in d'print $ cf $
+     -- jux (slow 1.1) $ -- (2)
+     slow 2.5 . striate 6 $ p
+     -- # vowel (slow 3 "a e i") -- (1)

snippets/pn1qs

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: pn1qs
+# group: pigsnose
+# key: pn1qs
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn1qs
+d'qs $ cf $
+  -- fastspread density [1,2] $ -- (4) -- (5) [1,1,2,0.5] -- (6) [1,1,0.5,2]
+  -- jux (iter 8) $ -- (2)
+  slow 4 . striate 4 $ -- (1) 2
+  s "qspace"
+  -- # speed (scale 0.7 1.2 $ slow 3.2 triwave1) -- (3)

snippets/pn2baa

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: pn2baa
+# group: pigsnose
+# key: pn2baa
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2baa
+d'baa $ slow 6 $ s "baa"
+  # vowel "e"

snippets/pn2bass

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: pn2bass
+# group: pigsnose
+# key: pn2bass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2bass
+let p = slow 4 $ s "bass*2 bass*2 bass*3 bass*3" -- (3) slow 5
+    -- p = slow 5 $ s "bass*2 bass*2 bass*3 bass*3 ~" -- (2)
+  in d'bass $ p
+     -- # speed (scale 1 2 $ density 2.4 sinewave1) -- (1)

snippets/pn2casio

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: pn2casio
+# group: pigsnose
+# key: pn2casio
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2casio
+d'casio $ cf $
+  -- jux (slow (4/3)) $ -- (2)
+  -- fastspread density [1,4/3] $ -- (1)
+  s "casio*2 ~"

snippets/pn2drum

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: pn2drum
+# group: pigsnose
+# key: pn2drum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2drum
+d'drum $ cf $ stack [
+  s "[hh*8 [hh*4 ho]]/2",
+  s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2",
+  -- every 4 (brak . density 2) $ -- (3)
+  s "bd*2" -- (1) "house*2" -- (2) "house(3,8)"
+  ]

snippets/pn2drumintro

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: pn2drumintro
+# group: pigsnose
+# key: pn2drumintro
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2drumintro
+d'drum $ cf $ stack [
+  -- s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2", -- (1)
+  s "[hh*8 [hh*4 ho]]/2"
+  ]

snippets/pn2drumoutro

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: pn2drumoutro
+# group: pigsnose
+# key: pn2drumoutro
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2drumoutro
+solo $ d'drum $ cf $
+  overlay (s "[hh*8 [hh*4 ho]]/2") $
+  jux (iter 4 . rev) $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"

snippets/pn2mons

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn2mons
+# group: pigsnose
+# key: pn2mons
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2mons
+d'mons $ cf $
+  -- fastspread density [1,2] $ -- (1)
+  striate 4 $ slow 2 $ s "monsterb"
+  # gain 0.7
+  # speed (scale 0.6 1.1 $ slow 4 sinewave1)

snippets/pn2ql

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn2ql
+# group: pigsnose
+# key: pn2ql
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn2ql
+d'ql $
+  -- slow 2 $ -- (0)
+  slow (10/4) $ fastspread density [1,5/4] $ -- (0) remove
+  s "[qlatibro:1 qlatibro]*2"
+  # vowel "e" -- (0) remove

snippets/pn3arm

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: pn3arm
+# group: pigsnose
+# key: pn3arm
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn3arm
+d'arm $ cf $
+  -- every 2 (density 3) $ -- (2)
+  -- every 8 (# speed "2") $ -- (1)
+  slow 4 $ s "armora"
+  -- # shape (scale 0 (2/3) $ slow 4 sinewave1) -- (3)

snippets/pn3drum

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: pn3drum
+# group: pigsnose
+# key: pn3drum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @pn3drum
+d'drum $ cf $
+  {- -- (1)
+  overlay (
+    -- every 4 (density 3) $ -- (5)
+    s "house*2"
+    ) $ -- -}
+  -- every 4 (density 2 . brak) $ -- (2)
+  density (8/3) $
+  s "sn:0 hh hh" -- (3) "sn:0 hh rm"
+  -- # n "[0 1]/5" -- (4)

snippets/pnsetup

@@ -0,0 +1,20 @@
+# -*- mode: snippet -*-
+# name: pnsetup
+# group: pigsnose
+# key: pnsetup
+# expand-env: (yas-indent-line fixed)
+# --
+let bpm b = cps (b/60)
+    msil = mapM_ ($ silence)
+    cf = slow 2
+    d'drum = d1
+    d'print = d2
+    d'wobb = d2
+    d'qs = d3
+    d'jbass = d4
+    d'mons = d5
+    d'bass = d6
+    d'casio = d7
+    d'ql = d8
+    d'arm = d8
+    d'baa = d9