From b0b74c8d684c2cbddb47d14b2a33b95ed1963b24 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sat, 29 Aug 2020 23:37:47 +0200
Subject: [PATCH] update: kanye -> soleil pourpre

---
 live/ambient/tokyo_chase.tidal       |  77 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/dnb/new_synth_wave.tidal        | 135 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/dnb/soleil_pourpre.tidal        |  45 +++++++++++++++++++++++++++++++++++++++++++++
 live/fusion/cuba_space_program.tidal |  73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/hip/instru/chaude_civ.tidal     |  23 ++++++++++++-----------
 live/remix/kanye_fly.tidal           |  96 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/techno/ciel_etoile.tidal        | 100 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 notes.md                             |   9 +++++----
 8 files changed, 543 insertions(+), 15 deletions(-)
 create mode 100644 live/ambient/tokyo_chase.tidal
 create mode 100644 live/dnb/new_synth_wave.tidal
 create mode 100644 live/dnb/soleil_pourpre.tidal
 create mode 100644 live/fusion/cuba_space_program.tidal
 create mode 100644 live/remix/kanye_fly.tidal
 create mode 100644 live/techno/ciel_etoile.tidal

diff --git a/live/ambient/tokyo_chase.tidal b/live/ambient/tokyo_chase.tidal
new file mode 100644
index 0000000..bdad0a8
--- /dev/null
+++ b/live/ambient/tokyo_chase.tidal
@@ -0,0 +1,77 @@
+-- Tokyo chase: course poursuite à travers la dystopie
+
+
+solo 1
+solo 2
+solo 3
+solo 4
+
+do
+unsolo 1 -- Kick 4 temps pause /32
+unsolo 2 -- claps accelerants!
+unsolo 3 -- Drunmroll + HH
+unsolo 4 -- Bass
+solo 5 -- Lead ploink aigu
+solo 10 -- Noises
+
+do
+resetCycles
+d1
+  $ mask "t(<0!4 4!124>,4)"
+  $ superimpose ((|* gain 0.8) . (# "kick:5"))
+  $ fast "<1!4 2!4 4!16 2!2 1!4>"
+  -- $ fast 4
+  $ "k" # "jazz" # gain 0.75
+d2
+  $ mask "<f!10 t!22>"
+  $ every' 4 3 (off "<e s>" id)
+  $ "clap:2(1,4,<0!3 1>)"
+  # gain 0.8
+  # pan 0.8
+d3
+  $ whenmod 32 16 (
+    sometimesBy "0 <0.2!8 0.5!8>!7 0" ((# "ho") . (|* gain 0.7))
+  )
+  $ whenmod 64 16 (superimpose (const
+    $ "hh*<8 [8 16] 16 [16 8]>"
+    # gain (slow 32 $ range 0.75 1.2 saw))
+  )
+  $ mask "t(<2!4 4!4 8 16!6>,16)"
+  $ often (juxBy 0.5 $ off "h" rev)
+  $ often (off "q" (id))
+  $ almostAlways (off "s" (id))
+  $ fast "<2!3 [8 4]>" $ s "drum:8"
+  # gain 0.85
+  # cut 3
+d4
+  $ sometimesBy "0 . 0.25 0.5" (superimpose (# crush 4) . (|* gain 0.9))
+  $ superimpose (+| note "12(<3 4 5>,8)")
+  $ note ("<b3!3 <c4 a3>>")
+  # "supersaw"
+  # voice (slow 64 $ range 0.2 0.01 sine)
+  # gain 0.45
+d5
+  $ whenmod 16 8 (off "e" (|+ note 12))
+  $ off "q" (|* gain 0.8)
+  $ note ("<0!3 <1 3 1 -1>>(3,8)") # s "cpu:7" # gain 0.75
+d10
+  $ superimpose (const -- Glitches
+    $ "glitch:7(<3!4 5!4>,8)"
+    # gain 0.45
+    # speed "<0.5!10 0.25!2 0.125!2 0!2 0.5!10 0.75!2 1!2 1.5!2 2!2>"
+  )
+  $ superimpose (const -- Fond diffus cosmologique
+  $ slow (slow 4 "<2 4 8>")
+  $ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
+  $ s "~ cosmicg:0"
+  # gain 0.3
+  # speed (range 0.125 0.95 perlin)
+  # pan (range 0.4 0.6 perlin)
+  )
+  -- bourrasque occassionnelle
+  $ rarely (# gain 0.4)
+  $ jux (rev . segment 2)
+  $ s "space:3"
+  # speed (slow 2 $ range 0.15 0.5 perlin)
+  # pan (slow 4 $ range 0.45 0.55 perlin)
+  # gain 0
diff --git a/live/dnb/new_synth_wave.tidal b/live/dnb/new_synth_wave.tidal
new file mode 100644
index 0000000..f59d3aa
--- /dev/null
+++ b/live/dnb/new_synth_wave.tidal
@@ -0,0 +1,135 @@
+
+-- Region marre, DUBNFONK
+do
+setcps 0.45
+d1
+  $ fix ((|* gain (range 0.8 0.6 sine))
+  . (# cut 6))
+  (n 7)
+  $ fix ((|* gain (range 0.8 0.6 cosine))
+  . (# cut 6))
+  (n 6)
+  $ fix (mask "<t!6 f!2>" . (|* gain 0.75))
+  (n 0)
+  $ fix (mask "<f!4 t!4>" . (|* gain 0.8))
+  (n 4)
+  $ fix (mask "<t!8 t?!4 f!4>" .(|* gain 0.9)) (n 2)
+  $ fix (|* gain 0.65) (n 3)
+  $ n (stack [
+    "0 . ~ 0 ~ ~",
+    "~ 2 ~ 2*<1!3 2>",
+    "3*<<8!3 4!3 2 4>!3 [16 8]>",
+    ("4 4 ~ 4 <~ ~ 4 ~> 4 4 <~!3 4>"),
+    (fast "<4 <2 8>>" $ "[7 6]"),
+    ""
+  ])
+  # s "cpu2"
+  # gain 0.99
+d4
+  $ whenmod 64 48 (mask "f!3 t")
+  $ jux (rev . segment 4)
+  $ whenmod 32 16 (juxBy 0.75 (
+    fast (slow 4 "<1 2 4>")
+    . mask "t f!3"
+    . (# cut 41)
+    ))
+  $ ply 2
+  $ slice 4 "<0 1 2 3>"
+  $ "fepiano:3"
+  # gain (slow 16 $ range 0.7 0.6 sine)
+  # room "<0.1!2 0.2 0.5>" # sz 0.5
+  # cut 4
+
+-- TECHNO-BASS
+do
+d1
+  $ whenmod 16 12 (# lpf 200)
+  $ whenmod 8 4 (# lpf 2000)
+  $ "k k k [<~ k> k]"
+  # "[techno,kick:5]"
+  # gain 0.8
+d2
+  $ "~ ~ ~ cp*<1!3 <2!2 4>>"
+  # gain (slow 60 $ range 0.5 1 sine)
+  # gain (slow 16 $ "<0.85 0.95>")
+  # lpf 5000
+  # room "<0.2!3 0>"
+d3
+  $ whenmod 16 12 (# silence)
+  $ stut 4 0.75 0.125
+  $ "ho(<1!3 3>,8) hc(<1!4 2!4 3!4 4!4>,8)"
+  # cut 3
+  # gain (slow 60 $ range 0.6 0.9 cosine)
+d4
+  $ someCyclesBy "<f!16 t!8 f!8>" (|* gain 0.8)
+  $ slice 8 "0 1 <2 6> 3"
+  $ "fbass:3"
+  # gain 1.1
+  # pan 0.8
+  # crush (slow 64 $ range 16 8 sine)
+  # cut 4
+d5
+  $ whenmod 16 12 (# lpf 5000)
+  $ whenmod 16 8 (juxBy 0.25 (fast 2 . (# cut 51)))
+  $ mask "<f!16 t!16>"
+  $ slice 8 "0 1 <2!4 6!4> 3*<1 [2|4]>"
+  $ n "0/2"
+  # note ("<0!3 [0 . -2 0]>")
+  # "fpiano"
+  # cut 5
+  # pan 0.2
+  -- # gain 0.95
+
+
+-- region SANDBOX
+
+
+once $ "psin"
+# accelerate (-0.4)
+# gain 0.6
+
+d2
+  $ note (scale "major" $ run 7 + 8)
+  # "pmsin"
+  # legato 2
+  # attack 0.5
+  # gain 0.5
+
+d3
+  $ note (scale "major" $ run 7 - 8)
+  # "pmsin"
+  # legato 2
+  # attack 0.5
+  # gain (range 0 0.5 saw)
+
+do
+d1 $ "jazz*2"
+d2
+  $ fast "<4!3 2>"
+  $ "cp*<1!3 2> ~" # gain 1.4
+  # lpf 200
+d3 $ "hh*8"
+d4
+  -- $ chop 8
+  -- $ jux rev
+  $ "inr"
+  # accelerate (-0.15)
+  -- # lpf 200 # lpq 0.4
+  # gain 0.75
+  # crush 8
+
+-- piano instru breakbof
+do
+d1
+  $ mask "<t!8 f!8 t!12 f!4>"
+  $ "k . k(<3!3 5>,8)" # "reverbkick" # gain 0.65
+d2 $ slice 8 ("0") $ loopAt 2 $ "fbonus" # gain 1
+d3
+  $ whenmod 32 16 rev
+  $ off "e" (rev . (|* gain 0.8))
+  $ iter 4
+  $ note ("<c'maj!3 c'min>" + "0 [12 <~!3 0>]"
+  + "<c!4 d!4 g!4 c!4>"
+  + "<0!16 12!16>")
+  # "superpiano"
+  # velocity 0.65
diff --git a/live/dnb/soleil_pourpre.tidal b/live/dnb/soleil_pourpre.tidal
new file mode 100644
index 0000000..0cc33b5
--- /dev/null
+++ b/live/dnb/soleil_pourpre.tidal
@@ -0,0 +1,45 @@
+do
+  resetCycles
+  setcps (160/4/60)
+  d1
+    $ mask "<f!8 t!120>"
+    $ mask "<t!16 f!16>"
+    $ "k . ~ k ~ <~!3 k>"
+    # "[jazz,kick:9]"
+    # release 0.25
+    # gain 1.2
+  d2
+    $ mask "<f!4 [t f]!4 t!8 f!16>"
+    $ every' 8 7 ((# note ("<-2>")))
+    $ "s(2,8,2)" # "snare"
+    # gain "<0.8 0.9 1 1.1 1.3!124>"
+  d3
+    $ mask "<f!16 t!12 f!4>"
+    $ mask "<t!6 f!2>"
+      $ superimpose (const  -- Hats
+      $ degradeBy "0 0.2!6 0.1"
+      $ (# gain (slow 20 $ range 0.55 1.1 (sine + perlin / 8)))
+      $ (# note (slow 4 $ "<0 -2>" + "0 2"))
+      $ fast "<16!3 <4 [16 8]>>"
+      $ "hh"
+    )
+    $ mask "<f!32 t!96>"
+    $ fast "<4!3 [8 <4 16>]>" $ "drum:8"
+    # gain "<0.8!5 0.9 1 1.1>"
+  d4
+    $ superimpose (
+      (someCyclesBy "<1 [0.75 0.5]>" $ superimpose (swing 4 . arp "up"))
+       . (|- note 24))
+    $ note "<c'min'4!3 f'min'4>"
+    # "bassWarsaw"
+    # gain (slow 40 $ range 0.65 0.85 (sine + perlin/2))
+  d5
+    $ mask "<f!64 t!64>"
+    $ whenmod 32 24 (<| "c*<2!3 4!4> c*2 ~ c ~ c*<2!4 4!4> c*4 ~")
+    $ "c*<1!7 2> c*<0!4 1!28> ~ c*<0!4 1!4 2!8> ~ c c ~"
+    # "supervibe"
+    # note "<c'min'4!3 f'min'4>"
+    # octave 4
+    # detune (slow 8 $ range "<0!8 24!8>" "<24!8 0!8>" saw)
+    # legato 4
+    # gain 0.8
diff --git a/live/fusion/cuba_space_program.tidal b/live/fusion/cuba_space_program.tidal
new file mode 100644
index 0000000..e525036
--- /dev/null
+++ b/live/fusion/cuba_space_program.tidal
@@ -0,0 +1,73 @@
+solo 1
+solo 2
+
+-- TODO: Kick in at 8, current bass=kick
+-- Intro Bass in Kick in Bass cut/montee drop -- pont -- intro
+-- 0     4       8        20             28      36      40/0
+
+
+do
+resetCycles
+setcps 0.5
+d1
+  $ mask "<f!4 t!16 f!8 t!8 f!4>" -- Orchestra/40
+  $ "jazz*4"
+  # gain 0.65
+d2 -- Son clave cubain
+  $ mask "<[t f!3] [t f!2] [t f] t t!16 [t f!3]!8 t!8 [t f!7]!4>" -- Orchestra/40
+  $ "c c ~ c ~ c c ~"
+  # "808hc" # n "<0!8 3 3 0 0 0 0 3 3>"
+  # room 0.1
+  # gain 0.8
+d3 -- Glitch clap dark
+  $ mask ("<f!8 t!16 f!4 t!9 f!3>")
+  $ whenmod 20 16 (# note "<0 -3 -7 -10>")
+  $ "~ ~ ~ cp"
+  # lpf 2000 # lpq 0.2
+  # gain 0.9
+d4 -- Ritournelle 3/2 vibraphone
+  $ mask "<f!3 [t f]!2 [t!3 f] t!14 t!16 [t!3 f]!4>" -- Orchestra/40
+  $ whenmod 40 36 (|* gain (slow 4 $ range 1 0.4 isaw))
+  $ whenmod 8 6 (juxBy 0.5 (rev . (|* gain 0.4)))
+  -- $ someCyclesBy "<0!>"
+  $ off "q" (degradeBy 0.5)
+  $ note (scale "lydian" (
+    "0 -2 . 0 2 -2" + "<d'min'2 d'min d'maj'2 d'maj>"
+  ))
+  # "supervibe"
+  # accelerate (0.01)
+  # gain 0.45
+d5
+  $ mask "<f!3 t!37>"
+  $ jux id
+  $ whenmod 40 36 (|* gain (slow 4 $ range 1 0.2 isaw))
+  $ sometimesBy ("<0!20 1!8 0!12>") (|* gain (slow 8 $ range 0.4 1.2 saw))
+  $ note (scale "lydian"
+    "0*<1 2 4> <-2!6 -4!2> . 0 <2!5 1 -2 -4> -2"
+    - 24
+  )
+  # "bassWarsaw"
+  # gain 0.7
+d6 -- Guitar
+-- 0     4       20              28      36      40/0
+  $ mask "<f!4 f!16 t!16 f!4>"
+  $ "fguitar:6/2" # cut 6 # gain 0.45
+d9 -- Montée Shepard!
+  $ mask "<f!20 t!8 f!12>" -- Orchestra/40
+  $ slow 2
+  $ (>| "cyclo")
+  $ (|* gain 0.3)
+  $ (# legato 4)
+  $ (# octave 1)
+  $ (# accelerate 3) -- INTENSIFIES
+  $ superimpose (const $ "s" # note (12)
+  # gain ("11 10 9 8 7 6 5 4 3 2 1 0"/11))
+  $ superimpose (const $ "s" # note ((-12))
+  # gain (range 0 1 $ "0 1 2 3 4 5 6 7 8 9 10 11"/11))
+  $ sometimesBy "1 0" (# gain (range 0 0.5 saw))
+  $ sometimesBy "0 1" (# gain (range 1 0.5 isaw))
+  $ "s"
+  # gain 0.5
+
+
+once $ "bev" # gain 0.6 # cut 21
diff --git a/live/hip/instru/chaude_civ.tidal b/live/hip/instru/chaude_civ.tidal
index be494f7..507d54a 100644
--- a/live/hip/instru/chaude_civ.tidal
+++ b/live/hip/instru/chaude_civ.tidal
@@ -3,11 +3,13 @@
 resetCycles
 
 do
+setcps (90/4/60)
 d1
-  $ juxBy 0.4 rev
-  $ mask "<f!8 [t f]!4 t!8 f!2 t f>"
+  -- $ mask "<f!8 [t f]!4 t!8 f!2 t f>"
+  $ juxBy 0.4 ((|* gain 0.8) . rev)
   $ "<k*2 k!7> ~ <k!2 k?> <k!3 <k? ~>> ~ k [k|k*2] k"
-  # "[reverbkick,clubkick:6]"
+  # "reverbkick"
+  # room 0.1 # sz 0.1
   # gain (slow 32 $ "<0.5 0.65>")
 d2
   $ mask "<f!8 t!4 t f [f t]!2 t!3 f>"
@@ -21,13 +23,12 @@ d3
   $ s "cpu:4"
   # gain "<0.6 0.65 0.7 0.75 0.8!4 0.85!8>"
 d4
-  $ mask "<f!4 t!4 f!4 t f t t>"
-  $ every 4 (|* gain 0.8)
-  $ bite 4 "3*4"
-  -- $ mask "<t!3 f>"
+  $ sometimesBy "<f!4 t!4 f!4 t f t t>" (# gain 0) -- mask also second half
+  -- $ bite 4 "3"
+  $ mask "<t!3 f>" -- every 4 let second half play
   $ "fbass:12"
   # cut 4
-  # gain (slow 4 $ range 0.75 0.9 saw)
+  # gain (slow 4 $ range 0.6 0.8 saw)
 d5 -- Guitare conclusive seconde partie
   $ mask "<f!28 [f!3 t]!3 [f t] [t f]!8 [f t]!8 t!16>"
   $ juxBy 0.75 (# cut 51)
@@ -47,14 +48,14 @@ d9 -- Invader fight: Tir variable, echec | touche | ambulance
   $ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
   # "invaders"
   # pan "0.2 0.8"
-  # gain "0.45 0.55"
+  # gain "0.4 0.5"
 d6 -- A Yatta, a Jutta!
   $ mask "<f!8 t!56>"
   $ juxBy 0.4 (rev . (someCycles (# "diphone2")))
-  $ fast "<2!4 1!4> <2!4 4!4 2!4 4 4 8 8 2!4 8!4 4!8 2!4>"
+  $ fast "<2!4 1!4> <2!4 4!4 2!4 4 4 [8 4!3] [4!3 8] 2!4 8!4 4!8 2!4>"
   $ "diphone"
   # n (slow 38 $ "<0 .. 38>")
-  # gain (slow 128 $ range 0.1 0.65 (saw + (perlin /2)))
+  # gain (slow 128 $ range 0.2 0.55 (saw + (perlin /2)))
   # pan 0.5
   # cut 6
 d7 -- Synth second bass
diff --git a/live/remix/kanye_fly.tidal b/live/remix/kanye_fly.tidal
new file mode 100644
index 0000000..b712894
--- /dev/null
+++ b/live/remix/kanye_fly.tidal
@@ -0,0 +1,96 @@
+d1 $ "bd"
+
+once $ slice 32 "1*4" $ "kanye" # cut 21
+
+do
+resetCycles
+let kWhen = slice 16 0 "kanye" -- one glad morning
+let kWhen = "kanye" # begin 0.062 # end 0.16 -- when this life is over high
+let kFly = "kanye" # begin 0.17 # end 0.23 -- Fly away
+let kGlo = "kanye" # begin 0.515 # end 0.715 -- Fly away, Gloria, Fly!
+setcps (117/4/60) -- Fixed by sample
+d1
+  $ mask "<f!4 [t f]!4 t!120>" -- Instrumentation
+  $ juxBy 0.125 id
+  $ whenmod 64 48 (# lpf 200) -- retour
+  $ whenmod 64 32 (mask "<f!16 t!16>") -- pont
+  $ "k*4"
+  # "jazz"
+  # gain 0.8
+d2 -- Claps
+  $ mask "<[t f]!16 t!112>" -- Instrumentation
+  $ juxBy 0.2 ((# "clap:<0!2 2!2>") . (|* gain 0.9))
+  $ whenmod 16 8  ( -- Last 4/16 stut
+    whenmod 8 4 $ stut 4 0.95 "<e!3 s>"
+  )
+  $ whenmod 8 4 (# lpf "<3000 2000 1200 500>")
+  $ "~ . c <~ c*2>"
+  # "cp"
+  # gain 0.8
+d3 -- Drumroll
+  $ mask "<f!4 t!124>" -- Instrumentation
+  $ whenmod 8 4 (juxBy 0.7 rev)
+  $ mask "<[t <f!7 f!3 f f?>]!16 t!16>" -- arrivee progressive
+  $ fast "8 <8!4 16!4>" $ "dr" # gain 0.8
+d5 -- Batteur fou!
+  $ fix (
+    (>| note
+    ("0*<<4 [16 4]> 4!3 8!3 16>" |+ "<0!7 5>"))
+    . (|* gain (slow 24 $ range 1.15 0.75 sine))
+  ) (n 7)
+  $ fix (
+    mask "<f!8 t!120>" -- Instrumentation
+    . (|* gain (slow 32 $ range 1 1.5 saw))
+  ) (n 2)
+  $ fix (
+    (jux (often (# djf 0.45)))
+    . mask "<f!16 t!104>"
+    ) (n 5)
+  $ n (stack [
+    "2(<4 4 5 [5 4]>,8,<0!12 2!4>)", -- Marche irreguliere
+    "5(<8!3 [<8 4> 4]>,8)", -- Hihats neige
+    "7*4" -- Carillon
+  ]
+  ) # "cpu" # gain 0.7
+d4 -- Kanye who?
+  $ whenmod 32 24 (degradeBy (slow 8 $ range 1 0.3 isaw) )
+  $ someCyclesBy "<1!4 0!124>" (
+    mask "t/2" . slow 4
+    . (# gain 0.85)
+  )
+  $ mask "<[t f!3]!32 t!32>"
+  $ whenmod 32 24 (|> cat [kFly, kFly, kFly, kGlo]) -- End: calme
+  $ slice 8 (
+    whenmod 32 16 (|>| "1 2 4 <5 6>") $ -- Mid: voices
+    whenmod 32 8 (|>| "0*<2 4 8> <2 3>*<0 2 4 4>") $ -- Transition: laggs
+    "<0 1 2 3>" -- Base: variations 4 temps
+  )
+  $ "kanye"
+  # cut 4
+  # gain 0.65
+
+
+
+
+once $ "kanye" # begin 0.835            -- Fly awayyyyy
+# cut 3
+-- 16
+-- 16
+-- 16
+
+
+
+
+do
+let b = 0.835
+let d = (10/60)
+let e = b + d
+once $ "kanye"
+  # begin b # end e -- Fly away
+  # cut 21
+  # gain 0.95
+
+d4
+  $ "kanye/4"
+  # cut 21
+  # gain 0.8
diff --git a/live/techno/ciel_etoile.tidal b/live/techno/ciel_etoile.tidal
new file mode 100644
index 0000000..a78b436
--- /dev/null
+++ b/live/techno/ciel_etoile.tidal
@@ -0,0 +1,100 @@
+do
+-- resetCycles
+let melody = (scale (slow 16 "<melodicMinor melodicMinorDesc>") ("<c'maj c'maj'2 c'min c'min'2>" + (slow 4 $ "<0 7>")))
+setcps 0.5
+let gFactor = 2
+d1 -- Kick
+  $ slow 4
+  $ mask "<f!8 t!120>"
+  $ whenmod 16 12 (# lpf "<500 200 150 50>")
+  $ "k k k <k!3 [<~ k> k]>" # "jazz"
+  # gain (gFactor * 0.65)
+d2
+  $ mask "<f!4 [t f]!4 t!120>"
+  $ ply (slow 2 "<1 1 2 <[4 1] [1!3 4]>>")
+  $ fast 2
+  $ "~ s" # "sn" #n "[12,16]"
+  # note ("<0 -5>")
+  # pan 0.6
+  # gain (slow 32 $ gFactor * range 0.3 0.45 saw)
+d3
+ $ mask "<f!2 t!126>"
+  $ whenmod 16 12 (juxBy "<1!2 0.8!2>" rev)
+  $ "h*4(<1!8 4!8>,8,<0!3 3>)"
+  # "hihat1"
+  # pan 0.4
+  # gain (gFactor * (slow 4 $ range 0.4 0.5 saw))
+d4 -- Xylophone night sky
+  $ sometimesBy (range 0.25 0.5 saw) (jux rev . (# pan "[0.1|0.9]"))
+  $ slow (
+    slow 8 "<4 [2 [2 1]] 1!4>"
+  )
+  $ every' 4 3 (swing 2)
+  $ off "e" (# hpf 5000)
+  $ off "q" (|+ note "7")
+  $ whenmod 16 4 (ply 2)
+  $ note melody
+  # "xylophone"
+  # gain (gFactor * 0.37)
+  # pan 0.2
+d5 -- Bassline rayonante
+  $ mask "<f!8 t!4 f!4 t!108>"
+  $ whenmod 32 24 ( -- Grille
+    superimpose (# crush "<5 4 4.5 3 3.5 2 1.5 1>")
+    . (|* gain 0.85)
+  )
+  $ whenmod 32 16 ( -- Rayonne!
+    mask "<[t f!7]>" . chop 4 . (# room 0.4) . (# sustain 2)
+  )
+  $ note (melody - 24
+    + (slow 4 $ "<0 -7>") -- Compense octave melodie
+  )
+  # "supersaw"
+  # voice 0.1
+  # gain (gFactor * ("<0.2!12 0.3!120>"))
+  # pan 0.8
+  # room 0.05 # sz 0.2
+d6
+  $ mask "<f!8 t!120>"
+  $ note ("c(<3!3 5>,8,<0!3 5>)" |+ melody)
+  # "moog"
+  # legato "<0.75!8 <1!3 2>!20 4!4>"
+  # gain (slow 64 $ gFactor * range 0.2 0.45 (saw + (perlin / 4)))
+  # pan 0.4
+d7
+  $ degradeBy ("<1!32 0.75 0.5 0.25 0.125 0!28>")
+  $ (0.75 ~>)
+  $ slice 8 (cat [
+    "1", "1", "1", "1",
+    "1 1", "1 1", "1 1", "1 2",
+    "1 2", "1 2", "1 2", "1 2",
+    "2 1", "2 1", "2 1", "2 1"
+  ]
+  )
+  $ note ("<0!3 <2 -3>>")
+  # "brass:7"
+  # gain (slow 16 $ gFactor * range 0.45 0.3 isaw)
+  # room 0.45
+  # sz (slow 16 $ range 0.4 0.9 saw)
+  # pan 0.6
+  # cut 7
+d9 -- Invader fight: Tir variable, echec | touche | ambulance
+  $ (0.25 ~>)
+  $ sometimes (# speed 0.5)
+  $ mask "<f!4 [t? f!7]!12 [t f]!8 t!8>"
+  $ fix ((|* gain 0.9) . (# pan 1)) (n "9")
+  $ fix ((|* gain 0.9) . (# pan 1)) (n "16")
+  $ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
+  # "invaders"
+  # pan "0 1"
+  # room 0.2
+  # gain (gFactor * "0.2 0.25")
+
+
+scaleList
+
+d3 $ note (scale (slow 16 $ "<melodicMinor melodicMinorDesc>")
+  (run 8)
+  + "<0!4 2 3 4>"
+)
+# "xylophone" # gain 0.75
diff --git a/notes.md b/notes.md
index d35d1a6..2e56025 100644
--- a/notes.md
+++ b/notes.md
@@ -288,6 +288,11 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 62	BassD_90A-03.wav
 63	BassD_90A-04.wav
 
+12	BassA_90C-01.wav
+13	BassA_90C-02.wav
+14	BassA_90C-03.wav
+15	BassA_90C-04.wav
+
 0	BassA_110E-01.wav
 1	BassA_110E-02.wav
 2	BassA_110E-03.wav
@@ -310,10 +315,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 6	BassA_120G-03.wav
 7	BassA_120G-04.wav
 
-12	BassA_90C-01.wav
-13	BassA_90C-02.wav
-14	BassA_90C-03.wav
-15	BassA_90C-04.wav
 20	BassB_120A-01.wav
 21	BassB_120A-02.wav
 22	BassB_120A-03.wav
--
libgit2 0.27.0