fix snippet name in readme

README.md

@@ -0,0 +1,28 @@
+# Anny: Juliese
+
+[anny.audio](https://www.anny.audio)
+
+First performed live @ ODI Leeds, 29th April 2016.
+
+[Listen to Juliese on Bandcamp](https://annyfm.bandcamp.com/track/juliese) (though IMO [this live version](https://annyfm.bandcamp.com/track/juliese-live-3) is better)
+
+## Files
+
+`juliese.scd` is a simple SuperCollider startup file to configure audio routing and load project samples.
+
+`juliese.tidal` is the full Juliese composition for Tidal Cycles.
+
+`samples.csv` contains sample attributions. All samples are available in `samples/` directory.
+
+## Snippets
+
+The main `juliese.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.
+
+In the `snippets/` directory are [yasnippet](http://joaotavora.github.io/yasnippet/)-compatible snippet files reflecting these references, and additionally a `julsetup` snippet (which contains the project setup) and a `juliese` 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.
+
+## License
+
+- Source code: [CC-BY-SA](https://creativecommons.org/licenses/by-sa/4.0/)
+- Samples: see origins of sample attributions for individual licenses

juliese.megalet.tidal

@@ -1,39 +0,0 @@
--- megalet for juliese.tidal
-let every' n o f = when ((== (o-1)) . (`mod` n)) f
-    d'drum = d1
-    d'perc = d2
-    d'bass = d3
-    d'eg = d4
-    d'gt = d5
-    d'udu = d6
-    d'pc = d7
-    d'pcl = d8
-    d'wbass = d9
-    bassbass = s "[[vb vb:1] ~]/2"
-               # end (slow 1.4 "0.2 0.4")
-               # vowel "e o"
-    bassbass' = bassbass # speed (slow 2.5 "1 -1")
-    morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
-    drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
-    hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ s "hh:1 hh")) else id) $
-            s "hh hh:2"
-            # gain "0.6"
-    ududu = slow 4 . chop 128 $
-            s (samples "udu" (slow 4 $ irand 4))
-            # gain "0.8"
-            # cut "6"
-    eg = gap 128 $ s "eg*2"
-         # cut "4"
-    gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
-         chop 128 $
-         s "[gt [~ gt] ! ~]/2"
-         # cut "5"
-    pcbeep = slow 16 $ gap 48 $ s "pc:1"
-             # gain "0.7"
-             # cut "7"
-             # speed "[1 0.7]"
-    ju'drum2 = stack [
-               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
-               every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
-               ]

juliese.scd

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

juliese.tidal

@@ -1,15 +1,21 @@
 {-
-anny: juliese
-to be performed at leeds algorave, 29th april 2016
+Anny: Juliese
+anny.audio
+
+Current version: 1.2.0
+Compatibility:
+  Tidal Cycles  1.0-dev (cb070d6)
+  SuperDirt     1.0-dev (1c526bf)
+  SuperCollider 3.8
+License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
+
+See README.md for more information
 -}
 
-cps (99/60)
-
--- alt every
-let every' n o f = when ((== (o-1)) . (`mod` n)) f
-
--- channel maps
-let d'drum = d1
+let bpm b = cps (b/60)
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    msil = mapM_ ($ silence)
+    d'drum = d1
     d'perc = d2
     d'bass = d3
     d'eg = d4
@@ -19,184 +25,154 @@ let d'drum = d1
     d'pcl = d8
     d'wbass = d9
 
--- bass template
-let bassbass = s "[[vb vb:1] ~]/2"
-               # end (slow 1.4 "0.2 0.4")
-               # vowel "e o"
-
-let bassbass' = bassbass # speed (slow 2.5 "1 -1")
-
--- lay more k over 4tf k
-let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
-
--- final main drum loop, for reference
--- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
-let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
-
--- basic hats
-let hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ s "hh:1 hh")) else id) $
-            s "hh hh:2"
-            # gain "0.6"
-
--- udu
-let ududu = slow 4 . chop 128 $
-            s (samples "udu" (slow 4 $ irand 4))
-            # gain "0.8"
-            # cut "6"
-
--- guitar (i think)
-let eg = gap 128 $ s "eg*2"
-         # cut "4"
-
--- other guitar
-let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
-         chop 128 $
-         s "[gt [~ gt] ! ~]/2"
-         # cut "5"
-
-let pcbeep = slow 16 $ gap 48 $ s "pc:1"
-             # gain "0.7"
-             # cut "7"
-             # speed "[1 0.7]"
-
-{-
-here goes i guess
--}
-
+bpm 99
 hush
 
-d'drum $ s "k"
-d'bass $ bassbass
-d'perc $ hhb False
-d'bass $ bassbass'
+-- @juldrum
+d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove
+  -- overlay ((0.5 ~>) $ s "sn/2") $ -- (2)
+  -- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1)
+  -- every' 12 2 (density 3) $ -- (5)
+  s "k"
 
-d'drum $ morek $ s "k"
-d'perc $ hhb True
-d'perc $ whenmod 16 15 (density 3) $ hhb True
+-- @julbass
+d'bass $
+  -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
+  -- whenmod 4 2 (density 3) $ -- (3)
+  -- whenmod 3 2 (slow 2) $ -- (2)
+  sound "[[vb vb:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # vowel "e o"
+  -- # speed (slow 2.5 "1 -1") -- (1)
 
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+-- juldrum @ 1
 
-d'drum $ overlay ((1 ~>) $ s "cy/8") $
-  overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+-- @julperc
+d'perc $
+  -- iter 5 $ -- (4)
+  -- (# pan (density 16 "0.25 0.75")) $ -- (3)
+  -- whenmod 16 15 (density 3) $ -- (1)
+  smash 16 [0.25, 0.5] $
+  -- every 3 (append $ sound "hh:1 hh") $ -- (2)
+  sound "hh hh:2"
+  # gain 0.6
 
-d'bass $ whenmod 3 2 (slow 2) $ bassbass'
-d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+-- julbass @ 1
+-- julperc @ 1
+-- juldrum @ 2
 
-d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+-- julperc @ 2
+-- juldrum @ 3
 
-d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+-- julbass @ 2
+-- julperc @ 3
 
-d'udu $ ududu
+-- juldrum @ 4
+-- julbass @ 3
+-- julperc @ 4
 
-d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
-d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
+-- @juludu
+d'udu $
+  -- (every' 5 3 $ brak) $ -- (3)
+  -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
+  -- (whenmod 7 5 $ trunc (5/6)) $ -- (2)
+  slow 4 . chop 128 $
+  sound (samples "udu" (slow 4 $ irand 4))
+  # gain 0.8
+  # cut 6
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+-- @julwbass
+d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
+  -- every' 4 4 (0.32 ~>) $ -- (2)
+  chop 16 $
+  sound "[wb wb:1 ~ ~]/4"
+  -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (1)
+  -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (2)
+  -- sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (4)
+  # gain 0.9
+  -- # speed "[1 1 2]/3" -- (3)
 
-d'eg $ density 0.25 $ eg
-  # gain "0.8"
+-- julwbass @ 1
+-- julwbass @ 2
 
-d'eg $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
+-- @juleg
+d'eg $ -- (0.18 <~) $ -- (4)
+  -- every 2 (const silence) $ -- (4), (5) remove
+  -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
+  density 0.25 $ -- (3) 0.245
+  -- slowspread density [1, 2, 0.5, 2] $ -- (1)
+  gap 128 $ s "eg*2"
+  # cut 4
+  # gain 0.8
 
-d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.25 $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
+-- juleg @ 1
+-- juleg @ 2
+-- julwbass @ 3
+-- juleg @ 3
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
-  # speed "[1 1 2]/3"
+msil [d'perc, d'bass]
 
-d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $ -- !
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
+-- juleg @ 4
+-- juludu @ 1
+-- juldrum @ 5
 
-mapM_ ($ silence) [d'perc, d'bass]
+-- @julpc
+d'pc $
+  -- whenmod 7 5 (density 1.25) $ -- (3)
+  -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
+  -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
+  slow 16 $ gap 48 $ sound "pc:1"
+  # gain 0.7
+  # cut 7
+  # speed "[1 0.7]"
 
--- fuck yeah. const rules
-d'eg $ (0.18 <~) $ every 2 (const silence) $
-  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
+-- julpc @ 1
+-- juludu @ 2
 
-d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
+-- julpc @ 2
 
-d'pc $ pcbeep
-d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+-- julwbass @ 4
+-- julpc @ 3
 
-d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
-  (whenmod 7 5 $ trunc (5%6)) $ ududu
+-- @julgt
+d'gt $ -- density 0.98 $ -- (2)
+  every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
+  chop 128 $
+  s "[gt [~ gt] ! ~]/2"
+  # cut 5
+  # gain 0.87
+  -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)
 
-d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
-  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+-- julgt @ 1
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
-  # speed "[1 1 2]/3"
+-- julwbass @ 5
+-- julperc @ 4
 
-d'pc $ whenmod 7 5 (density 1.25) $
-  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
-  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+-- julbass @ 4
+-- juludu @ 3
+-- juleg @ 5
 
-d'gt $ gt
-  # gain "0.87"
+-- julgt @ 2
 
-d'gt $ gt
-  # gain "0.87"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
+msil [d'eg, d'wbass]
 
--- OOOOOOHHHH MY FUCK
-d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
-  every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
-  # speed "[1 1 2]/3"
+-- @juldrum2
+d'drum $ stack [
+  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
+  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
+  ]
 
-d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+-- @julpcl
+d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
+  slow 16 . gap 64 $ s "pclow"
+  # gain 0.8
+  -- # speed "1 1.5" -- (2)
 
--- funkier bassline w slowspread lambda, thanks yaxu. thaxu
-d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
-  whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+-- julpcl @ 1
+-- julpcl @ 2
 
-d'udu $ (every' 5 3 $ brak) $
-  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
-  (whenmod 7 5 $ trunc (5%6)) $ ududu
+msil [d'bass, d'udu, d'pc]
 
--- bye const
-d'eg $ (0.18 <~) $
-  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
-
-d'gt $ density 0.98 $ gt
-  # gain "0.87"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
-
-let ju'drum2 = stack [
-               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
-               every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
-               ]
-
-mapM_ ($ silence) [d'eg, d'wbass]
-d'drum $ ju'drum2
-
-d'pcl $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-
-d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-
-d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-  # speed "1 1.5"
-
-mapM_ ($ silence) [d'bass, d'udu, d'pc]
-
-d'pcl $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
+-- julpcl @ 0
 
 hush

samples.csv

@@ -0,0 +1,25 @@
+Sample,Index,File,Origin,URL,Notes
+cy,0,DnBCymbalA-01.wav,Computer Music magazine (special issue 68),,Drum n bass -> Cyclick -> Drum Hits -> Cymbal Process A
+cy,1,DnBCymbalA-02.wav,Computer Music magazine (special issue 68),,Drum n bass -> Cyclick -> Drum Hits -> Cymbal Process A
+cy,2,DnBCymbalA-03.wav,Computer Music magazine (special issue 68),,Drum n bass -> Cyclick -> Drum Hits -> Cymbal Process A
+cy,3,DnBCymbalA-04.wav,Computer Music magazine (special issue 68),,Drum n bass -> Cyclick -> Drum Hits -> Cymbal Process A
+cy,4,DnBCymbalA-05.wav,Computer Music magazine (special issue 68),,Drum n bass -> Cyclick -> Drum Hits -> Cymbal Process A
+eg,0,Processed_32(125BPM).wav,Computer Music magazine (special issue 68),,Pure Evil -> Groove Criminals -> Evil_Guitar_Noise
+gt,0,Processed_13.wav,Computer Music magazine (special issue 68),,Pure Evil -> Groove Criminals -> Evil_Guitar_Noise
+hh,0,010-HH_DrumHits_OpenHat09.wav,Computer Music magazine (special issue 68),,Hip-hop -> Groove Criminals -> Drum Hits -> HH_DrumHits_OpenHat09.wav
+hh,1,020-HH_DrumHits_OpenHat10.wav,Computer Music magazine (special issue 68),,Hip-hop -> Groove Criminals -> Drum Hits -> HH_DrumHits_OpenHat10.wav
+hh,2,030-HH_Push_01.wav,Computer Music magazine (special issue 68),,Hip-hop -> Groove Criminals -> Drum Hits -> HH_Push_01.wav
+k,0,010-CYCdh_ElecK03-Kick02.-1db.wav,"SampleRadar: 1,000 free drum samples",http://www.musicradar.com/news/drums/sampleradar-1000-free-drum-samples-229460,Drum Kits -> Kit 6 - Electro
+pc,0,RR_PolyCoder_110-C.wav,Computer Music magazine (special issue 68),,Rise of the Robots -> Cyclick -> Loops n Lines -> Synths -> 110bpm
+pc,1,RR_Robocoder_110-E.wav,Computer Music magazine (special issue 68),,Rise of the Robots -> Cyclick -> Loops n Lines -> Synths -> 110bpm
+pclow,0,RR_LowCoder_110-C.wav,Computer Music magazine (special issue 68),,Rise of the Robots -> Cyclick -> Loops n Lines -> Synths -> 110bpm
+sn,0,HH_DrumHits_Snare08.wav,Computer Music magazine (special issue 68),,Hip-hop -> Groove Criminals -> Drum Hits
+udu,0,Udu_04(90BPM).wav,Computer Music magazine (special issue 68),,Ethnic Textures -> Udu
+udu,1,Udu_15(90BPM).wav,Computer Music magazine (special issue 68),,Ethnic Textures -> Udu
+udu,2,Udu_16(90BPM).wav,Computer Music magazine (special issue 68),,Ethnic Textures -> Udu
+udu,3,Udu_19(90BPM).wav,Computer Music magazine (special issue 68),,Ethnic Textures -> Udu
+vb,0,Virus_B_07(C1).wav,Computer Music magazine (special issue 68),,Bass Boutique -> Groove Criminals -> Bass_Singles
+vb,1,Virus_B_07(C2).wav,Computer Music magazine (special issue 68),,Bass Boutique -> Groove Criminals -> Bass_Singles
+wb,0,Wet_Bass_F#2.wav,Computer Music magazine (special issue 68),,Aquatic Adventures -> Groove Criminals -> Multis -> Wet_Bass
+wb,1,Wet_Bass_F1.wav,Computer Music magazine (special issue 68),,Aquatic Adventures -> Groove Criminals -> Multis -> Wet_Bass
+wb,2,Wet_Bass_F2.wav,Computer Music magazine (special issue 68),,Aquatic Adventures -> Groove Criminals -> Multis -> Wet_Bass

snippets/julbass

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: julbass
+# group: juliese
+# key: julbass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julbass
+d'bass $
+  -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
+  -- whenmod 4 2 (density 3) $ -- (3)
+  -- whenmod 3 2 (slow 2) $ -- (2)
+  sound "[[${1:vb} $1:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # vowel "e o"
+  -- # speed (slow 2.5 "1 -1") -- (1)

snippets/juldrum

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: juldrum
+# group: juliese
+# key: juldrum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @juldrum
+d'drum $ -- overlay ((1 ~>) $ s "${3:cy}/8") $ -- (3), (4) remove
+  -- overlay ((0.5 ~>) $ s "${2:sn}/2") $ -- (2)
+  -- every' 8 8 (overlay $ (0.32 ~>) $ s "$1*2") $ -- (1)
+  -- every' 12 2 (density 3) $ -- (5)
+  s "${1:k}"

snippets/juldrum2

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: juldrum2
+# group: juliese
+# key: juldrum2
+# expand-env: (yas-indent-line fixed)
+# --
+-- @juldrum2
+d'drum $ stack [
+  every' 8 7 (overlay $ (0.32 ~>) $ s "${1:k}") $ s "[$1 ~ $1*2 ~]/4",
+  every' 16 16 (overlay $ (0.82 ~>) $ s "${2:sn}") $ (1 ~>) $ s "$2/2"
+  ]

snippets/juleg

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: juleg
+# group: juliese
+# key: juleg
+# expand-env: (yas-indent-line fixed)
+# --
+-- @juleg
+d'eg $ -- (0.18 <~) $ -- (4)
+  -- every 2 (const silence) $ -- (4), (5) remove
+  -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
+  density 0.25 $ -- (3) 0.245
+  -- slowspread density [1, 2, 0.5, 2] $ -- (1)
+  gap 128 $ s "${1:eg}*2"
+  # cut 4
+  # gain 0.8

snippets/julgt

@@ -0,0 +1,14 @@
+# -*- mode: snippet -*-
+# name: julgt
+# group: juliese
+# key: julgt
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julgt
+d'gt $ -- density 0.98 $ -- (2)
+  every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
+  chop 128 $
+  s "[${1:gt} [~ $1] ! ~]/2"
+  # cut 5
+  # gain 0.87
+  -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)

snippets/juliese

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: juliese
+# group: juliese
+# key: juliese
+# expand-env: (yas-indent-line fixed)
+# --
+julsetup
+juldrum
+julbass
+julperc
+juludu
+julwbass
+juleg
+julpc
+julgt
+juldrum2
+julpcl

snippets/julpc

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: julpc
+# group: juliese
+# key: julpc
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julpc
+d'pc $
+  -- whenmod 7 5 (density 1.25) $ -- (3)
+  -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
+  -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
+  slow 16 $ gap 48 $ sound "${1:pc:1}"
+  # gain 0.7
+  # cut 7
+  # speed "[1 0.7]"

snippets/julpcl

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: julpcl
+# group: juliese
+# key: julpcl
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julpcl
+d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
+  slow 16 . gap 64 $ s "${1:pclow}"
+  # gain 0.8
+  -- # speed "1 1.5" -- (2)

snippets/julperc

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: julperc
+# group: juliese
+# key: julperc
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julperc
+d'perc $
+  -- iter 5 $ -- (4)
+  -- (# pan (density 16 "0.25 0.75")) $ -- (3)
+  -- whenmod 16 15 (density 3) $ -- (1)
+  smash 16 [0.25, 0.5] $
+  -- every 3 (append $ sound "$1:1 $1") $ -- (2)
+  sound "${1:hh} $1:2"
+  # gain 0.6

snippets/julsetup

@@ -0,0 +1,18 @@
+# -*- mode: snippet -*-
+# name: julsetup
+# group: juliese
+# key: julsetup
+# expand-env: (yas-indent-line fixed)
+# --
+let bpm b = cps (b/60)
+    every' n o f = when ((== (o-1)) . (\`mod\` n)) f
+    msil = mapM_ ($ silence)
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'eg = d4
+    d'gt = d5
+    d'udu = d6
+    d'pc = d7
+    d'pcl = d8
+    d'wbass = d9

snippets/juludu

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: juludu
+# group: juliese
+# key: juludu
+# expand-env: (yas-indent-line fixed)
+# --
+-- @juludu
+d'udu $
+  -- (every' 5 3 $ brak) $ -- (3)
+  -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
+  -- (whenmod 7 5 $ trunc (5/6)) $ -- (2)
+  slow 4 . chop 128 $
+  sound (samples "${1:udu}" (slow 4 $ irand 4))
+  # gain 0.8
+  # cut 6

snippets/julwbass

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: julwbass
+# group: juliese
+# key: julwbass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @julwbass
+d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
+  -- every' 4 4 (0.32 ~>) $ -- (2)
+  chop 16 $
+  sound "[${1:wb} $1:1 ~ ~]/4"
+  -- sound "[$1 [$1:1 $1:2] ~ ~]/4" -- (1)
+  -- sound "[$1 [$1:1 $1:2] ~ [$1:1 $1:2]]/4" -- (2)
+  -- sound "[$1 [$1:1 $1:2] ~ [[$1:1 $1:1/2] $1:2]]/4" -- (4)
+  # gain 0.9
+  -- # speed "[1 1 2]/3" -- (3)