From 110e129097840b624f2ba77ff4efc216b5b39064 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Fri, 27 Mar 2020 12:20:04 +0100
Subject: [PATCH] live: StackAerienne

---
 blocks/noise.tidal              |  2 +-
 live/hip/entre_en_scene.tidal   | 48 ++++++++++++++++++++++++++++++++++++++----------
 live/techno/fine.tidal          | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 output/StackAerienne.flac       | Bin 0 -> 20811891 bytes
 output/StackVocale.mp3          | Bin 0 -> 11293569 bytes
 output/Vague_FroidPrintemps.jpg | Bin 0 -> 130833 bytes
 6 files changed, 129 insertions(+), 11 deletions(-)
 create mode 100644 live/techno/fine.tidal
 create mode 100644 output/StackAerienne.flac
 create mode 100644 output/StackVocale.mp3
 create mode 100644 output/Vague_FroidPrintemps.jpg

diff --git a/blocks/noise.tidal b/blocks/noise.tidal
index 0fc81dc..5e05913 100644
--- a/blocks/noise.tidal
+++ b/blocks/noise.tidal
@@ -10,4 +10,4 @@ $ s "[bass3:9*8]"
 -- # gain 0
 
 -- Basse explosive se répandant
-"bass1:1"
+once $ "bass1:1"
diff --git a/live/hip/entre_en_scene.tidal b/live/hip/entre_en_scene.tidal
index 2df1d5a..75ebb8d 100644
--- a/live/hip/entre_en_scene.tidal
+++ b/live/hip/entre_en_scene.tidal
@@ -1,33 +1,59 @@
-setcps 0.5
+-- Hip-Hop energetic instrumental
+
+setcps 0.42
+
+d8 $ -- silence -- metronome
+s "<birds:0 birds3:2 birds3:2 birds3:2>"
+# gain "<0.2 0.3 0.3 0.3>"
 
 d1 -- 4: KICK Chaloupe
+$ whenmod 16 14 (# gain 0.7)
+$ whenmod 16 11 (# gain 0)
+$ whenmod 16 7 (# gain 0.7)
+$ whenmod 16 6 (# gain 0)
+$ jux rev
 $ s "<k ~> <~ k> . k k ~ k"
 # s "jazz"
-# pan 0.8
-# gain 0.6
+# pan 0.4
+# gain 0.65
 
 d2 -- 3: Hats sur 8!
+$ whenmod 16 15 (|+ gain 0.5)
+$ whenmod 16 11 (|- gain 0.6)
+$ whenmod 16 4 (|+ gain 0.4)
+$ whenmod 16 3 (|/ gain 2)
+-- $ jux rev
+$ sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit!
+  (# s "supersnare").  (# n (-12))
+  . (# accelerate 8) . (# sustain 1)
+  . (|- gain 0.3)
+  ))
 $ every' 4 3 ((1/16) ~>) -- decale sur 8
 $ euclid "<1 3 5 8>" 8
 $ s "superhat"
 # pan (slow 16 $ sine)
-# gain 0.6
+# gain 0.5
 
 d3 -- 2: Drumroll!
+-- $ jux rev
+$ whenmod 16 11 (|+ gain 0.1)
 $ sometimesBy "0 0.5" (off (1/16) id)
 $ whenmod 16 8 (fast 2)
 $ n "0*4" # s "drum:8"
-# gain 0.6
+# gain (slow 32 $ cosine / 4 + 0.4)
+# pan 0.4
 
 d4 -- 1: Scratched birds!
 $ ((1/16) ~>)
-$ degradeBy "0 0.7 0.1" $ s "b*16"
--- $ rarely (off (1/16) id) $ s "b(8,8)"
+-- $ degradeBy "0 0.7 0.1" $ s "b*16"
+$ rarely (off (1/16) id) $ s "b(8,8)"
+-- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)"
 # s "birds3" # n (irand 3)
-# gain 0.9
+# gain (slow 32 $ sine / 4 + 0.5)
+# pan 0.6
 
 d5 -- 4: Lead saw
-$ whenmod 24 12 (# silence)
+$ whenmod 32 16 (# silence)
 $ whenmod 16 14 (stut 4 0.9 (1/16))
 $ whenmod 16 12 (|+ n 12)
 $ whenmod 16 8 (|+ n 12)
@@ -47,14 +73,16 @@ d6 -- 4: Basses accompagnement
 $ jux id
 $ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" # s "bassWarsaw"
 |- 24
+# pan 0.2
 # gain 0.7
 
 d10 -- 5: Toy Classical music!
 $ hurry 2
 $
-every' 24 22
+every' 32 28
 (|> s "toys:2")
 $ s "~ ~ t ~"
+# s "~"
 # lpf 1000 # vowel "u"
 # leslie 0.01 # lsize 4 # lrate 0.7
 # note (-10)
diff --git a/live/techno/fine.tidal b/live/techno/fine.tidal
new file mode 100644
index 0000000..9609e6d
--- /dev/null
+++ b/live/techno/fine.tidal
@@ -0,0 +1,90 @@
+-- Stack Aerienne
+
+setcps 0.46
+
+d1 -- Kick regulier reprise 7/8
+$ every' 8 7 (degradeBy "1 . 0 [1 0]")
+$ every' 8 3 (degradeBy "1 . 1 [1 0]")
+$ s "k k k [k k]"
+# s "kick:11"
+# note "0 0 0 [0 . <4 6>]"
+# gain 0.7
+# pan 0.4
+# room 0.5 # size 0.3 # dry 1
+
+d2
+$ weave 16 (pan (slow 8 $ sine)) [ -- Rythmique
+( -- drumroll
+  sometimesBy (slow 16 $ saw / 2) (superimpose ((# s "d") . (# gain 0.5)))
+  $ degradeBy "0 <0 1> 0 0.5"
+  $ s "d*16"
+  # s "dr"
+  # gain 0.7
+)
+, ( -- clochettes!
+  whenmod 32 28 (# gain 0.75)
+  $ whenmod 8 4 (jux ((1/16) ~>))
+  $ euclid "<8 1 7 1>" 8 $ s "superfork"
+  # note (
+    slow 4 $ "<c'maj c'min>"
+    -12
+    )
+  # gain 0.6
+)
+, ( -- scratch
+sometimesBy 0.2 (off (1/32) id)
+$ sometimesBy 0.6 (off (1/16) id)
+$ euclid (slow 8 $ "5 7") 8
+$ n "0"
+# s "birds3"
+-- # n (choose [0,0,2])
+# gain 0.3
+)
+]
+
+d3  -- weird bassline
+$ fast 2
+$ whenmod 16 12 (# gain 0)
+$ whenmod 16 8 (juxBy 0.25 rev)
+$ whenmod 8 2 (chop 2)
+$ every 4 (rev . chop 8)
+$ note "0" # s "bass1:1/2"
+# gain 0.5
+
+d4 $ stack [ -- basses aeriennes
+(
+  superimpose (|+ note 12)
+  $ note (slow 4 $ "<c'maj c'min>") # s "moogBass"
+  # gain (slow 16 $ sine * 0.3 + 0.45)
+) , (
+  superimpose (|- note 12)
+  $ superimpose (swing 3 . arp "updown" . fast 2 . (|- note 12))
+  $ note (
+    (slow 4 $ "<c'maj c'min>")
+    + "<0 12>"
+    ) # s "ikedaBass"
+    # gain (slow 16 $ cosine * 0.3 + 0.34)
+)
+]
+
+d5
+$ superimpose ((# s "cheapPiano1") . (|- gain 0.3))
+$ note "0(14,16, <0 0 2 2>)"
+# note (arpeggiate $
+  (slow 4 $ "<c'maj c'min>") -- accords
+  + (slow 8 $ "<0 [0,[5 . <0 12>]]>") -- alerne do / quinte-octave
+  + (slow 8 $ "<0 [-5 -12] [-12 -5] 0>") -- variations
+)
+# s "superpiano"
+# velocity 0.5
+# gain 0.7
+# sustain (slow 4 $ "<1/8 <1/16 0>>")
+# pan (slow 16 $ 0.2 + sine / 8)
+
+d8 -- macron gabber guerre
+$ whenmod 128 64 (# gain 0.65)
+$ superimpose ((# octersub 16) . (# octersubsub 2))
+$ every 2 (choose [0,0.125] ~>)
+$ n "~ 0*2"
+# s "macron:0" # begin 0.55
+# gain 0
diff --git a/output/StackAerienne.flac b/output/StackAerienne.flac
new file mode 100644
index 0000000..b57f945
Binary files /dev/null and b/output/StackAerienne.flac differ
diff --git a/output/StackVocale.mp3 b/output/StackVocale.mp3
new file mode 100644
index 0000000..dc8bf75
Binary files /dev/null and b/output/StackVocale.mp3 differ
diff --git a/output/Vague_FroidPrintemps.jpg b/output/Vague_FroidPrintemps.jpg
new file mode 100644
index 0000000..55d94d0
Binary files /dev/null and b/output/Vague_FroidPrintemps.jpg differ
--
libgit2 0.27.0