Преглед изворни кода

composition tweaks, add scd after upgrading to superdirt

Aneurin Barker Snook пре 8 година
родитељ
комит
6150de92a0
2 измењених фајлова са 18 додато и 1 уклоњено
  1. 5 0
      haddeo.scd
  2. 13 1
      haddeo.tidal

+ 5 - 0
haddeo.scd

@@ -0,0 +1,5 @@
+include("SuperDirt")
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start
+~dirt.loadSoundFiles("~/Documents/Music/WIP/Haddeo Remix/samples/*")
+SuperDirt.stop

+ 13 - 1
haddeo.tidal

@@ -17,7 +17,7 @@ d'drum $ stack [
   n "[~ 0]" # s "kit"
   ]
 
-d'wax $ retrig $ s "icarus:1/20"
+d'wax $ retrig $ n "1" # s "[icarus]/20"
 
 -- drop 1
 d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
@@ -186,6 +186,7 @@ d'nim $ superimpose (iter 4 . nim'osc) $
   whenmod 16 12 (# vowel "[a i]/3") $
   (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
 
+{-
 d'drum $ swing' $
   stack [
   n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
@@ -197,6 +198,17 @@ d'drum $ swing' $
   n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
   # gain "0.8"
   ]
+-}
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  every' 16 16 (const $ s "kit:3") $
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
+  0.5 <~ n "[~ [1/2 0/8 1 0/2]]/2" # s "sn"
+  # gain "0.8"
+  ]
 
 d'hi $
   swing' $