From 4e46ef691e5d85acbe5f3a8086feb77db5d55910 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sat, 2 May 2020 15:57:22 +0200
Subject: [PATCH] update: Live YouMay

---
 live/bdmania.tidal              |   2 ++
 live/boeuf/dimanche_pizza.tidal |   8 ++++----
 live/fusion/you_may.tidal       | 119 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 output/PenseurEtoiler.jpg       | Bin 0 -> 232191 bytes
 output/PenseurVague.jpg         | Bin 0 -> 146854 bytes
 output/PenseurVague2.jpg        | Bin 0 -> 130263 bytes
 study/nova/disco_punk.tidal     |   8 ++++----
 7 files changed, 129 insertions(+), 8 deletions(-)
 create mode 100644 live/fusion/you_may.tidal
 create mode 100644 output/PenseurEtoiler.jpg
 create mode 100644 output/PenseurVague.jpg
 create mode 100644 output/PenseurVague2.jpg

diff --git a/live/bdmania.tidal b/live/bdmania.tidal
index 379c8ba..09c5494 100644
--- a/live/bdmania.tidal
+++ b/live/bdmania.tidal
@@ -1,3 +1,5 @@
+once $ s "bd"
+
 d1 -- kick
 -- $ euclid "<4 6>" 4
 $ euclid "<<0 1 5 7> 3>" 8
diff --git a/live/boeuf/dimanche_pizza.tidal b/live/boeuf/dimanche_pizza.tidal
index 976dabd..751e7fe 100644
--- a/live/boeuf/dimanche_pizza.tidal
+++ b/live/boeuf/dimanche_pizza.tidal
@@ -95,18 +95,18 @@ do
   d6 -- drumroll
     $ rarely (degradeBy "0 1!8")
     $ fast "<8!3 16>  [16 [32 16]]"
-    $ s "dr" # silence
+    $ s "dr"
   d7  -- Snares
     $ fix (# s "hh:8") (s "h")
     $ fix (# s "sn:10") (s "s")
     $ s "~ [s*[1|2] h]"
-    # gain 0.9 # silence
+    # gain 0.7
   d8  -- Allez
     $ whenmod 16 12 (# gain 0)
     $ sometimesBy "0 0.5" (fast 2)
     $ s "k(5,8)"
     # s "jazz"
-    # gain 0.9 # silence
+    # gain 0.7
   d9
     $ superimpose (
         (# s "supergong") . (|- gain 0.1) .
@@ -116,7 +116,7 @@ do
     $ off 0.25 (|+ note "<0 12>")
     $ slow 4
     $ note (melody - 2)
-    # s "superfork" # gain 0.7 # silence
+    # s "superfork" # gain 0.5
 
 
 -- Changement de modes dans la progression harmonique
diff --git a/live/fusion/you_may.tidal b/live/fusion/you_may.tidal
new file mode 100644
index 0000000..d99ae96
--- /dev/null
+++ b/live/fusion/you_may.tidal
@@ -0,0 +1,119 @@
+-- You may: septièmes printamnières
+
+do
+  solo 1
+  solo 2
+  unsolo 3
+  unsolo 4
+  unsolo 5
+  unsolo 6
+  solo 7
+  solo 8
+
+
+
+do
+  let cLaMin = "[4, 7, 12, 14]"
+  let cReMin = "[2, 4, 8, 11]" -- le fameux sol dièse !
+  let cMiMaj = "[2, 5, 7, 10]"
+  setcps 0.45
+  d1
+    $ jux rev
+    $ whenmod 8 6 (fast 2)
+    $ fast 2
+    $ s "909"
+    # gain 0.35
+  d3 -- Drums
+    $ fast "4 <8!3 [8 . [8|16]]>"
+    $ s "~ . drum:8"
+    # gain 0.6
+  d4 -- Basse reguliere
+    $ jux rev
+    $ whenmod 8 6 (# gain 0.8)
+    $ n "b(<5,7>,8)"
+    # note ( (scale "major" "0 . 5 2 7"
+    ) - 24)
+    # s "bassWarsaw"
+    # gain 0.65
+    # sustain "1 . <0.5 0.25> 0.25"
+  d5 -- Piano lead
+    -- $ superimpose (arp "down")
+    $ note (
+      -- scale "major" (
+      "0" -- melodie
+      + (slowcat
+        [cLaMin, cReMin, cMiMaj, cReMin]
+        ) -- base accord manuel
+      )
+    # s "superpiano"
+    # velocity 0.35
+    # sustain 4
+  d6 -- Secondaire
+    -- $ superimpose (arp "down")
+    $ note (scale "major" (
+      "8 . 7 7 . 5 . <3!3 2 2!3 3>" -- melodie
+      - 7
+    ))
+    # s "superfork"
+    # gain 0.55
+  d7
+    $ fast 4
+    $ s "~ <h!2 [h ~ h] h>"
+    # s "hh" # n "<0!7 [0|0|1]>"
+    # gain 0.6
+    -- # pan (slow 16 $ sine)
+  d8
+    $ s "glitch:2"
+    # gain 0.7
+    # speed (range 0.2 0.9 rand)
+
+
+
+
+
+
+
+
+-- Sandbox
+
+
+setcps 0.5
+
+d1 $ s "jazz"
+
+d1 $ s "jazz(<1 3>,8,<0 1>)"
+
+# gain 0.6
+
+d3 $ s "dr*8" # gain 0.8
+
+d2 $ someCycles (fast 2) $ s "~ snare:1" # gain 0.7
+
+d3 $ fast "<16!3 4> <8!3 [8 16]>" $ s "drum:8" # gain 0.8
+
+
+d4
+$ note ("<2!3 <-2 5>>"
+- 14
+)
+#
+s "supersaw"
+# voice 0.1
+# gain 0.6
+
+
+
+do -- Intro choeurs "pensif"
+  unsolo 1
+  unsolo 2
+  unsolo 3
+  unsolo 4
+  unsolo 5
+  unsolo 6
+  unsolo 7
+  unsolo 8
+  unsolo 9
+
+setcps 1
+
+d1 $ s "dr dr cp dr"
diff --git a/output/PenseurEtoiler.jpg b/output/PenseurEtoiler.jpg
new file mode 100644
index 0000000..2fe1e79
Binary files /dev/null and b/output/PenseurEtoiler.jpg differ
diff --git a/output/PenseurVague.jpg b/output/PenseurVague.jpg
new file mode 100644
index 0000000..d4c4e3e
Binary files /dev/null and b/output/PenseurVague.jpg differ
diff --git a/output/PenseurVague2.jpg b/output/PenseurVague2.jpg
new file mode 100644
index 0000000..adebfe4
Binary files /dev/null and b/output/PenseurVague2.jpg differ
diff --git a/study/nova/disco_punk.tidal b/study/nova/disco_punk.tidal
index 3229faa..36eed34 100644
--- a/study/nova/disco_punk.tidal
+++ b/study/nova/disco_punk.tidal
@@ -2,13 +2,13 @@ setcps 0.6
 
 d10 -- metronome
 $ s "tok*4" # note ("10 0 0 0" - 28)
-# gain 0.5
+# gain 0.8
 
 d1 -- grosse caisse / caisse claire poum tchak
 $ fix (# s "[bd,lt]") (s "k")
 $ fix (# s "sn:2") (s "s")
 $ s "k ~ s ~ k s/4 s ~"
-# gain 0.6
+# gain 0.7
 
 d2 -- charley double croche
 $ s "hh*16" # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
@@ -21,14 +21,14 @@ chordsBass = "<a'min c f d'min>"
 
 d3 -- basse simple octave sur accords
 $ superimpose (
-  (# s "bassWarsaw") . (|- gain 0.1) . (|+ note 12) . (|/ sustain 8)
+  (# s "bassWarsaw") . (|- gain 0.4) . (|+ note 12) . (|/ sustain 8)
 )
 $ jux (# s "subBass1")
 -- la mineur do fa re mineur)
 -- $ every' 4 3 (# note 0)
 $ note (slowcat (take 7 (repeat patBass) ++ [patBassAlt]) + chordsBass)
 # s "subBass1"
-# gain 0.8
+# gain 1.2
 # sustain "1/6 . 1/3 . 1/6 . 1/3"
 |- note 36
 
--
libgit2 0.27.0