create snippets for easy performance

snippets/haddeo

@@ -0,0 +1,27 @@
+# -*- mode: snippet -*-
+# name: haddeo
+# group: haddeo
+# key: haddeo
+# expand-env: (yas-indent-line 'fixed)
+# --
+hsetup
+hdrum0
+hic1
+hic2
+hnim1
+hdrum1
+hsnoo
+hdorr1
+hdrum2
+hnim2
+hduck
+hbass
+hdrum23
+hdrum3
+hnim3
+hbass2
+hdorr2
+hdrum4
+hhi
+hnim4
+hduon

snippets/hbass

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: hbass
+# group: haddeo
+# key: hbass
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hbass
+let s = striate 16
+  in d'bass $
+     slow 8 $ stack [
+       s $ sound "bass",
+       s $ sound "sine"
+       ]
+     # gain 0.9

snippets/hbass2

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: hbass2
+# group: haddeo
+# key: hbass2
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hbass2
+d'bass2 $ swing 0.14 $
+  n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
+  # speed (0.5 ~> "[2 1]")
+  # gain 0.82

snippets/hdorr1

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: hdorr1
+# group: haddeo
+# key: hdorr1
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdorr1
+d'fx1 $ -- mt $ -- (1)
+  (2 ~>) $ chop 16 $
+  s "dorr/4"
+  # hresonance 0.05
+  # hcutoff 200
+  # gain 0.8

snippets/hdorr2

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: hdorr2
+# group: haddeo
+# key: hdorr2
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdorr2
+d'fx1 $
+  -- superimpose (slow 2) $ -- (1)
+  (2 ~>) $ chop 16 $ s "dorr/4"
+  # hresonance 0.05
+  # hcutoff 200
+  # gain 0.8

snippets/hdrum0

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: hdrum0
+# group: haddeo
+# key: hdrum0
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum0
+d'drum $ stack [
+  n "1/4" # s "drum" -- (2) remove
+  -- n "[1*2, 0*8]/8" # s "drum", -- (2)
+  -- n "[~ 0]" # s "kit" -- (1)
+  ]

snippets/hdrum1

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: hdrum1
+# group: haddeo
+# key: hdrum1
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum1
+d'drum $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  -- whenmod 3 2 (density 2) $ -- (3)
+  -- withmod 11 5 0.5 1 (density 2) $ -- (2)
+  n "~ 0" # s "kit"
+  -- n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit" -- (1)
+  ]

snippets/hdrum2

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: hdrum2
+# group: haddeo
+# key: hdrum2
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum2
+d'drum $ mt $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]

snippets/hdrum23

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: hdrum23
+# group: haddeo
+# key: hdrum23
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum23
+d'drum $ n "0*4" # s "kit" # gain 0.9 -- (1) s "drum"

snippets/hdrum3

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: hdrum3
+# group: haddeo
+# key: hdrum3
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum3
+d'drum $ swing 0.14 $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  -- n "[~ 1]/2" # s "sn" # gain 0.85 -- (1)
+  -- n "[~ [1 0/8 1/2 0/2]]/2" # s "sn" # gain 0.85 -- (2)
+  ]

snippets/hdrum4

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: hdrum4
+# group: haddeo
+# key: hdrum4
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hdrum4
+d'drum $ swing 0.14 $ -- mt $ -- (3)
+  stack [
+    n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
+    -- every' 16 16 (const $ sound "kit:3") $ -- (2)
+    -- n "[~ 0]" # s "kit", -- (1)
+    n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit", -- (1) remove
+    n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
+    # gain 0.85
+    ]

snippets/hduck

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: hduck
+# group: haddeo
+# key: hduck
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hduck
+d'fx2 $ mt $
+  stack [
+    1.75 ~> s "tubal/4",
+    (3.75 ~>) $ chop 16 $ s "duck/4"
+    # gain 0.6
+    # speed 0.9
+    ]

snippets/hduon

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: hduon
+# group: haddeo
+# key: hduon
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hduon
+d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
+  # gain 0.9

snippets/hhi

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: hhi
+# group: haddeo
+# key: hhi
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hhi
+d'hi $
+  swing 0.14 $
+  every 3 rev $
+  whenmod 12 8 (0.5 <~) $
+  (0.5 ~>) $
+  slow 8 $
+  gap 64 $
+  n "[0 1]/2" # s "nimble"
+  # speed ((-4+).(*(-1)) <$> density 1.1 sine1)

snippets/hic1

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: hic1
+# group: haddeo
+# key: hic1
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hic1
+d'wax $ slow 16 . striate 256 $ s "icarus"

snippets/hic2

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: hic2
+# group: haddeo
+# key: hic2
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hic2
+d'wax $ retrig $ slow 20 $ sound "icarus:1"

snippets/hnim1

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: hnim1
+# group: haddeo
+# key: hnim1
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hnim1
+d'nim $
+  {- -- (1)
+  superimpose (iter 4 -- (3) iter 6
+               -- .(# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) -- (2)
+              ) $ -- -}
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"

snippets/hnim2

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: hnim2
+# group: haddeo
+# key: hnim2
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hnim2
+d'nim $
+  {- -- (4)
+  superimpose (iter 4 .
+               (# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) .
+               (# nudge 0)) $ -- -}
+  mt $
+  -- every 3 (density 2) $ -- (3)
+  -- every' 2 2 (within (0, 0.5) (const silence)) $ -- (2)
+  -- whenmod 5 3 rev $ -- (1)
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"

snippets/hnim3

@@ -0,0 +1,21 @@
+# -*- mode: snippet -*-
+# name: hnim3
+# group: haddeo
+# key: hnim3
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hnim3
+d'nim $
+  {- -- (4)
+  superimpose (iter 4
+               .(# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) -- (5)
+              ) $ -- -}
+  {- -- (2)
+  every' 16 1 ((# vowel "o u")
+               {- -- (3)
+               .(# orbit 1) -- opt. remove to delay all the things
+               .(# delay 0.5).(# delayfeedback 0.6).(# delaytime 0.25)
+               -- -}
+              ) $ -- -}
+  -- whenmod 16 12 (# vowel "[a i]/3") $ -- (1)
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"

snippets/hnim4

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: hnim4
+# group: haddeo
+# key: hnim4
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hnim4
+d'nim $ -- mt $ -- (2)
+  (0.25 ~>) $
+  whenmod 4 2 (const silence) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+  -- # vowel "o" -- (1)

snippets/hsetup

@@ -0,0 +1,24 @@
+# -*- mode: snippet -*-
+# name: hsetup
+# group: haddeo
+# key: hsetup
+# expand-env: (yas-indent-line 'fixed)
+# --
+let bpm b = cps (b/60)
+    withmod a b c d = (whenmod a b . within (c, d))
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    msil = mapM_ ($ silence)
+    tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
+    swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
+    d'drum = d1
+    d'bass = d3
+    d'bass2 = d2
+    d'wax = d4
+    d'nim = d5
+    d'hi = d6
+    d'fx1 = d8
+    d'fx2 = d9
+    d'fx3 = d10
+    -- given bpm = 105
+    tmod' s e = tmod (s*(1/(105/60))) e
+    mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i

snippets/hsnoo

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: hsnoo
+# group: haddeo
+# key: hsnoo
+# expand-env: (yas-indent-line 'fixed)
+# --
+-- @hsnoo
+d'fx3 $
+  (1.5 ~>) $
+  slow 4 $ chop 48 $
+  sound (samples "snoo" <$> slow 7 $ run 7)
+  # gain 0.8
+  # cut 10