change snippet prefix j -> jul, and fix iter bug in julperc

This commit is contained in:
Aneurin Barker Snook
2017-06-27 23:57:06 +01:00
parent 56cab25594
commit d2be97768a
13 changed files with 90 additions and 90 deletions
+46 -46
View File
@@ -25,14 +25,14 @@ let bpm b = cps (b/60)
bpm 99 bpm 99
hush hush
-- @jdrum -- @juldrum
d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove
-- overlay ((0.5 ~>) $ s "sn/2") $ -- (2) -- overlay ((0.5 ~>) $ s "sn/2") $ -- (2)
-- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1) -- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1)
-- every' 12 2 (density 3) $ -- (5) -- every' 12 2 (density 3) $ -- (5)
s "k" s "k"
-- @jbass -- @julbass
d'bass $ d'bass $
-- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4) -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
-- whenmod 4 2 (density 3) $ -- (3) -- whenmod 4 2 (density 3) $ -- (3)
@@ -42,11 +42,11 @@ d'bass $
# vowel "e o" # vowel "e o"
-- # speed (slow 2.5 "1 -1") -- (1) -- # speed (slow 2.5 "1 -1") -- (1)
-- jdrum @ 1 -- juldrum @ 1
-- @jperc -- @julperc
d'perc $ d'perc $
-- iter 4 $ -- (4) -- iter 5 $ -- (4)
-- (# pan (density 16 "0.25 0.75")) $ -- (3) -- (# pan (density 16 "0.25 0.75")) $ -- (3)
-- whenmod 16 15 (density 3) $ -- (1) -- whenmod 16 15 (density 3) $ -- (1)
smash 16 [0.25, 0.5] $ smash 16 [0.25, 0.5] $
@@ -54,21 +54,21 @@ d'perc $
sound "hh hh:2" sound "hh hh:2"
# gain 0.6 # gain 0.6
-- jbass @ 1 -- julbass @ 1
-- jperc @ 1 -- julperc @ 1
-- jdrum @ 2 -- juldrum @ 2
-- jperc @ 2 -- julperc @ 2
-- jdrum @ 3 -- juldrum @ 3
-- jbass @ 2 -- julbass @ 2
-- jperc @ 3 -- julperc @ 3
-- jdrum @ 4 -- juldrum @ 4
-- jbass @ 3 -- julbass @ 3
-- jperc @ 4 -- julperc @ 4
-- @judu -- @juludu
d'udu $ d'udu $
-- (every' 5 3 $ brak) $ -- (3) -- (every' 5 3 $ brak) $ -- (3)
-- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1) -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
@@ -78,7 +78,7 @@ d'udu $
# gain 0.8 # gain 0.8
# cut 6 # cut 6
-- @jwbass -- @julwbass
d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5) d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
-- every' 4 4 (0.32 ~>) $ -- (2) -- every' 4 4 (0.32 ~>) $ -- (2)
chop 16 $ chop 16 $
@@ -89,10 +89,10 @@ d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
# gain 0.9 # gain 0.9
-- # speed "[1 1 2]/3" -- (3) -- # speed "[1 1 2]/3" -- (3)
-- jwbass @ 1 -- julwbass @ 1
-- jwbass @ 2 -- julwbass @ 2
-- @jeg -- @juleg
d'eg $ -- (0.18 <~) $ -- (4) d'eg $ -- (0.18 <~) $ -- (4)
-- every 2 (const silence) $ -- (4), (5) remove -- every 2 (const silence) $ -- (4), (5) remove
-- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2) -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
@@ -102,18 +102,18 @@ d'eg $ -- (0.18 <~) $ -- (4)
# cut 4 # cut 4
# gain 0.8 # gain 0.8
-- jeg @ 1 -- juleg @ 1
-- jeg @ 2 -- juleg @ 2
-- jwbass @ 3 -- julwbass @ 3
-- jeg @ 3 -- juleg @ 3
msil [d'perc, d'bass] msil [d'perc, d'bass]
-- jeg @ 4 -- juleg @ 4
-- judu @ 1 -- juludu @ 1
-- jdrum @ 5 -- juldrum @ 5
-- @jpc -- @julpc
d'pc $ d'pc $
-- whenmod 7 5 (density 1.25) $ -- (3) -- whenmod 7 5 (density 1.25) $ -- (3)
-- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2) -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
@@ -123,15 +123,15 @@ d'pc $
# cut 7 # cut 7
# speed "[1 0.7]" # speed "[1 0.7]"
-- jpc @ 1 -- julpc @ 1
-- judu @ 2 -- juludu @ 2
-- jpc @ 2 -- julpc @ 2
-- jwbass @ 4 -- julwbass @ 4
-- jpc @ 3 -- julpc @ 3
-- @jgt -- @julgt
d'gt $ -- density 0.98 $ -- (2) d'gt $ -- density 0.98 $ -- (2)
every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $ every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
chop 128 $ chop 128 $
@@ -140,36 +140,36 @@ d'gt $ -- density 0.98 $ -- (2)
# gain 0.87 # gain 0.87
-- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1) -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)
-- jgt @ 1 -- julgt @ 1
-- jwbass @ 5 -- julwbass @ 5
-- jperc @ 4 -- julperc @ 4
-- jbass @ 4 -- julbass @ 4
-- judu @ 3 -- juludu @ 3
-- jeg @ 5 -- juleg @ 5
-- jgt @ 2 -- julgt @ 2
msil [d'eg, d'wbass] msil [d'eg, d'wbass]
-- @jdrum2 -- @juldrum2
d'drum $ stack [ d'drum $ stack [
every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4", 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" every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
] ]
-- @jpcl -- @julpcl
d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1) d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
slow 16 . gap 64 $ s "pclow" slow 16 . gap 64 $ s "pclow"
# gain 0.8 # gain 0.8
-- # speed "1 1.5" -- (2) -- # speed "1 1.5" -- (2)
-- jpcl @ 1 -- julpcl @ 1
-- jpcl @ 2 -- julpcl @ 2
msil [d'bass, d'udu, d'pc] msil [d'bass, d'udu, d'pc]
-- jpcl @ 0 -- julpcl @ 0
hush hush
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jbass # name: julbass
# group: juliese # group: juliese
# key: jbass # key: julbass
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jbass -- @julbass
d'bass $ d'bass $
-- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4) -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
-- whenmod 4 2 (density 3) $ -- (3) -- whenmod 4 2 (density 3) $ -- (3)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jdrum # name: juldrum
# group: juliese # group: juliese
# key: jdrum # key: juldrum
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jdrum -- @juldrum
d'drum $ -- overlay ((1 ~>) $ s "${3:cy}/8") $ -- (3), (4) remove d'drum $ -- overlay ((1 ~>) $ s "${3:cy}/8") $ -- (3), (4) remove
-- overlay ((0.5 ~>) $ s "${2:sn}/2") $ -- (2) -- overlay ((0.5 ~>) $ s "${2:sn}/2") $ -- (2)
-- every' 8 8 (overlay $ (0.32 ~>) $ s "$1*2") $ -- (1) -- every' 8 8 (overlay $ (0.32 ~>) $ s "$1*2") $ -- (1)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jdrum2 # name: juldrum2
# group: juliese # group: juliese
# key: jdrum2 # key: juldrum2
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jdrum2 -- @juldrum2
d'drum $ stack [ d'drum $ stack [
every' 8 7 (overlay $ (0.32 ~>) $ s "${1:k}") $ s "[$1 ~ $1*2 ~]/4", 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" every' 16 16 (overlay $ (0.82 ~>) $ s "${2:sn}") $ (1 ~>) $ s "$2/2"
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jeg # name: juleg
# group: juliese # group: juliese
# key: jeg # key: juleg
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jeg -- @juleg
d'eg $ -- (0.18 <~) $ -- (4) d'eg $ -- (0.18 <~) $ -- (4)
-- every 2 (const silence) $ -- (4), (5) remove -- every 2 (const silence) $ -- (4), (5) remove
-- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2) -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jgt # name: julgt
# group: juliese # group: juliese
# key: jgt # key: julgt
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jgt -- @julgt
d'gt $ -- density 0.98 $ -- (2) d'gt $ -- density 0.98 $ -- (2)
every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $ every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
chop 128 $ chop 128 $
+11 -11
View File
@@ -4,14 +4,14 @@
# key: juliese # key: juliese
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
jsetup julsetup
jdrum juldrum
jbass julbass
jperc julperc
judu juludu
jwbass julwbass
jeg juleg
jpc julpc
jgt julgt
jdrum2 juldrum2
jpcl julpcl
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jpc # name: julpc
# group: juliese # group: juliese
# key: jpc # key: julpc
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jpc -- @julpc
d'pc $ d'pc $
-- whenmod 7 5 (density 1.25) $ -- (3) -- whenmod 7 5 (density 1.25) $ -- (3)
-- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2) -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jpcl # name: julpcl
# group: juliese # group: juliese
# key: jpcl # key: julpcl
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jpcl -- @julpcl
d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1) d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
slow 16 . gap 64 $ s "${1:pclow}" slow 16 . gap 64 $ s "${1:pclow}"
# gain 0.8 # gain 0.8
+4 -4
View File
@@ -1,12 +1,12 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jperc # name: julperc
# group: juliese # group: juliese
# key: jperc # key: julperc
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jperc -- @julperc
d'perc $ d'perc $
-- iter 4 $ -- (4) -- iter 5 $ -- (4)
-- (# pan (density 16 "0.25 0.75")) $ -- (3) -- (# pan (density 16 "0.25 0.75")) $ -- (3)
-- whenmod 16 15 (density 3) $ -- (1) -- whenmod 16 15 (density 3) $ -- (1)
smash 16 [0.25, 0.5] $ smash 16 [0.25, 0.5] $
+2 -2
View File
@@ -1,7 +1,7 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jsetup # name: julsetup
# group: juliese # group: juliese
# key: jsetup # key: julsetup
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
let bpm b = cps (b/60) let bpm b = cps (b/60)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: judu # name: juludu
# group: juliese # group: juliese
# key: judu # key: juludu
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @judu -- @juludu
d'udu $ d'udu $
-- (every' 5 3 $ brak) $ -- (3) -- (every' 5 3 $ brak) $ -- (3)
-- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1) -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
+3 -3
View File
@@ -1,10 +1,10 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: jwbass # name: julwbass
# group: juliese # group: juliese
# key: jwbass # key: julwbass
# expand-env: (yas-indent-line fixed) # expand-env: (yas-indent-line fixed)
# -- # --
-- @jwbass -- @julwbass
d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5) d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
-- every' 4 4 (0.32 ~>) $ -- (2) -- every' 4 4 (0.32 ~>) $ -- (2)
chop 16 $ chop 16 $