From 27bb8b673eb1523cc721b2f76577bdf2cf307f75 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Fri, 17 Jan 2020 16:36:54 +0100
Subject: [PATCH] session clinique

---
 binary.tidal          |  2 +-
 blocks/noise.tidal    | 10 ++++++++++
 hello.tidal           | 26 +++++++++++++++++++-------
 live/anar.tidal       | 44 ++++++++++++++++++++++++++++++++++----------
 live/briquets.tidal   | 70 ++++++++++++++++++++++++++++++++++++++++++++--------------------------
 live/chill.tidal      | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 live/clinique.tidal   | 42 ++++++++++++++++++++++++++++++++++++++++++
 live/contrevent.tidal | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++--------------
 live/dnb.tidal        |  7 +++++++
 live/offbeat.tidal    | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 10 files changed, 315 insertions(+), 62 deletions(-)
 create mode 100644 blocks/noise.tidal
 create mode 100644 live/clinique.tidal
 create mode 100644 live/offbeat.tidal

diff --git a/binary.tidal b/binary.tidal
index 8b3b81a..138e30f 100644
--- a/binary.tidal
+++ b/binary.tidal
@@ -24,7 +24,7 @@ $ n (off 0.125 (+|12) $ off (choose [0.125,0.25]) (|+7) "6*2 <<2 9> 4>")
 d6 $ degradeBy (rand / 4) $ s "numbers" # n (irand 2) # rev 0.85 # shape 0.7
 # gain 0.5
 
--- Hardcore noisekick
+-- Hardcore noise kick
 d7 $ fast 4 $ s "<bd if if if*2>" # gain (choose [0.3,0.6])
 
 hush
diff --git a/blocks/noise.tidal b/blocks/noise.tidal
new file mode 100644
index 0000000..cefa0d0
--- /dev/null
+++ b/blocks/noise.tidal
@@ -0,0 +1,10 @@
+-- Copter
+d4
+-- $ every 4 (# gain 1)
+$ fast 4
+$ hurry 0.2
+$ s "[bass3:9*8]"
+# attack 1
+# release 1
+# note 0
+-- # gain 0
diff --git a/hello.tidal b/hello.tidal
index 18b435f..6339652 100644
--- a/hello.tidal
+++ b/hello.tidal
@@ -27,7 +27,7 @@
 --- 808ht Milieu Tuyau  (tac)
 --- 808ht Haut Tuyau  (tac)
 --- 808oh Cymbale bruitée
----- 0: sec
+-- 0: sec
 ---- 1: 1sec
 ---- 1: 0.5sec, sourdiné
 ---- 2-4: aigu-grave
@@ -39,8 +39,23 @@
 -- bass Basse métallique
 --- 0:4 notes harmoniques
 
+-- bass3 Guitare basse
+--  0 grave, ronde
+--  1 moins grave, plus pincéee
+--  2 comme 1 mais plus claire, moins bruitée
+--  3 plus sèche
+--  4 plus d'écho
+--  5 grave, métallique
+--  6 grave métallique sèche
+--  7 grave, limite wob wob
+--  8 aigue, métallique
+--  9 Wob wob
+-- 10 Wob wob chanté
+
 -- bassdm Drum bas et roulant
 
+-- blip: 8bit notes
+
 -- ade Vibration genre post-gong
 
 -- co Cymbale couverte
@@ -61,7 +76,7 @@
 --- 8 tata sourd
 --- 9 tak tak bois
 
--- ulgab: 1 sale, 2 rebond, 3 crash, 4 crash joyeux, 5 idem rebond
+-- ulgab: 0 sale, 1 rebond, 2 crash, 3 crash joyeux, 4 idem rebond
 
 -- rave
 --- 0 are you ready
@@ -136,6 +151,8 @@ d1 $ s "~ sn:1 ~ sn:1"
 
 d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
 
+solo 9
+
 d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
 # s "supermandolin"
 # gain 0.85
@@ -222,11 +239,6 @@ d2 (sound "arpy:1")
 solo 1
 
 
-
-
-
-
-
 d1 $ sound "<[bd*4 sn] bd>"
 hush
 d2 $
diff --git a/live/anar.tidal b/live/anar.tidal
index a2abceb..da0cb55 100644
--- a/live/anar.tidal
+++ b/live/anar.tidal
@@ -2,23 +2,47 @@ setcps 1
 
 hush
 
+once
+$ slow 1.2
+$ hurry 1.2
+$ s "superhammond" # release 1.7
+
 d1
-$ every 1 (# gain 4)
-$ every 1 (off 0.25 (|+ 1))
-$ every 1 (off 0.375 (|+ 1))
-$ every 2 (off 0.125 (|+ 1))
-$ s "ulgab"
+$ every 4 (fast 2)
+$ s "[lt,hardkick]*2"
+# gain 0.8
 
-d2
-$ every 3 (off 0.125 (|+ 0))
-$ every' 4 2 (off 0.25 (|+ 0))
-$ s "bd"
+d2 -- impro au blip
+$ whenmod 16 4 (# gain 1)
+$ whenmod 16 0 (# gain 0)
+$ degrade
+$ off (1/8) (|+ 7)
+-- $ off (1/8) (|+ 5)
+-- $ always (off (1/4) (degradeBy 0.8)) -- accompagnement intense
+-- $ rarely (off 0.5) -- accompagnement intense
+$ every 4 (rev)
+$ s "blip*8"
+# note (choose [0, 2, 4, 5, 7, 9, 11, 12])
 
-d3
+d3 -- cor de chasse numérique
+$ whenmod 16 10 (# gain 0)
+$ every 4 (off 0.25 rev)
 $ slow 2
 $ every "<2,4>" (off 0.125 (|+ 7))
 $ every 2 (off 0.125 (|+ 7))
 $ s "superhammond"
+# gain 0.6
+
+d4 -- ulgab!
+$ sometimes (# gain 0)
+$ every 8 rev
+$ every' 4 3 (fast 4)
+-- $ fast "<1 1 1 2>"
+$ s "ulgab"
+# n "<0 2 4 1>"
+
+d1 $ n "0 2 4 5 7 9 11 12"  -- gamme pentatonique
+d1 $ n "0 2 3 4 5 6 7 9 10 11 12"  -- gamme du blues
 
 d4
 $ s "[bd]*3 <cp,sn>/2"
diff --git a/live/briquets.tidal b/live/briquets.tidal
index 76f41f7..9f2f6f5 100644
--- a/live/briquets.tidal
+++ b/live/briquets.tidal
@@ -1,5 +1,10 @@
 -- Briquets: essayons d'ALLUMER LE FEU
-once
+once $ s "[lighter:6/2,pebbles]" # release 0.2 # speed 2 # attack 0.3
+
+setcps 1
+
+
+solo 8
 
 d1 -- briquet
 $ whenmod 64 57 ( -- silence
@@ -8,47 +13,60 @@ $ whenmod 64 57 ( -- silence
 $ whenmod 64 56 ( -- souffle final
     const $ n "2*4 1" # s "wind" # release 2
 )
-$ whenmod 64 33 ( -- le feu!
-  const $ s "[fire, <sn dr> [hh hh ~ hh]]"
+$ whenmod 64 32 ( -- le feu!
+  const $ s "[fire,fire?]"
+  # release 3
+  # pan rand
+  # gain (choose [0.8, 0.6])
 )
-$ whenmod 64 32 ( -- etincelle
-    const $ hurry 2 $ s "[lighter:6(3,4),pebbles]" # release 2
+$ whenmod 64 31 ( -- étincelle
+    const $ s "[lighter:6/2,pebbles]" # release 0.2 # speed 2 # attack 0.3
 )
-$ sometimesBy 0.1 (const $ s "wind:1?,wind?") -- TODO souvent du vent
-$ sometimesBy 0.4 (off 0.25 (|+ 0)) -- retente
-$ sometimesBy 0.1 (off 0.375 (|+ 0)) -- retente
-$ sometimesBy 0.05 (off 0.125 (|> 3)) -- derape
-$ rarely (|> 6) -- grosse etincelle
+$ sometimesBy 0.4 (const $ s "wind:1?,wind?" # speed 0.5 # gain 0.6) -- parfois du vent
+$ sometimes (off 0.5 (|+ 0)) -- retente
+$ sometimes (off 0.25 (|+ 0)) -- retente
+$ almostNever (off 0.375 (|+ 0)) -- retente lentement
+$ almostNever (off 0.125 (|> 3)) -- dérape
+$ sometimesBy 0.3 (|> 6) -- grosse étincelle
 $ euclid "<1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 2 1 2 4 2 4 6 7 6 7 8 7 6 8 8>" 8
 $ s "lighter"
 # n (choose [0,1])
+# pan 0.3
+
+d3 -- tambours du progrès
+$ whenmod 64 56 (# gain 0.4)
+$ whenmod 64 48 (# s "hh")
+$ whenmod 64 48 (# n 0)
+$ whenmod 64 33 (off 0.25 (|+ 0))
+$ whenmod 64 33 (# n 2)
+$ whenmod 64 33 (# gain 0.5)
+$ whenmod 64 16 (# n 1)
+$ whenmod 64 5 (# gain 0.4)
+$ s "dr(<1 3>,4)" # n 0
+# gain 0
+# pan 0.8
 
 d2 -- guitare du feu!
-$ degrade
 $ whenmod 64 56 ( const $ s "~" ) -- silence
-$ whenmod 64 38 (# gain 0.8)
-$ whenmod 64 35 (# gain 0.9)
-$ whenmod 64 34 (# gain 0.7)
-$ whenmod 64 33 (# gain 0.6)
-$ whenmod 64 32 (# gain 0.5)
+$ whenmod 64 38 (# gain 0.4)
+$ whenmod 64 35 (# gain 0.5)
+$ whenmod 64 34 (# gain 0.6)
+$ whenmod 64 33 (# gain 0.5)
+$ whenmod 64 32 (# gain 0.4)
 $ whenmod 64 33 (const -- victoire!
-$ fast 2
-$ note "<[0 <2 4>] 0>/4"
-# s "sitar:1"
-# legato 2
+  $ fast 2
+  $ note "<[0 <2 4>] 0>/4"
+  # s "sitar:1"
+  # legato 2
 )
 $ s "~"
 
-once $ s "sitar:1"
-
-solo 2
-
 -- DEV: guides
-d2 $ every 64 (# gain 1)
+d8 $ every 64 (# gain 1)
 $ s "cp"
 # gain 0
 
-d3 $ n "<0 1 2 3 4 5 6 7 8 9 [1, 0] [1, 1] [1, 2] [1, 3] [1, 4] [1, 5]>"
+d9 $ n "<0 1 2 3 4 5 6 7 8 9 [1, 0] [1, 1] [1, 2] [1, 3] [1, 4] [1, 5]>"
 # s "numbers"
 # gain 0.7
 # pan 0
diff --git a/live/chill.tidal b/live/chill.tidal
index 190fe6b..80e385e 100644
--- a/live/chill.tidal
+++ b/live/chill.tidal
@@ -1,11 +1,62 @@
 -- Chill hop beat?
+setcps 0.5
 
-d3 $ chop 1 $ s "lighter:1"
+once $ s "birds:1"
 
-d1 $ s "<dr dr*2> <hh hh hh ~>"
+d3
+$ whenmod 16 12 (# gain 0.8)
+$ whenmod 16 8 (# gain 0.6)
+$ chop 4 $ s "lighter:1*4"
+# pan (0.25 + sine / 2)
+
+d1
+$ often (off 0.25 (|+0))
+$ rarely (off 0.125 (|+0))
+$ sometimes rev
+$ s "<dr dr*2> <hh:0 <hh:0 ~>>"
+
+d2
+-- $ every 2 ()
+-- $ every' 2 1 (# gain 0)
+$ every 2 (off 0.125 (|+ 0))
+-- $ degrade
+-- $ euclid "<1 3>" 8
+$ s "bass3"
+# note (choose [0,1,2])
+# gain 0.8
+
+d2
+-- $ whenmod 8 7 (# gain 0)
+-- $ whenmod 8 6 rev
+-- $ whenmod 8 4 (off 0 (rev))
+-- $ always (off 0.125 (# up 4)) -- complementaire ?tierce?
+$ always (
+  off 0.125 (# up 1)
+) -- notes graves à mi mesure
+$ always (off 0.25 (# up (-7)))
+-- $ s "bass3(<1 3>,4)" # note "1 3 6 1"
+$ s "[bass3*2 ~] . [bass3*2] . ~"
+# note "0"
+# gain 0.7
+
+d1
+$ rarely (# n 2) -- parfois cuivre
+$ every 8 (# s "hh:0")
+$ every 2 (off 0.125 (|+ 0))
+$ every 4 (off 0.5 (|+ 0))
+$ euclid 1 2
+$ s "dr" # n 0
+
+-- sometimes dr:4 funky orchestra hit
+
+d2
+$ euclid "<2 <1 4>>" 4
+$ s "808bd"
+# n 2
 
 d5
 $ slow 2
-$ n "<0 3>/8"
+$ every 4 (# gain 0.8)
+$ n "<0 3>"
 # s "toys"
-# gain 0.8
+# gain 0
diff --git a/live/clinique.tidal b/live/clinique.tidal
new file mode 100644
index 0000000..f91231f
--- /dev/null
+++ b/live/clinique.tidal
@@ -0,0 +1,42 @@
+setcps 0.5
+
+d1 -- rythme
+$ fast 4
+$ whenmod 16 14 (const $ s "clubkick*2")
+$ whenmod 16 12 (const $ s "[clubkick,sn hh]")
+$ s "clubkick"
+# n "<0 0 0 4>"
+
+d2 -- basse au feeling
+$ whenmod 8 7 (off 0.5 (|+ 0))
+$ whenmod 8 6 (# gain 0.8)
+$ whenmod 8 4 (rev)
+$ often (off 0.125 (|+ 0))
+$ rarely (off 0.25 (# note 0))
+$ s "bass3(<1 <3 5>>,8)"
+# note "0 <12 5> 7"
+# n "0"
+
+
+d3 -- melodie d'urgence
+$ whenmod 32 8 (# gain 0)
+$ whenmod 4 3 (off 0.125 (# note "0 7 5 3")) -- majeure
+$ off 0.125 (# note "0 3 5 7") -- mineure
+$ every 4 (jux rev)
+$ chop 4 $ s "padlong"
+# cut 1
+# release 2
+# gain 0.8
+
+d4
+$ whenmod 32 8 (# gain 1)
+$ every 4 (rev)
+$ fast 2
+$ s "[bass3:9*8]"
+# cut 2
+# attack 1
+# release 1
+# note "<0 <7 10>>/2"
+# gain 0
+
+-- # note "0 4 7 <<[9,10] 10> <9 12>>"
diff --git a/live/contrevent.tidal b/live/contrevent.tidal
index f23f87b..64b414b 100644
--- a/live/contrevent.tidal
+++ b/live/contrevent.tidal
@@ -2,30 +2,68 @@ hush
 
 setcps 0.5
 
-d1
--- $ every 8 (rev)
+d1 -- vents du haut
 $ chunk 4 (rev)
+$ rarely (rev)
 $ every 16 (# crush 6)
 $ s "wind*16" # note (run 8)
 # legato 2
 # gain 0.5
 
-d2
+d2 -- le rythme
+$ every' 32 31 (# gain 0.6)
+$ every' 32 30 (# gain 0)
+$ every' 32 16 (fast 2)
+$ every 2 (off 0.125 (# gain 0.5))
 $ euclid "<4 3>" 4
 $ s "house"
+# gain 0.9
 
+d3 -- l'esprit
+$ whenmod 16 8 (rev)
+$ whenmod 64 8 (
+  often (off 0 (|+7)) -- octave
+)
+$ whenmod 64 16 (
+  often (off 0 (|+ chooseBy "0.8 0.2" [10,12])) -- + oct && tierce ou quinte
+)
+$ whenmod 64 32 (
+  sometimes (off 0.125 (|+ chooseBy "0.8 0.2" [10,12])) -- + oct && t || q
+)
+$ off 0 (# note "0 3 0")
+$ off 0.125 (|- 0)
+$ s "superpiano(<<1 5> 3>,8)"
+# velocity (0.2 + (tri / 4))
+# sustain 2
+# note (choose [0,3,7])
 
-d4 $ s "dr*4"
+d4 -- drums du mouvement
+$ sometimes (# n (choose [1,5,7])) -- 1,2,5,7
+$ often (jux rev)
+$ rarely (off 0.5 (|+0))
+$ sometimes (off 0.25 (|+0))
+$ s "<[dr*3 ~] {dr dr dr dr dr ~ ~ ~}>"
+# gain 0.9
 
-d5
-$ every 8 (# gain 1)
+
+d5 -- bourrasque
+$ every 16 (jux rev) -- echo
+$ every 8 (# gain 0.9)
 $ s "space:3"
 # speed 0.25
-# gain 0.8
-
-d6
-$ every' 2 1 (off 0 (# s "ht"))
-$ every 4 (fast 2)
-$ s "birds:5*2"
-# note (-10)
-# gain 0.6
+# gain 0.7
+
+unsolo 6
+unsolo 5
+unsolo
+
+d6 -- TODO: Plus d'harmonie
+$ whenmod 8 6 (# gain 0.8)
+$ sometimes (hurry 2)
+$ every 2 rev
+$ s "superhammond*8"
+# n "0 3 7"
+# gain 0.5
+# pan 0.8
+
+solo 6
diff --git a/live/dnb.tidal b/live/dnb.tidal
index 7334bed..a5c3a18 100644
--- a/live/dnb.tidal
+++ b/live/dnb.tidal
@@ -1,5 +1,10 @@
 hush
 
+setcps 0.5
+
+d8 $ euclid "<2 4 8 0>" 4
+$ s "kicklinn"
+
 d1
 $ every 8 (rev)
 $ every 4 (off 0.125 (|+0))
@@ -22,6 +27,7 @@ $ chunk 4 (# crush 2)
 $ every 4 (off 0 (|> 5))
 $ every 4 (off 0.125 (|+ 0))
 $ s "glitch2:2(<3 5 7>,8)"
+# gain 0.8
 
 d4
 $ degradeBy 0.2
@@ -55,6 +61,7 @@ $ every 8 (rev)
 $ every' 8 7 (# gain 0)
 $ s "bass3(<3 5 3 1>,8)"
 # up "<3 10 3>"
+# gain 0.8
 
 d7
 $ degrade
diff --git a/live/offbeat.tidal b/live/offbeat.tidal
new file mode 100644
index 0000000..3f59854
--- /dev/null
+++ b/live/offbeat.tidal
@@ -0,0 +1,51 @@
+setcps 1
+
+d1 $ s "bd:14([3,5],8)"
+# gain 0.8
+
+d2
+$ every 16 (# s "cp")
+$ every 8 (# n "2")
+$ every 2 (# n "1")
+$ n "0(<2 6 4 16>, 8)"
+# s "dr"
+
+d3
+$ whenmod 32 30 (# gain 0)
+$ whenmod 32 16 (off 0.5 (jux rev))
+$ whenmod 16 8 rev
+$ off 0.125 (|> 0)
+$ sometimes (off 0.25 (|> 3))
+$ s "superfork"
+# n (choose [0,7])
+# gain 0.8
+
+d4
+$ off 0 (# note 7)
+$ s "numbers"
+# speed (0.5 + perlin / 2) -- random speed
+# note "<0 3 7>"
+# n (irand 2)
+# coarse 2
+# gain 0.6
+
+d6
+$ rarely (off 0.75 (# note 3)) -- majeure seconde
+$ rarely (off 0.5 (# note 2)) -- mineure
+$ whenmod 32 28 (# gain 0.6)
+$ whenmod 16 10 (rev)
+$ whenmod 8 6 (fast 2)
+$ often (
+  off 0.5 (off 0.25 (|+ 4))
+)
+$ off 0 (|+ 2)
+$ s "blip(<2 <0 8>>,8)"
+# note "0 3 7"
+# gain 0.8
+
+d5
+$ sometimes (# crush 6)
+$ almostNever (# gain 0.8)
+$ s "rave(<2 4>, 4)"
+# n 7
+# gain 0
--
libgit2 0.27.0