Skip to content

T
Tidal
Commit daf074f2 by PLN (Algolia)
Options

refactor(corpus): BootTidal is now the ONLY definition of the global helpers —… 

refactor(corpus): BootTidal is now the ONLY definition of the global helpers — 1705 local shadows removed

PLN loaded bombe_dj to test the new surface and found ^41 still chopping every
bar, two days after gMask was "retired". He asked the right question: "why so
many let gMask in bombe dj? did you do the edits yet?"

THE BUG WAS ARCHITECTURAL, NOT A MISSED EDIT
Every track opened with a copy-pasted stanza:

    let gMask  = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
    let gMute1 = (midiOn "^73" (mask "f*16"))
    let gM1    = gMask . gMute
    let gF1    = (# djfbus 1 (range 0.05 0.95 "^49"))

A local `let` SHADOWS the boot definition, so for years every central fix
stopped at the door of 254 files. Two consequences, both live on stage:

  * gMask was retired in BootTidal.hs (`gMask = id`) and still masked on the
    237 tracks that redefined it. The retirement reached 5 of 13 setlist tracks.
  * gF1/2/3 were rewritten to the two-sided gDJF (centre = bypass, left = lpf,
    right = hpf, and 0 = a 180 Hz lowpass = silence). 333 local defs kept the
    OLD one-directional `(# djfbus N (range 0.05 0.95 "^49"))`. So the DJ-filter
    fix that took a whole afternoon to get right was invisible in performance.

Two tracks even carried `let midiGGlobal = "^77" * 1.5` — reading fader ^77,
which is now MIDI-learned to Ardour's Tidal 01 gain. That is bug #53 alive: an
accidental nudge of fader 1 would attenuate every midiG-using stream.

WHAT LANDED
tools/deshadow-helpers.py, --plan/--apply, two passes:

  pass 1  1551 deletions of exact boilerplate, so boot's definition takes over
  pass 2   154 deletions of defs pass 1 ORPHANED (a local `let gMute` whose only
           user was the `let gM1 = gMask . gMute` just removed). BootTidal has no
           `gMute`, so pass 1 cannot touch it, and half a stanza reads like it
           still does something. Referenced nowhere = zero events change.
    11  COMMENTED OUT, not deleted, with a DESHADOW(#96) marker

The safety property is that direction: a def is deleted ONLY if its body
positively matches a known boilerplate regex. Anything unrecognised is
commented, so a bad regex leaves a comment instead of deleting PLN's music. It
earned that immediately — the 11 include real composition that only worked
BECAUSE it shadowed:

    let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF
    let gF1 = (someCyclesBy "<f!10 t!6 f!112>" (# djfbus 1 ...))    -- Intro DJF
    let gMask = mask "t t <t <t f> t <f [f t]>>"    -- a fixed compositional mask

and one latent build error, `let gF1 = (y# djfbus 1 ...)`, which cannot compile.

DELIBERATELY NOT TOUCHED
  * gDJF (65 files). Local is `let gDJF = …` (0 args); boot's is `gDJF ch`
    (1 arg). Removing the shadow is a TYPE ERROR, not a global. Own pass, #96.
  * gMute/gM/gF/gM'/gDJF1/gMaskEnd16/… (315 defs) — names BootTidal does not
    define at all. Deleting breaks the build.

VALIDATION — verdict equality, not "it looks fine"
silent-eval over the 13-track OPAL setlist, before vs after, with an EMPTY
control map. Every single line of the diff is a line NUMBER shifting by 7, the
height of the deleted stanza. Same tracks, same orbits, same counts:

    before: 9 tracks with a silent orbit, 4 unbuildable by the harness (#93)
    after:  9 tracks with a silent orbit, 4 unbuildable by the harness
    -> VERDICTS IDENTICAL

  check-boot        OK — all g* helpers audible with an untouched controller
  check-boot-blocks OK — 32 blocks, each still one statement
  pytest            471 passed
  surface-columns   5 knob misalignments at HEAD -> 4 now (desire's borrowed ^52
                    is gone). No regression; the remaining 4 pre-date this.

Also in desire.tidal, on PLN's call ("just simplify to make it finish the job,
losing nothing, leaving FIXMEs"): d3's ^52 was borrowing d4's column because the
grid gives d3 exactly one knob (B3, already used; C3 is the gF3 family filter).
Parked as a static `# legato 0.55` with the knob form one line above in a
comment, and the d7/d9 open question closed as a FIXME rather than left
blocking. Nothing deleted, everything re-enableable by removing two dashes.

Excluded from this commit: live/midi/nova/lounge/ouais_je_funk.tidal, which was
already in PLN's modified set. The deshadow is applied on disk there; his to
commit.
parent d6e509c3
Showing with 9 additions and 806 deletions
bullet_train.tidal
do do
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ "k k k k*<1 2>" $ "k k k k*<1 2>"
......
copycat/because_its_there.tidal
...@@ -3,16 +3,8 @@ once $ "bassWarsaw" ...@@ -3,16 +3,8 @@ once $ "bassWarsaw"
do do
-- resetCycles -- resetCycles
setcps (110/60/4) setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2") $ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k") $ midiOff "^42" (<| "k")
......
copycat/elastic_heart.tidal
do do
setcps (93/60/4) setcps (93/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let rootD = "[d3'maj'3]" let rootD = "[d3'maj'3]"
let rootA = "[a3,cs4,e4]" let rootA = "[a3,cs4,e4]"
let rootE = "[e3,gs3,b3]" let rootE = "[e3,gs3,b3]"
......
copycat/la_cle_des_champs.tidal
...@@ -110,16 +110,8 @@ ...@@ -110,16 +110,8 @@
do do
setcps (120/60/4) setcps (120/60/4)
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- Harmonic foundation: 16-bar cycle (each chord = 2 bars) -- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Main Bbm/F vamp with Db/Ebm variation -- Main Bbm/F vamp with Db/Ebm variation
-- pyin evidence: bass = sustained Bb1(58Hz)↔F2(88Hz), Eb2 for iv, chromatic slides -- pyin evidence: bass = sustained Bb1(58Hz)↔F2(88Hz), Eb2 for iv, chromatic slides
......
gifts/snowfight.tidal
...@@ -2,12 +2,9 @@ E b d e ...@@ -2,12 +2,9 @@ E b d e
once $ "dr" once $ "dr"
-- V2: Reboot base mi tension si -- V2: Reboot base mi tension si
do do
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.15 0.85 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
...@@ -94,18 +91,10 @@ d9 ...@@ -94,18 +91,10 @@ d9
# "moogBass" # legato 0.2 # "moogBass" # legato 0.2
# midiG' "^83" 0 1 # midiG' "^83" 0 1
-- V1: Yay, voices -- V1: Yay, voices
do do
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMutePont = (mask "<t!14 f [t f!3]>") let gMutePont = (mask "<t!14 f [t f!3]>")
let gM = gMask . gMute . gMutePont let gM = gMask . gMute . gMutePont
...@@ -177,8 +166,6 @@ d10 -- READY FOR THIS MAN? ...@@ -177,8 +166,6 @@ d10 -- READY FOR THIS MAN?
$ "voices_reggae:7" # cut 9 $ "voices_reggae:7" # cut 9
# midiG' "^83" 0 1 # midiG' "^83" 0 1
-- TOO GOSPEL? -- TOO GOSPEL?
d5 -- Chorus 1 d5 -- Chorus 1
$ whenmod 64 48 (-- MYMYMY $ whenmod 64 48 (-- MYMYMY
......
live/ambient/batavia_la_tortue.tidal
...@@ -4,8 +4,6 @@ once "dr" ...@@ -4,8 +4,6 @@ once "dr"
do do
setcps (105/60/4) setcps (105/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gF $ gM d1 $ gF $ gM
......
live/ambient/before.tidal
...@@ -3,10 +3,6 @@ ...@@ -3,10 +3,6 @@
do do
setcps (80/60/4) setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gM1 = (midiOn "^73" (mask "f*16"))
let gM2 = (midiOn "^74" (mask "f*16"))
let gM = gMask let gM = gMask
d1 $ gM2 $ gF d1 $ gM2 $ gF
$ midiOn "^14" (fast 2) $ midiOn "^14" (fast 2)
......
live/ambient/brise_les_chaines.tidal
...@@ -2,9 +2,6 @@ once $ "90s_synatm:1" # cut 1 # gain 0.98 ...@@ -2,9 +2,6 @@ once $ "90s_synatm:1" # cut 1 # gain 0.98
do do
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4) setcps (110/60/4)
d1 $ gF d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]" $ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
......
live/ambient/citarpurh.tidal
...@@ -3,14 +3,7 @@ do ...@@ -3,14 +3,7 @@ do
-- resetCycles -- resetCycles
setcps (90/60/4) setcps (90/60/4)
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
-- $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>") -- $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
-- $ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k") -- $ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
...@@ -65,5 +58,4 @@ d5 $ fast 3 $ note ( ...@@ -65,5 +58,4 @@ d5 $ fast 3 $ note (
"0 2 4" + scale "indian" "c5" "0 2 4" + scale "indian" "c5"
) # "cricri:3" ) # "cricri:3"
-- once $ note "a" # "cpluck:" # cut 1 -- once $ note "a" # "cpluck:" # cut 1
live/ambient/crutches.tidal
...@@ -2,14 +2,7 @@ do ...@@ -2,14 +2,7 @@ do
setcps (60/60/4) setcps (60/60/4)
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^30" (fast 2) $ midiOn "^30" (fast 2)
$ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>")) $ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>"))
......
live/ambient/wild_coffee.tidal
do do
setcps (90/60/4) setcps (90/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^13" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw)) let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw)) let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus" let chorus = pF "chorus"
......
live/boeuf/algo25.tidal
do do
-- resetCycles -- resetCycles
setcps (105/60/4) setcps (105/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
...@@ -107,7 +97,6 @@ d11 ...@@ -107,7 +97,6 @@ d11
-- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw)) -- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
# gain (1.1 * (slow 8 $ range 0.75 1 saw)) # gain (1.1 * (slow 8 $ range 0.75 1 saw))
once $ arp "up" $ note ("c4'maj'4") once $ arp "up" $ note ("c4'maj'4")
# "808cy:8" # "808cy:8"
# gain 1 # gain 1
...@@ -129,6 +118,5 @@ once $ "weird_dialogs:39" ...@@ -129,6 +118,5 @@ once $ "weird_dialogs:39"
# end 1 # end 1
# cut 11 # cut 11
d2 d2
$ "~ cp" $ "~ cp"
live/boeuf/algorythm/fdlm2022/sweet_dreams.tidal
do do
setcps (125/60/4) setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF1min = (# djfbus 3 (range 0.2 0.8 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 $ "jazz*4" d1 $ gF1 $ "jazz*4"
# midiG' "^78" 0 2 # midiG' "^78" 0 2
d2 $ gF1 $ ply "4 <4!3 2 4!3 2 [4 <8!3 2>]!4 [4 <8!3 [16 8]>]!4>" $ "~ electro1" # gain 0.8 d2 $ gF1 $ ply "4 <4!3 2 4!3 2 [4 <8!3 2>]!4 [4 <8!3 [16 8]>]!4>" $ "~ electro1" # gain 0.8
......
live/boeuf/algorythm/fix_you.tidal
do do
setcps (135/60/4) setcps (135/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k*4") $ midiOn "^74" (<| "k*4")
$ midiOn "^42" (<| "k k") $ midiOn "^42" (<| "k k")
...@@ -28,7 +25,6 @@ once $ "ikedaBass" # note "e6" ...@@ -28,7 +25,6 @@ once $ "ikedaBass" # note "e6"
-- # orbit 1 -- # orbit 1
# gain 0.5 # gain 0.5
once once
$ note "b'min'3" # "organDonor" $ note "b'min'3" # "organDonor"
# gain 0.99 # gain 0.99
live/boeuf/algorythm/fly_me_to_the_moon.tidal
do do
setcps (130/60/4) setcps (130/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k lk k <k k*2>") $ midiOn "^74" (<| "k lk k <k k*2>")
$ midiOn "^42" (<| "k k") $ midiOn "^42" (<| "k k")
......
live/boeuf/algorythm/lonely_day.tidal
do do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
setcps (160/60/4) setcps (160/60/4)
d1 $ gMute d1 $ gMute
-- $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>") -- $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
......
live/boeuf/algorythm/love23/cant_help_falling_in_love.tidal
...@@ -4,8 +4,6 @@ ...@@ -4,8 +4,6 @@
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 d1 $ gF1
$ "808bd:2/2" $ "808bd:2/2"
# midiG' "^78" 0 1.1 # midiG' "^78" 0 1.1
......
live/boeuf/algorythm/love23/killing_me_softer.tidal
...@@ -7,14 +7,8 @@ resetCycles ...@@ -7,14 +7,8 @@ resetCycles
do do
setcps (72/60/4) setcps (72/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ <~!7 t>") $ midiOn "^42" (struct "t . ~ t ~ <~!7 t>")
...@@ -65,7 +59,6 @@ d4 $ gF2 ...@@ -65,7 +59,6 @@ d4 $ gF2
-- # cut 4 -- # cut 4
# midiG' "^81" 0 1 # midiG' "^81" 0 1
-- TODO: Add the bass gimmick on 7/8th bars -- TODO: Add the bass gimmick on 7/8th bars
resetCycles resetCycles
...@@ -81,7 +74,6 @@ resetCycles ...@@ -81,7 +74,6 @@ resetCycles
-- Chorus 12 -- Chorus 12
-- # cut 4 -- # cut 4
do do
-- Chorus -- Chorus
-- Alternate 2xMain 2xAlt chords for 8 bars -- Alternate 2xMain 2xAlt chords for 8 bars
...@@ -107,9 +99,6 @@ g ...@@ -107,9 +99,6 @@ g
-- FIXME: Adapt or remove former copy-pasted content -- FIXME: Adapt or remove former copy-pasted content
do do
setcps (92/60/4) setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
...@@ -175,8 +164,6 @@ d6 $ gM $ gF1 ...@@ -175,8 +164,6 @@ d6 $ gM $ gF1
# room 0 # dry 0 # room 0 # dry 0
# midiG' "^83" 0 1.6 # midiG' "^83" 0 1.6
d7 d7
$ midiOff "^91" (mask "f") $ midiOff "^91" (mask "f")
$ note ("c" -7) $ note ("c" -7)
...@@ -198,8 +185,6 @@ d8 $ gM $ gF1 ...@@ -198,8 +185,6 @@ d8 $ gM $ gF1
# cut 8 # cut 8
# midiG' "^84" 0 1 # midiG' "^84" 0 1
-- Graveyard: other break -- Graveyard: other break
d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2 d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# pan 0.28 # pan 0.28
......
live/boeuf/algorythm/love23/killing_me_softly.tidal
-- TODO: Scratch intro? :lol: -- TODO: Scratch intro? :lol:
once $ splice 2 "0" $ "scratch_short:12" # cut 1 # gain 0.8 once $ splice 2 "0" $ "scratch_short:12" # cut 1 # gain 0.8
do do
setcps (92/60/4) setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
...@@ -72,8 +68,6 @@ d6 $ gM $ gF1 ...@@ -72,8 +68,6 @@ d6 $ gM $ gF1
# room 0 # dry 0 # room 0 # dry 0
# midiG' "^83" 0 1.6 # midiG' "^83" 0 1.6
d7 d7
$ midiOff "^91" (mask "f") $ midiOff "^91" (mask "f")
$ note ("c" -7) $ note ("c" -7)
...@@ -95,8 +89,6 @@ d8 $ gM $ gF1 ...@@ -95,8 +89,6 @@ d8 $ gM $ gF1
# cut 8 # cut 8
# midiG' "^84" 0 1 # midiG' "^84" 0 1
-- Graveyard: other break -- Graveyard: other break
d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2 d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# pan 0.28 # pan 0.28
......
live/boeuf/algorythm/love23/something_about_us.tidal
do do
-- resetCycles -- resetCycles
setcps (100/60/4) setcps (100/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gF = gF1 . gF2
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>") $ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
...@@ -76,5 +70,4 @@ once $ "ho:5" ...@@ -76,5 +70,4 @@ once $ "ho:5"
once $ "jungle_breaks:27" # cut 1 once $ "jungle_breaks:27" # cut 1
once $ note "a3" # "superpiano" once $ note "a3" # "superpiano"
live/boeuf/algorythm/love23/u_remind_me.tidal
...@@ -2,9 +2,6 @@ ...@@ -2,9 +2,6 @@
do do
setcps (93/60/4) setcps (93/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = midiOn "^73" (mask "f f f t")
d1 $ gF1 d1 $ gF1
$ gMask $ gMask
$ fix (|* gain 0.9) "jazz" $ fix (|* gain 0.9) "jazz"
...@@ -54,6 +51,5 @@ d9 ...@@ -54,6 +51,5 @@ d9
-- # room "<0.2!3 0.8>" -- # room "<0.2!3 0.8>"
# dry 1.8 # dry 1.8
once $ arpeggiate $ note "a'maj'4" # "superpiano" once $ arpeggiate $ note "a'maj'4" # "superpiano"
# gain 1 # gain 1
live/boeuf/algorythm/love23/until_i_found_you.tidal
...@@ -6,8 +6,6 @@ ...@@ -6,8 +6,6 @@
do do
setcps (125/60/4) setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gMask = whenmod 8 6 (mask "<t <[t f] f>> . f f f t") -- let gMask = whenmod 8 6 (mask "<t <[t f] f>> . f f f t")
d1 $ gF1 d1 $ gF1
$ fix (# hpf 2000) "909" $ fix (# hpf 2000) "909"
...@@ -36,8 +34,6 @@ d3 $ gF2 ...@@ -36,8 +34,6 @@ d3 $ gF2
# "[drum:2,808oh]" # "[drum:2,808oh]"
# midiG' "^80" 0 1.6 # midiG' "^80" 0 1.6
d5 $ gF2 -- filler d5 $ gF2 -- filler
-- FIXME On different chorus -- FIXME On different chorus
-- f fs gs as c cs ds -- f fs gs as c cs ds
......
live/boeuf/algorythm/season2/blues_wednesday.tidal
...@@ -2,16 +2,6 @@ ...@@ -2,16 +2,6 @@
do do
-- resetCycles -- resetCycles
setcps (90/60/4) setcps (90/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"] let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
-- Modified blues to add a seventh with bflat -- Modified blues to add a seventh with bflat
let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"] let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
...@@ -89,7 +79,6 @@ d10 $ gF3 $ gM3 ...@@ -89,7 +79,6 @@ d10 $ gF3 $ gM3
# gain 0.75 # gain 0.75
# lpf 300 # lpf 300
-- TODO Recover this guitar and make it midi-agnostic -- TODO Recover this guitar and make it midi-agnostic
d5 $ gF3 $ note ( d5 $ gF3 $ note (
"<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>" "<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>"
...@@ -105,5 +94,4 @@ d5 $ gF3 $ note ( ...@@ -105,5 +94,4 @@ d5 $ gF3 $ note (
# "come_guitar:0" # "come_guitar:0"
# midiG' "^82" 0 1.7 # midiG' "^82" 0 1.7
once $ "cpluck:3" once $ "cpluck:3"
live/boeuf/algorythm/something_bossa_nova.tidal
do do
setcps (92/60/4) setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
......
live/boeuf/bass_boeuf.tidal
do do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>") $ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~") $ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
......
live/boeuf/biarritz/21nuit.tidal
do do
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>")) $ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k k k k*<1 2>" ) $ midiOff "^42" (<| "k k k k*<1 2>" )
......
live/boeuf/biarritz/blue_tuesday.tidal
...@@ -5,15 +5,8 @@ once $ "dr" ...@@ -5,15 +5,8 @@ once $ "dr"
do do
setcps (90/60/4) setcps (90/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw)) let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw)) let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus" let chorus = pF "chorus"
......
live/boeuf/biarritz/blues_debranche.tidal
...@@ -2,13 +2,6 @@ ...@@ -2,13 +2,6 @@
do do
setcps (60/60/4) setcps (60/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>")) $ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^42" (<| "k . k(3,8)") $ midiOff "^42" (<| "k . k(3,8)")
...@@ -62,5 +55,4 @@ d8 $ gF1 $ gM1 ...@@ -62,5 +55,4 @@ d8 $ gF1 $ gM1
# cut 8 # gain 1.2 # cut 8 # gain 1.2
# midiG' "^84" 0 1.5 # midiG' "^84" 0 1.5
once $ "blip" once $ "blip"
live/boeuf/biarritz/cloud.tidal
...@@ -2,13 +2,6 @@ ...@@ -2,13 +2,6 @@
do do
setcps (138/60/4) setcps (138/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k") $ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)") $ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
......
live/boeuf/biarritz/morning_glory.tidal
do do
setcps (80/60/4) setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF d1 $ gF
$ midiOn "^42" (<| "k k k k") $ midiOn "^42" (<| "k k k k")
$ "jazz" $ "jazz"
......
live/boeuf/canard_breake.tidal
do do
setcps (165/60/4) setcps (165/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) -- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMute let gM = gMute
let gM2 = gMute2
let gO = (# octerbus 4 (range 0 2 "^29")) let gO = (# octerbus 4 (range 0 2 "^29"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 d1
...@@ -46,7 +41,6 @@ d3 $ gF $ gM -- Breaks du Marathon ...@@ -46,7 +41,6 @@ d3 $ gF $ gM -- Breaks du Marathon
# speed (range 0 2 "^52") # speed (range 0 2 "^52")
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE d4 -- BASSLINE BRULANTE
$ gF $ gF
$ midiOn "^53" (-- Trigger: DATA BURN $ midiOn "^53" (-- Trigger: DATA BURN
......
live/boeuf/samedi_canard.tidal
...@@ -2,14 +2,9 @@ once $ "jazz" ...@@ -2,14 +2,9 @@ once $ "jazz"
do do
setcps (120/60/4) setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) -- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMute let gM = gMute
let gM2 = gMute2
let gO = (# octerbus 4 (range 0 2 "^29")) let gO = (# octerbus 4 (range 0 2 "^29"))
d1 $ gM $ gF1 d1 $ gM $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOn "^42" (<| "k k k k*<1!3 2>")
......
live/boeuf/valtho/cats.tidal
...@@ -2,13 +2,6 @@ do ...@@ -2,13 +2,6 @@ do
-- resetCycles -- resetCycles
setcps (118/60/4) setcps (118/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
-- $ mask "<f!16 t!4 f!8 t!36>" -- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k") $ midiOn "^42" (<| "k k k k")
......
live/boeuf/valtho/dorian.tidal
do do
setcps (98/60/4) setcps (98/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4") $ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)") $ midiOff "^42" (<| "k . k(3,8)")
......
live/boeuf/viteuf/blues.tidal
once $ "dr" once $ "dr"
do do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (120/60/4) setcps (120/60/4)
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 2>") $ midiOn "^42" (<| "k k k k*<1 2>")
...@@ -48,9 +40,6 @@ once ...@@ -48,9 +40,6 @@ once
$ "<c a d e>" # "giorgio_syn" $ "<c a d e>" # "giorgio_syn"
# gain 0.4 # gain 0.4
once $ "90s_synatm" # gain 2 once $ "90s_synatm" # gain 2
d1 $ "k ~ ~ ~" # "kick" d1 $ "k ~ ~ ~" # "kick"
live/chip/ataright.tidal
...@@ -26,12 +26,10 @@ ...@@ -26,12 +26,10 @@
|________|/ |________|/ |________|/ |________|/
-- Thanks dew & PORTFO for the ASCII art <3 -- Thanks dew & PORTFO for the ASCII art <3
do do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g3 = (# djfbus 3 (range 0.05 0.95 "^51")) let g3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
......
live/collab/baba/la_matrice.tidal
do do
setcps (80/60/4) setcps (80/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4") $ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k") $ midiOff "^42" (<| "k . ~ k")
...@@ -55,5 +48,4 @@ d8 $ gF1 $ gM2 ...@@ -55,5 +48,4 @@ d8 $ gF1 $ gM2
scaleList scaleList
once $ arp "down " "fs'minPent" once $ arp "down " "fs'minPent"
live/collab/baba/larmes_salees.tidal
...@@ -3,7 +3,6 @@ Profondeur ...@@ -3,7 +3,6 @@ Profondeur
Entrainant, dansant plus que ambiant Entrainant, dansant plus que ambiant
Melancolie Melancolie
once once
$ note ("[g, c, e5, f5]") $ note ("[g, c, e5, f5]")
# "superpiano" # "superpiano"
...@@ -22,7 +21,6 @@ fs ef fs ...@@ -22,7 +21,6 @@ fs ef fs
once $ "giorgio_syn:" once $ "giorgio_syn:"
-- Pas commencer avec piano trop aigu, trop Filtered -- Pas commencer avec piano trop aigu, trop Filtered
-- basse bienvenue plus tot? -- basse bienvenue plus tot?
...@@ -39,13 +37,6 @@ once $ "giorgio_syn:" ...@@ -39,13 +37,6 @@ once $ "giorgio_syn:"
do do
-- resetCycles -- resetCycles
setcps (80/60/4) setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
-- $ superimpose ((# lpf 500)) -- $ superimpose ((# lpf 500))
......
live/collab/baba/moulins_de_mon_coeur.tidal
...@@ -46,13 +46,6 @@ ...@@ -46,13 +46,6 @@
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick, le pas du train qui démarre d1 $ gF1 $ gM2 -- Kick, le pas du train qui démarre
......
live/collab/baba/oparoles.tidal
...@@ -5,16 +5,6 @@ once $ "paroles:2" # gain 1.2 # cut 2 # lpf 2000 ...@@ -5,16 +5,6 @@ once $ "paroles:2" # gain 1.2 # cut 2 # lpf 2000
do do
-- resetCycles -- resetCycles
setcps (115/60/4) setcps (115/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz" $ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz"
......
live/collab/baba/sept1.tidal
...@@ -5,13 +5,6 @@ ...@@ -5,13 +5,6 @@
do do
resetCycles resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
-- $ mask "t t t f" -- $ mask "t t t f"
......
live/collab/baba/xp1.tidal
-- TOXIQUE -- TOXIQUE
do do
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" ) $ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>") $ midiOff "^42 " (<| "<k ~>")
......
live/collab/baba/xp3.tidal
-- SPACIAL -- SPACIAL
do do
setcps (110/60/4) setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ "k ~ ~ k ~ ~ k k*<2 1 2 2>" $ "k ~ ~ k ~ ~ k k*<2 1 2 2>"
# "[jazz,techno:1]" # "[jazz,techno:1]"
......
live/collab/bobylito/exquis1.tidal
...@@ -2,14 +2,7 @@ do ...@@ -2,14 +2,7 @@ do
setcps (125/60/4) setcps (125/60/4)
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ "k*4" # "jazz" $ "k*4" # "jazz"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 [<2 4> 2]>" d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 [<2 4> 2]>"
......
live/collab/bobylito/l_espace.tidal
...@@ -2,14 +2,7 @@ do ...@@ -2,14 +2,7 @@ do
setcps (125/60/4) setcps (125/60/4)
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" ) -- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
...@@ -64,7 +57,6 @@ d8 $ gF1 $ gM1 $ chop 8 ...@@ -64,7 +57,6 @@ d8 $ gF1 $ gM1 $ chop 8
# hpf 500 # hpf 500
# gain 1.3 # gain 1.3
-- d4 $ gF2 $ gM2 -- d4 $ gF2 $ gM2
-- $ midiOn "^57" ( -- $ midiOn "^57" (
-- (|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)")) -- (|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)"))
...@@ -134,5 +126,4 @@ d8 $ gF1 $ gM1 $ chop 8 ...@@ -134,5 +126,4 @@ d8 $ gF1 $ gM1 $ chop 8
-- # room 0.2 -- # room 0.2
-- # freezebus 121 (range 0 1 "^31") -- # freezebus 121 (range 0 1 "^31")
once $ "nujazz_keys120:20" once $ "nujazz_keys120:20"
live/collab/bobylito/new_jam_nu_jazz.tidal
...@@ -2,14 +2,7 @@ do ...@@ -2,14 +2,7 @@ do
setcps (125/60/4) setcps (125/60/4)
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" ) -- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
...@@ -217,5 +210,4 @@ d12 $ gF3 $ "" ...@@ -217,5 +210,4 @@ d12 $ gF3 $ ""
-- # room 0.2 -- # room 0.2
-- # freezebus 121 (range 0 1 "^31") -- # freezebus 121 (range 0 1 "^31")
once $ "nujazz_keys120:20" once $ "nujazz_keys120:20"
live/collab/ccc/ccc0.tidal
...@@ -2,16 +2,6 @@ ...@@ -2,16 +2,6 @@
-- Original by Leifur James :pray: -- Original by Leifur James :pray:
do do
setcps(140/60/4) setcps(140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^30" (# "hardkick_rha:29") $ midiOn "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
......
live/collab/ccc/ghosts_in_the_toilets.tidal
do do
-- resetCycles -- resetCycles
setcps (160/60/4) setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......
live/collab/clem/shiloh_tech.tidal
do do
setcps (120/60/4) setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw)) let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw)) let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus" let chorus = pF "chorus"
...@@ -65,16 +60,10 @@ once $ "synth_gameboy" ...@@ -65,16 +60,10 @@ once $ "synth_gameboy"
once $ "meth_bass" # cut 6 once $ "meth_bass" # cut 6
once $ "[kick:5,kick:4,808bd:8]" once $ "[kick:5,kick:4,808bd:8]"
# lpf 200 # lpf 200
# gain 0.8 # gain 0.8
d7 $ gF3 $ gM2 -- High Dauphin d7 $ gF3 $ gM2 -- High Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>" $ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ note ( $ note (
......
live/collab/cookie/ccc.tidal
...@@ -2,13 +2,6 @@ resetCycles ...@@ -2,13 +2,6 @@ resetCycles
do do
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>") $ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
......
live/collab/cookie/maudite_soit_la_guerre.tidal
...@@ -2,14 +2,7 @@ ...@@ -2,14 +2,7 @@
do do
-- resetCycles -- resetCycles
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- DARK NOIR CHORDS (matching the A->E->D pad progression) -- DARK NOIR CHORDS (matching the A->E->D pad progression)
let chords1 = "<Am9 Em7 [Dm9 Dm9]>" -- Section 1: D held 2x let chords1 = "<Am9 Em7 [Dm9 Dm9]>" -- Section 1: D held 2x
let chords2 = "<Am11 Em9 [Dm11 Dm11]>" -- Section 2: Richer voicings let chords2 = "<Am11 Em9 [Dm11 Dm11]>" -- Section 2: Richer voicings
......
live/collab/cricri/citar1.tidal
...@@ -3,14 +3,7 @@ do ...@@ -3,14 +3,7 @@ do
-- resetCycles -- resetCycles
setcps (112/60/4) setcps (112/60/4)
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>") $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k") $ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
...@@ -87,7 +80,6 @@ d9 $ gF3 $ gM3 ...@@ -87,7 +80,6 @@ d9 $ gF3 $ gM3
# legato 2 # att 0.01 # rel 2 # legato 2 # att 0.01 # rel 2
# cut 9 # cut 9
d4 d4
$ arp "up" $ slow 4 $ note (scale "indian" (run 8)) $ arp "up" $ slow 4 $ note (scale "indian" (run 8))
# "cricri:3" # gain 1.3 # cut 4 # "cricri:3" # gain 1.3 # cut 4
......
live/collab/daniel/auxiliaire.tidal
do do
setcps (114/60/4) setcps (114/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick d1 $ gF1 $ gMute2 -- Kick
$ midiOff "^78" (# silence) $ midiOff "^78" (# silence)
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>") $ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
......
live/collab/etienne/concombre.tidal
do do
setcps (120/60/4) setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.2 0.8 "^50"))
let gM = midiOn "^73" (mask "f*16") let gM = midiOn "^73" (mask "f*16")
d1 $ gF $ gM d1 $ gF $ gM
$ (|* midiG' "^78" 0 1.4) $ (|* midiG' "^78" 0 1.4)
......
live/collab/jane/drifting_soul.tidal
do do
setcps (80/60/4) setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ "k . ~ k ~ <k k*[4 2]>" $ "k . ~ k ~ <k k*[4 2]>"
# "[808bd:2,jazz,techno]" -- Doux # "[808bd:2,jazz,techno]" -- Doux
......
live/collab/jane/tired_soul.tidal
do do
setcps (120/60/4) setcps (120/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t [[f <f t>] <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>") $ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^42" (<| "<k <~ [~!7 k]>>") $ midiOff "^42" (<| "<k <~ [~!7 k]>>")
...@@ -86,7 +78,6 @@ d8 $ gF1 $ gM1 ...@@ -86,7 +78,6 @@ d8 $ gF1 $ gM1
$ "jungle_breaks:101" $ "jungle_breaks:101"
# gain 1.2 # gain 1.2
d4 $ gF2 $ gM3 -- Cello bass d4 $ gF2 $ gM3 -- Cello bass
$ midiOn "^89" (|+| note "[0 12 0]") $ midiOn "^89" (|+| note "[0 12 0]")
$ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0") $ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
......
live/collab/josh/oct_18_rainy_day.tidal
...@@ -6,16 +6,6 @@ ...@@ -6,16 +6,6 @@
do do
setcps (114/60/4) setcps (114/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gM2 $ gF1 -- Kick solide d1 $ gM2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
...@@ -80,13 +70,6 @@ d9 $ gF2 -- Pads atmospheriques ...@@ -80,13 +70,6 @@ d9 $ gF2 -- Pads atmospheriques
# pan 0.2 # pan 0.2
# room 0.4 # room 0.4
once once
$ note "c@2 e@2 d@1 b4@3" $ note "c@2 e@2 d@1 b4@3"
-- $ note "c e d b4" -- $ note "c e d b4"
...@@ -106,9 +89,6 @@ once ...@@ -106,9 +89,6 @@ once
-- # room 0.1 -- # room 0.1
-- # dry 0.9 -- # dry 0.9
-- Fundamental C -- Fundamental C
-- First loops on B -- First loops on B
-- Eventually resolved in A -- Eventually resolved in A
......
live/collab/kevin/synchro.tidal
do do
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (120/60/4) setcps (120/60/4)
d1 $ gF $ "jazz*4" d1 $ gF $ "jazz*4"
d2 $ gF $ "~ cp" d2 $ gF $ "~ cp"
......
live/collab/l'ine*fable/premiere_fable.tidal
do do
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (140/60/4) setcps (140/60/4)
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick $ superimpose ( -- Technique ine*fable : la basse du kick
......
live/collab/louis/anarchie.tidal
...@@ -2,13 +2,6 @@ ...@@ -2,13 +2,6 @@
do do
setcps (104/60/4) setcps (104/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4 $ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
......
live/collab/louis/d_accord.tidal
...@@ -2,13 +2,6 @@ ...@@ -2,13 +2,6 @@
do do
setcps (124/60/4) setcps (124/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>" let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
...@@ -78,10 +71,8 @@ d8 $ gF1 $ gM1 ...@@ -78,10 +71,8 @@ d8 $ gF1 $ gM1
# octersub 0.5 # octersub 0.5
# gain 1.2 # gain 1.2
d1 $ fast 2 $ degradeBy 0.2 $ "hh" # gain 1.4 d1 $ fast 2 $ degradeBy 0.2 $ "hh" # gain 1.4
-- # att 0.05 -- # att 0.05
once $ arp"up" once $ arp"up"
$ "FMRhodes1" # note "[c4'min]" # gain 1.8 $ "FMRhodes1" # note "[c4'min]" # gain 1.8
live/collab/micka/bazurto_closed.tidal
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......
live/collab/mousquetaires/blue_burn.tidal
...@@ -2,16 +2,6 @@ resetCycles ...@@ -2,16 +2,6 @@ resetCycles
do do
setcps(120/60/4) setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^42" (<| "k . ~ k ~ ~")
......
live/collab/mousquetaires/blue_gold.tidal
...@@ -3,16 +3,6 @@ ...@@ -3,16 +3,6 @@
do do
-- resetCycles -- resetCycles
setcps(124/60/4) setcps(124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>") $ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~") $ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
......
live/collab/nass/bass_first.tidal
...@@ -3,13 +3,6 @@ ...@@ -3,13 +3,6 @@
do do
-- resetCycles -- resetCycles
setcps (140/60/4) setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>" $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]" -- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
......
live/collab/nass/love_first.tidal
...@@ -3,13 +3,6 @@ ...@@ -3,13 +3,6 @@
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
-- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>" -- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]" -- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
...@@ -112,8 +105,6 @@ d12 $ gF3 $ gM3 ...@@ -112,8 +105,6 @@ d12 $ gF3 $ gM3
# room 0.4 # room 0.4
# gain 1.5 # gain 1.5
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ "jungle_bass:15" $ "jungle_bass:15"
# cut 4 # cut 4
......
live/collab/nass/mains_libres.tidal
do do
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (165/60/4) setcps (165/60/4)
-- d1 $ gF1 $ gM2 -- d1 $ gF1 $ gM2
d1 d1
...@@ -60,8 +49,6 @@ d5 $ gF2 $ gM2 ...@@ -60,8 +49,6 @@ d5 $ gF2 $ gM2
d8 $ gF1 $ gM1 $ loopAt 2 d8 $ gF1 $ gM1 $ loopAt 2
$ chop 8 $ "jungle_breaks:74" # cut 8 $ chop 8 $ "jungle_breaks:74" # cut 8
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
-- $ midiOn "^57" ( -- $ midiOn "^57" (
-- superimpose (("e" ~>) .(|+ note 12) . (# cut 41))) -- superimpose (("e" ~>) .(|+ note 12) . (# cut 41)))
...@@ -111,7 +98,4 @@ d9 $ gF3 $ gM3 ...@@ -111,7 +98,4 @@ d9 $ gF3 $ gM3
# room 0.4 # room 0.4
# gain 1.4 # gain 1.4
once $ "rampleS21:0" once $ "rampleS21:0"
live/collab/nass/sogood.tidal
...@@ -2,13 +2,6 @@ do ...@@ -2,13 +2,6 @@ do
-- resetCycles -- resetCycles
setcps (142/60/4) setcps (142/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw)) $ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2)) $ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
......
live/collab/nvzt/liquid_finale.tidal
do do
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (166/60/4) setcps (166/60/4)
-- d1 $ gF1 $ gM2 -- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
...@@ -84,7 +73,6 @@ d9 $ gF3 $ gM3 ...@@ -84,7 +73,6 @@ d9 $ gF3 $ gM3
# room 0.4 # room 0.4
# gain 1.4 # gain 1.4
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
...@@ -93,14 +81,11 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy ...@@ -93,14 +81,11 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
do do
setcps (120/60/4) setcps (120/60/4)
d1 $ "k k k k*<1 2>" # "jazz" d1 $ "k k k k*<1 2>" # "jazz"
d2 $ "~ cp" d2 $ "~ cp"
90s_matrix:0 90s_matrix:0
d8 $ "jungle_breaks" d8 $ "jungle_breaks"
live/collab/quentin/pain_with_love.tidal
...@@ -2,13 +2,6 @@ ...@@ -2,13 +2,6 @@
do do
resetCycles resetCycles
setcps (70/60/4) setcps (70/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let endSong = (someCyclesBy "<0!48 1!999>" (# silence)) let endSong = (someCyclesBy "<0!48 1!999>" (# silence))
d1 $ gF1 $ gM2 $ endSong d1 $ gF1 $ gM2 $ endSong
$ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)" $ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)"
......
live/collab/raph/8_blues.tidal
-- do -- do
-- resetCycles -- resetCycles
setcps (110/60/4) setcps (110/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
-- $ midiOn "^30" (# "hardkick_rha") -- $ midiOn "^30" (# "hardkick_rha")
...@@ -90,10 +83,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE ...@@ -90,10 +83,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
# cut 8 # cut 8
# gain 1.4 # gain 1.4
once $ arp "up" $ note "a3'maj'4" # "superpiano" once $ arp "up" $ note "a3'maj'4" # "superpiano"
once $ "h:6" once $ "h:6"
do do
...@@ -104,8 +95,6 @@ d1 $ "k k k k*<1 2>" ...@@ -104,8 +95,6 @@ d1 $ "k k k k*<1 2>"
d2 $ "~ h ~ h" # "h:6" # squiz 4 d2 $ "~ h ~ h" # "h:6" # squiz 4
d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05 d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
-- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3)) -- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3))
$ chop 8 $ chop 8
...@@ -117,7 +106,6 @@ d7 $ gF3 $ gM3 ...@@ -117,7 +106,6 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8 d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ (0.125 ~>) $ (0.125 ~>)
$ slow 2 $ slow 2
...@@ -172,8 +160,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT ...@@ -172,8 +160,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4 # room 0.4
# note "-2" # note "-2"
d6 $ gF1 $ gM1 d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>") $ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
......
live/collab/raph/8bit_delicat.tidal
do do
-- resetCycles -- resetCycles
setcps (80/60/4) setcps (80/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
-- $ midiOn "^30" (# "hardkick_rha") -- $ midiOn "^30" (# "hardkick_rha")
...@@ -88,10 +81,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE ...@@ -88,10 +81,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
# cut 8 # cut 8
# gain 1.4 # gain 1.4
once $ arp "up" $ note "a3'maj'4" # "superpiano" once $ arp "up" $ note "a3'maj'4" # "superpiano"
once $ "h:6" once $ "h:6"
do do
...@@ -102,8 +93,6 @@ d1 $ "k k k k*<1 2>" ...@@ -102,8 +93,6 @@ d1 $ "k k k k*<1 2>"
d2 $ "~ h ~ h" # "h:6" # squiz 4 d2 $ "~ h ~ h" # "h:6" # squiz 4
d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05 d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
-- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3)) -- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3))
$ chop 8 $ chop 8
...@@ -115,7 +104,6 @@ d7 $ gF3 $ gM3 ...@@ -115,7 +104,6 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8 d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ (0.125 ~>) $ (0.125 ~>)
$ slow 2 $ slow 2
...@@ -170,8 +158,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT ...@@ -170,8 +158,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4 # room 0.4
# note "-2" # note "-2"
d6 $ gF1 $ gM1 d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>") $ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
......
live/collab/raph/acab.tidal
do do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" ) $ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
......
live/collab/raph/acidule.tidal
...@@ -2,16 +2,6 @@ ...@@ -2,16 +2,6 @@
do do
resetCycles resetCycles
setcps (135/60/4) setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>") $ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
......
live/collab/raph/ambiance.tidal
resetCycles resetCycles
do do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (105/60/4) setcps (105/60/4)
do do
-- d1 $ gF1 $ gM1 $ "kick:5" -- d1 $ gF1 $ gM1 $ "kick:5"
...@@ -48,7 +37,6 @@ d10 $ gF3 $ note "f/4" -- Anges des intertubes ...@@ -48,7 +37,6 @@ d10 $ gF3 $ note "f/4" -- Anges des intertubes
# pan 0.7 # pan 0.7
# cut 10 # cut 10
d4 $ gF2 $ gM1 -- Bass electrique d4 $ gF2 $ gM1 -- Bass electrique
$ note (scale "aeolian" ( $ note (scale "aeolian" (
"3" "3"
......
live/collab/raph/bad_witch.tidal
do do
setcps (80/60/4) setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) -- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ fast 2 $ fast 2
$ midiOn "^42" (<| "k*4") $ midiOn "^42" (<| "k*4")
......
live/collab/raph/biscuit_acide.tidal
do do
setcps (128/60/4) setcps (128/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>") $ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^42" (<| "k . ~ k") $ midiOff "^42" (<| "k . ~ k")
......
live/collab/raph/chevalerie.tidal
do do
setcps (160/60/4) setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>") $ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^42" (<| "k . ~ k ~ ~")
...@@ -51,5 +44,4 @@ d8 $ gF1 $ gM1 ...@@ -51,5 +44,4 @@ d8 $ gF1 $ gM1
$ "jungle_breaks:22" $ "jungle_breaks:22"
# gain 0.9 # cut 8 # gain 0.9 # cut 8
gs a - b c - e f - f fs gs a - b c - e f - f fs
live/collab/raph/dernier_dimanche.tidal
do do
-- resetCycles -- resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide d1 $ gM2 $ gF1 -- Kick solide
-- $ fast 2 -- $ fast 2
...@@ -98,15 +88,8 @@ d9 $ gF3 -- Pads atmospheriques ...@@ -98,15 +88,8 @@ d9 $ gF3 -- Pads atmospheriques
-- trance_bass:5 -- trance_bass:5
-- TRAVAUX -- TRAVAUX
d4 -- Basse convaincante d4 -- Basse convaincante
$ gM3 $ gF2 $ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw)) $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
......
live/collab/raph/dernier_doute.tidal
do do
-- resetCycles -- resetCycles
setcps (110/60/4) setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
$ superimpose ((# cut 11) -- Rumble $ superimpose ((# cut 11) -- Rumble
......
live/collab/raph/des_efforts.tidal
do do
setcps (120/60/4) setcps (120/60/4)
let width = pF "width" let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ "jazz*4" # lpf 3000 d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ "[jazz,kick:5]*4" $ "[jazz,kick:5]*4"
......
live/collab/raph/desire.tidal
...@@ -32,8 +32,12 @@ d3 $ gF1 $ gM1 -- OH/CY: Subtle offbeat hats, ^44 morphs to cymbal shimmer ...@@ -32,8 +32,12 @@ d3 $ gF1 $ gM1 -- OH/CY: Subtle offbeat hats, ^44 morphs to cymbal shimmer
$ "~ h ~ h ~ h ~ <h!3 h*2>" -- offbeat pattern with flourish $ "~ h ~ h ~ h ~ <h!3 h*2>" -- offbeat pattern with flourish
# "h2ogmhh" # "h2ogmhh"
# n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- varying openness per hit # n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- varying openness per hit
-- FIXME(#54) d3 3rd+ effect: the grid gives d3 B3 only (C is a gF filter). Fold ^52 in via gSel rather than borrowing a column. -- FIXME(#54) d3 wants two knob-effects but the grid gives it ONE (B3 = ^31, already
# legato (range 0.2 0.9 "^52") -- ^52: tightness -- used above; C3 is gF3, a family filter). ^52 is d4's C-column, so this was borrowing.
-- Parked as a static value at the knob's centre so the sound is unchanged-ish; restore
-- as a knob once gSel lands (then ^31 selects roll-probability vs tightness).
-- # legato (range 0.2 0.9 "^52") -- ^52: tightness
# legato 0.55
# cut "~ 3 ~ 3 ~ 3 ~ <3!3 [3 0]>" -- last hit: cut 0 = rings over bar boundary # cut "~ 3 ~ 3 ~ 3 ~ <3!3 [3 0]>" -- last hit: cut 0 = rings over bar boundary
# room (slow 32 $ range 0.2 0.45 saw) -- 32-bar: space grows (NOT dry!) # room (slow 32 $ range 0.2 0.45 saw) -- 32-bar: space grows (NOT dry!)
# sz (slow 32 $ range 0.1 0.3 saw) -- 32-bar: tail lengthens # sz (slow 32 $ range 0.1 0.3 saw) -- 32-bar: tail lengthens
...@@ -82,10 +86,9 @@ d7 $ gF3 $ gM3 -- Voices ...@@ -82,10 +86,9 @@ d7 $ gF3 $ gM3 -- Voices
$ fix ((1/8) ~>) (n 9) $ fix ((1/8) ~>) (n 9)
$ fix ((5/8) <~) (n "[11,12]") $ fix ((5/8) <~) (n "[11,12]")
$ slow 2 $ slow 2
-- FIXME(#54) BEHAVIOUR CHANGE, needs PLN's ear: ^19 used to drive BOTH this NANANA -- FIXME(#54) the one-knob link is gone: ^19 used to drive this NANANA *and* d9's gain
-- and d9's gain swell above. d9 moved to ^17 (its own A5 knob), so the two are no -- swell together. d9 now has its own A5 (^17), so they are two gestures. Parked, not
-- longer one gesture. If that link was deliberate, say so and we restore it. -- lost — if the linked swell was the point, gSel or a shared knob restores it.
-- d7 also stacks ^91/^35/^59 — consolidate this lot into B7 (^35) via gSel.
$ midiOn "^35" (>| n "<11 12>") -- NANANA | B7 = d7's primary effect $ midiOn "^35" (>| n "<11 12>") -- NANANA | B7 = d7's primary effect
$ midiOn "^55" (>| n "<10 ~>") -- FREE FROM DESIRE $ midiOn "^55" (>| n "<10 ~>") -- FREE FROM DESIRE
$ midiOn ("^59" - "^55") ( -- Refrain $ midiOn ("^59" - "^55") ( -- Refrain
......
live/collab/raph/drums_architect.tidal
do do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- Harmonic foundation: 16-bar cycle (each chord = 2 bars) -- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Main Bbm/F vamp with Db/Ebm variation at the end -- Main Bbm/F vamp with Db/Ebm variation at the end
let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>" let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
......
live/collab/raph/dub_a_trois.tidal
do do
setcps (80/60/4) setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) -- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>") $ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements $ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
......
live/collab/raph/esperluette.tidal
do do
setcps (140/60/4) setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4") $ midiOn "^42" (<| "k*4")
-- $ midiOff "^42" (<| "k . ~ k") -- $ midiOff "^42" (<| "k . ~ k")
......
live/collab/raph/explo_rha_teur.tidal
do do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 4 (range 0.05 0.95 "^29")) let gF4 = (# djfbus 4 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF4 $ gMute2 d1 $ gF4 $ gMute2
$ superimpose ( $ superimpose (
(# "hardkick_rha") . (# "hardkick_rha") .
...@@ -113,5 +106,4 @@ d10 $ gM3 $ gF3 ...@@ -113,5 +106,4 @@ d10 $ gM3 $ gF3
# gain 1.3 # gain 1.3
# cut 101 # cut 101
-- rhadamanthe_divers:143 -- bien sifllement -- rhadamanthe_divers:143 -- bien sifllement
live/collab/raph/han.tidal
...@@ -2,7 +2,6 @@ ...@@ -2,7 +2,6 @@
do do
setcps (85/60/4) setcps (85/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF d1 $ gF
$ superimpose ((# "kick:5") . (|* gain 0.8)) $ superimpose ((# "kick:5") . (|* gain 0.8))
$ midiOn "^42" (struct "t*<1!3 2> . t(3,8)") $ midiOn "^42" (struct "t*<1!3 2> . t(3,8)")
...@@ -63,7 +62,6 @@ d9 $ gF2 -- La trompette ...@@ -63,7 +62,6 @@ d9 $ gF2 -- La trompette
d8 $ loopAt 2 $ "break:1" # cut 8 d8 $ loopAt 2 $ "break:1" # cut 8
# midiG' "^84" 0 2 # midiG' "^84" 0 2
once $ "dr*4" once $ "dr*4"
once once
...@@ -73,11 +71,9 @@ once ...@@ -73,11 +71,9 @@ once
# pan 0.1 # pan 0.1
# gain 0.9 # gain 0.9
once $ "han:2" once $ "han:2"
# gain 1 # gain 1
# cut 3 # cut 3
# gain 1.4 # gain 1.4
# cut 4 # cut 4
live/collab/raph/hard_monday.tidal
do do
setcps (180/60/4) setcps (180/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = id
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable d1 $ gF $ gMute2 -- Kick variable
$ midiOn "^41" ( $ midiOn "^41" (
# "hardkick:2" -- Kick GABBER # "hardkick:2" -- Kick GABBER
...@@ -90,9 +84,6 @@ once $ "c c " "phazer" ...@@ -90,9 +84,6 @@ once $ "c c " "phazer"
# gain 0.8 # gain 0.8
# cut 3 # cut 3
d6 $ gM2 $ gF3 d6 $ gM2 $ gF3
$ chop 4 $ chop 4
-- $ slice 4 "<0 1 2 3>" -- $ slice 4 "<0 1 2 3>"
......
live/collab/raph/hardorage.tidal
...@@ -23,13 +23,6 @@ d4 $ note "e fs g a b d" # s "cs80leadMH" |- note 12 ...@@ -23,13 +23,6 @@ d4 $ note "e fs g a b d" # s "cs80leadMH" |- note 12
do do
-- resetCycles -- resetCycles
setcps (205/60/4) setcps (205/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOn "^30" (# "hardkick_rha") $ midiOn "^30" (# "hardkick_rha")
...@@ -106,8 +99,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT ...@@ -106,8 +99,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4 # room 0.4
# note "-2" # note "-2"
d6 $ gF1 $ gM1 d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>") $ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
......
live/collab/raph/jeudrill.tidal
do do
-- resetCycles -- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4) setcps (140/60/4)
-- d1 $ gF1 $ gM2 -- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
...@@ -141,7 +130,6 @@ d8 $ gF1 $ gM1 ...@@ -141,7 +130,6 @@ d8 $ gF1 $ gM1
# octersub 0.5 # octersub 0.5
# gain 1.4 # gain 1.4
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
...@@ -150,11 +138,6 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy ...@@ -150,11 +138,6 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
90s_matrix:0 90s_matrix:0
d8 $ "jungle_breaks" d8 $ "jungle_breaks"
live/collab/raph/le_blues_du_mic.tidal
do do
-- resetCycles -- resetCycles
setcps (99/60/4) setcps (99/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>") $ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^42" (<| "k . ~ k ~ ~")
......
live/collab/raph/long_way.tidal
do do
setcps (102/60/4) setcps (102/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ fast 2 $ fast 2
$ midiOn "^42" (<| "k k k k*<1 2>") $ midiOn "^42" (<| "k k k k*<1 2>")
...@@ -69,12 +62,3 @@ d12 $ gF3 $ gM3 -- GUITARS OF LOVE ...@@ -69,12 +62,3 @@ d12 $ gF3 $ gM3 -- GUITARS OF LOVE
# crushbus 111 (range 16 2.8 "^16") # crushbus 111 (range 16 2.8 "^16")
# pan 0.9 # pan 0.9
live/collab/raph/mafia_sans_serif.tidal
resetCycles resetCycles
do do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width" let width = pF "width"
let fundamental = slow 4 $ "<gb3'maj db3'maj bb2'min bb2'maj>" let fundamental = slow 4 $ "<gb3'maj db3'maj bb2'min bb2'maj>"
setcps (160/60/4) setcps (160/60/4)
......
live/collab/raph/meshuggah.tidal
do do
setcps (120/60/4) setcps (120/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gM $ gF1 $ mask "<t f!3 t!28>" d1 $ gM $ gF1 $ mask "<t f!3 t!28>"
$ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>") $ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ fix (|* gain 0.8) "kick" $ fix (|* gain 0.8) "kick"
...@@ -40,7 +36,6 @@ d8 $ gM $ gF1 ...@@ -40,7 +36,6 @@ d8 $ gM $ gF1
$ "jungle_breaks:6" $ "jungle_breaks:6"
# midiG' "^84" 0 1.4 # midiG' "^84" 0 1.4
d1 $ "d@6 d@4 d@4 d@2" d1 $ "d@6 d@4 d@4 d@2"
# note "c3 ef3 g3" # "superpiano" # note "c3 ef3 g3" # "superpiano"
......
live/collab/raph/nouveau_punk.tidal
-- Nouvelle vague; NOUVEAU PUNK -- Nouvelle vague; NOUVEAU PUNK
do do
setcps (155/60/4) setcps (155/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>") $ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~") $ midiOff "^42" (<| "t . ~ t ~ ~")
......
live/collab/raph/permanence.tidal
do do
setcps (150/60/4) setcps (150/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>") $ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]" $ "[techno:0,808bd:2,909,kick:4]"
......
live/collab/raph/piment_bresilien.tidal
do do
-- resetCycles -- resetCycles
setcps (124/60/4) setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~!3 k> k]>") $ midiOn "^42" (<| "k k k <k [<~!3 k> k]>")
$ midiOff "^42" (<| "k . <[~ k] k(<3 5>,8)>") $ midiOff "^42" (<| "k . <[~ k] k(<3 5>,8)>")
......
live/collab/raph/playa_fun.tidal
do do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>") $ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~. k ~ ~ ") $ midiOff "^42" (<| "k . ~. k ~ ~ ")
...@@ -25,5 +18,4 @@ d6 $ "playa" # cut 6 ...@@ -25,5 +18,4 @@ d6 $ "playa" # cut 6
d8 $ slice 32 0 $ "playa" # cut 8 d8 $ slice 32 0 $ "playa" # cut 8
d9 $ "playa/4" # begin 0 # end 0.18 # cut 9 # lpf 1200 # room 0.4 d9 $ "playa/4" # begin 0 # end 0.18 # cut 9 # lpf 1200 # room 0.4
once once
live/collab/raph/punkachien.tidal
do do
-- resetCycles -- resetCycles
setcps (170/60/4) setcps (170/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOn "^42" (<| "k k k k*<1!3 2>")
......
live/collab/raph/quatre_magiques.tidal
do do
-- resetCycles -- resetCycles
setcps (160/60/4) setcps (160/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k . ~ k ~ ~ ") $ midiOn "^42" (<| "k . ~ k ~ ~ ")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment