Archived
change snippet prefix j -> jul, and fix iter bug in julperc
This commit is contained in:
+46
-46
@@ -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
|
||||||
|
|||||||
@@ -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)
|
||||||
@@ -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)
|
||||||
@@ -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"
|
||||||
@@ -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)
|
||||||
@@ -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
@@ -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
|
||||||
|
|||||||
@@ -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)
|
||||||
@@ -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
|
||||||
@@ -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] $
|
||||||
@@ -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)
|
||||||
@@ -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)
|
||||||
@@ -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 $
|
||||||
Reference in New Issue
Block a user