Sfoglia il codice sorgente

some cleanup, clearer compat tags, add snippets

Aneurin Barker Snook 8 anni fa
parent
commit
e3e1b138ce
11 ha cambiato i file con 191 aggiunte e 42 eliminazioni
  1. 38 42
      cuadrillion.tidal
  2. 15 0
      snippets/cuadrillion
  3. 19 0
      snippets/cubass
  4. 12 0
      snippets/cubleep
  5. 11 0
      snippets/cudrum
  6. 12 0
      snippets/cudrumintro
  7. 17 0
      snippets/cugt
  8. 15 0
      snippets/cugt2
  9. 21 0
      snippets/cugt3
  10. 15 0
      snippets/cuperc
  11. 16 0
      snippets/cusetup

+ 38 - 42
cuadrillion.tidal

@@ -2,15 +2,14 @@
 Anny: Cuadrillion (Demo)
 Anny: Cuadrillion (Demo)
 anny.audio
 anny.audio
 
 
-First played for Algorave's fith birthday, #algofive 17th March 2017
-
-Written for Fwonk release nr. 200 out in March 2017. FW200 is Fwonk's
-final release, at least in its current form, but its catalogue will
-live on. There is a lot of very good electronic music in there, so be
-sure to check it out some time!
-fwonk.co.uk
-
-See README.md
+Current version: 0.5.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
 -}
 -}
 
 
 let bpm b = cps (b/60)
 let bpm b = cps (b/60)
@@ -31,33 +30,30 @@ d'bleep $
   -- every' 5 2 (iter 4) $ -- (2)
   -- every' 5 2 (iter 4) $ -- (2)
   -- every 3 (rev . slow 2 . chop 4) $ -- (1)
   -- every 3 (rev . slow 2 . chop 4) $ -- (1)
   n "[[~ 0] ~ 1 ~]/4" # s "bleep"
   n "[[~ 0] ~ 1 ~]/4" # s "bleep"
-  # gain "1.2"
-
-d'drum $
-  every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
-  1 <~ n "1/16" # s "drum"
+  # gain 1.2
 
 
 -- @cudrumintro
 -- @cudrumintro
 d'drum $
 d'drum $
   every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
   every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
-  n "{1, [~! [~ 0]!]/4}" # s "drum"
+  1 <~ n "1/16" # s "drum" -- (0)
+  -- n "{1, [~! [~ 0]!]/4}" # s "drum" -- (1)
+  -- n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum" -- (2)
 
 
-d'drum $
-  every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
-  n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
-
-d'perc $ n "[~ 1 ~ ~]/4" # s "drum2"
+-- cudrumintro @ 1
+-- cudrumintro @ 2
 
 
 -- @cuperc
 -- @cuperc
 d'perc $
 d'perc $
   stack [
   stack [
-    n "[~ 1 0 ~]/4",
-    0.5 ~> n "[3 2 ~]/3"
-    -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (1)
-    -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7" -- (2)
+    -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7", -- (3)
+    -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (2)
+    -- 0.5 ~> n "[3 2 ~]/3", -- (1)
+    n "[~ 1 0 ~]/4"
   ]
   ]
   # s "drum2"
   # s "drum2"
 
 
+-- cuperc @ 1
+
 -- @cudrum
 -- @cudrum
 d'drum $
 d'drum $
   -- every' 16 16 (density 2) $ -- (1) replacing (0)
   -- every' 16 16 (density 2) $ -- (1) replacing (0)
@@ -68,15 +64,15 @@ d'drum $
 d'bass $
 d'bass $
   -- slowspread slow [1,1,1,2,3] $ -- (2)
   -- slowspread slow [1,1,1,2,3] $ -- (2)
   (0.5 <~) $ rev $ gap 32 $
   (0.5 <~) $ rev $ gap 32 $
-  -- superimpose ((# gain "0.7") . (# speed "3")) $ -- (1)
+  -- superimpose ((# gain 0.7) . (# speed 3)) $ -- (1)
   every' 32 31 (overlay $ n "2" # s "drbass") $
   every' 32 31 (overlay $ n "2" # s "drbass") $
   every' 16 16 (overlay $ n "1 ~" # s "drbass") $
   every' 16 16 (overlay $ n "1 ~" # s "drbass") $
   n "[0 0 [~ 0] !]/4" # s "drbass"
   n "[0 0 [~ 0] !]/4" # s "drbass"
-  # gain "0.9"
+  # gain 0.9
   # vowel "{a, i}"
   # vowel "{a, i}"
-  # shape "0.4"
-  # orbit "1" # room "0.2" # size "0.1"
-  # resonance "0.1" # cutoff "130" -- 10 -> 130
+  # shape 0.4
+  # orbit 1 # room 0.2 # size 0.1
+  # resonance 0.1 # cutoff 10 -- 10 -> 130, then delete
 
 
 -- @cugt
 -- @cugt
 d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
 d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
@@ -85,8 +81,8 @@ d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
   (0.5 ~>) $
   (0.5 ~>) $
   slow 8 $ smash 16 [1,2] $ striate 16 $
   slow 8 $ smash 16 [1,2] $ striate 16 $
   n "0" # s "acb"
   n "0" # s "acb"
-  # cut "7"
-  # gain "0.8" -- 0.1 -> 0.8
+  # cut 7
+  # gain 0.8 -- 0.1 -> 0.8
   # speed (scale 0.7 1.4 $ slow 3 sine1)
   # speed (scale 0.7 1.4 $ slow 3 sine1)
   # vowel "u"
   # vowel "u"
 
 
@@ -96,32 +92,32 @@ d'gt2 $ (0.5 <~) $
   iter 4 $
   iter 4 $
   striate 16 $
   striate 16 $
   sound "acg"
   sound "acg"
-  # cut "6"
-  # shape "0.4"
-  # gain "0.9"
+  # cut 6
+  # shape 0.4
+  # gain 0.9
 
 
--- drum @ 1
+-- cudrum @ 1
 
 
 -- @cugt3
 -- @cugt3
-let hp = "240"
-    lp = "1200"
-    r = "0.3"
+let hp = 240
+    lp = 1200
+    r = 0.3
   in d'gt3 $
   in d'gt3 $
      (3 ~>) $
      (3 ~>) $
      -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
      -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
-     slow 16 . gap 8 $ -- (0) and (2) remove
+     slow 16 . gap 8 $ -- (2) remove
      -- slow 30 . gap 15 $ -- (2)
      -- slow 30 . gap 15 $ -- (2)
      sound "dg"
      sound "dg"
-     # gain "0.9"
-     # orbit "1" # room "0.2" # size "0.1"
+     # gain 0.9
+     # orbit 1 # room 0.2 # size 0.1
      # speed (scale 1 1.25 $ slow 4.1 sine1)
      # speed (scale 1 1.25 $ slow 4.1 sine1)
      # cutoff lp # resonance r
      # cutoff lp # resonance r
      # hcutoff hp # resonance r
      # hcutoff hp # resonance r
 
 
 msil [d'gt, d'gt2, d'gt3]
 msil [d'gt, d'gt2, d'gt3]
 
 
--- cuperc @ 1
 -- cuperc @ 2
 -- cuperc @ 2
+-- cuperc @ 3
 -- cugt @ 1
 -- cugt @ 1
 -- cubass @ 1
 -- cubass @ 1
 -- cugt2
 -- cugt2

+ 15 - 0
snippets/cuadrillion

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cuadrillion
+# group: cuadrillion
+# key: cuadrillion
+# expand-env: (yas-indent-line fixed)
+# --
+cusetup
+cubleep
+cudrumintro
+cuperc
+cudrum
+cubass
+cugt
+cugt2
+cugt3

+ 19 - 0
snippets/cubass

@@ -0,0 +1,19 @@
+# -*- mode: snippet -*-
+# name: cubass
+# group: cuadrillion
+# key: cubass
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cubass
+d'bass $
+  -- slowspread slow [1,1,1,2,3] $ -- (2)
+  (0.5 <~) $ rev $ gap 32 $
+  -- superimpose ((# gain 0.7) . (# speed 3)) $ -- (1)
+  every' 32 31 (overlay $ n "2" # s "$1") $
+  every' 16 16 (overlay $ n "1 ~" # s "$1") $
+  n "[0 0 [~ 0] !]/4" # s "${1:drbass}"
+  # gain 0.9
+  # vowel "{a, i}"
+  # shape 0.4
+  # orbit 1 # room 0.2 # size 0.1
+  # resonance 0.1 # cutoff 10 -- 10 -> 130, then delete

+ 12 - 0
snippets/cubleep

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: cubleep
+# group: cuadrillion
+# key: cubleep
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cubleep
+d'bleep $
+  -- every' 5 2 (iter 4) $ -- (2)
+  -- every 3 (rev . slow 2 . chop 4) $ -- (1)
+  n "[[~ 0] ~ 1 ~]/4" # s "${1:bleep}"
+  # gain 1.2

+ 11 - 0
snippets/cudrum

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: cudrum
+# group: cuadrillion
+# key: cudrum
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cudrum
+d'drum $
+  -- every' 16 16 (density 2) $ -- (1) replacing (0)
+  every' 16 16 (within (0.5, 1) $ density 2) $ -- (0)
+  n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "${1:drum}"

+ 12 - 0
snippets/cudrumintro

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: cudrumintro
+# group: cuadrillion
+# key: cudrumintro
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cudrumintro
+d'drum $
+  every' 16 16 (overlay $ n "~ 1!!" # s "$1") $
+  1 <~ n "1/16" # s "${1:drum}" -- (0)
+  -- n "{1, [~! [~ 0]!]/4}" # s "$1" -- (1)
+  -- n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "$1" -- (2)

+ 17 - 0
snippets/cugt

@@ -0,0 +1,17 @@
+# -*- mode: snippet -*-
+# name: cugt
+# group: cuadrillion
+# key: cugt
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt
+d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
+  -- every 3 (slow 32) $ -- (1) then (2) remove
+  every 2 rev $
+  (0.5 ~>) $
+  slow 8 $ smash 16 [1,2] $ striate 16 $
+  n "0" # s "${1:acb}"
+  # cut 7
+  # gain 0.8 -- 0.1 -> 0.8
+  # speed (scale 0.7 1.4 $ slow 3 sine1)
+  # vowel "u"

+ 15 - 0
snippets/cugt2

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cugt2
+# group: cuadrillion
+# key: cugt2
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt2
+d'gt2 $ (0.5 <~) $
+  slow 8 $
+  iter 4 $
+  striate 16 $
+  sound "${1:acg}"
+  # cut 6
+  # shape 0.4
+  # gain 0.9

+ 21 - 0
snippets/cugt3

@@ -0,0 +1,21 @@
+# -*- mode: snippet -*-
+# name: cugt3
+# group: cuadrillion
+# key: cugt3
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cugt3
+let hp = 240
+    lp = 1200
+    r = 0.3
+  in d'gt3 $
+     (3 ~>) $
+     -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
+     slow 16 . gap 8 $ -- (2) remove
+     -- slow 30 . gap 15 $ -- (2)
+     sound "${1:dg}"
+     # gain 0.9
+     # orbit 1 # room 0.2 # size 0.1
+     # speed (scale 1 1.25 $ slow 4.1 sine1)
+     # cutoff lp # resonance r
+     # hcutoff hp # resonance r

+ 15 - 0
snippets/cuperc

@@ -0,0 +1,15 @@
+# -*- mode: snippet -*-
+# name: cuperc
+# group: cuadrillion
+# key: cuperc
+# expand-env: (yas-indent-line fixed)
+# --
+-- @cuperc
+d'perc $
+  stack [
+    -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7", -- (3)
+    -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (2)
+    -- 0.5 ~> n "[3 2 ~]/3", -- (1)
+    n "[~ 1 0 ~]/4"
+  ]
+  # s "${1:drum2}"

+ 16 - 0
snippets/cusetup

@@ -0,0 +1,16 @@
+# -*- mode: snippet -*-
+# name: cusetup
+# group: cuadrillion
+# key: cusetup
+# expand-env: (yas-indent-line fixed)
+# --
+let bpm b = cps (b/60)
+    msil = mapM_ ($ silence)
+    every' n o f = when ((== (o-1)) . (\`mod\` n)) f
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'bleep = d4
+    d'gt = d5
+    d'gt2 = d6
+    d'gt3 = d7