live: Grimpe

0d612501 · PLN (Algolia) · 2dd4a901 · 0d612501 · 0d612501 · 0d612501
Commit 0d612501 authored 3 years ago by PLN (Algolia)
10 changed files
--- a/live/dnb/automne_electrique.tidal
+++ b/live/dnb/automne_electrique.tidal
@@ -40,7 +40,7 @@ d3
  # dry 1
  # pan 0.35
 d4 -- BASSLINE ELECTRIQUE
-  $ mask "<t!32 t!32 f!8 t!24 t!32>" -- Orchestration
+  -- $ mask "<t!32 t!32 f!8 t!24 t!32>" -- Orchestration
  $ sometimesBy "<f!8 t!24 f!32>" (|* gain (slow 24 $ range 1 1.2 saw))
  $ slice 8 ("<0!3 4>" + run 8)
  $ "fbass:10"

--- a/live/hip/lofi/808_lessons.tidal
+++ b/live/hip/lofi/808_lessons.tidal
+do
+setcps (80/60/4)
+d1
+  $ mask "<f!4 t!12 f!3 t t!12 f!8 t!8 f f t!14>"
+  $ superimpose (# hpf 500)
+  $ "k . k(<1 <3 5>>,8)"
+  # "808bd:3"
+  # gain 1
+  # room 0.2
+  # dry 1
+d2
+  $ superimpose ((# "snare:3")
+  -- . (# att 0.1)
+  -- . (# rel 0.9)
+  . (|* gain 0.8)
+  )
+  $ "~ <s!3 [<~ s> s]>"
+  # "sn:49"
+  # pan 0.6
+  # hpf 500
+  # gain 0.66
+d3
+  $ mask "<f!16 t!16>"
+  $ juxBy 0.65 rev
+  $ whenmod 8 4 (fast "[1|2] <2 2 [2|4] 4>")
+  $ "d*<1 <2 3>> . <~ d*<1 2 4 2>> d*3"
+  # "drum:2"
+  # gain 0.5
+  # dry 1 # room 0.64
+  # sz 0.4
+d4
+  $ note ("<<a3 e3> c4 g3 a3>" + 12)
+  # "bass1:3"
+  # voice 0.1
+  # gain 0.5
+  # pan 0.2
+  # room 0.9
+  # sz 0.8
+  # delay 0.9
+  # delayfb 0.1
+  # delaytime "e <e [q|h]>"
+  # legato 8
+  # lesliebus 31 (range 2 6 (slow 4 sine))
+d5 -- Plucked arpeggios
+  $ swing 12
+  $ often (superimpose (
+    |+| note ( 12 +
+      arp "up" "<c'maj'4!12 g'maj'4!3 c'maj'4>"
+  )))
+  $ note ("<<a3 e3> c4 g3 a3>"
+    |+| "0 <12 [7 ~ 12] 7 [12 ~ 0]>"
+    + 24
+  )
+  # "pluck:5"
+  # pan 0.6
+  # gain ((slow 16 $ range 0.45 0.57 saw) + 0.05 * perlin)
+
+do
+d1 $ "jazz*4" # gain 0.8
+d2 $ "hh*16" # gain 0.4
+
+once $ "dr"
--- a/live/hip/lofi/back_baby.tidal
+++ b/live/hip/lofi/back_baby.tidal

-once $ "dr" # gain 0.75
+once $ "dr" # gain 1.75

 do
 setcps (80/60/4)

--- a/live/hip/lofi/sete_et_match.tidal
+++ b/live/hip/lofi/sete_et_match.tidal
 resetCycles

+
 once $ "dr"
+# gain 1

 -- TODO:
 -- Add lead - or use it to improvise? <3
 -- Add wind noises at transition points - or equivalent spacey sounds
-
 do
 setcps (90/60/4)
-let chords = "<[a,c,e,g,b,d] [d,fs,a,c] [f,a,c,e] [c,e,g,b]>"
-- TODO: Chords could vary a bit, try manual nostalgic vars
+let chords = "<[a,c,e,g6,b6,d6] [d,fs,a6,c6] [f,a,c6,e6] [c,e,g6,b6]>"
 let chordsMin = "<<a c e> <d!3 fs> [f] [c]>" -- TODO confirm/finish/validate
 let gFilter = whenmod 32 24 (# djf (slow 8 (range 0.5 0.05 saw)))
 let gFilter2 = whenmod 32 24 (# djf (slow 8 (range 0.45 0.75 saw)))
@@ -21,23 +21,25 @@ d1 $ g
  $ mask "<f!6 t f t!24>"  -- Intro mask
  $ "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]"
  # "[bd:2,kick:5]"
-  # gain 0.8
+  # gain 0.9
  # legato 2
  # att 0.1
  # rel 0.8
 d2 $ g -- Aerian snare
  $ mask "<t!16 f!3 t t!12>" -- First break
-  $ mask "<f!10 t!6 f!5 t!13>" -- Snare mask
-  $ n "~ <~!3 [~ 10]>. 9"
+  $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask
+  $ n "~ <~!3 [~!3 <10 10?>]>. 9"
  # "sn"
-  # gain 0.8
+  # gain 0.85
+  # pan 0.6
  # lpf 1500
 d3 $ g2
  $ mask "<f!16 t!12 f!4 t!16 f!4 t!12>"
  $ "d*[<<4!4 [8 <4 8>]!4> 16!4> <16!3 8 16 16 8 8 16 16 8 16 16 8 16 16>]"
  # "drum:2"
  # pan 0.35
-  # gain (slow 8 $ range 0.4 0.6 saw)
+  # dry 1.1 # room 0.5 # sz 0.8
+  # gain (slow 8 $ range 0.4 0.5 saw)
 d5 $ g -- BREAKBEAT BUDDY
  $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
  $ mask "<f!8 t!14 f f t!16>"
@@ -47,16 +49,17 @@ d5 $ g -- BREAKBEAT BUDDY
  $ chop 16
  $ loopAt 2
  $ "fbreak100"
-  # gain 0.69
+  # gain 0.79
  # pan 0.65
 d4 $ g2
+  $ whenmod 4 3 (rarely (off "h" (arp "up" . mask "f f t? t")))
  $ superimpose ((|* gain "0 0.79") . (|+ note 12)) -- Depth
  $ whenmod 16 12 (someCyclesBy "0 1" rev)
  $ note (chords
    - 24
  )
  # "FMRhodes1"
-  # gain 0.75
+  # gain (slow 32 $ range 0.48 0.66 saw)
  # room 0.4
 d6 $ g
  $ mask "<f!4 f!12>"
@@ -69,7 +72,7 @@ d6 $ g
  # voice 0.1
  # pan 0.3
  # hpf (range 0 500 perlin)
-  # gain 0.4
+  # gain 0.5
 d5 $ g -- BREAKBEAT BUDDY
  $ mask "<t!16 f!4 t!12>" -- First break
  $ mask "<t!32 f!12 t!20>" -- Post-filter break
@@ -80,5 +83,5 @@ d5 $ g -- BREAKBEAT BUDDY
  $ chop 16
  $ loopAt 2
  $ "fbreak100"
-  # gain 0.69
-  # pan 0.65
+  # pan 0.85
+  # gain 0.78
--- a/live/midi/nova/breaks/break_90s.tidal
+++ b/live/midi/nova/breaks/break_90s.tidal
@@ -16,10 +16,9 @@ setcps (80/60/4)
 d1
  $ g
  $ midiOn "^41" (superimpose ((# "kick:5")
-  . (|* gain 0.9))
+  . (|* gain 0.7))
  . (<| "k k k k k k k [<k ~> <k k ~ k>]")
  . (# room 0)
-  . (|* gain 0.9)
  )
  $ whenmod 4 2 (off (-1/"<8 16>") (
    degradeBy "0 1!7" . (|* gain 0.9))
@@ -34,6 +33,7 @@ d1
  # midiG' "^78" 0 1.4
 d2
  $ g
+  $ midiOn "^75" (ply 2)
  $ midiOn "^43" (slice 4 "0 1*<1 1 2 4>")
  $ midiOff "^43" (
    slice 4 (

--- a/live/midi/nova/breaks/slower.tidal
+++ b/live/midi/nova/breaks/slower.tidal
@@ -7,7 +7,7 @@ do
 setcps (80/60/4)
 let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
 let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
-let f2 = (# djfbus 1 (range 0.05 0.95 "^29"))
+let f2 = (# djfbus 2 (range 0.05 0.95 "^29"))
 -- region Params Rhodes
 let modIndex = pF "modIndex"
 -- endregion
@@ -32,6 +32,11 @@ d3 $ f1 $ gF
  # speed (range 0.5 1.5 "^52")
  # midiG' "^80" 0 2
 d4 $ f1  -- Bassline
+  $ superimpose (
+    (# crushbus 41 (range 10 4.5 "^53"))
+    . (# legato 4)
+    . mask "t f!7"
+  )
  $ midiOn "^57" (-- + Arps aigus!
    superimpose (
      often (off "h" rev)
@@ -40,14 +45,13 @@ d4 $ f1  -- Bassline
        + "0(5,8)" |+ "0 7"
        + 12
      ))
-      . (|* gain 0.9)
-      . (# room 0.5) . (# sz 0.75)
+      . (|* gain 0.7)
    )
  )
  $ note ("<0 [0 . 0 [0 3] 5 ~]>")
  # "bass1"
-  # crushbus 41 (range 10 4.5 "^53")
-  # room 0.25 # sz 0.8 # orbit 4
+  # room 0.25 # sz 0.8
+  -- # orbit 4
  # pan 0.2
  # midiG' "^81" 0 1.8
 d5 $ f2  -- fmono

--- a/live/midi/nova/breaks/solar.tidal
+++ b/live/midi/nova/breaks/solar.tidal
 -- Solar - breakbeat nostalgic playground
-- TODO: Breakbeat mapping variations
-- TODO: CBOW Kill melody,   reboot alongside rhodes
-- TODO: Bassline Kill riff, reboot alongside rhodes

 once $ "dr" # gain 1

@@ -14,7 +11,7 @@ let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
 let g1 = (gDJF1)
 let g2 = (gDJF2)
 let m = mBreak
-d1 $ g1 --
+d1 $ g1 $ m --
  $ mask "<f!4 t!12>"
  $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
@@ -40,7 +37,7 @@ d2 $ g1 $ m -- BREAK
  # octersubbus    21 (range 0 1.82 "^52")
  # midiG' "^80" 0 1.2
  # cut 2
-d4 $ g1 -- Drumroll!
+d4 $ g1 $ m -- Drumroll!
  $ "drum:2*[8!3 <<8 [8 [8|16]]>!6 [8 4]!2>]"
  # room "^53"
  # dry 0.99
@@ -49,7 +46,7 @@ d5 $ g2
  $ midiOn "^58" (superimpose (
    (|+| note (
    arp "<up!8 converge!7 diverge>"
-    "c'maj'8")
+    "c'maj'8" - 12)
  )))
  $ struct "~ t"
  $ slow 4
@@ -63,15 +60,22 @@ d5 $ g2
 d8 $ g2
  $ whenmod 8 4 (rarely (striate 2))
  $ whenmod 16 8 (sometimesBy "0 1" rev)
-  $ midiOn "^60" (
+  $ midiOn "^59" (
    slice 2 (run "<2 1 2 4 1 4 6 16>")
  )
  $ loopAt 2
  $ "forgan:2"
-  # midiG' "^84" 0 1
-  # crushbus 8 (range 16 1.5 "^56")
+  # midiG' "^83" 0 1
+  # crushbus 8 (range 16 1.5 "^55")
  # cut 8
  # pan 0.8
+d9 $ g1 $ m
+  $ midiOff "^60" (mask "<f!8 t!124>")
+  $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
+  $ midiOff "^92" (<| "~ c")
+  $ "clap"
+  # speed (range 0.5 1.5 "^56")
+  # midiG' "^84" 0 1.7




--- a/live/midi/nova/dnb/meurice.tidal
+++ b/live/midi/nova/dnb/meurice.tidal
@@ -80,7 +80,7 @@ d7 -- Guitar B
  # lsize (1 + (slow 8 perlin * 2))
  # lrate 6.7
  # cut 71
-d8 $ g -- Clave de l'été pitchable
+d8 -- Clave de l'été pitchable
  $ midiOn "^59" (fast 2)
  $ midiOn ("^91"-"^59") (fast 2)
  $ (|* gain "0.75 1 1 1 0.75 1 1 1")
@@ -100,7 +100,7 @@ d10 -- Nappes crushées indépendantes
  # cut 10
  # djfbus 2 (range 0.05 0.95 "^29")
  # crushbus 10 (range 16 1.5 "^36")
-  # midiG' "^56" 0.2 0.8
+  # midiG' "^56" 0.2 1
 d11 -- Sirene indépendante TODO Blend-in / Rework?
  $ note ("<e e c e>/4")
  # octave 3

--- a/live/midi/nova/lofi/back_baby.tidal
+++ b/live/midi/nova/lofi/back_baby.tidal
@@ -21,12 +21,23 @@ d2
  # note "-5"
  # midiG' "^79" 0 0.8
 d3 $ g
-  $ sometimesBy "0 1 0 0" (ply 16)
+  $ sometimesBy "0 1 0 0" (ply "<16 8>")
  $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
  # "hh27:3"
  # release 0.8
  # cut 3
  # gain 0.5
+  # midiG' "^80" 0 0.8
+d4 -- BASSLINE Résolue
+  $ g
+  $ mask "<f!4 [t f]!4 t!24>"
+  $ ply "1 <1!4 2 2 [2 4] [8 4]>"
+  $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
+  $ "fbass:43"
+  # midiG' "^81" 0 0.8
+  # cut 4
+  # pan 0.2
+  # room 0.2 # dry 0.99 # sz 0.7
 d10
  $ g
  $ note (
@@ -40,17 +51,7 @@ d10
  # sz 0.8
  # pan 0.24
  # voice 0.03
-  # gain 0.45
-d4 -- BASSLINE Résolue
-  $ g
-  $ mask "<f!4 [t f]!4 t!24>"
-  $ ply "1 <1!4 2 2 [2 4] [8 4]>"
-  $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
-  $ "fbass:43"
-  # gain 0.46
-  # cut 4
-  # pan 0.2
-  # room 0.2 # dry 0.99 # sz 0.7
+  # midiG' "^82" 0 0.5
 d5 -- Guitare Ressort
  $ mask "<f!8 t!24>"
  $ someCyclesBy "<t!16 f!16>" -- degrade
@@ -66,7 +67,7 @@ d5 -- Guitare Ressort
  # dry 0.99
  # cut 5
  # pan 0.8
-  # gain 0.35
+  # midiG' "^83" 0 0.8
 d6  -- Sliced Electropiano
  $ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo!
  $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>"))
@@ -75,6 +76,7 @@ d6  -- Sliced Electropiano
  $ "fepiano:26"
  # pan 0.3
  # gain 0.47
+  # midiG' "^84" 0 0.8
  # cut 6



--- a/live/mood/fight/grimpe.tidal
+++ b/live/mood/fight/grimpe.tidal
+-- Tais-toi et grimpe !
+do
+setcps (90/60/4)
+let gDJF1 = (# djfbus 1 (range 0.05 0.9 "^49"))
+let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^29"))
+let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
+let mBreakManual = (midiOn "^73" (mask "f*16"))
+let g1 = (gDJF1)
+let g2 = (gDJF2)
+let m = mBreak . mBreakManual
+d1 $ g1
+  $ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8))))
+  $ midiOn "^42" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
+  $ midiOff "^42" ((<| "k . ~ k ~ ~") . m)
+  $ "[jazz,cpu]"
+  # midiG' "^78" 0 1
+d2 $ g1 $ m
+   $ "~ s ~ s" # "sn:1"
+  # midiG' "^79" 0 1
+d3 $ g2 $ m
+  $ whenmod 8 6 (fast "<2 [4 . 2 1]>")
+  $ "drum:2*[8!3 <16!3 [32 16]>]"
+  # midiG' "^51" 0 0.65
+  # pan 0.8
+d4 $ g2 $ m
+  $ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52"))
+  $ midiOn "^76" rev
+  $ whenmod 8 7 rev
+  $ slice 8 ("0 1 2 3" + "<0!3 4>")
+  $ loopAt 2 $ "fbreak100"
+  # midiG' "^80" 0 1
+d5 $ g2 $ m
+  $ note (scale "aeolian" ("0 . 5 <4!3 2>"))
+  # "moog"
+  # cut 5
+  # pan 0.2
+  # crushbus 50 (range 10 2.1 "^53")
+  # midiG' "^81" 0 1
+d6 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
+  # "pluck:5"
+  # cut 6
+  # att 0
+  # rel (0.25 + 0.1 * perlin)
+  # crushbus 60 (range 10 1.9 "^54")
+  # pan 0.8
+  # room 0.4
+  # midiG' "^82" 0 0.6
+d7 $ g2
+  $ midiOff "^59" (mask "t f!7 . t f!3 t f!3")
+  $ note (scale "aeolian" (
+    "[0 <7!3 0> <~ 2> 2 3] . 5 7 <4!3 2> <2!3 4>"
+    + "[0,7]"
+    - 14
+  ))
+  # "doubleBass"
+  # room 0.4
+  # sz 0.8
+  -- TODO: Add cool effect (crush doesn't work well)
+  # midiG' "^83" 0 1