diff --git a/pigs-nose.tidal b/pigs-nose.tidal index fa3d176..e2eb02e 100644 --- a/pigs-nose.tidal +++ b/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) diff --git a/snippets/pigsnose b/snippets/pigsnose new file mode 100644 index 0000000..46e6771 --- /dev/null +++ b/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 diff --git a/snippets/pn1drum b/snippets/pn1drum new file mode 100644 index 0000000..97b5eee --- /dev/null +++ b/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" + ] diff --git a/snippets/pn1drumintro b/snippets/pn1drumintro new file mode 100644 index 0000000..6df5fec --- /dev/null +++ b/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) + ] diff --git a/snippets/pn1jbass b/snippets/pn1jbass new file mode 100644 index 0000000..e8226ba --- /dev/null +++ b/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 diff --git a/snippets/pn1mons b/snippets/pn1mons new file mode 100644 index 0000000..18704ab --- /dev/null +++ b/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) diff --git a/snippets/pn1print b/snippets/pn1print new file mode 100644 index 0000000..c8ff28e --- /dev/null +++ b/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) diff --git a/snippets/pn1qs b/snippets/pn1qs new file mode 100644 index 0000000..9bdc485 --- /dev/null +++ b/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) diff --git a/snippets/pn2baa b/snippets/pn2baa new file mode 100644 index 0000000..58c03d1 --- /dev/null +++ b/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" diff --git a/snippets/pn2bass b/snippets/pn2bass new file mode 100644 index 0000000..1d944be --- /dev/null +++ b/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) diff --git a/snippets/pn2casio b/snippets/pn2casio new file mode 100644 index 0000000..294a69c --- /dev/null +++ b/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 ~" diff --git a/snippets/pn2drum b/snippets/pn2drum new file mode 100644 index 0000000..14c53a5 --- /dev/null +++ b/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)" + ] diff --git a/snippets/pn2drumintro b/snippets/pn2drumintro new file mode 100644 index 0000000..68657a0 --- /dev/null +++ b/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" + ] diff --git a/snippets/pn2drumoutro b/snippets/pn2drumoutro new file mode 100644 index 0000000..a8c5ede --- /dev/null +++ b/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" diff --git a/snippets/pn2mons b/snippets/pn2mons new file mode 100644 index 0000000..5af1187 --- /dev/null +++ b/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) diff --git a/snippets/pn2ql b/snippets/pn2ql new file mode 100644 index 0000000..9274374 --- /dev/null +++ b/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 diff --git a/snippets/pn3arm b/snippets/pn3arm new file mode 100644 index 0000000..444b373 --- /dev/null +++ b/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) diff --git a/snippets/pn3drum b/snippets/pn3drum new file mode 100644 index 0000000..754b6b1 --- /dev/null +++ b/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) diff --git a/snippets/pnsetup b/snippets/pnsetup new file mode 100644 index 0000000..2f08493 --- /dev/null +++ b/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