add gitignore, artwork jpg

n.b. untested in performance, may need to fix errors

.gitignore

@@ -0,0 +1,2 @@
+recording/
+*.psd

README.md

@@ -1,30 +1,28 @@
 # Anny FM: Pig's Nose EP
 
-Originally recorded @ home in Elephant & Castle, 5th April 2014.
+[anny.audio](https://www.anny.audio)
 
-Released on [Fwonk*](http://fwonk.co.uk) as [FW132](http://fwonk.co.uk/132/).
+Originally recorded at home in Elephant & Castle, 5th April 2014. Released on [Fwonk*](http://fwonk.co.uk) as [FW132](http://fwonk.co.uk/132/).
 
-## Recordings
+[Listen to Pig's Nose EP on Bandcamp](http://anny.audio/album/pigs-nose-ep)
 
-- [Pig's Nose EP on Bandcamp](http://anny.audio/album/pigs-nose-ep)
+## Files
-- [Pig's Nose EP on SoundCloud](https://soundcloud.com/anny-fm/sets/pigs-nose-ep)
 
-## Source files
+`pigs-nose.scd` is a simple SuperCollider startup file to configure audio routing and load project samples.
 
-`pigs-nose.tidal` is the sole source file for this EP, which will be maintained long term for compatibility with future notess of Tidal. This was originally written for Tidal 0.4 and has been patched for 0.7 (and to use `cps` instead of the original `bps` to define cycle length).
+`pigs-nose.tidal` is the full Pig's Nose EP composition for Tidal Cycles.
 
-This includes the full composition of Pig's Nose EP as recorded, reformulated long after the fact because my original notes were awful. (I have preserved them on the `original-notes` tag for posterity.) I have also made various patches to use new syntax and to improve conciseness and reusability for future live performances.
+`samples.csv` contains sample attributions. All samples are available in `samples/` directory.
 
-## Sample attributions
+## Snippets
 
-```
+The main `pigs-nose.tidal` reflects the original composition, and includes 'initial states' of the various patterns used with notes on what should be changed and when. New patterns are prefaced with a comment like `-- @something` declaring its 'key' for reference.
-armora baa bass bd casio hh ho house jungbass monsterb print rm sn wobble
-```
 
-All of the above samples from [Dirt-Samples](https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223).
+In the `snippets/` directory are [yasnippet](http://joaotavora.github.io/yasnippet/)-compatible snippet files reflecting these references, and additionally a `pnsetup` snippet (which contains the project setup) and a `pigsnose` snippet that provides a convenient list of all project snippets.
 
-```
+For easy loading and use in emacs Tidal, copy or symlink the snippets into a `haskell-mode` major group in one of your snippet folders.
-qlatibro qspace
-```
 
-These are, respectively, derived from `latibro` and `space` from Dirt-Samples. Exactly the same actually, just with gain adjusted down a bit. (This was before `gain` was a synth parameter in Tidal. The good old days!)
+## License
+
+- Source code: [CC-BY-SA](https://creativecommons.org/licenses/by-sa/4.0/)
+- Samples: see origins of sample attributions for individual licenses

pigs-nose.megalet.tidal

@@ -1,13 +0,0 @@
-{-
-anny fm: pig's nose ep megalet
-see pigs-nose.tidal for full composition
--}
-
-let cf = slow 2
-    pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
-    pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
-    pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
-    pn'hh = s "[hh*8 [hh*4 ho]]/2"
-    pn'qs sl = slow sl . striate 4 $ s "qspace"
-    pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
-    pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"

pigs-nose.scd

@@ -0,0 +1,15 @@
+/*
+Anny FM: Pig's Nose EP
+anny.audio
+
+See README.md for more information
+*/
+
+include("SuperDirt")
+
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start
+
+~dirt.loadSoundFiles("samples/*".resolveRelative);
+
+~dirt.stop;

pigs-nose.tidal

@@ -1,353 +1,271 @@
 {-
-anny fm: pig's nose ep
+Anny FM: Pig's Nose EP
-originally recorded @ home, elephant & castle, 5th april 2014
+anny.audio
-released on fwonk*: fwonk.co.uk/132/
+
-  _____
+Current version: 1.2.0
- /    /
+Compatibility:
-/____/
+  Tidal Cycles  1.0-dev (cb070d6)
-anny.audio/album/pigs-nose-ep
+  SuperDirt     1.0-dev (1c526bf)
-      __
+  SuperCollider 3.8
-  c|||  o_
+License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
-c||||| ___o
+
-soundcloud.com/anny-fm/sets/pigs-nose-ep
+See README.md for more information
 -}
 
-cps (117/60)
+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
 
--- shortfix for bps->cps
+bpm 117
-let cf = slow 2
 
 {-
-[1]
+@pn1
+Decant
 -}
 
--- intro hat
+-- @pn1print
-let pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
+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)
 
--- drums pretty much all the way thru
+-- pn1print @ 1
-let pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
-let pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
-let pn'hh = s "[hh*8 [hh*4 ho]]/2"
 
--- qspace (= space but quieter)
+-- @pn1qs
-let pn'qs sl = slow sl . striate 4 $ s "qspace"
+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)
 
--- off tempo intro
+-- pn1qs @ 1
-d2 $ cf $ slow 2.5 . striate 6 $ s "print"
 
-d2 $ cf $ slow 2.5 . striate 6 $ s "print"
+-- @pn1drumintro
-  # vowel (slow 3 "a e i")
+d'drum $ cf $ stack [
+  -- s "bd/2", -- (2)
+  -- s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2" -- (1)
+  s "[~ [~ ho] ~ ho ~ ~ ho ~]/2" -- (1) remove
+  ]
 
-d3 $ cf $ pn'qs 4
+-- pn1print @ 2
-d3 $ cf $ pn'qs 2
+-- pn1qs @ 2
 
-d1 $ cf $ pn'hointro
+-- pn1drumintro @ 1
 
-d2 $ cf $
+-- pn1qs @ 3
-  jux (slow 1.1) $
+-- pn1print @ 3
-  slow 2.5 . striate 6 $ s "print"
-  # vowel (slow 3 "a e i")
 
-d3 $ cf $ jux (iter 8) $ pn'qs 2
+-- pn1drumintro @ 2
 
-d1 $ cf $ pn'sn
+-- pn1qs @ 4
 
-d3 $ cf $ jux (iter 8) $ pn'qs 2
+-- @pn1drum
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+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"
+    ]
 
-d2 $ cf $
+-- pn1print @ 4
-  jux (slow 1.1) $
-  slow 2.5 . striate 6 $ s "{print, wobble}"
-  # vowel (slow 3 "a e i")
 
-d1 $ cf $ overlay (slow 2 $ s "bd") $ pn'sn
+-- pn1qs @ 5
 
--- good qspace
+-- pn1drum @ 1
-d3 $ cf $
+-- pn1drum @ 2
-  spread density [1,2] $
+-- pn1drum @ 3
-  jux (iter 8) $ pn'qs 2
+-- pn1drum @ 4
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
--- drums r srs now
+-- pn1qs @ 6
-d1 $ cf $ overlay (pn'bd) $ pn'sn
 
-d2 $ cf $
+d'print silence
-  jux (slow 1.1) $
-  slow 2.5 . striate 6 $ s "wobble"
 
--- pushy qspace
+-- pn1drum @ 0
-d3 $ cf $
+-- pn1drum @ 5
-  spread density [1,1,2,0.5] $
+-- pn1drum @ 5 w/ 1
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d1 $ cf $
+-- @pn1jbass
-  every 3 rev $
+d'jbass $ slow 8 $
-  overlay (pn'bd) $ pn'sn
+  ((1/32) <~) $ -- (1) remove
-
+  s "jungbass jungbass:1"
-d1 $ cf $
-  jux (iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
-
-d1 $ cf $
-  every 8 (density 2) $
-  jux (iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
-
-d1 $ cf $
-  jux (density 2 . iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
-
--- chiller qspace
-d3 $ cf $
-  spread density [1,1,0.5,2] $
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-
-d2 silence
-
-d1 $ cf $ overlay (pn'bd) $ pn'sn
-
-d1 $ cf $
-  overlay (pn'hh) $
-  overlay (pn'bd) $ pn'sn
-
-d1 $ cf $
-  overlay (pn'hh) $
-  every 3 rev $
-  overlay (pn'bd) $ pn'sn
-
-d4 $ slow 8 $ ((1%32) <~) $ s "jungbass jungbass:1"
   # pan (slow 2 sinewave1)
-  # speed "1.2"
+  # speed 1.2
 
-d1 $ cf $
+-- pn1drum @ 5 w/ 1,2
-  overlay (pn'hh) $
-  jux (iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
 
--- start tailing off
+-- (pn2ql @ 0)
-d8 $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
+d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
 
-d1 $ cf $
+d'qs silence
-  overlay (pn'hh) $
-  jux (iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
 
-d3 silence
+-- @pn1mons
-
+d'mons $ cf $
-d5 $ cf $
+  -- striate 4 $ -- (1)
   slow 2 $ s "monsterb"
-  # gain "0.7"
+  # gain 0.7
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
+  # speed (scale 0.6 1.1 $ slow 4 sinewave1)
 
-d5 $ cf $
+-- pn1mons @ 1
-  striate 4 $ slow 2 $ s "monsterb"
+-- pn1drum @ 5 w/ 1,2,3
-  # gain "0.7"
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
-d1 $ cf $
+msil [d'drum, d'jbass]
-  overlay (pn'hh) $
+d'mons silence
-  every 8 (density 2) $
-  jux (iter 4) . every 3 rev $
-  overlay (pn'bd) $ pn'sn
-
--- calm
-mapM_ ($ silence) [d1,d4]
-d5 silence
 
 {-
-[2]
+@pn2
+Raise
 -}
 
-let pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
+-- @pn2ql
-let pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
+d'ql $
-
+  -- slow 2 $ -- (0)
-d8 $ slow (10%4) $ spread density [1,5%4] $
+  slow (10/4) $ fastspread density [1,5/4] $ -- (0) remove
   s "[qlatibro:1 qlatibro]*2"
+  # vowel "e" -- (0) remove
+
+-- @pn2casio
+d'casio $ cf $
+  -- jux (slow (4/3)) $ -- (2)
+  -- 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
+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)
+
+-- pn2mons @ 1
+
+-- @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)
+
+-- pn2drumintro @ 1
+-- pn2bass @ 1
+
+-- @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)"
+  ]
+
+-- pn1qs @ 4
+-- pn2bass @ 2
+
+-- pn2drum @ 1
+
+-- pn1qs @ 5
+
+d'drum silence
+
+-- pn2drum @ 2
+
+-- pn1qs @ 6
+-- pn1jbass @ 1
+
+-- pn2bass @ 3
+
+msil [d'qs, d'mons]
+
+-- pn2casio @ 1
+-- pn2drum @ 3
+-- pn2casio @ 2
+
+msil [d'casio, d'ql]
+
+-- pn2mons @ 1
+
+-- @pn2baa
+d'baa $ slow 6 $ s "baa"
   # vowel "e"
 
--- yknow this is a pretty neat sample
+msil [d'print, d'qs, d'jbass, d'mons, d'baa]
-d7 $ cf $ s "casio*2 ~"
-d1 $ cf $ pn'hh
 
-d5 $ cf $
+-- @pn2drumoutro
-  striate 4 $ slow 2 $ s "monsterb"
+solo $ d'drum $ cf $
-  # gain "0.7"
+  overlay (s "[hh*8 [hh*4 ho]]/2") $
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
+  jux (iter 4 . rev) $ s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
-
-d5 $ cf $
-  spread density [1,2] $
-  striate 4 $ slow 2 $ s "monsterb"
-  # gain "0.7"
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
-
--- real bass at last
-d6 $ slow 4 $ pn'bass4
-
-d1 $ cf $ overlay (pn'sn) $ pn'hh
-
-d6 $ cf $ slow 2 $ pn'bass4
-  # speed ((+1) <$> density 2.4 sinewave1)
-
-d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  s "bd*2"
-
-d3 $ cf $
-  spread density [1,2] $
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-
-d6 $ slow 5 $ pn'bass5
-  # speed ((+1) <$> density 2.4 sinewave1)
-
--- real kick drum at last!
-d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  s "house*2"
-
-d3 $ cf $
-  spread density [1,1,2,0.5] $
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-
--- quickly
-d1 silence
-
-d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  s "house(3,8)"
-
-d3 $ cf $
-  spread density [1,1,0.5,2] $
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-
-d4 $ slow 8 $ s "jungbass jungbass:1"
-  # pan (slow 2 sinewave1)
-  # speed "1.2"
-
-d6 $ slow 5 $ pn'bass4
-  # speed ((+1) <$> density 2.4 sinewave1)
-
-mapM_ ($ silence) [d3,d5]
-
--- mess with casio a bit then get rid. a transition
-d7 $ cf $
-  spread density [1,4%3] $ s "casio*2 ~"
-
-d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  every 4 (brak . density 2) $ s "house(3,8)"
-
-d7 $ cf $
-  jux (slow (4%3)) $
-  spread density [1,4%3] $ s "casio*2 ~"
-
-mapM_ ($ silence) [d7,d8]
-
-d5 $ cf $
-  spread density [1,2] $
-  striate 4 $ slow 2 $ s "monsterb"
-  # gain "0.7"
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
-
--- sometimes i regret putting a sheep in this song
-d9 $ slow 6 $ s "baa"
-  # vowel "e"
-
-mapM_ ($ silence) [d2,d3,d4,d5,d9]
-
--- nice
-solo $ d1 $ cf $
-  overlay pn'hh $
-  jux (iter 4 . rev) $ pn'sn
 
 {-
-[3]
+@pn3
+Savour
 -}
 
--- drum intro
+-- @pn3drum
-d1 $ cf $
+d'drum $ cf $
-  density (8%3) $ s "sn:0 hh hh"
+  {- -- (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)
 
-d1 $ cf $
+-- pn3drum @ 1
-  overlay (s "house*2") $
+-- pn3drum @ 2
-  density (8%3) $ s "sn:0 hh hh"
+-- pn3drum @ 3
 
-d1 $ cf $
+-- @pn3arm
-  overlay (s "house*2") $
+d'arm $ cf $
-  every 4 (density 2 . brak) $
+  -- every 2 (density 3) $ -- (2)
-  density (8%3) $ s "sn:0 hh hh"
+  -- every 8 (# speed "2") $ -- (1)
-
-d1 $ cf $
-  overlay (s "house*2") $
-  every 4 (density 2 . brak) $
-  density (8%3) $ s "sn:0 hh rm"
-
--- weird low
-d8 $ cf $
   slow 4 $ s "armora"
+  -- # shape (scale 0 (2/3) $ slow 4 sinewave1) -- (3)
 
-d8 $ cf $
+-- pn3arm @ 1
-  every 8 (# speed "2") $
+-- pn3arm @ 2
-  slow 4 $ s "armora"
+-- pn3arm @ 3
 
-d8 $ cf $
+-- pn2mons @ 0
-  every 2 (density 3) $
-  every 8 (# speed "2") $
-  slow 4 $ s "armora"
 
-d8 $ cf $
+-- pn1qs @ 1
-  every 2 (density 3) $
+-- pn1qs @ 2
-  every 8 (# speed "2") $
+-- pn1qs @ 3
-  slow 4 $ s "armora"
+-- pn1qs @ 4
-  # shape ((/1.5) <$> slow 4 sinewave1)
 
--- bring monster back
+-- pn3drum @ 4
-d5 $ cf $
-  striate 4 $ slow 2 $ s "monsterb"
-  # gain "0.7"
-  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
--- and qspace
+-- pn2bass @ 2
-d3 $ cf $ pn'qs 2
-d3 $ cf $ jux (iter 8) $ pn'qs 2
 
-d3 $ cf $
+-- pn3drum @ 5
-  jux (iter 8) $ pn'qs 2
+-- pn1jbass @ 1
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d3 $ cf $
+bpm (117 * 1.1) -- gradually to 1.5
-  spread density [1,2] $
-  jux (iter 8) $ pn'qs 2
-  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d1 $ cf $
+-- pn1print @ 4
-  overlay (s "house*2") $
+-- pn2sheep
-  every 4 (density 2 . brak) $
-  density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
 
--- bring back 5/4 bass
-d6 $ slow 5 $ pn'bass5
-  # speed ((+1) <$> density 2.4 sinewave1)
-
-d1 $ cf $
-  overlay (every 4 (density 3) $ s "house*2") $
-  every 4 (density 2 . brak) $
-  density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
-
-d4 $ slow 8 $ s "jungbass jungbass:1"
-  # pan (slow 2 sinewave1)
-  # speed "1.2"
-
--- gradually 1.1->1.5
-cps ((117*1.5)/60)
-
-d2 $ cf $
-  jux (slow 1.1) $
-  slow 2.5 . striate 6 $ s "wobble"
-
--- still don't know why i put a fuckin sheep in here
-d9 $ slow 6 $ s "baa"
-  # vowel "e"
-
--- all at once
 hush

samples.csv

@@ -0,0 +1,22 @@
+Sample,Index,File,Origin,URL,Notes
+armora,0,005_tankeng.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+baa,0,1.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+bass,0,000_bass1.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+bd,0,BT0A0D0.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+casio,0,high.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+hh,0,000_hh3closedhh.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+hh,1,001_hh3crash.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+ho,0,HHOD0.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+house,0,000_BD.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+jungbass,0,fukubass2.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+jungbass,1,gliding_808_sub.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+monsterb,0,000_jumpdown.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+print,0,6.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+qlatibro,0,001_Sound3.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,Copy of latibro with gain reduction
+qlatibro,1,006_Sound8.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,Copy of latibro with gain reduction
+qspace,0,000_0.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,Copy of space with gain reduction
+rm,0,RIM0.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+rm,1,RIMA.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+sn,0,ST0T0S7.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+sn,1,ST0T7S7.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,
+wobble,0,000_0.wav,Dirt,https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223,

snippets/decant

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: decant
+# group: pigsnose
+# key: decant
+# expand-env: (yas-indent-line fixed)
+# --
+pn1print
+pn1qs
+pn1drumintro
+pn1drum
+pn1jbass
+pn2ql
+pn1mons

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 "[${3:hh}*8 [$3*4 ${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 "[${1:bd} [~ ~ ~ $1] $1*2 ~]/2",
+    s "[~ [~ ${2:sn:1}] ~ $2 ~ ~ $2 ~]/2"
+    ]

snippets/pn1drumintro

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

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 "${1:jungbass} $1: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 "${1: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 "${1:print}" -- (3) "{$1, ${2:wobble}}" -- (4) "$2"
+  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 "${1: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 "${1: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 "${1:bass}*2 $1*2 $1*3 $1*3" -- (3) slow 5
+    -- p = slow 5 $ s "$1*2 $1*2 $1*3 $1*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 "${1: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 "[${3:hh}*8 [$3*4 ${4:ho}]]/2",
+  s "[~ [~ ${2:sn:1}] ~ $2 ~ ~ $2 ~]/2",
+  -- every 4 (brak . density 2) $ -- (3)
+  s "${1:bd}*2" -- (1) "${5:house}*2" -- (2) "$5(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 "[~ [~ ${3:sn:1}] ~ $3 ~ ~ $3 ~]/2", -- (1)
+  s "[${1:hh}*8 [$1*4 ${2: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 "[${2:hh}*8 [$2*4 ${3:ho}]]/2") $
+  jux (iter 4 . rev) $ s "[~ [~ ${1:sn:1}] ~ $1 ~ ~ $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 "${1: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 "[${1:qlatibro}:1 $1]*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 "${1: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 "${4:house}*2"
+    ) $ -- -}
+  -- every 4 (density 2 . brak) $ -- (2)
+  density (8/3) $
+  s "${1:sn:0} ${2:hh} $2" -- (3) "$1:0 $2 ${3: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

snippets/raise

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: raise
+# group: pigsnose
+# key: raise
+# expand-env: (yas-indent-line fixed)
+# --
+pn2ql
+pn2casio
+pn2drumintro
+pn2mons
+pn2bass
+pn2drum
+pn1qs
+pn1jbass
+pn2baa
+pn2drumoutro

snippets/savour

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: savour
+# group: pigsnose
+# key: savour
+# expand-env: (yas-indent-line fixed)
+# --
+pn3drum
+pn3arm
+pn2mons
+pn1qs
+pn2bass
+pn1jbass
+pn1print
+pn2sheep