feat: pray, rework mad fonk

live/techno/funk/mad_fonk.tidal

@@ -3,30 +3,31 @@
 -- Ready: 6/10
 -- Intro slow 2 beat
 -- Outro masks
+resetCycles
 
 do
-  unsolo 1
-  solo 2 -- Snare roll/rush
-  solo 3
-  solo 4
-  unsolo 5
-  unsolo 6
+  unsolo 1 -- Kick
+  unsolo 2 -- Snare roll/rush
+  unsolo 3 -- Drumroll
+  unsolo 4 -- Bassline
+  solo 5 -- Guitare intro/pompe
+  unsolo 6 -- Epiano groovy
   setcps (80/60/4)
   d1
     -- $ mask "t(1,8)"
     $ every' 8 7 (# lpf 200)
     -- Pauses Hip-hop
-    -- $ whenmod 8 6 (juxBy 0.5 rev)
-    -- $ "k*2 . k(<3!3 <5 8>>,8)"
+    $ whenmod 8 6 (juxBy 0.5 rev)
+    $ "k*2 . k(<3!3 <5 8>>,8)"
     -- INTRO/Run
-    $ slow 2 -- intro
-    $ whenmod 8 6 (# silence)
+    -- $ slow 2 -- intro
+    -- $ whenmod 8 6 (# silence)
     -- $ whenmod 16 8 ( -- HARDKICK!
       -- superimpose ((# "hardkick:4") . (|* gain 0.75))
     -- )
-    $ "k k k k k k k? <k [~ k] k*2>"
+    -- $ "k k k k k k k? <k [~ k] k*2>"
     # "[<reverbkick!3 ~>,kick:5]"
-    # gain 0.65
+    # gain 0.75
   d2
     $ someCycles (hurry 2)
     $ jux rev
@@ -44,6 +45,7 @@ do
     # gain 0.9
     # pan (slow 8 $ range 0.2 0.6 cosine)
   d4  -- Bassline
+    $ juxBy 0.5 id
     $ slow 2
     $ whenmod 16 8 (
       -- region reverse cowgirl
@@ -53,12 +55,12 @@ do
       -- run 8
       -- iter (slow 4 "<1 4>") $
       -- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>"
-      -- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>"
-      "<0!3 <1 2>>*8" -- COME ON CRUSH
+      "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>"
+      -- "<0!3 <1 2>>*8" -- COME ON CRUSH
     )
     $ "fbass:8"
     # legato 1
-    -- # crush "10 <10 3>"
+    -- # crush "6 <5 4>"
     # gain (slow 64 $
       range 0.75 0.95 sine)
   d5 -- Guitare pompe
@@ -77,16 +79,18 @@ do
       -- "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
     -- ) $ n 11
     # "fguitar"
-    # crush "10 6"
+    -- # crush "6 5" -- TODO CRUSH THIS!
     # cut 8
     # gain (slow 64 $
       range 0.7 0.9 cosine)
   d6 -- Epiano groovy
     $ whenmod 32 16 (whenmod 4 2 rev)
     $ slow 2
-    $ mask "f(1,2,1)"
+    $ mask "f(1,2,1)" -- TODO INTRO MASK THIS
     $ slice 8 (
-      "0 3 2 1 4 5 6 7*<1 2>"
+      -- "0 3 2 1!5" -- repeat aigu
+      "0 3 2 1 4 5 6 7*<1 2>" -- regulier
+      -- "4!5 5 6 7*<1 2>" -- regulier
     )
     $ s "fepiano"
     # n (slow 4 "<24 25>")

live/techno/funk/pray.tidal

+
+
+do
+solo 1 -- Kick chaloupe
+solo 2 -- Gretsch snares
+solo 3 -- AcceleRoll
+solo 4 -- Breakbeat
+solo 5 -- Lead choir
+solo 6 -- Bassline FIXME Rework
+solo 7 -- Claps
+setcps (60/60/4)
+d1
+  -- KICK
+  $ fast 2 $ "k*<1!4 2!4> . k(<1 3 5 5>,8,<0!3 2>)" # "reverbkick"
+  # gain (slow 16 $ range 0.6 0.8 isaw)
+d4
+  $ slice 8 (
+    -- (fast "<4 8>" $ run 2)  -- Repeat!
+    -- run 8  -- Fulltime!
+    -- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)"
+    "4 5 6 7"
+  )
+  $ loopAt 1
+  $ "break:1"
+  # gain (slow 16 $ range 0.65 0.9 saw)
+  # cut 4
+d2 -- Snares gretscha
+  $ someCycles (
+    (whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw)))
+    . hurry 2
+    . (|* gain 0.9)
+  )
+  $ fast 2
+  $ n ("6(<4 <3 5>>,8)")
+  # "gretsch" # gain (slow 16 $ range 0.6 0.8 saw)
+d3
+  $ someCycles (fast "1 . 2 4")
+  $ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]" # gain 0.75
+d5 -- Lead choir
+  $ "pray/4"
+  # n "<0!4 1!8>"
+  # gain (slow 8 $ range 0.5 0.9 sine)
+  # cut 5
+  # hpf 100
+d7
+  $ fast 2
+  $ whenmod 4 3 (ply "<2 3 [2 4] [3 2]>")
+  $ every' 4 0 (off "-0.125" id)
+  $ s "clap"
+  # gain 0.85
+  # djf (slow 32 $ sine)
+  # room 0.5 # size 0.4 # dry 0.95
+d6 -- Bassline (FIXME improve sonorite/variations)
+  $ superimpose (
+    arp "<up pinkyup>" . (# octave 6)
+      . (|* gain 0.9)
+    )
+  $ note (
+    ("[a2 <g2 <b2 e3>>]!2") + "[0,4,7]"
+  )
+  # "bassWarsaw"
+  # pan 0.4
+  # gain 0.9

notes.md

@@ -270,6 +270,19 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 1	BassA_110E-02.wav
 2	BassA_110E-03.wav
 3	BassA_110E-04.wav
+16	BassB_110C-01.wav
+17	BassB_110C-02.wav
+18	BassB_110C-03.wav
+19	BassB_110C-04.wav
+32	BassC_110A-01.wav
+33	BassC_110A-02.wav
+34	BassC_110A-03.wav
+35	BassC_110A-04.wav
+48	BassD_110D-01.wav
+49	BassD_110D-02.wav
+50	BassD_110D-03.wav
+51	BassD_110D-04.wav
+
 4	BassA_120G-01.wav
 5	BassA_120G-02.wav
 6	BassA_120G-03.wav
@@ -282,10 +295,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 13	BassA_90C-02.wav
 14	BassA_90C-03.wav
 15	BassA_90C-04.wav
-16	BassB_110C-01.wav
-17	BassB_110C-02.wav
-18	BassB_110C-03.wav
-19	BassB_110C-04.wav
 20	BassB_120A-01.wav
 21	BassB_120A-02.wav
 22	BassB_120A-03.wav
@@ -298,10 +307,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 29	BassB_90B-02.wav
 30	BassB_90B-03.wav
 31	BassB_90B-04.wav
-32	BassC_110A-01.wav
-33	BassC_110A-02.wav
-34	BassC_110A-03.wav
-35	BassC_110A-04.wav
 36	BassC_120E-01.wav
 37	BassC_120E-02.wav
 38	BassC_120E-03.wav
@@ -314,10 +319,6 @@ sevenSus4 sharp5 six sixby9 sus2 sus4 thirteen
 45	BassC_90D-02.wav
 46	BassC_90D-03.wav
 47	BassC_90D-04.wav
-48	BassD_110D-01.wav
-49	BassD_110D-02.wav
-50	BassD_110D-03.wav
-51	BassD_110D-04.wav
 52	BassD_120G-01.wav
 53	BassD_120G-02.wav
 54	BassD_120G-03.wav
@@ -452,5 +453,21 @@ region fepiano
 
 endregion
 
-region Piano
+region fpiano
+8	PianoA_80D-01.wav
+9	PianoA_80D-02.wav
+10	PianoA_80D-03.wav
+11	PianoA_80D-04.wav
+12	PianoA_90C-01.wav
+13	PianoA_90C-02.wav
+14	PianoA_90C-03.wav
+15	PianoA_90C-04.wav
+0	PianoA_110E-01.wav
+1	PianoA_110E-02.wav
+2	PianoA_110E-03.wav
+3	PianoA_110E-04.wav
+4	PianoA_120G-01.wav
+5	PianoA_120G-02.wav
+6	PianoA_120G-03.wav
+7	PianoA_120G-04.wav
 endregion