Skip to content

T
Tidal
Commit b5ad8b6c by PLN (Algolia)
Options

fix(surface): finish the #94 column remap — 169 files still spoke the pre-gMask layout 

PLN: "so many tracks still having ^42 instead of ^41 for kicks its confusing."

Remap phase 2 (5910aacc) column-aligned the board so column N IS orbit N, but it
was scoped to the FOURTEEN files of the OPAL set. Everything else still spoke
the layout from when gMask held CC 41, where an orbit's gate row started one
column late: d1 -> ^42, d2 -> ^43. button-column-audit found 169 such files,
every one of them shift +1 — a single layout generation, not a scatter of typos.

Layout-shifted files: 169 -> 0. Buttons on their own column: 35.7% -> 78.6%.

TWO SYSTEMIC FIXES IN migrate-columns.py, both found by running it on the whole
corpus instead of a setlist. Each refused a batch rather than writing bad
Haskell, which is the only reason they were cheap to find:

1. THE SEGMENT BOUNDARY WAS DEPTH-BLIND. A chain step ends at the next line
   starting with `$`/`#`, but a `$` inside an open paren is a CONTINUATION, not
   a new step. So a multi-line body truncated after one line, left depth 1, and
   the balance check refused the file. 10 of 169 were unmigratable. The boundary
   is now paren-aware, and the hit line is no longer assumed to BE a step start:
   `^NN` is routinely referenced from the middle of a body, so we walk back to
   the nearest enclosing step whose segment both balances and contains the hit.
   Negative depth was the tell that the anchor was too late, not that the source
   was broken.

2. COMMENTING OUT A `$`-STEP CAN UNDER-APPLY THE STEP ABOVE IT. Not a paren
   problem — an ARITY problem, and silent-eval is what caught it: 4 files
   stopped compiling while 165 were fine.

       $ midiOff "^57" (mask "<[t f]!0 ...>")   <- a function, still hungry
       $ stack [ ... ]                          <- its argument

   Comment the `stack` and GHC says "midiOff is applied to too few arguments"
   and the whole do-block dies, all twelve orbits — far worse than the
   cross-orbit trigger the comment-out was avoiding. `#`-steps stay
   commentable (`#` takes a ControlPattern, so a shorter chain is still
   well-typed); `$`-steps are now ANNOTATED and left live, and the FIXME says
   so, because an annotated line IS still firing.

VERIFIED against a pre-migration baseline, not against hope:
  * non-compiling tracks: 17 before, 17 after, and the SETS ARE IDENTICAL —
    zero newly broken, zero newly fixed. All 17 predate this work.
  * silent orbits: the same 19, in the same tracks, only line numbers moved.
  * pvlint: 30 -> 26 errors, no new error signature. Warnings 996 -> 1041: the
    +45 are the annotated-but-live `$`-steps honestly reporting that they still
    reach another column. Errors down, honesty up.
  * fix-button-roles: 3 clean role rewrites applied, then 0 remaining. The
    role report is otherwise unchanged from HEAD, so the migration introduced
    no gate/gesture inversion — the class only PLN's ear catches.
  * migrate-columns --plan re-run: 0 moves. Converged.

Left for a second pass, deliberately: 118 sites where an orbit's two own-column
buttons carry the same role (e.g. two gestures, no gate). Those are not
inversions — with no gate there is nothing to swap, and the grid gives d1-d3 one
button anyway. The count rose from 74 because column-aligning the buttons is
what made them VISIBLE; they were unevaluable before. gSel (#54) is the fix.
parent 406a4610
Showing with 996 additions and 885 deletions
live/ambient/batavia_la_tortue.tidal
......@@ -8,14 +8,14 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "[t ~ t t]*4")
$ midiOff "^41" (<| "[t ~ t t]*4")
$ "[jazz ~ jazz:1 jazz:1]*4"
# midiG' "^78" 0 1.3
d2 $ gF2 $ gMask -- Coupe de feu
$ midiOn "^43" (struct "~ t ~ t ~ t ~ [<t ~ ~ t> <~ t>]")
$ midiOff "^43" (slow 2)
$ midiOn "^42" (struct "~ t ~ t ~ t ~ [<t ~ ~ t> <~ t>]")
$ midiOff "^42" (slow 2)
$ "~ cp"
# lpf 2000
# note (-4)
......@@ -25,7 +25,7 @@ d3 -- weird memories
$ "90s_weird:1"
# cut 3
# note 0
# crushbus 31 (range 16 2.5 "^56")
# crushbus 31 (range 16 2.5 "^31")
# panbus 32 (range "<0.1 0.2 0.3 0.4>" "<0.4 0.5 0.6 0.7>" (fast 16 sine))
# room 0.74 # dry 1.4
# sz 0.1
......@@ -45,16 +45,16 @@ d5 $ gF2 $ gMask
$ midiOn "^57" (euclid "<3 [3 5] 5 [5 <4 8>]>" 8)
$ note (slow 2 "[gs3@2,<gs2'maj'4 c3'maj'4 gs2'maj'4 f2'maj'4>]")
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# room 0.2
# pan 0.3
# midiG' "^81" 0 1.3
d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4)
$ midiOn "^90" (ply 8)
$ midiOn "^58" (ply "1 <1!3 2>")
$ midiOff "^58" (slow 4)
$ slice 8 (run "<8!7 16>")
$ "break:4"
# cut 6
# speed (range 0 2 "^55")
# speed (range 0 2 "^34")
# midiG' "^83" 0 1.5
live/ambient/before.tidal
......@@ -6,21 +6,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = gMask
d1 $ gM1 $ gF
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ midiOff "^41" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gM2 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^42" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^41" + "^42") (struct "~ t")
$ midiOff ("^43" + "^42" + "^42") (struct "~ t")
$ "clap"
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpqbus 22 (range 0 (1 - "^42") "^30")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM2 $ gMask $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy (1 - "^31") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
$ n (run 16)
......@@ -29,7 +32,7 @@ d3 $ gM2 $ gMask $ gF -- Broken drummer
# midiG' "^80" 0 1.2
# cut 3
d6 $ gM3 -- Drumroll fou
$ midiOn "^91" (fast "2 <2!3 <4 [4 8]>>")
$ midiOn "^90" (fast "2 <2!3 <4 [4 8]>>")
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
......@@ -42,7 +45,7 @@ d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
# delay 0.2
# delayfb 0.8
# delayt 0.125
# crushbus 41 (range 16 1.2 "^56")
# crushbus 41 (range 16 1.2 "^32")
# pan 0.7
# midiG' "^84" 0 0.9
d5 $ gMask $ gF2-- La Basse qui devance
......@@ -53,7 +56,7 @@ d5 $ gMask $ gF2-- La Basse qui devance
-- chop "4 <[4 8]> 4 <4!3 16>"
)
$ juxBy 0.3 (
(# crushbus 51 (range 16 2.2 "^53"))
(# crushbus 51 (range 16 2.2 "^33"))
. (|* gain 0.8)
)
$ note ("<a <f [f@7 g]> e@2>"
......
live/ambient/crutches.tidal
......@@ -4,9 +4,10 @@ setcps (60/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ midiOn "^30" (fast 2)
$ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>"))
$ midiOff "^42" (<| "k . <~!8 k(3,8)!8>")
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^29 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^29 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^29" (fast 2)
$ midiOn "^41" ((<| "k k k <k k*2 k [~ k*2]>"))
$ midiOff "^41" (<| "k . <~!8 k(3,8)!8>")
$ "kick:5"
# cps ((range 60 120 "^29")/60/4)
d2 $ gF1 $ gM2
......@@ -15,11 +16,11 @@ d2 $ gF1 $ gM2
# room 0.4 # dry 0.9
d3 $ gF1 $ gM2 $ "dr*[8 8 <8 <12 24>> 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ superimpose (arp "up <up!3 down>" . (|+| note "c'maj9'8"))
$ superimpose (
(# lpf 5000)
. (# crushbus 41 (range 16 4 "^53"))
. (# crushbus 41 (range 16 4 "^32"))
)
-- $ midiOn "^"
$ note "<ef3 <fs3 bf3>>"
......@@ -36,7 +37,7 @@ d9 $ gF2 $ gM3
# octerbus 91 (range 0 1.4 "^19")
# crushbus 92 (range 16 3 "^18")
d5 $ gF3 $ gM3 -- MAIN CRUTCH
$ midiOn "^90" (ply "2 <4 8>")
$ midiOn "^89" (ply "2 <4 8>")
-- $ slice 4 "<0 1 2 3>"
$ chop 8
$ loopAt 2
......
live/boeuf/algo25.tidal
......@@ -5,14 +5,14 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t ~ t ~")
$ midiOn "^41" (struct "t t t t")
$ midiOff "^41" (struct "t ~ t ~")
$ "[jazz,kick:4]"
# gain 1.3
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[snare:24,cp]"
# pan 0.65
# gain 1.6
......@@ -22,8 +22,8 @@ d3 $ gM2 $ gF1
# hpf 7000
# gain 1.5
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 8")
$ midiOff "^89" (superimpose (struct "t(5,8)"))
$ midiOn "^76" (ply "4 8")
$ midiOff "^76" (superimpose (struct "t(5,8)"))
$ note (
"<a3 d3 c3 <a3!3 e3>>"
-- + "[0,0(3,8)]"
......@@ -31,7 +31,7 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# gain 1.4
# room 0.4
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
......@@ -56,8 +56,8 @@ d6 $ gF1 $ gM3 -- HAWKS
# gain 1.5
d7
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
$ midiOn "^59" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^91" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
$ (0.125 ~>)
......@@ -66,8 +66,8 @@ d7
)
# "808hc:2"
# pan 0.85
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# octerbus 71 (range 0 0.5 "^35")
# octersubbus 72 (range 0 1.4 "^35")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques
......
live/boeuf/algorythm/love23/killing_me_softer.tidal
......@@ -11,20 +11,22 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ <~!7 t>")
$ midiOn "^41" (struct "t . ~ t ~ <~!7 t>")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ "cpu"
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gM2 -- Snare
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ . t")
$ midiOn "^42" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ . t")
$ "808sd:6" -- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "<2 4>")
-- $ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
$ "h h h h" # "cpu:4"
......@@ -39,14 +41,14 @@ d8 $ gF3
# midiG' "^84" 0 1
# cut 8
d4 $ gF2
$ midiOn "^57" (struct "t(3,8)" . arpeggiate . (# legato 2) . (# room 0.2) . (# size 0.8))
$ midiOn "^44" (struct "t(3,8)" . arpeggiate . (# legato 2) . (# room 0.2) . (# size 0.8))
-- $ note (slow 2 "<[c4, e4, a4] [g3, b4, d4]>")
-- TODO: Try with just the fundamentals:
-- "e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3" -- 12 Chorus
-- "e3 ~" -- Bridge x2 -- OR SILENT?
-- "a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2" -- 12 Verse
-- Pasted: Chorus/Bridge/Verse/Chorus/Bridge2/Verse/Chorus/Bridge8
$ midiOn "^89" (chop 8)
$ midiOn "^76" (chop 8)
-- $ note ("<e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ e3 ~ e3 ~ e3 ~>")
-- TODO: Move along new fundamentals
-- Mapping to: F G Ab Bb C Db Eb
......@@ -103,7 +105,7 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ ~")
$ midiOn "^41" (struct "t . ~ t ~ ~")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ fix (|* gain 0.7) "jazz"
$ fix ((|* gain 0.7) . (# "jazz") . (# n "<4 4 <3 3 4 4> 3>")) "sub"
......@@ -111,8 +113,8 @@ d1 $ gF1 $ gM -- Kick
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gMask -- Snare
$ midiOff "^43" (struct "~ ~ ~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ ~ ~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "808sd:6"-- "snare:5"
# release 0.4
# att 0.02
......@@ -132,9 +134,9 @@ d4 $ gF2 $ gMute -- Hats pirouette
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 24)
$ midiOn "^57" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
$ midiOn "^89" ( -- FIRELINE
off 0.5 (
-- (# crush 6) .
(|- note 12)
......@@ -153,7 +155,7 @@ d5 $ gM $ gF2 -- BASSLINE!
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^33")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
-- $ sometimesBy "0 0.25" (mask "t . t(<3 5 8 1>,8)")
......
live/boeuf/algorythm/love23/killing_me_softly.tidal
......@@ -7,7 +7,7 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ ~")
$ midiOn "^41" (struct "t . ~ t ~ ~")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ fix (|* gain 0.7) "jazz"
$ fix ((|* gain 0.7) . (# "jazz") . (# n "<4 4 <3 3 4 4> 3>")) "sub"
......@@ -15,14 +15,14 @@ d1 $ gF1 $ gM -- Kick
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gMask -- Snare
$ midiOff "^43" (struct "~ ~ ~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ ~ ~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "808sd:6"-- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^76" (ply "<2 4>")
$ midiOn "^43" (ply "<2 4>")
$ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
# "snare:51"
# att 0.0125 # rel 2 # hpf 3000
......@@ -36,9 +36,9 @@ d4 $ gF2 $ gMute -- Hats pirouette
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 24)
$ midiOn "^57" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
$ midiOn "^89" ( -- FIRELINE
off 0.5 (
-- (# crush 6) .
(|- note 12)
......@@ -57,7 +57,7 @@ d5 $ gM $ gF2 -- BASSLINE!
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^33")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
-- $ sometimesBy "0 0.25" (mask "t . t(<3 5 8 1>,8)")
......
live/boeuf/algorythm/love23/something_about_us.tidal
......@@ -6,19 +6,21 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ midiOff "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^41" (<| "k ~ ~ <~ k> . <k ~>")
$ "[jazz,kick:5]"
-- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
# pan 0.8
# gain 1.4
d2 $ gF1 $ gM
$ midiOff "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^43" (<| "~ ~ ~ k")
$ midiOff "^42" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^42" (<| "~ ~ ~ k")
$ "[drumtraks:9]"
-- # midiG' "^79" 0 1.45
d3 $ gF1 $ gM
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8
......@@ -26,7 +28,7 @@ d3 $ gF1 $ gM
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ midiOn "^44" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
-- PARTITION ORIGINALE
-- "[bf3, d4, f4, a4]", -- Bbmaj7
......@@ -44,7 +46,7 @@ d4 $ gF2 -- V2
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53")
# modIndex (range 0 2 "^32")
-- # midiG' "^81" 0 1.6
d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
# "bassWarsaw"
......
live/boeuf/algorythm/love23/until_i_found_you.tidal
......@@ -10,8 +10,8 @@ setcps (125/60/4)
d1 $ gF1
$ fix (# hpf 2000) "909"
$ fix (# lpf 120) "[808bd,bd]"
$ midiOn "^42" ((|* gain "1 1 0.95") . struct "t ~ [~ t]")
$ midiOff "^42" (struct "t")
$ midiOn "^41" ((|* gain "1 1 0.95") . struct "t ~ [~ t]")
$ midiOff "^41" (struct "t")
-- $ "[808bd,cpu]"
$ "[808bd:3,bd:1,909]"
# room 0.2 # dry 1 # sz 0.8
......@@ -19,7 +19,7 @@ d1 $ gF1
# release 10
# midiG' "^78" 0 1.4
d2 $ gF1
$ midiOn "^43" (mask "t!7 f")
$ midiOn "^42" (mask "t!7 f")
$ "~ ~ ~ s ~ <~!3 s>"
# "snare:8"
# hpf 2000 # gain "1.1"
......@@ -27,7 +27,9 @@ d2 $ gF1
d3 $ gF2
$ fix (|* gain (slow 2 $ range 0.5 0.81 sine)) "drum"
$ fix ((# n "0!3 <0 1>") . (|* gain (range 0.7 0.5 sine))) "808oh"
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (fast 2)
$ (|* gain "1 0.9 0.85")
$ "d d d"
......@@ -37,8 +39,10 @@ d3 $ gF2
d5 $ gF2 -- filler
-- FIXME On different chorus
-- f fs gs as c cs ds
$ midiOn "^89" ((# note "fs5'maj'3")) -- Pre-verse
$ midiOn "^90" (# note ("gs4'maj'3")) -- Chorus
$ midiOn "^57" ((# note "fs5'maj'3")) -- Pre-verse
$ midiOn "^89" (# note ("gs4'maj'3")) -- Chorus
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^91 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^91 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^91 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^91 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ midiOn "^91" (# note ("ds5'maj'3")) -- Chorus
$ "bassWarsaw"
# velocity 1
......
live/boeuf/algorythm/season2/blues_wednesday.tidal
......@@ -9,21 +9,23 @@ let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k . k(3,8)")
$ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
-- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
$ "[jazz,cpu]" # gain 1
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM2
$ midiOff "^43" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^43" (<| note ("~ 0 ~ 0"))
$ midiOff "^42" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^42" (<| note ("~ 0 ~ 0"))
$ "[snare:60,snare:21,snare:51]"
# gain 0.56
# pan 0.3
-- # room 0.2 # dry 1.1 # sz 0.8
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "drum:2*[4 <4 <8 16>>]"
-- $ "drum:2*[6 12]"
......@@ -41,15 +43,15 @@ d8 $ gF1 $ gM2
# gain 0.8
# pan 0.7
d4 $ gF2 $ gM3
$ midiOn "^57" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^89" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ midiOn "^44" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^76" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ note (
cat blues + "[0]"
)
-- # "bass3:4"
-- # "modalMarimba" |+| note "0*4"
# "bassWarsaw" |- note 24
# octersubbus 41 (range 0 2 "^53")
# octersubbus 41 (range 0 2 "^32")
# pan 0.3 # crush 16
-- # room 0.1
-- # voice 0.8
......@@ -90,7 +92,7 @@ d5 $ gF3 $ note (
)
# cut 51
# room 0
# crushbus 51 (range 16 3 "^54")
# crushbus 51 (range 16 3 "^33")
# "come_guitar:0"
# midiG' "^82" 0 1.7
......
live/boeuf/algorythm/something_bossa_nova.tidal
......@@ -5,25 +5,27 @@ let gM = gMask . gMute
let modIndex = pF "modIndex"
let gF = gF1 . gF2
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" (<| "k ~ ~ <~ k> . <k ~>")
$ "jazz"
# midiG' "^78" 0 1.3
# pan 0.8
d2 $ gF1
$ midiOn "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOff "^43" (<| "~ ~ ~ k")
$ midiOn "^42" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOff "^42" (<| "~ ~ ~ k")
$ "[drumtraks:9]"
# midiG' "^79" 0 1.45
d3 $ gF1 $ gM
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
$ midiOn "^57" (|+ note 12)
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ midiOn "^44" (|+ note 12)
$ midiOn "^76" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
......@@ -34,7 +36,7 @@ d4 $ gF2 -- V2
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53")
# modIndex (range 0 2 "^32")
# midiG' "^81" 0 1.6
d8 $ gF $ gM
$ midiOn "^92" (ply "2 <2!3 4>")
......
live/boeuf/biarritz/blue_tuesday.tidal
......@@ -21,8 +21,8 @@ let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f"
-- Sol Fa Do Sol
d1 $ gF $ gM1
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . k(<3!3 5>,8)")
$ "k"
# "[cpu,jazz,808bd:3,808bd:2]"
-- # midiG' "^78" 0 1.9
......@@ -31,7 +31,7 @@ d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
-- # midiG' "^79" 0 1.3
d3 $ gF $ gMute
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9
......@@ -47,8 +47,8 @@ d8 $ gF $ gM
# cut 8
# gain 1.2
d4 $ gF2 $ gM3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
$ midiOn "^76" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^44" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
......@@ -62,8 +62,8 @@ d4 $ gF2 $ gM3
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 16 1.3 "^53")
# octerbus 42 (range 0 1.3 "^33")
# crushbus 41 (range 16 1.3 "^32")
# octerbus 42 (range 0 1.3 "^52")
# gain 1
d9
$ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
......
live/boeuf/canard_breake.tidal
......@@ -8,7 +8,8 @@ let modIndex = pF "modIndex"
d1
$ gF1
$ midiOn "^74" (fast 2)
$ midiOn ("^42" - "^41") (mask "t(1,4)")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^41" - "^41") (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
$ fix ((|* gain 0.8) . (# att 0.05) . (# rel 1)) ("kick")
$ fix ((|* gain 0.95)
......@@ -31,26 +32,28 @@ d3 $ gF3 $ gO
# midiG' "^80" 0 1.2
d3 $ gF $ gM -- Breaks du Marathon
$ midiOn "^76" (scramble (8 - 4 * "^44"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^43" (scramble (8 - 4 * "^44"))
$ midiOn "^44" (slice 16 (run "8 . <8 8 <8 16> <16!3 [32 <32 16>]>>"))
$ midiOff "^44" (slice 8 ("0 1 2 3 . 4 5 6 <7!3 6>"))
$ loopAt 2
$ "break:15"
# cut 2
# pan 0.4
# speed (range 0 2 "^52")
# speed (range 0 2 "^31")
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^53" (-- Trigger: DATA BURN
$ midiOn "^32" (-- Trigger: DATA BURN
(
(# cut 42) . (|* gain 0.85) .
(# squizbus 41 (range 200 0 "^53"))
(# squizbus 41 (range 200 0 "^32"))
)
)
$ midiOn "^57" ( -- Ritournelle
midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
$ midiOn "^44" ( -- Ritournelle
midiOn "^76" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
. (+| note (scale "aeolian" (arp "converge" $
"[0 <2!4 1!2 2!2> 0 <0!3 4>]"
-- "<5@3 [5 4@2]> <<2 0> [2 0]>"
......@@ -65,25 +68,26 @@ d4 -- BASSLINE BRULANTE
# "90s_synatm:9"
# pan 0.15
-- # room 0.5 # dry 0.2 # sz 0.8
# lratebus 43 (range 0.6 6.7 "^33")
# lesliebus 42 (range 0 1 "^17")
# lratebus 43 (range 0.6 6.7 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 42 (range 0 1 "^17")
# lsize (slow 8 $ range 2 6 saw)
# midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^53")
# crushbus 41 (range 10 4.5 "^53")
-- # midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^32")
# crushbus 41 (range 10 4.5 "^32")
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes
$ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
$ midiOn "^57" (off "q" (|+ note 12) . (|* gain 0.85))
$ note (
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
- "<24!12 12!4>")
# "FMRhodes1"
# modIndex (range 0 100 "^54")
# modIndex (range 0 100 "^33")
-- # crushbus 51 (range 10 4.5 "^34")
# midiG' "^82" 0 2
d6 $ gF2 -- Voices from the st0rm
$ midiOn "^91" ((# cut 6) . slow 8)
$ midiOn "^58" ((# cut 6) . slow 8)
$ swingBy 0.125 8
$ midiOn "^59" (superimpose ( -- Resolution chant
$ midiOn "^90" (superimpose ( -- Resolution chant
(>| note (scale "aeolian" "<7 [7@3 <5 9>]>"))
. (# cut 61)
. (# legato 1.2)
......@@ -94,7 +98,7 @@ d6 $ gF2 -- Voices from the st0rm
))
# "90s_matrix:3"
# cut 6 # gain 0.4
# squizbus 61 (range 0 4 "^55")
# squizbus 61 (range 0 4 "^34")
# room 0.42 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 2
......
live/boeuf/lunar_light.tidal
......@@ -7,8 +7,8 @@ let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g = (gDJF)
let m = mBreak
d1 $ g --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "jazz"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1.4
......@@ -22,7 +22,9 @@ d3 $ g $ m -- Clap contretemps stable
# room 0.8 # sz 0.8 # dry 0.99
# midiG' "^79" 0 1.8
d2 $ g $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42" - "^76") (ply 2)
$ midiOn "^76" (fast 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id)
......@@ -45,7 +47,7 @@ d9
d4 $ g $ m
$ midiOn "^57" (chop "8 1")
$ midiOn "^76" (chop "8 1")
$ superimpose ((# cut 41)
. (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
)
......@@ -56,11 +58,11 @@ d4 $ g $ m
)
# "bassWarsaw"
# midiG' "^81" 0 1.5
# crushbus 4 (range 16 1.5 "^53")
# crushbus 4 (range 16 1.5 "^32")
# cut 4
# pan 0.2
d5 $ g $ m
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
(# cut 51)
. (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
. (|* gain 0.9)
......@@ -72,6 +74,6 @@ d5 $ g $ m
)
# "FMRhodes1"
# midiG' "^82" 0 1.8
# modIndex (range 0.1 32 "^54")
# modIndex (range 0.1 32 "^33")
# cut 5
# pan 0.8
live/boeuf/valtho/cats.tidal
......@@ -4,8 +4,8 @@ setcps (118/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 <~ k>")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . ~!3 <~ k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -14,8 +14,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^42" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
......@@ -29,7 +29,7 @@ d4 $ gF2 $ gM3
-- $ slow 2
$ note ("<[b,e,g] [b,ds,g] [b,d,g] [b,cs,e,g] [b,c,e,g] [a,c,e,g] [bf,c,e,g] [a,b,d,f]>" - 12)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d5 $ gM3 $ gF3
$ ("1/8" ~>)
$ loopAt 4
......@@ -43,10 +43,10 @@ d8 $ gF1 $ gM2
d4 $ gF2 $ gM3-- BASSLINE
-- $ mask "<f!8 t!12 t!44 t!64>"
$ superimpose (
(# crushbus 4 (range 16 4 "^53"))
(# crushbus 4 (range 16 4 "^32"))
. (# hpf 200) . (|* gain 1.4)
)
$ midiOn "^57" (chop "<8 8 4 <8 16>>")
$ midiOn "^76" (chop "<8 8 4 <8 16>>")
$ whenmod 64 16 (superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
......@@ -67,7 +67,7 @@ d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
# "giorgio_syn:9" # n "<9!3 10>"
# cut 7
# gain 1.3
# crushbus 71 (range 16 4 "^55")
# crushbus 71 (range 16 4 "^35")
# room 0.3 # bandf 400
d10 $ gF3 $ gM3 -- Mad organ
$ mask "<f!4 t!10 f!2>"
......@@ -105,7 +105,7 @@ d5 $ gF3 $ gM3 -- Rhodes arps <3
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (range 0 2 "^34")
# modIndex (range 0 2 "^33")
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
......
live/boeuf/vendredi_saint.tidal
......@@ -20,21 +20,25 @@ d1 $ g
-- # crushbus 11 (range 16 0.95 "^14")
d2 $ g
$ midiOn ("^75") (fast 2)
$ midiOn ("^41"-"^43") (fast 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42"-"^43") (fast 2)
$ "~ [cp,clap:1]"
# midiG' "^79" 0 3
# note (range "-12" "12" "^51")
# room 0.4 # dry 0.98
# crushbus 11 (range 16 1.95 "^15")
d3 $ g
$ midiOn ("^44" + "^76") (
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" + "^76") (
const $ loopAt "<1!6 2 2>"
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ "breaks165"
# cut 3
# note (range "-12" "12" "^52")
# note (range "-12" "12" "^31")
# midiG' "^80" 0 1.8
)
$ rarely ("e" ~>)
......@@ -42,13 +46,13 @@ d3 $ g
$ "[drum:2,tech:7]*8"
# midiG' "^80" 0 1.9
d4 $ g -- Mecano Course
$ midiOn "^57" (
$ midiOn "^76" (
slice 8 ("0*<1 2> 1 2 3*<2 1>")
-- . (>| "breaks125")
)
$ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ midiOn "^44" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ sometimesBy "0 ^33!7" (shuffle 8)
$ someCyclesBy "^53" (iter "1 4")
$ someCyclesBy "^32" (iter "1 4")
$ chop 8
$ loopAt 1
$ "breaks125:3"
......@@ -57,21 +61,22 @@ d4 $ g -- Mecano Course
d5 -- Runny Maracas Pitchables
$ g
$ mask "t(16,32)"
$ midiOn "^90" (ply "<2!3 4>")
$ midiOn "^89" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^82" 0 2
# room "^34"
# note (range "-24" "0" "^18")
# crushbus 51 (range 16 4.2 "^54")
# room "^33"
# note (range "-24" "0" "^53")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # crushbus 51 (range 16 4.2 "^54")
d6 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ midiOn "^58" (slow 2)
$ midiOn "^90" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
......@@ -88,8 +93,8 @@ d6 -- Running Hats
d8 $ g
$ note (scale "aeolian" (iter 4 $ slow 4 $ arpeggiate "c'min'4") - 24)
# "supersaw"
# midiG' "^56" 0 1
# crushbus 51 (range 16 2 "^36")
# midiG' "^36" 0 1
# crushbus 51 (range 16 2 "^56")
# pan 0.2
# velocity 0.9
......
live/boeuf/viteuf/blues.tidal
......@@ -5,19 +5,21 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k*<1!4 2!4> . k(<1 3 3 <5 [3 <1 5>]>>,8)")
$ midiOn "^41" (<| "k k k k*<1 2>")
$ midiOff "^41" (<| "k*<1!4 2!4> . k(<1 3 3 <5 [3 <1 5>]>>,8)")
$ "[cpu,jazz,808bd:3,808bd:2]"
# gain 0.9
d2 $ gM $ gF2
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s")
$ midiOff "^42" (<| "~ s")
$ "snare:39"
-- # note "-2"
# gain 1
# att 0.02 # rel 0.9
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOff "^43" (mask "t([8 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -26,13 +28,13 @@ d3 $ gF1 $ gM2
d8 $ gF1 $ gM
$ midiOff "^60" (struct "t(<4>,8)" . segment 8)
$ whenmod 16 8 (iter 8)
$ midiOn "^56" (loopAt 2 . (# n "40"))
$ midiOn "^36" (loopAt 2 . (# n "40"))
$ loopAt 2
$ midiOn "^92" (ply 8)
-- $ slice 16 (run 8)
$ chop 8
$ "jungle_breaks:8"
# speed (range 0.5 1.5 "^56")
# speed (range 0.5 1.5 "^36")
# cut 8
# gain 0.8
......
live/chip/ataright.tidal
......@@ -36,13 +36,13 @@ let modIndex = pF "modIndex"
setcps (120/60/4)
d1 $ g1 $ gMute -- THE ROAD
$ midiOn "^74" (fast 2)
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (struct "t*2")
$ midiOn "^41" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^41" (struct "t*2")
$ "[jazz,808bd:6]"
# midiG' "^78" 0 1.4
# orbit 0
d2 $ g1 $ gM -- THE FUEL
$ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^42" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^75" (ply 2)
$ loopAt 4
$ chop 32
......@@ -52,7 +52,9 @@ d2 $ g1 $ gM -- THE FUEL
# cut 2
# orbit 1
d3 $ gM $ g1 -- THE GUIDELINES
$ midiOn ("^44" - "^76")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" - "^76")
(sometimesBy (slow 8 $ range 0.3 0.95 saw)
$ mask "t(3,8)")
$ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN
......@@ -63,31 +65,31 @@ d3 $ gM $ g1 -- THE GUIDELINES
# orbit 2
d4 $ gMask -- THE THUNDER
$ g2
$ midiOn "^57" (off "0.75" id)
$ midiOn "^89" (off "1" id . chop "8")
$ midiOn "^44" (off "0.75" id)
$ midiOn "^76" (off "1" id . chop "8")
$ fix (|* gain 0.8) (note "a4")
$ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>"
# "FMRhodes1"
# cut 4
# modIndex (range 0 128 "^53")
# crushbus 41 (range 16 4 "^33")
# roombus 42 (range 0.05 0.6 "^33")
# modIndex (range 0 128 "^32")
# crushbus 41 (range 16 4 "^52")
# roombus 42 (range 0.05 0.6 "^52")
# sz 0.9
# pan "<0.8!3 0.5>"
# midiG' "^81" 0 1.8
# room 0.4
# orbit 3
d5 $ g2 $ gMask -- THE RAIN
$ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^90" (striate "<2!3 4>" . ply 2)
$ midiOn "^57" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^89" (striate "<2!3 4>" . ply 2)
$ struct "t(<3!7 [3 8]>,8,<0!3 3>)"
$ note (
arp "down"
("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12))
# "FMRhodes2"
# modIndex (range 0 128 "^54")
# crushbus 41 (range 16 4 "^34")
# roombus 42 (range 0 0.2 "^34")
# modIndex (range 0 128 "^33")
# crushbus 41 (range 16 4 "^53")
# roombus 42 (range 0 0.2 "^53")
# sz 0.5
# pan 0.8
# orbit 4
......@@ -96,8 +98,8 @@ d8 $ g3 $ gM -- THE UNAVOIDABLE BREAKS
$ mask "t(16,64)"
$ midiOn "^36" (# n 6) -- Double light
$ midiOn "^56" (# n 4) -- DOUBLE HEAVY
$ midiOn "^60" (ply 2)
$ midiOn "^92" (fast 2)
$ midiOn "^92" (ply 2)
$ midiOn "^60" (fast 2)
$ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
$ loopAt 2
$ "fbreak120:3"
......
live/chip/step_silence.tidal
......@@ -6,13 +6,13 @@ setcps (120/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
$ midiOn "^42" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k . k(<1!3 <3 5>>,8)")
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^41" (<| "k . k(<1!3 <3 5>>,8)")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ g1
$ midiOn "^43" (struct "~ t ~ t*<1 2 2 1>")
$ midiOff "^43" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ t*<1 2 2 1>")
$ midiOff "^42" (struct "~ t")
$ "cp"
# lpf 1200
# room 0.2
......@@ -20,7 +20,9 @@ d2 $ g1
# dry 1
# midiG' "^79" 0 1
d3 $ g1
$ midiOn "^44" (mask "t([5 <8!3 <4 16>>],16)")
$ midiOn "^43" (mask "t([5 <8!3 <4 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (mask "t(16,32)" . ply 2)
$ n "~ 0 ~ 0 ~ 0 ~ <0!3 2>*<2 1 2 2>"
# "h2ogmsn" # gain 0.8
......@@ -35,20 +37,20 @@ d4 $ g1
# pan 0.3
# midiG' "^80" 0 1.1
d5 $ g2 -- THE BASS REMNANTS
$ midiOn ("^89" + "^57") (slice 4 "0 1 2 <3 1 3 3*8>")
$ midiOn "^57" ((# legato 4) . (slow 4)) -- Hack longer sample
$ midiOn ("^57" + "^89") (slice 4 "0 1 2 <3 1 3 3*8>")
$ midiOn "^89" ((# legato 4) . (slow 4)) -- Hack longer sample
$ "90s_matrix:0"
# crushbus 51 (range 16 1.8 "^53")
# crushbus 51 (range 16 1.8 "^33")
# legato 2 # cut 5
# midiG' "^81" 0 1.8
d6 -- TODO BASSLINE <3
$ note (-24) # "bassWarsaw"
# midiG' "^82" 0 1.3
d8 $ g2
$ midiOn "^59" (chop 2)
$ midiOn "^91" (chop 8)
$ midiOn "^92" (chop 2)
$ midiOn "^60" (chop 8)
$ "90s_glassatm:3" -- Scintillant espoir
# crushbus 81 (range 16 1.8 "^55")
# crushbus 81 (range 16 1.8 "^36")
# cut 8
# midiG' "^83" 0 1.2
# pan (0.9 - 0.3 * perlin)
......
live/collab/baba/moulins_de_mon_coeur.tidal
......@@ -49,8 +49,8 @@ setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick, le pas du train qui démarre
$ midiOn "^42" (struct "t ~ ~ ~ ~ ~ t ~") -- half-time feel (60bpm sur 120 Tidal)
$ midiOff "^42" (struct "t ~ <~ t> ~ ~ ~ t <~ t>") -- broken-beat plus dense
$ midiOn "^41" (struct "t ~ ~ ~ ~ ~ t ~") -- half-time feel (60bpm sur 120 Tidal)
$ midiOff "^41" (struct "t ~ <~ t> ~ ~ ~ t <~ t>") -- broken-beat plus dense
$ stack [
"kick" # lpf 10000 # cut 1,
"jazz" # lpf 200 # cut 11 |* gain 0.9,
......@@ -61,29 +61,29 @@ d1 $ gF1 $ gM1 -- Kick, le pas du train qui démarre
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM2 -- Clap/snare, contretemps liquide
$ midiOn "^43" (<| "~ ~ ~ ~ s ~ ~ <~ s*<1 2>>")
$ midiOff "^43" (<| "~ ~ ~ ~ s ~ ~ ~")
$ midiOn "^42" (<| "~ ~ ~ ~ s ~ ~ <~ s*<1 2>>")
$ midiOff "^42" (<| "~ ~ ~ ~ s ~ ~ ~")
$ "[snare:24,cp]"
# gain 1.3
d3 $ gF1 $ gM2 -- Cymbales légères, la brume du matin
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!6 <~ <cy ~> cy>")
$ midiOn "^43" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^43" (<| "~!6 <~ <cy ~> cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
|* gain (range 1.0 0.7 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d4 $ gF2 $ gM3 -- Basse bassWarsaw, le cœur qui tourne (C#m ⇄ G# puis F#m-B-E-A)
$ midiOn "^89" (struct "t*16")
$ midiOn "^57" (struct "t(<3 5 5 7>,8)")
$ midiOn "^44" (struct "t*16")
$ midiOn "^76" (struct "t(<3 5 5 7>,8)")
-- couplet (i⇄V) puis spirale du refrain
$ note ("<[cs2@7 gs2] [gs1@7 cs2] [cs2@7 gs2] [gs1@7 cs2] [fs1@7 b1] [b1@7 e2] [e2@7 a1] [a1@7 gs1]>")
# stack [
"bassWarsaw" # lpf 500,
"bassWarsaw" # cut 41 # crushbus 41 (range 16 3.5 "^53") # bandf 500 # gain 1.2,
"bassWarsaw" # cut 41 # crushbus 41 (range 16 3.5 "^32") # bandf 500 # gain 1.2,
""]
# "cpluck" |+ note 12
# octerbus 42 (range 0 0.8 "^33")
# octerbus 42 (range 0 0.8 "^52")
-- # octersubbus 43 (range 0 2.5 "^33")
# cut 41
# lpf 20000
......@@ -91,10 +91,10 @@ d4 $ gF2 $ gM3 -- Basse bassWarsaw, le cœur qui tourne (C#m ⇄ G# puis F#m-B-E
d5 $ gF3 $ gM3 -- Rhodes/Keys, les moulins qui tournent doucement
-- sample 120_Rhodes_Chords_C ou _Eli_rhodes_chords_C shiftés +1 pour C#
$ midiOn "^90" (superimpose ((# cut 51) . (# delay 0.95) . (# delayt 0.125) . (# delayfb 0.7) . (# room 0) . (|* gain 0.8)))
$ midiOn "^89" (superimpose ((# cut 51) . (# delay 0.95) . (# delayt 0.125) . (# delayfb 0.7) . (# room 0) . (|* gain 0.8)))
$ stack [
midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.4 # pan 0.4,
midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ ~ ~ ~>/2" # cut 52 # begin 0.4 # end 0.8 # pan 0.55,
midiOn "^57" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.4 # pan 0.4,
midiOn "^57" (# silence) $ slow 2 "<~ mid ~ mid ~ ~ ~ ~>/2" # cut 52 # begin 0.4 # end 0.8 # pan 0.55,
"<~!24 end!8>" # begin 0.8 # end 1 # cut 53 # gain 0.8 # pan 0.7,
""
]
......@@ -102,7 +102,7 @@ d5 $ gF3 $ gM3 -- Rhodes/Keys, les moulins qui tournent doucement
# "120_Rhodes_Chords_C:0" |+ note 1
-- alternatives : "120_NuPad_Chords_C:<0 1 2 3>" |+ note 1 ← pad 8-variations
-- "120_Eli_rhodes_chords_C:<0 1 2>" |+ note 1
# crushbus 51 (range 16 2.7 "^54")
# crushbus 51 (range 16 2.7 "^33")
# room 0.45
# gain 1.3
......
live/collab/baba/oparoles.tidal
......@@ -9,14 +9,14 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:30]"
# pan 0.65
# legato 0.22
......@@ -25,18 +25,18 @@ d3 $ gM2 $ gF1
# "snare:34"
# hpf 7000
d4 $ gF2 $ gM3
$ midiOn "^57" (slice 16 "[0 ~]*<4!3 8>")
$ midiOn "^89" (ply 8)
$ midiOn "^76" (slice 16 "[0 ~]*<4!3 8>")
$ midiOn "^44" (ply 8)
$ note "<b2 <<as2 [as2@3 [~ <fs2 b2>]]>!6 cs3 [cs3@3 [~ ef3]]> gs2@2>"
# "bassWarsaw"
# gain 1.4 # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octerbus 42 (range 0 0.04 "^33")
# octersubbus 43 (range 0 1.2 "^33")
# octersubsubbus 44 (range 0 1.2 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octerbus 42 (range 0 0.04 "^52")
# octersubbus 43 (range 0 1.2 "^52")
# octersubsubbus 44 (range 0 1.2 "^52")
d5 $ gF3 $ gM3 -- Baba hums
$ midiOff "^58" (mask "f")
$ midiOn "^90" ((# begin 0.5))
$ midiOff "^57" (mask "f")
$ midiOn "^89" ((# begin 0.5))
$ someCyclesBy "<t!16 f!16>" (>| n "<1@2 1@2 2@4>") -- Better usage!
$ n "<1@2 2@2 3@2 4@2>" -- Live v1
-- $ n "<3 ~>"
......@@ -45,7 +45,7 @@ d5 $ gF3 $ gM3 -- Baba hums
# begin 0.02
-- # rel 4
# "paroles" # cut 5
# tremrbus 51 (range 0 8 "^54")
# tremrbus 51 (range 0 8 "^33")
# tremdp 0.8
-- # lpf 3000
# hpf 400 -- Needed to remove kick in the background :'(
......@@ -76,7 +76,7 @@ d7 $ gM3 $ gF3 -- Paroles!
# hpf 300
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
......
live/collab/baba/sept1.tidal
......@@ -26,36 +26,36 @@ d2 $ gF1 $ gM2
$ "[snare:24]"
# gain 1.4
d3 $ gF1 $ gM2 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
$ midiOn "^43" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^43" (<| "~!7 <~ <cy ~> ~ cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
|* gain (range 1.1 0.8 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d4 $ gF2 $ gM3 -- Bassline faite main avec un violoncelle californien
$ midiOn "^89" (struct "t*16")
$ midiOn "^57" (struct "t(<3 5 5 7>,8)")
$ midiOn "^44" (struct "t*16")
$ midiOn "^76" (struct "t(<3 5 5 7>,8)")
$ note ("<<[b3@5 a3 b3 a3] <[b3@7 a3] [b3@5 d4@2 a3]>> [e3@7 b3]>")
# stack [
"bass" # lpf 500,
"bass" # cut 41 # crushbus 41 (range 16 4.5 "^53") # bandf 500 # gain 1.2,
"bass" # cut 41 # crushbus 41 (range 16 4.5 "^32") # bandf 500 # gain 1.2,
""]
# "cpluck" |+ note 12
# octerbus 42 (range 0 0.8 "^33")
# octerbus 42 (range 0 0.8 "^52")
-- # octersubbus 43 (range 0 2.5 "^33")
# cut 41
# lpf 20000
# gain 1.4
d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
$ midiOn "^90" (superimpose ((# cut 51) . (# delay 0.95). (# delayt 0.125) . (# delayfb 0.7) . (# room 0) .(|* gain 0.8)))
$ midiOn "^89" (superimpose ((# cut 51) . (# delay 0.95). (# delayt 0.125) . (# delayfb 0.7) . (# room 0) .(|* gain 0.8)))
$ stack [
midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano
midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano
midiOn "^57" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano
midiOn "^57" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano
"<~!24 end!8>" # begin 0.75 # end 1 # cut 53 # gain 0.8 # pan 0.9, -- ENDING <3
-- midiOff "^58" (# silence) $ (0.25 ~>) $ (# hpf 1200) ("<p1 ~>") # cut 54, -- Filtered delayed echoes
""
]
# "rhadamanthe_melo:1"
# crushbus 51 (range 16 2.7 "^54")
# crushbus 51 (range 16 2.7 "^33")
# room 0.4
# gain 1.3
d6 $ gF1 $ gM2 $ chop 8 -- Je t'avais oublie toi <3
......
live/collab/baba/xp1.tidal
......@@ -2,12 +2,12 @@
do
setcps (120/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOn "^41" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>")
$ "[jazz,techno:1]"
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "<~ <~ sn>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "<~ <~ sn>>")
$ "snare:39"
d3 $ gF1 $ gM2
$ "h h h h h h h h*<1 <2 0 [4 2] [0 2]>>"
......@@ -16,18 +16,18 @@ d3 $ gF1 $ gM2
|* gain (slow 16 $ range 0.75 0.9 saw)
# room 0.3 # sz 0.01
d4 $ gF2 $ gM3
$ superimpose ((# crushbus 41 (range 16 3 "^53")) . (# cut 41))
$ midiOn "^89" (slice 2 1)
$ midiOn ("^57" - "^89") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
$ midiOff ("^57" + "^89") (slice 2 "<0 1>")
$ superimpose ((# crushbus 41 (range 16 3 "^32")) . (# cut 41))
$ midiOn "^76" (slice 2 1)
$ midiOn ("^44" - "^76") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
$ midiOff ("^44" + "^76") (slice 2 "<0 1>")
$ "nujazz_bass120:16"
# room 0
# cut 4
d8 $ gF1 $ gM2
$ chop 8
$ loopAt 2
$ midiOn "^56" ((# "jungle_breaks:30") . (# lpf 4000))
$ midiOn "^36" (# "jungle_breaks:13")
$ midiOn "^36" ((# "jungle_breaks:30") . (# lpf 4000))
$ midiOn "^56" (# "jungle_breaks:13")
$ "jungle_breaks:3"
d11 $ gF3 $ gM3
$ midiOn "^89" (>| note "cs5@2 gs4 cs5@3 gs4@2")
......
live/collab/bobylito/l_espace.tidal
......@@ -5,20 +5,20 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (fast 2 . (<| "k . ~ k ~ ~"))
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" (fast 2 . (<| "k . ~ k ~ ~"))
$ "[808bd:3,jazz]"
# gain 1.8
d2 $ gF2 $ gM2
$ midiOn "^43" (fast "<1!8 4!24>")
$ midiOn "^42" (fast "<1!8 4!24>")
$ "~ s*<1!7 [4 <2 4>]>"
# "snare:32"
# note "-4"
# gain 1.3 # legato 0.35
# hpf 1300
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ midiOn "^43" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^43" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr"
-- d4 $ gF2 $ gM3
-- -- $ note "<c3 c3 e3 c3>"
......@@ -36,8 +36,8 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# gain 1.6
-- # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 3.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 3.5 "^52")
d5
$ arp "up"
......@@ -51,7 +51,7 @@ d8 $ gF1 $ gM2 $ chop 8
$ loopAt 2
$ midiOn "^60" (mask "t(4,8,1)" . chop 2
)
$ midiOn "^56" (loopAt 0.5 . (# "breaks165"))
$ midiOn "^36" (loopAt 0.5 . (# "breaks165"))
$ "jungle_breaks:45"
# cut 8
# hpf 500
......
live/collab/bobylito/new_jam_nu_jazz.tidal
......@@ -5,14 +5,14 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" ((<| "k . ~ k ~ ~"))
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" ((<| "k . ~ k ~ ~"))
$ "[808bd:3,jazz]"
# gain 1.4
-- # room 0.3 # dry 1.1 # sz 0.8
d2 $ gF1 $ gM2
$ midiOn "^43" (fast "<1!8 4!24>" . (<| "~ s*<1!7 [4 <2 4>]>"))
$ midiOff "^43" (<| "~ s ~ s")
$ midiOn "^42" (fast "<1!8 4!24>" . (<| "~ s*<1!7 [4 <2 4>]>"))
$ midiOff "^42" (<| "~ s ~ s")
$ "snare:40"
-- # note "-4"
-- # gain 1.8
......@@ -31,16 +31,16 @@ d4 $ gF2 $ gM3
$ note ("<c c f c g f g f>" - 24)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (<| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ midiOn "^43" (fast 2 . (<| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^43" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr" # "h2ogmsn:4"
# gain 1.3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^57" (fast 4)
$ midiOn "^76" (ply 8)
$ midiOn "^44" (fast 4)
$ arp "up"
-- $ (off "0.125" (|+ note "12"))
$ note (
......@@ -51,8 +51,8 @@ d4 $ gF2 $ gM3
-- $ slice 4 "<0 1 2 3>"
# "bassWarsaw" |- note 24
# gain 1.6
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 3.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 3.5 "^52")
# pan 0.9
d5 $ gF3 $ gM3
$ fast 4
......@@ -69,7 +69,7 @@ d5 $ gF3 $ gM3
# room 0.9
# gain 1.3
-- # cut 4
# modIndex (range 0 4.5 "^53")
# modIndex (range 0 4.5 "^33")
-- # octersubbus 42 (range 0 3.5 "^33")
d7 $ gF3 $ gM3 $ "vocalOoh1/2" # n "<4 5>" # cut 7
# gain 1.2
......
live/collab/ccc/ccc0.tidal
......@@ -3,27 +3,27 @@
do
setcps(140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^42" (<| "<k ~>")
$ midiOn "^29" (# "hardkick_rha:29")
$ midiOn "^41" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^41" (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
-- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM2
$ fix (# lpf 1300) "cp"
$ midiOn "^43" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^43" (<| "~ . cp")
$ midiOn "^42" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^42" (<| "~ . cp")
$ "[snare:32,cp]"
d3 $ gF1 $ gM2
$ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
$ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
# cut 3
d4 $ gF2 $ gM3 -- Caring bass
$ midiOn "^57" (|+ note "[0,12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ midiOn "^44" (|+ note "[0,12]")
$ midiOn "^76" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 41) .
(# crushbus 41 (range 10 3.5 "^53"))
(# crushbus 41 (range 10 3.5 "^32"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
......@@ -33,30 +33,32 @@ d4 $ gF2 $ gM3 -- Caring bass
# legato 1
# bandf 500
# bandq 0
# octerbus 42 (range 0 0.9 "^33")
# octerbus 42 (range 0 0.9 "^52")
# cut 7
# gain 1.4
d5 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^58" (
$ midiOff "^57" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^53 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^53 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^54" + "^34")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^54"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^34"), -- TODO BONUS ACID
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^33" + "^53")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^33"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^53"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[b d6 b cs6 d6 b cs6 b]*2"
-- - "<0!32 12!32>" -- Alternance
-- -- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
-- )
-- -- # att 0.1 # sus 0.2 # rel 4
-- -- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
......@@ -82,7 +84,7 @@ d7 $ gF1 $ gM3
. (# room 0)
)
$ midiOff ("^59" + "^91") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^55" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ midiOn "^35" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
......
live/collab/ccc/ghosts_in_the_toilets.tidal
......@@ -9,7 +9,7 @@ setcps (160/60/4)
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
$ midiOn "^29" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
......@@ -22,7 +22,7 @@ d2 $ gM2 $ gF1 -- snare contretemps variable
# pan 0.65
-- # legato 0.22
d3 $ gM2 $ gF1
$ midiOn "^44" (ply "1 1 2 <1 2>")
$ midiOn "^43" (ply "1 1 2 <1 2>")
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
......@@ -44,9 +44,9 @@ d8 $ gF1 $ gM2
# octersub 0.5
# gain 1.2
d4 $ gF2 $ gM3 -- BASSLINE
$ midiOn "^89" (|+| note "[0,12*4]")
$ midiOff "^89" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
$ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^53")))
$ midiOn "^44" (|+| note "[0,12*4]")
$ midiOff "^44" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
$ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^32")))
$ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12)
# "bassWarsaw"
# gain 1.12
......@@ -58,18 +58,19 @@ d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
-- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^55"),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^35"),
-- "vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 71 (range 16 1 "^53")
# crushbus 71 (range 16 1 "^55")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[e gs e fs gs e fs e]*2"
- 12
)
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d7's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[e gs e fs gs e fs e]*2"
-- - 12
-- )
# gain 1.12
# room 0.7
# dry 1 # sz 0.8
......@@ -88,10 +89,10 @@ d6 $ gF1 $ gM3 -- HAWKS
# gain 1.5
# dry 1.025
d5 $ gM3 $ gF3
$ midiOn "^18" (# n "6")
$ midiOn "^58" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
$ midiOn "^90" (struct "f(3,8)" . ply 4 . chop 2)
$ someCyclesBy (1 - "^34") (mask "<t f f f>")
$ midiOn "^33" (# n "6")
$ midiOn "^57" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
$ midiOn "^89" (struct "f(3,8)" . ply 4 . chop 2)
$ someCyclesBy (1 - "^53") (mask "<t f f f>")
$ "ghost" # n (slow 4 $ "<0 1 2 3>")
# cut 5
# lpf 3000
......
live/collab/clem/shiloh_tech.tidal
......@@ -11,24 +11,26 @@ let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gMute
$ someCyclesBy "^30" (ply "2 <2!3 4>")
$ someCyclesBy "^29" (ply "2 <2!3 4>")
$ midiOn "^74" (# "[kick:5,kick:4]")
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
$ midiOn "^41" (<| "k k k <k [<k ~> k]>")
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (struct "t . ~ t ~ ~")
$ midiOff "^41" (struct "t . ~ t ~ ~")
$ "[kick:5,kick:4,808bd:8]"
# att 0.015
# rel 0.125
# lpf 2000
# midiG' "^78" 0 1.3
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ c")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# midiG' "^79" 0 1.3
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 . 4 <4 <8 16>>],16)")
$ midiOn "^43" (mask "t([8 . 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -41,17 +43,20 @@ d4 $ gF2
$ "fbass:4"
# cut 4
# pan 0.1
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1.4
d6 $ gF3
$ midiOn "^91" (ply "4 <4 8>")
$ midiOn "^90" (ply "4 <4 8>")
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^59 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^59 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^59 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^59 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ midiOn "^59" (slice 8 ("0 <0 [0 <0 1 2 3>]>") . chop 8)
$ midiOff "^59" (slice 4 ("<0 1 2 3>"))
$ loopAt 16
$ "shiloh:7"
# pan 0.8
# room 0.2 # sz 0.8 # dry 1
# crushbus 81 (range 16 2.5 "^55")
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d6's own control.
-- # crushbus 81 (range 16 2.5 "^34")
# midiG' "^83" 0 1.2
# cut 6
......@@ -73,22 +78,22 @@ d7 $ gF3 $ gM3 -- High Dauphin
# cut 7
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# crushbus 71 (range 16 2.5 "^35")
# midiG' "^83" 0 1
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^43" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ slow 2 -- Basse Baleine
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ midiOn "^44" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy "^17" (
$ someCyclesBy "^52" (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
$ fix ((midiOff "^76" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
......@@ -97,12 +102,14 @@ d4 $ gF2 $ slow 2 -- Basse Baleine
# "[bass2:1,bassWarsaw]" -- TODO: Autre basse moins venere?
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1.3
d6 $ gF3 $ gM3 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ midiOn "^58" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^54 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^54 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ sometimesBy "^34" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
......@@ -117,10 +124,10 @@ d6 $ gF3 $ gM3 -- Leads reponse
- 12
)
# "FMRhodes1"
# room 0.2
-- # room 0.2
# pan 0.8
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# modIndex (range 0 16 "^54")
# crushbus 61 (range 16 2.5 "^34")
# midiG' "^82" 0 1.3
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
......
live/collab/cookie/ccc.tidal
......@@ -3,17 +3,17 @@ resetCycles
do
setcps (120/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^41" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ "kick:5"
d2 $ gM2 $ gF1
$ fix (# lpf 2500) "h2ogmsn"
$ midiOff "^43" (slow 2)
$ midiOff "^42" (slow 2)
$ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>"
# "[db:11,h2ogmsn:12]"
# "[dr55:3]"
d3 $ gM2 $ gF1
$ midiOn "^76" (ply "2 <2 4>")
$ midiOn "^43" (ply "2 <2 4>")
$ someCyclesBy "<0 0.4>" (jux $ swing 2)
$ "<hh(<3!3 [3 5]>,8)!3 [hh(3,8) hh(<3!3 5>,8)]>"
# "rampleA4:6" # gain 0.5
......@@ -22,11 +22,11 @@ d3 $ gM2 $ gF1
# dry 0.9
# pan (range 0.2 0.8 (slow 4 perlin))
d4 $ gM3 $ gF2
$ midiOn "^57" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
$ midiOn "^44" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
$ note ("d" - 2 - 12)
# "90s_synatm:2"
# crushbus 41 (range 12 1.4 "^53")
# octerbus 42 (range 0 1.4 "^33")
# crushbus 41 (range 12 1.4 "^32")
# octerbus 42 (range 0 1.4 "^52")
# cut 4
# room 0.4
# pan (slow 32 $ range 0.98 0.7 saw)
......@@ -35,7 +35,7 @@ d5 $ gM3 $ gF2
$ fix (|* gain 0.7) (n 10)
$ note "<<d!16 g!16> <d!16 g!16> d g [a@3 <~ bf>]>"
# n "<5!24 10!8>" # "cbow"
# crushbus 51 (range 12 2.4 "^54")
# crushbus 51 (range 12 2.4 "^33")
# cut 5
# gain 0.6
d7 $ gM3 $ gF3 -- Keys of Paradise
......@@ -48,8 +48,8 @@ d8 $ gF1 $ gM2 -- Train break train wreck
$ chop 16
$ midiOff "^36" (loopAt 2)
$ midiOff "^56" (loopAt 2)
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "2 1 4 <2 1>")
$ midiOn "^92" (loopAt 0.5)
$ midiOn "^60" (ply "2 1 4 <2 1>")
$ chop 4
$ loopAt 4
$ "jungle_breaks:45"
......
live/collab/cookie/from_scratch_prep.tidal
do
d1 $ gM1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t t(3,8)")
$ midiOn "^41" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^41" (struct "t t(3,8)")
$ "jazz"
# lpf 400
d2 $ gM2 $ gF1
$ midiOff "^43" (struct "~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "vec1_snare:30"
d3 $ gM2 $ gF1 $ "hh*16" # "h2ogmhh"
d4 $ gM3 $ gF2
......@@ -15,8 +15,8 @@ d4 $ gM3 $ gF2
# s "bassWarsaw"
# octave 2
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 5 "^32")
# leslie 0.85
# lrate (slow 16 $ range 2 16 saw)
# lsize 0.7
......@@ -24,15 +24,15 @@ d4 $ gM3 $ gF2
# pan 0.3
# room 0.2 # sz 0.8 # dry 0.8
d5 $ gM3 $ gF3
$ midiOff "^58" (mask "t(<1 2 3 4 5 6 7 8>,16)" . chop 16)
$ midiOn "^90" (ply "4 <4 8 8 16>")
$ midiOff "^57" (mask "t(<1 2 3 4 5 6 7 8>,16)" . chop 16)
$ midiOn "^89" (ply "4 <4 8 8 16>")
$ slice 8 (slow 2
$ ply "<1!8 2!3 4 2!3 8>"
$ "<0 1 2 3 4 5 6 7>")
$ "gfunk_lead:5"
# gain 1.2 # cut 5
# pan 0.8
# octersubbus 51 (range 0 2.5 "^54")
# octersubbus 51 (range 0 2.5 "^33")
d8 $ gM2 $ gF1
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ chop 8
......
live/collab/cookie/maudite_soit_la_guerre.tidal
......@@ -11,13 +11,13 @@ let chordsRoot = whenmod 128 64 (const $ jroot chords2) (jroot chords1)
setcps (81/60/4)
d1 $ gF1 $ gM1 -- KICK TECHNO KICK TO DNB
$ fast 2
$ midiOn "^42" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^42" (<|"k . ~ k ~ <~ k>" )
$ midiOn "^41" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^41" (<|"k . ~ k ~ <~ k>" )
$ "[808bd:13,jazz]"
# gain 1
# lpf 300
d2 $ gF1 $ gM2
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ [s*<1!3 2> <~ <s s*[4 2]>>]"
# "hh27:12"
# cut 2
......@@ -26,7 +26,7 @@ d2 $ gF1 $ gM2
# legato 0.5
d3 $ gF1 $ gM2
$ degradeBy (slow 32 $ range 0.8 "-0.2" sine)
$ midiOff "^44" (degradeBy "0 0.2 0.4 0.8 0 <0!4 0.5!4> 0.1 0")
$ midiOff "^43" (degradeBy "0 0.2 0.4 0.8 0 <0!4 0.5!4> 0.1 0")
$ "dr*[<32!3 16> . 16 <32 [8 32]>]"
# "h2ogmsn:4"
# gain (0.8 * "1 1 0.9 1 0.8 0.9 0.8 <0.9 0.8 0.9 [1.1|1]>")
......@@ -43,17 +43,17 @@ d4 $ gF2 $ gM3
# room 0.3 # sz 0.4 -- Tighter reverb for punch
# gain (1.3 * "<1 [0.9|1] 1 0.9>") -- Consistent power with subtle variation
# legato (slow 8 $ range 0.5 1 perlin) -- Not always full
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3
-- $ struct "<[t ~ ~ t? ~ t ~ ~] [t ~ t? ~ ~ ~ t ~]>" -- Alternating patterns + random hits
-- $ struct "t ~ [~|t] t ~ <t t?> ~ ~" -- Alt: More random variation
$ superimpose (id -- TODO ARPEGIATE PLZ)
(midiOn "^90" (stut 4 "e" 0.9)) .
(midiOn "^89" (stut 4 "e" 0.9)) .
struct "t(12,8)" .
slow 4
. arp "up"
. (# cut 51)
. (|* gain (1.4 * "^34"))
. (|* gain (1.4 * "^33"))
. (|+ octave 1)
. (# pan 0.8)
. (# modIndex 0)
......@@ -70,7 +70,7 @@ d5 $ gF3 $ gM3
# pan ("<0.3 0.7 [0.5|0.6]>" + (slow 32 $ range (-0.1) 0.1 sine)) -- Drift + variation
# attack (0.01 + (rand * 0.02)) -- Slight timing humanization
# release (slow 16 $ range 0.8 1.5 sine)
# crushbus 41 (range 16 3.5 "^54")
# crushbus 41 (range 16 3.5 "^53")
d7 $ gF3 $ gM3
$ slow 16 $ chordsRoot -- Very slow, ambient
-- |+| n "[0,7] ~ ~ ~ [7,12]? ~ ~ ~" -- Fifth chords, sparse hits
......
live/collab/cricri/citar1.tidal
......@@ -5,14 +5,14 @@ setcps (112/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1
$ 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")
$ midiOn "^41" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^41" (<| "k . <~!8 k!8> ~ ~ k")
-- $ fix (|* gain 0.6) "jazz"
$ "[jazz]"
# gain 0.9
d2 $ gF1 $ gM2
$ midiOn "^43" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^43" (<| "~ <s <~ [~ s]>>")
$ midiOn "^42" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^42" (<| "~ <s <~ [~ s]>>")
$ "vec1_claps"
# gain 1
# room (slow 16 $ range 0 0.8 perlin)
......@@ -21,13 +21,13 @@ d2 $ gF1 $ gM2
# gain 0.8
-- # att 0.03 # rel 2
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "h*[<12 16 32 8> <8 [4 16]>]"
# "drum:2"
# gain 1.2
# room 0.3 # dry 0.8
d4 $ gF2 $ gM3
$ midiOn "^57" (
$ midiOn "^44" (
|+ note (arp "up" "<c'maj'4!8 g'maj'4!8> c'maj'4")
)
$ struct "t. t(<3 5 8>,8)"
......@@ -36,7 +36,7 @@ d4 $ gF2 $ gM3
# gain 0.8
# room 0.4 # sz 0.4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "8 <8 16>")
$ midiOn "^89" (ply "8 <8 16>")
$ slice 8 ("<0 1 2 3 4 5 6 7>")
-- $ loopAt 4
$ "cricri:7"
......
live/collab/daniel/auxiliaire.tidal
......@@ -3,28 +3,28 @@ setcps (114/60/4)
-- resetCycles
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^78" (# silence)
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ "[kick:4]"
# gain 1.8
# lpf 400
d2 $ gF1 $ gM2
$ midiOff "^79" (# silence)
$ midiOff "^43" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ midiOff "^42" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "o([8 . 8 <8 16> 4],8,1)"
# "ho"
# gain 1.2
# att 0.1 # rel 0.9
# room 0.5
# drybus 31 (range 1 0 "^51")
# legato (range "s" 2 "^52")
# legato (range "s" 2 "^31")
d5 $ gF2 $ gM3
$ midiOn "^90" (ply 4)
$ midiOn "^58" (# n 1)
$ midiOn "^89" (ply 4)
$ midiOn "^57" (# n 1)
-- $ slice 4 (ply 2 $ "<0 1 2 3>" + "0 0*2")
$ slice 4 (ply 2 $ "<0 0 0 3>")
$ "aux_heart"
......@@ -32,21 +32,21 @@ d5 $ gF2 $ gM3
# gain 1.4
# room 0.4
# pan 0.8
# crushbus 51 (range 16 2.5 "^54")
# octerbus 52 (range 0 1 "^34")
# crushbus 51 (range 16 2.5 "^33")
# octerbus 52 (range 0 1 "^53")
# gain 1.7
d4 $ gF2 $ gM3
$ midiOn "^89" (chop "<8 8 8 8 8 7 8 7>")
$ midiOn "^76" (chop "<8 8 8 8 8 7 8 7>")
$ note ("<a <a [a@7 b]> fs <fs [fs@7 e]>>"
-- + "[0,<0 7>,7,12]"
- "[24]"
)
# "bassWarsaw"
# gain 1.5
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
d7 $ gF3 $ gM3
$ midiOn "^91" ((ply "8 <16 [16 32]>"))
$ midiOn "^59" ((ply "8 <16 [16 32]>"))
$ slow 2
$ slice 4 ("<0 1 2 3>")
$ "aux_heart:3"
......
live/collab/jane/tired_soul.tidal
......@@ -2,16 +2,16 @@ do
setcps (120/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^42" (<| "<k <~ [~!7 k]>>")
$ midiOn "^41" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^41" (<| "<k <~ [~!7 k]>>")
$ "[reverbkick,808bd:4]" -- Profond
# gain 1.8
# lpf 400
# octersub 2
# cut 1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ . <~ <s [s*2 . ~ <~ s>]>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ . <~ <s [s*2 . ~ <~ s>]>>")
$ "[snare:70]"
# note "-5"
# gain 1.4
......@@ -30,7 +30,7 @@ d4 $ gF2 $ gM3 -- BASSLINE SYNTH
$ chop 2
$ superimpose (
(
# crushbus 41 (range 10 4.5 "^53")
# crushbus 41 (range 10 4.5 "^32")
) . (# hpf 500) . (# lpf 10000)
)
$ slow 2
......@@ -44,7 +44,7 @@ d4 $ gF2 $ gM3 -- BASSLINE SYNTH
# room 0.4 # sz 0.8
# octersub 2 # octersubsub 1
d5 $ gF3 $ gM3
$ midiOn "^58" (superimpose ( -- Echoes
$ midiOn "^89" (superimpose ( -- Echoes
(# pan 0.8)
. (0.25 ~>)
. (|* gain "<0 1> 0.9 0.8 0.8")
......@@ -72,15 +72,15 @@ d7
d8 $ gF1 $ gM2
$ midiOn "^92" ( -- BREAK ME
splice 4 "<0!3 [0 1] 0 0 [0 1] [0 1]*2> 1 2 3*<4 <2 8>>")
$ midiOn "^56" (loopAt 0.5 . (# "break:15"))
$ midiOn "^36" (loopAt 0.5 . (# "break:15"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:101"
# gain 1.2
d4 $ gF2 $ gM3 -- Cello bass
$ midiOn "^89" (|+| note "[0 12 0]")
$ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ midiOn "^44" (|+| note "[0 12 0]")
$ midiOn "^76" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ juxBy 0.6 (|+| note ("7([3 1],8)"))
$ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
|* gain "<[1@7 0.9] 1 1 1>"
......@@ -113,7 +113,7 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (>| "jungle_breaks:10")
$ midiOn "^36" (>| "jungle_breaks:10")
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
......
live/collab/josh/oct_18_rainy_day.tidal
......@@ -9,8 +9,8 @@ setcps (114/60/4)
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t*4")
$ midiOff "^42" (<| "k ")
$ midiOn "^41" (struct "t*4")
$ midiOff "^41" (<| "k ")
$ "[jazz,kick:4,909]"
-- # midiG' "^78" 0 1.2
# gain 1.2
......@@ -27,18 +27,18 @@ d3 $ gM2 $ gF1
-- # midiG' "^80" 0 1.6
# gain 1.6
d4 $ gF2
$ midiOn "^89" (ply "<4 8>" . slow 2)
$ midiOff "^57" (mask "f(4,8,1)")
$ midiOn "^76" (ply "<4 8>" . slow 2)
$ midiOff "^44" (mask "f(4,8,1)")
$ note ((slow 2 $ ("<e3 e3 b3 <b3 b3 a3 a3>>" + "[0,0(4,8,1)*2]"))
-- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
)
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# "bassWarsaw"
# pan 0.25
-- # midiG' "^81" 0 1.5
# gain 1.5
d5 $ gM3 $ gF3
$ midiOn "^58" (mask "t(<1 2>,4)")
$ midiOn "^57" (mask "t(<1 2>,4)")
-- c e d b / c a d b / a c b g / c a g b
$ note ("<[c@2 e@2 d@1 b4@3]!2 [c@2 a4@2 d@1 b4@3]!2 [a4@2 c@2 b4@1 g4@3]!2 [c@2 a4@2 c@1 b4@3]!2>" - 3)
# att 0.8
......@@ -49,8 +49,8 @@ d5 $ gM3 $ gF3
-- # velocity 0.45
-- # midiG' "^82" 0 2.5
# gain 2.5
# crushbus 51 (range 16 4.5 "^54")
# roombus 52 (range 0 0.5 "^54") # sz 0.5 # dry 1.3
# crushbus 51 (range 16 4.5 "^33")
# roombus 52 (range 0 0.5 "^33") # sz 0.5 # dry 1.3
d8 $ gF1
$ midiOn "^92" (ply "1 <2 4 4 8>")
$ chop 16
......@@ -108,8 +108,8 @@ setcps (120/60/4)
$ "[jazz,kick:4]" # lpf 3000
# midiG' "^78" 0 1.5
d2 $ gM2 $ gF1 -- snare contretemps variable
$ midiOn "^43" (<| "~ cp ~ cp")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp")
$ midiOff "^42" (<| "~ cp")
$ "[cp]"
# pan 0.65
# legato 0.22
......
live/collab/micka/bazurto_closed.tidal
......@@ -5,15 +5,15 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[vec1_claps:10]"
-- # pan 0.65
# gain 1.5
......@@ -28,13 +28,13 @@ d4 $ gF1 $ gM3
$ note ("<e3 b3 e3 g3>" - 12)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 1.5 "^52")
d5 $ gF1 $ gM3
-- $ midiOn "^90" (ply "4")
$ midiOn "^90" (stut 4 0.9 "q")
$ midiOn "^58" (slice 8 "<4 4 <4 5> 6>") -- Phase 2
$ midiOff "^58" (slice 16 "<[1 2] [1 2] [1 2] [3 4]>") -- Phase1
$ midiOn "^89" (stut 4 0.9 "q")
$ midiOn "^57" (slice 8 "<4 4 <4 5> 6>") -- Phase 2
$ midiOff "^57" (slice 16 "<[1 2] [1 2] [1 2] [3 4]>") -- Phase1
$ "latin:0"
# cut 5
# gain 1.2 # room 0.3 # sz 0.9 # lpf 4000
......
live/collab/mousquetaires/blue_burn.tidal
......@@ -3,22 +3,24 @@ resetCycles
do
setcps(120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ fix (|* gain 0.9) "kick:5"
$ "[h2ogmbd:1,kick:5]" -- TODO: Meilleur kick?
# gain 1.2
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "cp"
# gain 0.9
# pan 0.6
# note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -29,21 +31,21 @@ d3 $ gF1 $ gM2 -- Highest hats
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gM3 $ gF2
$ midiOn "^89" (superimpose (
$ midiOn "^76" (superimpose (
(struct "t(8,16)") . (# legato 0.2). (# cut 41))
. (|* gain 0.8)
)
$ note "<<e!3 e4> <~ [~!7 <g g g a g a bf b>]>>"
# "moog"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 "^33"
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 "^52"
# cut 4 # gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^90" (ply 2)
$ midiOn "^89" (ply 2)
$ note (arp "down" "c'min'2" + "<<e!3 e4> <b3 [~!7 <g g g a g a bf b>]>>")
# "FMRhodes1"
# crushbus 52 (range 16 2.5 "^54")
# modIndex (range 0 2.5 "^34")
# crushbus 52 (range 16 2.5 "^33")
# modIndex (range 0 2.5 "^53")
-- # cut 5
# pan 0.7
# gain 1.2
......@@ -58,7 +60,7 @@ d8 $ gF1 $ gM2 -- Break populaire
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM3 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^35" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
......
live/collab/nass/love_first.tidal
......@@ -6,8 +6,8 @@ setcps (120/60/4)
d1 $ gF1 $ gM1
-- $ "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>>]"
$ midiOn "^42" (<| "k k k k*<2 4>")
$ midiOff "^42" (<|"k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*<2 4>")
$ midiOff "^41" (<|"k . ~ k ~ ~")
$ "[jazz,kick:5]"
-- # att 0.02
-- # rel 0.5
......@@ -20,21 +20,21 @@ d2 $ gF1 $ gM2 $ "~ s ~ s*<1 2>"
# gain 1.2
d3 $ gF1 $ gM2 $ "~ d ~ d ~ d ~ d*<1 <2 [2 4]>>" # "dr:2" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^76" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 0.85 "^52")
# room 0.4
# gain 1.5
d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t f")
$ midiOff "^57" (mask "t f")
$ loopAt 2
$ chop 2
$ midiOn "^58" (# n 14)
$ midiOn "^57" (# n 14)
$ "nujazz_keys120:13"
# room 0.5
# crushbus 51 (range 10 1.8 "^54")
# crushbus 51 (range 10 1.8 "^33")
# sz 0.8 # dry 1.2
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "2 <2 4 4 8>")
......@@ -48,7 +48,7 @@ d7 $ gF3 $ gM3
# gain 1.4
d8 $ gF1 $ gM2 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(4,8)")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^36" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 8 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
. loopAt 1 . (# "breaks165")
......
live/collab/nass/sogood.tidal
......@@ -4,10 +4,10 @@ setcps (142/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
$ midiOn "^29" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
$ midiOn "^41" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
-- $ fix ((|- note 2) . (# lpf 1200)) ""
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~!3 s")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~!3 s")
-- $ "[snare:35,<snare:43!4 snare:40!4>]"
$ "vec1_claps:45" # legato 0.25
# gain 1.44
......@@ -35,7 +35,7 @@ d6 $ gM3 $ gF1 -- HAWKS
# gain 1.4
# dry 1.02
d3 $ gM2 $ gF1-- DrumRoll
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
-- $ whenmod 4 2 (rarely (ply 2))
......@@ -58,41 +58,42 @@ d9 $ gF3 $ gM3 -- BASSLINE FONDEMENT
# gain 1.8
d4 $ gF2 $ gM3 -- LA BASSE REBONDISSANTE
$ superimpose (mask "[f t]*4" . (|+| note (12 + "0 12 <0!3 <12!3 0>>" + 3))
. (# "vec1_acid:6") . (|* gain (range 0.35 1 "^33")). (# cut 41))
$ midiOn "^57" (off "-0.125" (|- note 12))
. (# "vec1_acid:6") . (|* gain (range 0.35 1 "^32")). (# cut 41))
$ midiOn "^44" (off "-0.125" (|- note 12))
$ note ("~ f ~ f . ~ <f!3 ef> <~!3 f> <f!3 ~>" - 24)
# "bassWarsaw"
# gain 1.3
# octersubsubbus 42 (range 0 0.8 "^17")
# octerbus 43 (range 0 0.8 "^17")
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 0.8 "^52")
# octerbus 43 (range 0 0.8 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 3.5 "^53")
# room 0.4 # sz 0.5
d5 $ gF2 $ gM3 -- Keys
$ mask "t <f!4 t!12>"
$ midiOn "^90" (ply 8 . chop 4)
$ midiOn "^58" (slice 16 ("[~ <4!4 3!4 2!4 1!4>]*4"))
$ midiOn "^89" (ply 8 . chop 4)
$ midiOn "^57" (slice 16 ("[~ <4!4 3!4 2!4 1!4>]*4"))
-- $ someCyclesBy (slow 16 $ range 0 0.2 saw) (degradeBy "0 0.5!15")
$ slow 4
$ "sogood"
# n "<0!4 1!4 2!4 3!4>"
# cut 5
# octersubbus 51 (range 0 0.9 "^34")
# crushbus 52 (range 16 4.5 "^54")
# octersubbus 51 (range 0 0.9 "^33")
# crushbus 52 (range 16 4.5 "^53")
# gain 1.8
# lpf 2000
-- # room 0.4
d7 $ gF3 $ gM3 -- VOICES TODO Refine loops
-- $ midiOn "^91" (ply "<2>" . off 1 id . off 2 id . chop "<1!3 4>" . (# cut 7))
$ midiOn "^91" (ply "8 4" . chop "<1 2>". (# cut 7) . (# room 0.3))
$ midiOn "^19" ( -- Intro: Your love
$ midiOn "^35" ( -- Intro: Your love
(>| n "<~!3 11>") . (# end (slow 4 "<0.2 0.55>")))
$ midiOn ("^59"-"^19") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^19") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ midiOn ("^59"-"^35") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^35") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ "sogood"
# gain 1.6
-- # cut 7
-- # delay "<0!3 [0.5]>" # delayt 0.125 # delayfb 0.5
# octersubbus 71 (range 0 1.9 "^35")
# octersubbus 71 (range 0 1.9 "^55")
d11 $ gF2 $ gM3
$ note ("<gs4 f4 gs4 f4 c5 gs4 c5 gs4 f5 ef5 cs5 c5 bf4 gs4 g4 f4>"
+ "0 5@3 . 0 <-2 <2 5>>"
......
live/collab/nvzt/liquid_finale.tidal
......@@ -4,15 +4,15 @@ setcps (166/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "[jazz]"
-- # lpf 300 -- TODO Sound design this kick <3
# cut 1
# gain 1.5
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ midiOff "^42" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -26,32 +26,32 @@ d3 $ gF1 $ gM2
# "h2ogmhh:2"
# gain 1.7
-- # att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
# legato (range 0.05 0.9 "^31")
d4 $ gF2 $ gM3
$ midiOn "^57" (
$ midiOn "^76" (
superimpose (("e" ~>) .(|+ note 12) . (# cut 41)))
$ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c"
+ "<0 0 0 0 7 7 5 0>"
)
-- # "moog:1"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# pan 0.4
# cut 4
# gain 1.4
d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ midiOn "^90" (ply "4 <8 16>")
$ midiOn "^89" (ply "4 <8 16>")
$ slow 2
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:10" # cut 4
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# pan 0.9
# room 0.3
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
live/collab/raph/8_blues.tidal
......@@ -4,8 +4,8 @@ setcps (110/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -30,25 +30,27 @@ d3
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ chop 4
$ loopAt 2
$ "blues_guitar_rock_110" # n "<9 <9 13> 11 12>"
# cut 4
# room 0.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# tremdpbus 43 "^17"
# tremrbus 44 (range 0.2 8 "^18")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremdpbus 43 "^17"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremrbus 44 (range 0.2 8 "^18")
d5 $ gF3 $ gM3 -- YOUR VALUES ARE WRONG
$ midiOff "^58" (mask "t(4,8,1)")
$ midiOn "^90" (ply 2)
$ midiOff "^57" (mask "t(4,8,1)")
$ midiOn "^89" (ply 2)
$ note ("[ef f gs ef f gs ef f]*2"
- 12
+ "<0!4 12!4>"
)
# "FMRhodes1"
# squizbus 51 (range 0 4 "^54")
# squizbus 51 (range 0 4 "^33")
# modIndex "<2 4 8 16>"
# gain 1.5
d7 $ gF3 $ gM3
......@@ -72,11 +74,11 @@ d12 $ gF3 $ gM3
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
$ midiOn "^36" (
-- slice 8 "0 <1 <~ 1*2>> 2 3? 4 5? <6 6?> <7 7*2>" .
loopAt 2 .
(# "jungle_breaks:63"))
$ midiOn "^36" ( -- Bouton Nassim <3
$ midiOn "^56" ( -- Bouton Nassim <3
(loopAt 2) . (# "jungle_breaks:45")
)
$ loopAt 1 $ "breaks165"
......@@ -109,7 +111,9 @@ d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -137,8 +141,8 @@ d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
$ midiOn "^36" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^56" (loopAt 2 . (# n 12))
$ midiOn "^56" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^36" (loopAt 2 . (# n 12))
$ chop 16
$ loopAt 4
$ "jungle_breaks:12" # cut 8
......@@ -151,7 +155,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -161,8 +165,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -182,16 +186,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
live/collab/raph/8bit_delicat.tidal
......@@ -4,8 +4,8 @@ setcps (80/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (fast 2 . struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (fast 2 . struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -31,25 +31,27 @@ d3
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ chop 4
$ loopAt 4
$ "bass_commodore:8"
# cut 4
# room 0.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# tremdpbus 43 "^17"
# tremrbus 44 (range 0.2 8 "^18")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremdpbus 43 "^17"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremrbus 44 (range 0.2 8 "^18")
d5 $ gF3 $ gM3 -- YOUR VALUES ARE WRONG
$ midiOff "^58" (mask "t(4,8,1)")
$ midiOn "^90" (ply 2)
$ midiOff "^57" (mask "t(4,8,1)")
$ midiOn "^89" (ply 2)
$ note ("[c ef f c ef f c <ef <gs c5> <gs b5> ef>]*2"
- 12
+ "<0!4 12!4>"
)
# "FMRhodes1"
# squizbus 51 (range 0 4 "^54")
# squizbus 51 (range 0 4 "^33")
# modIndex "<2 4 8 16>"
# gain 1.5
d7 $ gF3 $ gM3
......@@ -71,10 +73,10 @@ d12 $ gF3 $ gM3
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
$ midiOn "^36" (
slice 8 "0 <1 <~ 1*2>> 2 3? 4 5? <6 6?> <7 7*2>"
. loopAt 2 . (# "jungle_breaks:63"))
$ midiOn "^36" ( -- Bouton Nassim <3
$ midiOn "^56" ( -- Bouton Nassim <3
(loopAt 2) . (# "jungle_breaks:45")
)
$ loopAt 0.5 $ "breaks165"
......@@ -107,7 +109,9 @@ d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -135,8 +139,8 @@ d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
$ midiOn "^36" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^56" (loopAt 2 . (# n 12))
$ midiOn "^56" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^36" (loopAt 2 . (# n 12))
$ chop 16
$ loopAt 4
$ "jungle_breaks:12" # cut 8
......@@ -149,7 +153,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -159,8 +163,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -180,16 +184,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
live/collab/raph/acidule.tidal
......@@ -4,8 +4,8 @@ resetCycles
setcps (135/60/4)
let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ midiOn "^41" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ stack [
"kick" # cut 11 # gain 1.2 # lpf 10000 # delaybus 11 0,
"rumble" # cut 12 # gain 2 # lpf 200 # delaybus 12 0.25 # delayt "q" # delayfb 0
......@@ -19,8 +19,8 @@ d1 $ gM1 $ gF1 -- Kick solide
# gain 1
-- # cut 1
d2 $ gF1 $ gM2 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ midiOn "^42" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^42" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "cp"
# note "0!3 -1"
# lpf 4000
......@@ -33,7 +33,7 @@ d3 $ gF1 $ gM2
# "rampleP3:19"
# delay 0.5 # delayt 0.25 # delayfb 0.2
# pan 0.7 # cut 3
# legato (range 0.2 0.8 "^52")
# legato (range 0.2 0.8 "^31")
d10 $ gF3 -- Self-destruction riser
$ (stack [
n "<<55!8 ~!54> ~!3>"
......@@ -58,35 +58,36 @@ d9 $ gF3
# bandf 400
# gain 1.3
d4 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^57" (
$ midiOff "^44" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^53" + "^33")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^53"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^33"), -- TODO BONUS ACID
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^32" + "^52")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^32"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^52"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
# crushbus 41 (range 16 1 "^32")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[b d6 b cs6 d6 b cs6 b]*2"
-- - "<0!32 12!32>" -- Alternance
-- -- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
-- )
-- -- # att 0.1 # sus 0.2 # rel 4
-- -- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
d5 $ gF3 $ gM3 -- Piano lead acidule
$ fix (# bandf 800) "FMRhodes1"
-- $ fix (# bandf 1050) "FMRhodes2"
$ midiOn "^90" (struct "t(<8 <8 16>>,64)")
$ midiOn "^58" ((stutWith 4 0.125 (|- note 12)) . (|+ note 12))
$ superimpose (# modIndex (range 0 16 "^34"))
$ midiOn "^57" (struct "t(<8 <8 16>>,64)")
$ midiOn "^89" ((stutWith 4 0.125 (|- note 12)) . (|+ note 12))
$ superimpose (# modIndex (range 0 16 "^33"))
$ note ("b ~ ~ b ~ ~ <d!7 e6> <~ d>"
+ "[0,<~!4 7!4>]"
-- + "[0,12]"
......@@ -101,7 +102,7 @@ d7 $ gF2 $ gM3 -- Caring bass
$ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 71) .
(# crushbus 71 (range 10 3.5 "^55"))
(# crushbus 71 (range 10 3.5 "^35"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
......@@ -119,8 +120,8 @@ d8 $ gF1 $ gM2
. (|* gain 0.8)
)
$ midiOff ("^60" + "^92") (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:40")
$ midiOn ("^36" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4") . (|* gain 1.1))
$ midiOn "^36" (# "jungle_breaks:40")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4") . (|* gain 1.1))
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
......
live/collab/raph/bad_witch.tidal
......@@ -3,27 +3,27 @@ setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~!3 <~!3 k>")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . ~!3 <~!3 k>")
$ "[kick:5,clubkick]"
# cut
1
d2 $ gF1 $ gM2
$ fast 2
$ midiOn "^43" (<|"~ s ~ s*<1 2>" )
$ midiOff "^43" (<| "~ s/2")
$ midiOn "^42" (<|"~ s ~ s*<1 2>" )
$ midiOff "^42" (<| "~ s/2")
$ "rampleM9:4"
# gain 0.9
d3 $ gF1 $ gM2
$ fast 2
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
$ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
$ "~ d ~ d ~ d ~ d*<1 <2 [4 2]>>"
# "rampleA4:9"
# cut 3
# pan 0.2
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "2 4")
$ midiOn "^76" (ply "2 4")
$ note ("[c4@2 c5 ~ [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
# "bassWarsaw"
# cut 4
......@@ -31,7 +31,7 @@ d4 $ gF2 $ gM3
# octersub 0.8
# gain 0.8
# pan 0.6
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d9 $ "90s_matrix:0/4"
# cut 9
-- # room 0.4
......@@ -42,15 +42,15 @@ d5 $ gF3 $ gM3
$ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
$ fast 4 $ note ("[c <c!3 f> c <g fs ef b4>]")
# "FMRhodes1"
# modIndex (range 0 64 "^54")
# modIndex (range 0 64 "^33")
# pan 0.2
# gain 1.2
# room 0.2 # sz 0.9
# cut 5
|- note 12
d8 $ gF1 $ gM2
$ midiOn "^60" (ply 2)
$ midiOn "^92" (ply 2)
$ midiOn "^60" (ply 2)
$ chop 16
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:24") . (|* gain 1.1)) -- Legerete orleanaise
$ midiOn "^56" ((# "jungle_breaks:45")) -- Legerete orleanaise
......
live/collab/raph/biscuit_acide.tidal
do
setcps (128/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^42" (<| "k . ~ k")
$ midiOn "^41" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^41" (<| "k . ~ k")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM2
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_snare" # gain 1.4
d3 $ gF1 $ gM2
$ midiOn "^44" (sometimes rev . stut 3 0.8 "s")
$ midiOn "^43" (sometimes rev . stut 3 0.8 "s")
$ "~ h ~ h ~ h ~ h"
# "ho:2" # gain 1.1 # cut 3
d4 $ gF2 $ gM3 -- LA ACID BASS DOUBLE AMOUR
$ midiOn "^57" (superimpose (
$ midiOn "^76" (superimpose (
(0.25 ~>) . (|+ note "[7 12 7 <7 12>]")
. (# pan 0.7)
. (# squizbus 41 (range 0 4 "^53"))
. (# squizbus 41 (range 0 4 "^32"))
. (|* gain 1.3)
))
$ note (
......@@ -26,7 +26,7 @@ d4 $ gF2 $ gM3 -- LA ACID BASS DOUBLE AMOUR
# "vec1_acid:0" |+ note 3 # legato 0.7
# room 0.3
-- # cut 4
# octersubbus 42 (range 0 2.5 "^33")
# octersubbus 42 (range 0 2.5 "^52")
-- |+ note 3
d9 $ gF3 $ gM3
$ sometimesBy "^18*4" (ply 4)
......
live/collab/raph/dernier_dimanche.tidal
......@@ -6,14 +6,14 @@ d1 $ gM1 $ gF1 -- Kick solide
-- $ fast 2
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
d2
$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ cp")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
......@@ -24,14 +24,15 @@ d3 $ gM2 $ gF1
# hpf 7000
-- # midiG' "^80" 0 1.5
d4 $ gF2
$ midiOn "^89" (ply "<2 4> <2 4 4 8>")
$ midiOn "^76" (ply "<2 4> <2 4 4 8>")
$ arp "up"
$ note ("<g f ef d>" + "[0 12 0 12*<1 2>]")
# "giorgio_syn:23"
# room 0.5 # sz 0.6
# crushbus 42 (range 16 1.4 "^53")
# relbus 43 (range 2 0.02 "^33")
# octerbus 44 (range 0 1.4 "^17")
# crushbus 42 (range 16 1.4 "^32")
# relbus 43 (range 2 0.02 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 44 (range 0 1.4 "^17")
# att 0.22
# gain 0.8
-- # cut 4
......@@ -39,9 +40,10 @@ d5 $ gF3 $ gM3
$ note ("<g d ef d>" + "0(3,8)")
# "trance_blips:12"
# room 0.5 # sz 0.6
# crushbus 52 (range 12 1.4 "^54")
# relbus 53 (range 2 0.02 "^34")
# octerbus 54 (range 0 1.4 "^18")
# crushbus 52 (range 12 1.4 "^33")
# relbus 53 (range 2 0.02 "^53")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # octerbus 54 (range 0 1.4 "^18")
# att 0.22
# cut 5
d6 $ gF2
......@@ -64,11 +66,11 @@ d7
-- # gain 0.8
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff ("^56" + "^36") (mask "t(4,8,1)")
$ midiOff ("^36" + "^56") (mask "t(4,8,1)")
$ chop 16
$ loopAt 2
$ midiOn "^36" ((|* gain 0.7) .(# "jungle_breaks:42"))
$ midiOn "^56" (# "jungle_breaks:43")
$ midiOn "^56" ((|* gain 0.7) .(# "jungle_breaks:42"))
$ midiOn "^36" (# "jungle_breaks:43")
$ "jungle_breaks:45"
# cut 8
-- # midiG' "^84" 0 1.5
......@@ -94,7 +96,8 @@ d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
-- $ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^17 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
......@@ -104,7 +107,7 @@ d4 -- Basse convaincante
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
$ midiOn "^57" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
......@@ -114,8 +117,8 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# modIndex (range 0 50 "^33")
# delaybus 51 (range 0 0.8 "^53")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
......
live/collab/raph/dernier_doute.tidal
......@@ -11,8 +11,8 @@ d1 $ gM1 $ gF1 -- Kick solide
. (# legato 0.25)
. (# lpf 400) -- Low-pass show
)
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ midiOn "^41" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ "[techno:1,jazz]"
-- $ "[hardkick_rha:1]"
# lpf 400
......@@ -23,17 +23,17 @@ d2 $ gF1 $ gM2 $ "~ . s*<1!3 2 1 2 1 2> ~"
# note "-14"
# room 0.14 # dry 1 # gain 1.7
d3 $ gF1 $ gM2
$ midiOn "^44" (<| "~ h ~ h ~ h*<1 2 2 1> ~ h*<1 1 2 <2 4>>")
$ midiOff "^44" (<| "h h ~!5 h*<1 2>" )
$ midiOn "^43" (<| "~ h ~ h ~ h*<1 2 2 1> ~ h*<1 1 2 <2 4>>")
$ midiOff "^43" (<| "h h ~!5 h*<1 2>" )
$ "h2ogmhh"
# delay 0.4 # delayt 0.125 # delayfb 0.2
# gain 1.2
d4 $ gF2 $ gM3 -- TODO REWORK
$ midiOn "^57" (struct "t([16@3 <16!3 8 16 16 8 4>],8)")
$ midiOff "^57" (|+| note"0([5 <2!16 <3!16 5!16>>],8,1)")
$ midiOn "^44" (struct "t([16@3 <16!3 8 16 16 8 4>],8)")
$ midiOff "^44" (|+| note"0([5 <2!16 <3!16 5!16>>],8,1)")
$ superimpose (
(# cut 41)
. (# crushbus 41 (range 16 1.5 "^53"))
. (# crushbus 41 (range 16 1.5 "^32"))
. (# hpf 200)
. (# lpf 10000)
)
......@@ -44,9 +44,10 @@ d4 $ gF2 $ gM3 -- TODO REWORK
-- + 12 -- Octave: -1
)
# "giorgio_syn:6"
# octerbus 42 (range 0.25 1.2 "^33")
# octerbus 42 (range 0.25 1.2 "^52")
# cut 4
# scram (range 0 0.72 "^17")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # scram (range 0 0.72 "^17")
d7 $ gF3 $ gM3 -- Apollo call
$ note ((scale "phrygian" "0 2@2 3@3 <2!3 5 6 6 7 [9 9]>@2")
- 1 -- Fondamentale: re
......@@ -55,7 +56,7 @@ d7 $ gF3 $ gM3 -- Apollo call
# "FMRhodes1"
# gain 2
d5 $ gF3 $ gM3
$ midiOn "^58" (stut 4 0.9 "e")
$ midiOn "^89" (stut 4 0.9 "e")
$ note (
-- "<b <b fs b <d d6 d6>>@7]>"
"<b [~ . bf ~ ~ <~ bf g g>]>"
......
live/collab/raph/des_efforts.tidal
......@@ -14,7 +14,9 @@ d2 $ gF1 $ gM2 $ dMask
# "[h2ogmcy:1,cp]"
# gain 1
d3 $ gF1 $ gM2 $ dMask
$ midiOff "^76" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "t t t t t t*<1 2 1 1> ~ t*<1!3 2>")
)
......@@ -23,24 +25,24 @@ d3 $ gF1 $ gM2 $ dMask
# legato "<0.33!16 0.5!16 0.75!16 1!16>"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3
$ midiOn "^57" (superimpose ((0.25 ~>)
$ midiOn "^76" (superimpose ((0.25 ~>)
. (|+| note (
"[0 7 0 12]*2" +
"0 0 0*<1!4 2!4> 0*<1 2 1 2 2!3 4>"
+ "<12!6 24 [24 . 12 0]>"
))))
$ midiOn "^89" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ midiOn "^44" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ note "<g3 g3 bf3 d3>"
# "bassWarsaw"
# gain 1.2
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.2
# sz 0.2
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "4 8")
$ midiOn "^59" (<| n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>" )
$ midiOff "^59" (<| n "<0 1>")
$ midiOn "^89" (ply "4 8")
$ midiOn "^57" (<| n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>" )
$ midiOff "^57" (<| n "<0 1>")
$ "law_adri"
# cut 5
# pan 0.8
......
live/collab/raph/drums_architect.tidal
......@@ -7,22 +7,24 @@ let gM = gMask . gMute
-- Main Bbm/F vamp with Db/Ebm variation at the end
let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
d1 $ gF1 $ gM1 -- KICK: Deep 4otf house kick
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k")
$ fix ((# att 0.01) . (# rel 0.5) . (# lpf 2000)) "kick:4"
$ "[techno:0,808bd:2,kick:4]"
# gain 1.3
d2 $ gF1 $ gM -- CLAP: h2o natural handclap, reverbed
$ midiOn "^43" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^43" (<| "~ cp ~ <~ cp*<1 2>>")
$ midiOn "^42" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^42" (<| "~ cp ~ <~ cp*<1 2>>")
$ "h2ogmcp"
-- # room (slow 32 $ range 0.3 0.6 saw)
-- # sz (slow 32 $ range 0.1 0.45 cosine)
# dry 1
# gain 1.1
d3 $ gF1 $ gM -- HATS: h2o sparse offbeat + light flourish
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2) -- double time on button
$ midiOff "^44" (mask "t(3,8)")
$ midiOff "^43" (mask "t(3,8)")
-- n: 0-4 closed Hard→Soft, 5-9 open, 15-19 semi-open
$ "~ h ~ h ~ h ~ <h!3 h*2>"
# "h2ogmhh"
......@@ -33,15 +35,15 @@ d4 $ gF3 $ gM3
$ "gfunk_lead:7"
# gain 1.2
# room 0.3
# crushbus 41 (range 16 3.5 "^53")
# lpfbus 42 (range 300 1200 "^33")
# crushbus 41 (range 16 3.5 "^32")
# lpfbus 42 (range 300 1200 "^52")
d5 $ gF3 $ gM3 $ loopAt 16 $ chop 8
$ "gfunk_lead:7"
# octersubbus 51 (range 0 2.9 "^34")
# octersubbus 51 (range 0 2.9 "^33")
# hpf 1000
# gain 1.3
d8 $ gF1 $ gM2
$ loopAt 2 $ chop 8
$ midiOn "^56" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ midiOn "^36" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ "jungle_breaks:74"
live/collab/raph/esperluette.tidal
do
setcps (140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOn "^41" (<| "k*4")
-- $ midiOff "^42" (<| "k . ~ k")
$ "kick:5"
# gain 1.5
......@@ -16,20 +16,20 @@ d3 $ gF1 $ gM2
# dry (slow 16 $ range 0.2 1.8 perlin)
# sz 0.4
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 16)
$ midiOn "^76" (ply 16)
$ note "<gs2 gs2 gs2 ef3>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 1.5 "^52")
# room 0.3
d5 $ gF2 $ gM3
$ midiOn "^89" (ply 16)
$ note "<gs2 gs2 gs2 ef3>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^33")
# octerbus 42 (range 0 1.5 "^53")
# room 0.3
d9 $ gF3 $ gM3
$ note ("<gs gs gs ef>"
......@@ -45,7 +45,7 @@ d5 $ gF3 $ gM3 -- PRAISE YOU VOICE.
-- $ midiOn "^58" (ply 4 . (# begin 0)
-- . (# end 0.115) -- A LONG LONG WAY
-- )
$ midiOn "^58" (slice 8 (run 4))
$ midiOn "^89" (slice 8 (run 4))
$ n "3"
# "praise"
# cut 5
......
live/collab/raph/han.tidal
......@@ -4,18 +4,18 @@ setcps (85/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
d1 $ gF
$ superimpose ((# "kick:5") . (|* gain 0.8))
$ midiOn "^42" (struct "t*<1!3 2> . t(3,8)")
$ midiOff "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOn "^41" (struct "t*<1!3 2> . t(3,8)")
$ midiOff "^41" (struct "t t t <t t*2 t [~ t]>")
$ "[jazz,808bd:2]"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ [cpu:2,cpu:3]"
# midiG' "^79" 0 1.2
d3 $ gF
-- $ someCyclesBy 2 (fast "1 2")
-- $ struct "t([12 . <16!3 8> 16],16)"
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ struct "t*4 t*8"
$ "drum:2"
# midiG' "^80" 0 2
......@@ -26,8 +26,8 @@ d4 $ gF2 -- La base
. (# cut 41)
. (|* gain 1.2)
)
$ (# crushbus 41 (range 16 4 "^54"))
$ midiOn "^58" (mask "t f <f!3 f> <f!8 [t f]!7 t>")
$ (# crushbus 41 (range 16 4 "^32"))
$ midiOn "^44" (mask "t f <f!3 f> <f!8 [t f]!7 t>")
$ chop 16
$ loopAt 1
$ "han" # n "<0!4 1!4>"
......
live/collab/raph/hardorage.tidal
......@@ -25,9 +25,9 @@ do
setcps (205/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^29" (# "hardkick_rha")
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -38,8 +38,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -48,7 +48,9 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -90,7 +92,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -100,8 +102,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -121,16 +123,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
live/collab/raph/le_blues_du_mic.tidal
......@@ -3,8 +3,8 @@ do
-- resetCycles
setcps (99/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
......@@ -22,21 +22,22 @@ d3 $ gF1 $ gM2
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]")
$ midiOn "^44" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id
$ note "<[f4@5 <c5!7 ef5>] <bf4!3 cs5>>"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# gain 1.3
d5 $ gF3 $ gM3 $ chop 4
$ midiOn "^90" (ply "4 <4 8>") -- That's all folks!
$ midiOn "^58" (# n "<1!3 2>") -- That's all folks!
$ midiOn "^89" (ply "4 <4 8>") -- That's all folks!
$ midiOn "^57" (# n "<1!3 2>") -- That's all folks!
$ "rob_cross_riff" # n "<0!8 <3 3 3 <[3 4] 4>>!8 >"
-- # n "<0!7 1>"
# cut 5
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
d8 $ gF1 $ gM2
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
......
live/collab/raph/long_way.tidal
......@@ -2,8 +2,8 @@ do
setcps (102/60/4)
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*<1 2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM2
......@@ -13,23 +13,23 @@ d3 $ gF1 $ gM2
$ "[~ h*<1!3 <1 2 [4 2] 1?>>]*4"
# "h2ogmhh" # gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^57" (>| n "12 12(<1 1 3 4 4!4 8!16>,8)")
$ midiOn "^89" (ply 16)
$ midiOn "^44" (>| n "12 12(<1 1 3 4 4!4 8!16>,8)")
$ midiOn "^76" (ply 16)
$ "praise"
# n "<12 12 13 13 14 14 15 15 12!4 13!4 14!4 15!4 12 13 14 15>"
# cut 4
# gain 1.7
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 1.2 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 1.2 "^52")
d7 $ gF3 $ gM3
$ midiOn "^59" (slow 1 . slow 2 . slice 8 "0 1 2 3*<1 <2 4>> 4*2 5*2 [6 7]*<1 <2 4>> 7*4")
$ midiOn "^91" (slice 8 "0 1 2 3")
$ midiOn "^91" (slow 1 . slow 2 . slice 8 "0 1 2 3*<1 <2 4>> 4*2 5*2 [6 7]*<1 <2 4>> 7*4")
$ midiOn "^59" (slice 8 "0 1 2 3")
$ "praise:1/2"
# cut 7
# gain 1.4
d5 $ gF3 $ gM3 -- PRAISE YOU VOICE
$ midiOn "^90" (ply 16)
$ midiOn "^58" (ply 4 . (# begin 0)
$ midiOn "^89" (ply 16)
$ midiOn "^57" (ply 4 . (# begin 0)
. (# end 0.115) -- A LONG LONG WAY
)
$ "praise/8"
......
live/collab/raph/network_zero_un.tidal
......@@ -6,17 +6,17 @@ setcps (84/60/4)
d1
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")#
$ midiOn "^30" (# "jazz:0")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOn "^29" (# "jazz:0")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "[popkick:2,kick:5]"
# lpf 300 -- TODO Sound design this kick <3
-- # cut 1
# gain 2
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 <2 [4 2]>>")
$ midiOff "^43" (<| "~ . s*<1!3 2> ~")
$ midiOn "^42" (<| "~ s ~ s*<1!3 <2 [4 2]>>")
$ midiOff "^42" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0,snare:56]"
-- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -28,16 +28,16 @@ d3 $ gM2 $ gF1
# gain 1.4
# room 0.3 # sz 0.5 # dry 0.9
d4 $ gF2 $ gM3
$ midiOn "^57" (striate "<4!3 <8 16>>")
$ midiOn "^89" (ply 2)
$ midiOn "^76" (striate "<4!3 <8 16>>")
$ midiOn "^44" (ply 2)
$ slow 2 $ slice 4 "<0 1 2 3>"
$ "gfunk_bass:2"
# cut 4
# room 0.4
# gain 1.1
# room 0.3 # sz 0.4
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 1.4 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 1.4 "^52")
d9 $ gF3 $ gM3
$ midiOn "^18" ( -- GET MAD!
(fast 4) .
......
live/collab/raph/nouveau_punk.tidal
......@@ -3,47 +3,47 @@ do
setcps (155/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~")
$ midiOn "^41" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^41" (<| "t . ~ t ~ ~")
$ "[rampleA0:1,jazz]"
# gain 1.6
# cpsbus 1 (155/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ midiOn "^42" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^42" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ "[snare:38,snare:39]"
# gain 1.2
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ "dr*<8!3 16>"
# "h2ogmhh" # cut 3
# gain 0.85
d8 $ gF1 $ gM2 $ chop 16 -- Breaks-in-a-box' (patent pending)
$ loopAt 1
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
$ midiOn "^60" (# "breaks165") -- BOUTON NASSIM <3
-- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
$ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
$ midiOn ("^36" - "^60") (loopAt 4 . (# n 44))
$ "jungle_breaks:79" -- Arguably not very drum-n-bass
d4 $ gF2 $ gM3 -- Ligne directrice: P-U-N-K
$ midiOn "^89" (ply 2)
$ midiOn "^57" (chop 2)
$ midiOn "^76" (ply 2)
$ midiOn "^44" (chop 2)
$ chop 4
$ "punk:0/4"
# cut 4
# gain 0.9
# legato (range 0.42 1 "^33")
# crushbus 41 (range 16 1.5 "^53")
# legato (range 0.42 1 "^32")
# crushbus 41 (range 16 1.5 "^52")
# room 0.2 # dry 1.9 # sz 0.6
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "2 <1 4>")
$ midiOn "^58" (
$ midiOn "^89" (ply "2 <1 4>")
$ midiOn "^57" (
chop "<4 4 8 16>"
. (# legato 0.5) . (# room 0.3) . (# sz 0.7))
$ note "<e c d b4>"
# "90s_synatm:9"
# crushbus 52 (range 16 3.5 "^54")
# octersubbus 51 (range 0 4 "^54")
# octerbus 53 (range 0 1 "^34")
# crushbus 52 (range 16 3.5 "^33")
# octersubbus 51 (range 0 4 "^33")
# octerbus 53 (range 0 1 "^53")
# cut 5
# pan 0.7
d6 $ gF3
......
live/collab/raph/permanence.tidal
do
setcps (150/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ midiOn "^41" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
# lpf 1200
# gain 1
d2 $ gF1 $ gM2
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ s")
$ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
$ "[snare:2,snare:10]"
# octer 0
......@@ -17,17 +17,19 @@ d2 $ gF1 $ gM2
# pan 0.25
-- # lpf 3000
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)")
$ midiOff ("^44"+"^76") ((mask "t(<8!3 [8!3 4]>,16,2)"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOff ("^44"+"^43") ((mask "t(<8!3 [8!3 4]>,16,2)"))
$ "hh:8*16"
|* gain "1 1 0.95 1 0.96 1 0.975 1.1"
# gain 1.8
# pan 0.2
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
$ midiOn "^57" ((# freeze 0.2) . ply 4)
$ midiOn "^76" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
$ midiOn "^44" ((# freeze 0.2) . ply 4)
$ chop 4 $ loopAt 4
$ "bass_nes:1"
# cut 4
......@@ -36,23 +38,24 @@ d4 $ gF2 $ gM3
# sz 0.9
# gain 1.5
-- # octerbus 42 (range 0 1.5 "^17")
# octersubbus 43 (range 0 1.5 "^17")
# squizbus 44 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 43 (range 0 1.5 "^32")
# squizbus 44 (range 0 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 2.5 "^53")
# gain 1
d5 $ gF3 $ gM3
$ midiOff "^58" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^58" (
$ midiOff "^89" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^89" (
slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" .
(# n "41")
)
$ "fguitar:40"
-- # crush 3.5
-- # note "-24"
# gain (1 - 0.24 * "^34")
# crushbus 51 (range 16 2.5 "^54")
# distortbus 52 (range 0 1.5 "^34")
# lpfbus 53 (range 3000 200 "^34")
# gain (1 - 0.24 * "^33")
# crushbus 51 (range 16 2.5 "^53")
# distortbus 52 (range 0 1.5 "^33")
# lpfbus 53 (range 3000 200 "^33")
# cut 5
# pan 0.66
d9 $ gF3 $ gM3
......
live/collab/raph/punkachien.tidal
......@@ -22,7 +22,7 @@ d3 $ gF1 $ gM2
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ fix (|* gain (range 1 0.5 ("^17" + "^35"))) "vec1_acid:11"
$ midiOn "^76" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ superimpose ((|* gain "^16") . (# n 10) . (# legato 0.8))
$ superimpose ((|* gain "^32") . (# n 12)
-- . (# cut 41)
......
live/collab/raph/ragga_la_hierarchie.tidal
......@@ -12,29 +12,29 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gCPS $ gF $ gMute
$ midiOn "^74" (fast 2)
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
$ midiOff "^42" (<| "k k")
$ midiOn "^41" (<| "k k k <k [<k ~> k]>")
$ midiOff "^41" (<| "k k")
$ "[wobble,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gF $ gMute
$ fix ((|- note 4) . (|* gain 0.95)) "cp"
$ midiOn "^43" (<| "~ s ~ s*<1 <2 [4 2]>>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s*<1 <2 [4 2]>>")
$ midiOff "^42" (<| "~ s")
$ "[snare:20,cp]"
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- course de chapeaux
$ midiOff "^44" (mask "<t t(1,8)>")
$ midiOff "^43" (mask "<t t(1,8)>")
$ "~ o ~ o ~ o*<1 2> ~ o*<1!3 2>" # drumFrom "rolandd110" "oh"
# midiG' "^80" 0 1.2
# pan 0.7
d4 $ gF2 -- Meth == Crash
$ midiOff "^59" ((# legato 1) . mask "<t f>")
$ midiOn "^91" (ply 8)
$ midiOff "^44" ((# legato 1) . mask "<t f>")
$ midiOn "^76" (ply 8)
-- $ loopAt 8
$ chop 8
$ "meth_1902:0"
# pan 0.7
# crushbus 41 (range 16 1.5 "^55")
# crushbus 41 (range 16 1.5 "^32")
# cut 4
# room 0.2 # sz 0.3 # dry 1.1
# midiG' "^83" 0 1.2
......@@ -44,14 +44,14 @@ d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
$ loopAt 16
$ chop 8
$ "synth_commodore"
# crushbus 51 (range 16 1.5 "^53")
# crushbus 51 (range 16 1.5 "^33")
# pan 0.4
# room 0.2 # sz 0.2 # dry 2
# midiG' "^81" 0 1.53
# cut 5
d8 $ gF $ gM
$ midiOn "^20" (# n "48")
$ midiOn "^36" (# n 50)
$ midiOn "^36" (# n "48")
$ midiOn "^56" (# n 50)
$ midiOn "^60" (slow 2)
$ midiOn ("^92") ((# legato "1 h") . (ply "2 <4 [4 8]>"))
$ loopAt 2 $ chop 16
......
live/collab/raph/rainbow_race.tidal
......@@ -7,8 +7,10 @@ let g2 = ( # djfbus 2 "^50")
d1 $ g1
$ superimpose (
(# att 0.08) . (# rel 0.05)
. (# "drums_atari") . (# cut 1) . (|* gain "^30"))
. (# "drums_atari") . (# cut 1) . (|* gain "^29"))
$ midiOn "^41" (slow 2)
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "kick:5"
......@@ -19,36 +21,38 @@ d2
# cut 2
# midiG' "^79" 0 1.1
d3 $ g2
$ midiOn "^44" (mask "f(5,8)")
$ midiOn "^43" (mask "f(5,8)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "2 <2!3 4>")
$ "drum:2*[8 <8 [8!3 16] 8 [16 32]>]"
-- # cut 3
# pan (slow 16 $ range 0.2 0.8 (sine + perlin))
# midiG' "^80" 0 1
d4 $ g2
$ midiOff "^90" (mask "t(<8!4 8 [8 16] 8 [8 . 32 16]>,32)") $ chop 32
$ midiOff "^44" (mask "t(<8!4 8 [8 16] 8 [8 . 32 16]>,32)") $ chop 32
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "synth_nes:0"
# cut 4
# gain 0.65
# roombus 42 (range 0 0.4 "^33")
# roombus 42 (range 0 0.4 "^32")
# pan 0.8
# squizbus 4 (range 0 16 "^54")
# squizbus 4 (range 0 16 "^52")
# midiG' "^82" 0 1
d5 $ g2
$ midiOn "^89" (|+ note 12)
$ midiOn "^57" (|+| note "[0 12 0]*<1 1 2 4>")
$ midiOn "^57" (|+ note 12)
$ midiOn "^89" (|+| note "[0 12 0]*<1 1 2 4>")
$ note ("0(3,8) <7!3 [12 <7 7 7 7>]>*<1!3 2>"
+ "<f3 gs3 c4 <bf3!3 ds4>>" - 12)
# "bassWarsaw"
# crushbus 5 (range 16 2 "^53")
# crushbus 5 (range 16 2 "^33")
# ampbus 52 (range 0 0.94 ("^81" * "^77"))
-- GRAVEYARD
d2 $ g1
$ midiOn "^43" (ply 2)
$ midiOn "^42" (ply 2)
$ slice 8 "2"
$ "drums_gameboy"
# n (slow 4 $ "<6 5>")
......
live/collab/raph/septieme_armee.tidal
......@@ -4,33 +4,35 @@ setcps (90/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ midiOff "^41" (<| "k k k k*<1!3 2>")
$ midiOn "^41" (<| "k . ~ k ~ ~ ")
-- $ "[bskick,kicklinn:2]"
$ "reverbkick"
# lpf 3000
# att 0.01 # rel 0.5
# gain 1.1
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]" # note "-2" # lpf 4000
# gain 1.45
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
# gain 1.2
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ note ("<[c3@3 c3 . <ef3!0 [ef3 . c3 bf2]>] [<gs2 [gs2 bf2 gs2]> g2]>")
# "bassWarsaw"
# room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# octersubbus 43 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 0.85 "^52")
# octersubbus 43 (range 0 1.5 "^52")
d8 $ gF1 $ gM2 $ chop 8
$ midiOn "^60" (mask "t(4,8,1)") $ chop 8
-- TODO PR#EMIER JET
......@@ -40,12 +42,12 @@ d9 $ gF3 $ gM3
# "moogBass"
# room 0.15 # sz 0.15
d5 $ gF3 $ gM3
$ midiOn "^90" (|+| note "[12 0]*[8 . <8 16>]")
$ midiOn "^57" (|+| note "[12 0]*[8 . <8 16>]")
$ note (
"<~ <[c3 c3 c3 ef3 c3 c3@3] [c3 c3 c3 bf2 <bf2 c3> c3@3]>>"
)
# "FMRhodes1"
# modIndex (range 0 12 "^54")
# modIndex (range 0 12 "^33")
# room 0.4
# octer 0.5
# gain (1.4 - 0.3 * "^54")
# gain (1.4 - 0.3 * "^33")
live/collab/raph/wet_hard_pussy.tidal
......@@ -2,16 +2,17 @@ do
setcps (133/60/4)
-- resetCycles
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^30" (|> "hardkick_rha:4")
$ midiOn "^41" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^29 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^29 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^29" (|> "hardkick_rha:4")
$ "kick:5"
# gain 1.6
# lpf 400
# cps ((range 100 166 "^29")/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s ~ s ~ s")
$ midiOff "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ midiOn "^42" (<| "~ s ~ s ~ s ~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "vec1_snare:24"
# gain 1.3
d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
......@@ -26,16 +27,16 @@ d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
-- # octerbus 41 (range 0 1.4 "^53")
d4 $ gM3 $ gF2 -- BASSLINE 8BIT <3
$ chop 8 $ slow 4 $ "bass_commodore:13"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
-- # octerbus 41 (range 0 1.4 "^53")
# room 0.4
d5 $ gF3 $ gM3 -- WAP HOES
$ midiOn "^18" (# 7) -- FORCE INTRO
$ midiOff ("^18"+"^90") (slow 4)
$ midiOn "^33" (# 7) -- FORCE INTRO
$ midiOff ("^33"+"^89") (slow 4)
$ stut 4 1 1 -- Four repeats each
$ slow 4
$ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
$ midiOn "^90" (ply "[1!3 4]*4" . chop 4 . stut "4" 0.9 (fast 4 "s") . (# att 0.08) . (# rel 10))
$ midiOn "^57" (stut "4" 0.9 (fast 4 "e"))
$ midiOn "^89" (ply "[1!3 4]*4" . chop 4 . stut "4" 0.9 (fast 4 "s") . (# att 0.08) . (# rel 10))
$ loopAt 4
$ "wap:0"
# n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
......@@ -51,7 +52,7 @@ d6 $ gF3 $ gM3
# note "<0 1 6 12>"
# gain 0.8
d7 $ gF1 $ gM3 --Les WAP DRUMS
$ midiOff "^60" (mask "t(4,8,1)" . chop 8)
$ midiOff "^59" (mask "t(4,8,1)" . chop 8)
$ midiOn "^91" (ply "2 <2 4>")
$ loopAt 2 $ chop 8
$ "wap" # n "<3!4 4!4 5!4 6!4>"
......
live/collab/val/2026_jam.tidal
......@@ -3,35 +3,38 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*2>")
$ midiOn "^41" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*2>")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]"
# gain 1.1
# lpf 300
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ midiOff "^42" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^42" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
$ "[vec1_snare:38]"
# lpf 4800
# gain 1.3
# cut 2
d3 $ gF1 $ gM2 -- Hihat
$ midiOn "^76" (ply "2 <2!3 4>")
$ midiOn "^43" (ply "2 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (ply "2 <2!3 4>")
$ "~ h ~ h ~ h*<1 2 1 <1 [4 2]>> ~ h*<1 <1 1 0 2> 1 <2 4>>"
-- # "db:0"
# "h2ogmhh"
-- # attbus 32 (slow 32 $ range 0.4 0.04 saw)
# legato (range 0.1 0.5 "^52")
# legato (range 0.1 0.5 "^31")
# room 0.2
# dry 1.3
# gain 2.9
# pan 0.3
d8 $ gF1 $ gM2 -- BROKEN BEAT | BREAKS STACK
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^60 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^60 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ loopAt 2 $ chop 16
$ midiOn "^92" (ply "<2 [2 4]>")
$ midiOn "^60" ( -- Broken Beat!
......
live/collab/val/ambient_dust.tidal
......@@ -3,6 +3,8 @@ setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (slow 2 . gDJF)
d1 $ g
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^42" (fast 2)
$ midiOn "^41" (struct "t t t <t!3 [<~ t> t]>")
$ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
......@@ -11,15 +13,17 @@ d1 $ g
# lpf 500
d2 $ g
$ fix ((# lpf 1500) . (|* gain 0.8)) "cp"
$ midiOn "^43" (whenmod 4 3 (ply 2) . fast 2)
$ midiOn "^42" (whenmod 4 3 (ply 2) . fast 2)
$ fast 2
$ midiOff "^43" (fast "<1!5 2!3>")
$ midiOff "^42" (fast "<1!5 2!3>")
$ "~ [snare:40,cp]"
# note (range "-10" "10" "^51")
# midiG' "^79" 0 0.87
d3 $ g
$ midiOn "^76" --BOUTON NASSIM
$ midiOn "^43" --BOUTON NASSIM
(ply 2 . (# speed 2))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (slice 4 "0 1 <2 2 0 0> <3 3 1 3>*<1!3 <2 1>>")
$ midiOff "^44" (slice 4 "0 1 2 3")
$ loopAt 2
......@@ -27,10 +31,10 @@ d3 $ g
# midiG' "^80" 0 0.9
# pan 0.3
# lpf 5000
# crushbus 31 (range "10" 2.5 "^52")
# crushbus 31 (range "10" 2.5 "^31")
# cut 3
d4 $ g
$ midiOn "^89" (ply 2)
$ midiOn "^76" (ply 2)
$ ply "<1!4 2!4> <2 1 2 1 1 1 2 1> . [2 <4 8>]"
$ "d d d d d d d d" # "drum:2"
# midiG' "^81" 0 0.9
......@@ -38,13 +42,13 @@ d5 $ g $ "hh(<<7!3 10> [3 <3 <7 12>>]>,12)"
# midiG' "^82" 0 0.65
d6 -- Runny Maracas Pitchables
$ g
$ midiOn "^59" (fast 2)
$ midiOn "^91" (ply 2)
$ midiOn "^90" (fast 2)
$ midiOn "^58" (ply 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "d ~ ~ d d ~ d <~!3 d>"
# "hh27:2"
# note (range "-10" "10" "^55")
# note (range "-10" "10" "^34")
-- # crushbus 51 (range 16 4.2 "^54")
# midiG' "^83" 0 1.2
-- # speed (range 0 2 "^51")
......@@ -57,4 +61,4 @@ d8 $ g
# room 0.4 # dry 1.05 # sz 0.6
# pan 0.7
# midiG' "^84" 0 0.75
# crushbus 81 (range 16 2.5 "^56")
# crushbus 81 (range 16 2.5 "^36")
live/collab/val/un_an.tidal
......@@ -7,14 +7,14 @@ 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))
d1 $ gF $ gM1
-- $ fast 2
$ midiOn "^42" (struct "t t t t")
$ midiOn "^41" (struct "t t t t")
-- $ midiOff "^42" (struct "t . ~ t ~ ~")
-- $ "[techno:0,808bd:2,909,kick:4]"
$ "[rampleS2:0,techno:0,jazz]"
# midiG' "^78" 0 1.3
d2 $ gF2 $ gMute
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ ~ ~ <~ c>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ ~ ~ <~ c>")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# pan 0.7
......@@ -30,8 +30,9 @@ d3 $ gF2 $ gMute
d8 $ gF3 $ gMute -- MARINE BREAKS
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (iter 4)
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^36 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^36 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ someCyclesBy "^36" (loopAt 2)
$ someCyclesBy "^36" ((# n 0))
-- $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" ((# "fbreak120:3"))
$ someCyclesBy "^56" (loopAt 1)
......@@ -41,12 +42,14 @@ d8 $ gF3 $ gMute -- MARINE BREAKS
# midiG' "^84" 0 1.3
d8 $ gF3 $ gM2 -- MARINE BREAKS
$ midiOn "^73" (mask "f*16") -- FIXME DUPLICATE
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")
$ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "t([4!3 8],8,1)")
-- $ chop 16
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
$ someCyclesBy "^36" (loopAt 2)
$ someCyclesBy "^36" ((# n 0))
$ someCyclesBy "^36" (loopAt 1)
$ someCyclesBy "^36" (mask "[f t]*4")
$ someCyclesBy "^36" (chop 16)
......@@ -58,9 +61,9 @@ d8 $ gF3 $ gM2 -- MARINE BREAKS
# cut 8
# midiG' "^84" 0 1.3
d4 $ gF2 $ gMask $ gMute
$ sometimesBy (range 0 0.8 "^53") (# crush 5)
$ midiOn "^57" (iter "1 4")
$ midiOn "^89" (ply 2)
$ sometimesBy (range 0 0.8 "^32") (# crush 5)
$ midiOn "^44" (iter "1 4")
$ midiOn "^76" (ply 2)
$ loopAt 1
$ chop 8
$ "breaks165"
......@@ -72,5 +75,5 @@ d7 $ gF3 $ gMute $ gMask
$ midiOn "^59" (# n 4)
$ "drums_commodore:2" # cut 7
# midiG' "^83" 0 1.4
# crushbus 72 (range 16 1.5 "^55")
# crushbus 72 (range 16 1.5 "^35")
# panbus 7 (slow 16 $ range 0.8 0.2 sine)
live/dnb/nass_revient.tidal
......@@ -13,8 +13,8 @@ let modIndex = pF "modIndex"
-- # pan 0.7
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
$ midiOn "^41" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -23,8 +23,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^42" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
......@@ -39,10 +39,10 @@ d3 $ gM2 $ gF1-- DrumRoll
d4 $ gF2 $ gM3-- BASSLINE
-- $ mask "<f!8 t!12 t!44 t!64>"
$ superimpose (
(# crushbus 4 (range 16 4 "^53"))
(# crushbus 4 (range 16 4 "^32"))
. (# hpf 200) . (|* gain 1.4)
)
$ midiOn "^57" (chop "<8 8 4 <8 16>>")
$ midiOn "^76" (chop "<8 8 4 <8 16>>")
$ whenmod 64 16 (superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
......@@ -63,7 +63,7 @@ d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
# "giorgio_syn:9" # n "<9!3 10>"
# cut 7
# gain 1.3
# crushbus 71 (range 16 4 "^55")
# crushbus 71 (range 16 4 "^35")
# room 0.3 # bandf 400
d10 $ gF3 $ gM3 -- Mad organ
$ mask "<f!4 t!10 f!2>"
......@@ -101,7 +101,7 @@ d5 $ gF3 $ gM3 -- Rhodes arps <3
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (range 0 2 "^34")
# modIndex (range 0 2 "^33")
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
......
live/dub/fdlm2021.tidal
......@@ -21,13 +21,14 @@ let g = gDJF
d1 $ fast 4 $ "drum"
d1 $ g
$ midiOn "^42" (fast 2)
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^41" (fast 2)
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[jazz,rootsDrums:0]"
# midiG' "^78" 0 1.1
d2 $ g
$ midiOn ("^43"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7")
$ midiOn ("^42"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7")
. (loopAt 1)
. (>| "breaks165")
. (|* gain 0.7)
......@@ -49,7 +50,9 @@ d10 $ g -- Drumroll bonus <3
d3 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^43" (slow 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (fast 2)
$ sometimesBy "0 . 0!3 0.95" (ply "<2 [2|4]>")
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
......@@ -60,7 +63,7 @@ d3 -- Running Hats
d4 -- Bassline
$ g
$ "rootsBass:3"
# crushbus 41 (range 16 1.5 "^53")
# crushbus 41 (range 16 1.5 "^32")
# midiG' "^81" 0 0.8
# pan 0.3
d5 $ g -- Guitar
......@@ -74,7 +77,7 @@ d7 $ g-- Trompettes en retard
$ slice 4 "<0 1 2 3>"
$ "rootsTrump:8" -- ritournelle
# cut 7
# midiG' "^56" 0 0.6
# midiG' "^35" 0 0.6
# pan 0.6
# cut 3
d8 $ g -- Trombone Pensif
......@@ -82,9 +85,9 @@ d8 $ g -- Trombone Pensif
$ slice 4 "<1? 1 0 1?>"
$ "rootsTromb:1"
# cut 4
# midiG' "^55" 0 0.65
# midiG' "^36" 0 0.65
# room 0.3
# crushbus 41 (range 16 1.25 "^35")
# crushbus 41 (range 16 1.25 "^56")
# cut 8
# pan 0.8
d6 $ g -- Piano contretemps reggae!
......@@ -93,8 +96,8 @@ d6 $ g -- Piano contretemps reggae!
. mask "t(16,32)"
. (|+ note 12)
)
$ midiOn "^91" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed
$ midiOn "^91" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9))
$ midiOn "^58" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed
$ midiOn "^58" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9))
$ n ("~ 1 ~ <1 <[~ 1] 1?>> ~ <0!3 [0 1]> ~ 0*<1!6 2 <4 [4 8]>>"
+ "<0!3 [-1 1]>"
)
......
live/fusion/sel_marin.tidal
......@@ -9,8 +9,8 @@ let width = pF "width"
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM -- Kick "Underwater Rave"
$ midiOn "^42" (<| "k k <k!7 ~> <k k*<2 2 2 4 2 4 [4 8] [4 8 16]>>")
$ midiOff "^42" (<| "k*<1!8 2 1!7> . k(<<3 1> [3 <1 5> 3]>,8)")
$ midiOn "^41" (<| "k k <k!7 ~> <k k*<2 2 2 4 2 4 [4 8] [4 8 16]>>")
$ midiOff "^41" (<| "k*<1!8 2 1!7> . k(<<3 1> [3 <1 5> 3]>,8)")
$ "[jazz,clubkick:1]"
# midiG' "^78" 0 0.8
d2 $ gF1 $ gM2 -- Clap sonar intraitable
......@@ -21,20 +21,20 @@ d2 $ gF1 $ gM2 -- Clap sonar intraitable
# midiG' "^79" 0 0.8
# room 0.8 # sz 0.4 # dry 0.985
d3 $ gM $ gF1 -- Drumroll de Sebastien
$ midiOn "^76" (ply 4)
$ midiOn "^43" (ply 4)
$ "drum:2*[4 <4 4 <8 [8 16]>>]"
# midiG' "^80" 0 0.6
# pan 0.77
d4 $ gF2 -- Baleine sur la défensive
$ midiOn "^89" (chop (slow 2 "<[8 16 8 8 . 16 8] 1>"))
$ midiOn "^76" (chop (slow 2 "<[8 16 8 8 . 16 8] 1>"))
$ fix ((# width 0.5) . (# cut 12)) "bassWarsaw"
$ fix ((# voice 0.1) . (# cut 11) . (# lfo 0) . (|* gain 0.8)) "supersaw"
$ note "<<d3 d3(<3 [3 5]>,8)> <a2 a2(<3 [5 3]>,8)>>"
-- TODO: seconde voix
# "[bassWarsaw,supersaw]"
# midiG' "^81" 0 0.8
# octerbus 41 (range 0 0.85 "^53")
# crushbus 41 (range 16 3.5 "^53")
# octerbus 41 (range 0 0.85 "^32")
# crushbus 41 (range 16 3.5 "^32")
# room 0.3 # sz 0.4 # dry 1.1
# pan 0.4
# cut 1
......@@ -54,11 +54,11 @@ d7 $ gF2 -- La certitude du verre brisé
$ note "<d <e g> d [a ~ ~ g ~ f e ~ ~]>" -- TODO: Variations sur la fin
# "90s_glassatm:0"
# cut 7
# midiG' "^18" 0 0.8
# midiG' "^35" 0 0.8
d8 $ gF2 -- Crystal de sel
$ "90s_synatm:2"
# note "<0 0 -5 -5>"
# midiG' "^19" 0 (range 0.23 0.45 perlin)
# midiG' "^36" 0 (range 0.23 0.45 perlin)
# room 0.4 # sz (range 0 0.6 perlin)
# delay 0.5
# delayt 0.125
......
live/hip/darkside/clameur.tidal
......@@ -9,17 +9,17 @@ let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f1l = (# djfbus 3 (range 0.45 0.55 "^49"))
setcps (93/60/4)
d1 $ f1 $ gMute
$ midiOn "^42" (<| "<k k k*2 k> ~ . ~ ~ <~!2 k <~ k*2>> <~ k>")
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <k k ~ k>")
$ midiOn "^41" (<| "<k k k*2 k> ~ . ~ ~ <~!2 k <~ k*2>> <~ k>")
$ midiOff "^41" (<| "<k ~> . ~ ~ ~ <k k ~ k>")
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gMute
$ juxBy 0.85 (whenmod 8 7 rev)
$ f1
$ midiOn "^43" (
$ midiOn "^42" (
someCyclesBy "<0 1>" (off "<-e!3 -s>" (|* gain 0.8)) -- Bonus prehit
)
$ midiOff "^43" (mask "<f t>")
$ midiOff "^42" (mask "<f t>")
$ fix (# note (-4)) "cp"
$ "~ snare"
# "[cp,snare:20,snare:50]"
......@@ -30,11 +30,13 @@ d2 $ gMute
# gain 0.8
# midiG' "^79" 0 1.2
d3 $ f1l $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "<[2 2 4 2]!3 [2!3 4]>" . (# room 0.2))
$ ply "1 . <1!6 2 2> <2!3 [2 4]>"
$ "dr*4"
# room (slow 32 $ range 0 (range 0 0.8 "^52") saw)
# room (slow 32 $ range 0 (range 0 0.8 "^31") saw)
# sz (slow 64 $ range 0.1 0.92 saw)
# dry 1.5
# midiG' "^80" 0 1
......@@ -48,9 +50,11 @@ d4 -- BASSES
. (# dry 0.9)
. (# sz 0.7)
. (# pan 0.8)
. (# crushbus 41 (range 16 4 "^53"))
. (|* gain (range 0 1 "^17"))
. (# crushbus 41 (range 16 4 "^32"))
. (|* gain (range 0 1 "^52"))
) "matrix"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ fix (
(<| note (scale "aeolian" "<0 [<0 2> . <2!3 3> <3!3 5>]>"))
. (# "bass1")
......@@ -69,7 +73,7 @@ d6 $ f2 -- VOICES
. (# pan 0.2)
. (# hpf 2500)
. (# room "<0.5 0.8 0.8 <0.8 0.1>>")
. (# squizbus 61 (range 0 4 "^55"))
. (# squizbus 61 (range 0 4 "^34"))
. (|* gain 0.9)
) "morohai"
$ fix (
......@@ -91,7 +95,7 @@ d7 $ f2 -- LEADS
. (# room 0.4)
. (# sz 0.3)
. (# pan 0.3)
. (|* gain (range 0 0.8 "^18"))
. (|* gain (range 0 0.8 "^35"))
) "pad"
$ fix (
(# "superpiano") . gM3
......@@ -102,7 +106,7 @@ d7 $ f2 -- LEADS
. (>| note (scale "aeolian" (
"<[~ 0] [<0 2> . <2!3 3> <3!3 5>]>"
) - 12))
. (|* gain "^34")
. (|* gain "^55")
. (# velocity "0.85 0.9!7")
. (# pan 0.9)
) "piano"
......
live/jam/val23.tidal
......@@ -4,15 +4,17 @@ setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^42" (<| "k*2 k k <k <k*2 [~ k*<1 [4 2]>]>>") -- PERMANENCE
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>" )
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>" )
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]"
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1 <2 2 1>>")
$ midiOff "^43" (<| "~ <c!3 [c*2]>")
$ midiOn "^42" (<| "~ c ~ c*<1 <2 2 1>>")
$ midiOff "^42" (<| "~ <c!3 [c*2]>")
$ "[snare:40,sn:31]"
d3 $ gF3 $ gM2
$ midiOn "^76" (ply 4)
$ midiOn "^43" (ply 4)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (<| "~ h ~ h ~ h ~ h*<1 2>")
$ midiOff "^44" (<| "h(<3!4 8!8>,8) h(<3 3 5 <5 [5 8]>>,8)" )
$ "hh:7"
......@@ -24,12 +26,13 @@ d4
d8 $ gM2 $ gF1
$ midiOn "^60" (("e" <~) . mask "<t(4,8)>")
$ chop 16
$ midiOn "^20" (# "break:5")
$ midiOn "^36" (# "break:5")
$ midiOn "^92" (
(# delay 0.3)
. (# delayt "q") . (#delayfb 0.5)
)
$ midiOn "^36" (loopAt 1 . (# n "46"))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (loopAt 1 . (# n "46"))
$ midiOn "^56" (loopAt 0.5 . (# n "19"))
-- $ slice 2 "0 1*<1!3 4>"
$ loopAt 4
......@@ -38,15 +41,15 @@ d8 $ gM2 $ gF1
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
-- # midiG' "^78" 0 1.5
d2
$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ cp")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
......@@ -60,19 +63,20 @@ d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^32") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw"
# room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.5
# crushbus 42 (range 16 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # relbus 43 (range 2 0.02 "^33") # att 0.22
-- -- # midiG' "^81" 0 1.5
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
$ midiOn "^57" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
......@@ -82,8 +86,8 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# modIndex (range 0 50 "^33")
# delaybus 51 (range 0 0.8 "^53")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
......
live/midi/nova/FFF/grace.tidal
......@@ -24,7 +24,7 @@ d1 -- Kick regulier degradé
# gM' 0 1.4 "^78"
d2 -- Cymbales gravitantes
$ g
$ novaOn "^43" (<| "h*16")
$ novaOn "^42" (<| "h*16")
$ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>")))
$ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4"
# note ("<0!<3 2> -4 -8 <[-8 -4] -12>>")
......@@ -40,21 +40,23 @@ d3 -- Drumroll ma foi bien classique
d4 -- Bassline "maybe mad smirk smirk"
$ g
$ loopAt 2
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ slice 8 (
stack [
(sometimesBy "^89" (>| "0")
(sometimesBy "^44" (>| "0")
"0 1 2 3 4 5 6 7*<1 2 4 1>"),
(degradeBy (1 - "^57") $ "0(3,8)"), -- Megamask!
(degradeBy (1 - "^76") $ "0(3,8)"), -- Megamask!
(degradeBy (1 - "^58") $ "0 0 0 0") -- MULTIMASK!
]
)
$ s "fbass:8"
# gM' 0 2 "^81"
# cut 6
# crush (range 16 5 "^53")
# crush (range 16 5 "^32")
d5 -- Chopped choir
$ g
$ sometimesBy "^90" (slow 2) -- TODO end: Rarefy
$ sometimesBy "^57" (slow 2) -- TODO end: Rarefy
$ slice 8 (
whenmod 16 12 (|> "<0!2 2!2>*8") $
whenmod 16 8 (|> "0*4") $
......
live/midi/nova/acid/la_dub_sour.tidal
......@@ -11,23 +11,23 @@ let rq = pF "rq "
let filterRange = pF "filterRange"
let lagTime = pF "lagTime"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ <k <k? k*2>>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [~ <k <k? k*2>>]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:4]"
# gain 1.4
d2 $ gM2 $ gF1 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "~ c . ~ ~ ~ <~!3 c>"))
$ midiOn "^42" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^42" ((|* gain "1 0.8") . (<| "~ c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.8
d3 $ gF1 $ gM2 -- Drumroll chaser de highs technooo
$ midiOn "^76" (struct "t([16 . <16 32> <16!3 <8 32>>],16)" . (# n 20))
$ midiOff "^76" (<| "~ h ~ h ~ h*<1 2> ~ h")
$ midiOn "^43" (struct "t([16 . <16 32> <16!3 <8 32>>],16)" . (# n 20))
$ midiOff "^43" (<| "~ h ~ h ~ h*<1 2> ~ h")
$ "h2ogmhh"
# n "<19!4 20!4 19!8 20!8 19!16 20!16>"
d4 $ gF3 $ gM3 -- Smooth Wobble LPF modulated bass
$ midiOn "^89" (ply "<<2!4 4!4> <2!3 4> <4!4 8!4> [8 <6 16>]>" . fast 2)
$ midiOn "^76" (ply "<<2!4 4!4> <2!3 4> <4!4 8!4> [8 <6 16>]>" . fast 2)
$ slow 4 $ note ("<[f@3 [g f] . c]!3 [c@3 [ef g] . f]>"
- 24)
# "bassWarsaw"
......@@ -38,12 +38,12 @@ d4 $ gF3 $ gM3 -- Smooth Wobble LPF modulated bass
# room 0.4
# sz 0.5
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
# gain 1.2
# pan 0.3
d5 $ gF3 $ gM3 -- ACID SYNTH <3
$ midiOn "^58" (|- note 12)
$ midiOn "^57" (|- note 12)
-- out = 0, gate = 1, freq = 440, amp = 0.1, pan = 0, att = 0.001, dec = 0.5, sus = 0.1, rel = 0.5, curve = -4,
-- // Other Controls
-- // width is 0 - 1
......@@ -54,8 +54,8 @@ d5 $ gF3 $ gM3 -- ACID SYNTH <3
|+ note ("[0,<0!4 12!4>]" + "[0,12]")
# room 0.14 # sz 0.05 # dry 0.9
# pan 0.7
# width (range 0.05 0.5 "^54")
# filterRange (range 0 6 "^34")
# width (range 0.05 0.5 "^33")
# filterRange (range 0 6 "^53")
# gain 1.4
# room 0.2 # sz 0.2 # dry 0.98
-- d5 $ gF2 $ gM3 -- Giorgio Friendo
......
live/midi/nova/acid/la_porte_de_leternite.tidal
......@@ -3,15 +3,15 @@ do
setcps (135/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
$ midiOff "^41" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
# gain 1.6
d2 $ gF1 $ gM2 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ midiOn "^42" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^42" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "vec1_claps:42"
-- # note "0!3 -1"
-- # lpf 4000
......@@ -29,16 +29,16 @@ d3 $ gF1 $ gM2 -- Elaborate offbeat drums
# gain 1.4
d5 $ gM3 $ gF2 -- ACID LEAD
$ ply 2
$ midiOn "^90" (mask "t([16 <8 8 [16 8] [32!3 8]>],32)" . ply 2)
$ fix (|* gain (range 1 0.2 "^54")) ("vec1_acid:30")
$ superimpose ((# "vec1_acid:32") . (|* gain (range 0 1.5 "^54")))
$ midiOn "^57" (mask "t([16 <8 8 [16 8] [32!3 8]>],32)" . ply 2)
$ fix (|* gain (range 1 0.2 "^33")) ("vec1_acid:30")
$ superimpose ((# "vec1_acid:32") . (|* gain (range 0 1.5 "^33")))
$ note ("0 7 0*<1 1 2 2> 7*<1 2>"
+ "<a3 cs4 fs4 <cs4 e4>>/2"
+ "[12]"
)
# "vec1_acid:30"
-- # cut 6
# octerbus 51 (range 0 0.82 "^34")
# octerbus 51 (range 0 0.82 "^53")
-- # room 0.3 # sz 0.1
# pan (slow 16 $ range 0.8 0.5 sine)
-- # octersubsub 1.4
......@@ -78,7 +78,7 @@ d4 $ gF2 $ gM3
)
# "moog:1"
# cut 4
# crushbus 41 (range 16 3 "^53")
# crushbus 41 (range 16 3 "^32")
# gain 1.8
# room 0.4
d10 $ gF1
......
live/midi/nova/ambient/contre_visite.tidal
......@@ -10,38 +10,38 @@ let gMute = (midiOn "^73" (mask "f*16"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1 $ f1 $ gM1
$ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
$ midiOn "^41" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^41" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
$ fix ((# hpf 500) . (|* gain 0.7)) "kick:5"
$ "[jazz,kick:5]"
# gain 1.3
d2 $ f1 $ gM2
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops $ midiOn "^75" (ply "2 <2!3 4>")
$ midiOn "^43" (slice 4 (run 8))
$ midiOn "^42" (slice 4 (run 8))
$ mask "<t [t!6 f t] t t t!4>" -- Degrade mid-loop!
$ iter "1 <1!4 4 4 4 2>" $ loopAt 2$ slice 8 (run 8)
$ "break:20" # pan 0.4 # cut 2 # speed (range "-0.25" 2.25 "^31")
$ "break:20" # pan 0.4 # cut 2 # speed (range "-0.25" 2.25 "^30")
d11 $ f1 $ gMute -- Snare <3 chak reverb phantome
$ struct "~ t ~ <t!3 ~>" $ "[snare:34,cp]" # lpf 2000
d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
$ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>") $ maskLoops
$ midiOn "^43" (ply "[4 <1 2>]*<4!3 8>") $ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
$ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
$ ply "<1!8 <2 <2 [2 2 4 2]!7> <2!4 4!4> <4!2 [4 4 8 4] [4 8 <8 4> 4]!3 4>>>"
$ "hh*4" # "h2ogmhh" # pan 0.6 # room 0.2 # gain (0.8 + 0.08 * (slow 2 perlin))
d4 $ f3 -- Atmospheric synth: aerial questions
$ midiOn "^89" (|+ note "<2 2 4 <4 12>>") $ midiOn "^57" (chop "<[16@3 32] [32@3 64]>")
$ midiOn "^76" (|+ note "<2 2 4 <4 12>>") $ midiOn "^44" (chop "<[16@3 32] [32@3 64]>")
$ "90s_synatm:8/4" # cut 4 # room 0.8 # legato 4 # dry 1 # pan 0.45
# legato 2
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d5 $ f2 -- Synth: ELECTRONIC ANSWERS
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ midiOn "^89" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^57" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4" # cut 5 # room 0.85 # sz 0.8 # pan 0.43 # dry 1
# delayfb 0.25 # delayt 0.25 # delay 0.8
# panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34") # gain 1.6
# panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^33")
# octersubbus 53 (range 0 1.85 "^53") # gain 1.6
d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
......@@ -58,8 +58,8 @@ d7 $ f3 -- High lead: Winds of truth
-- # room 0.4 # sz 0.8
# dry 0.1
# cut 7
# crushbus 62 (range 16 2.25 "^55")
# panbus 63 (range 0.05 0.95 "^19")
# crushbus 62 (range 16 2.25 "^35")
# panbus 63 (range 0.05 0.95 "^55")
d8 $ f1 $ gM2 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
......
live/midi/nova/ambient/drone_aveugle.tidal
......@@ -8,8 +8,8 @@ let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g -- KICK
$ fix (* gain 0.82) "wobble"
$ fix ((|* gain 0.8) . (|+ note "0 0 <1 2 4 -1> <0!3 <0 -2>>")) "wobble"
$ midiOn "^42" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^42" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ midiOn "^41" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ "[jazz,808bd:3,wobble]"
# room 0 # dry 1 # sz 0 # crush 32
# midiG' "^78" 0 1.4
......@@ -18,28 +18,28 @@ d2 $ g -- Snare minitel
-- $ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch"
$ fix ((|* gain 0.85) . (# "realclaps:2")) "cp"
$ fix (|* gain 0.8) "snare"
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ (|* gain "1 . 1 ~ ~ 0.76")
$ "~ . s ~ ~ <~ s*<1!3 2>>"
# "[snare:27,<~!8 cp!24 cp!8 ~!8 cp!16>]"
# midiG' "^79" 0 1.4
d7 $ g -- Down Break
$ midiOn "^60" (slice 4 "0 1 2 [2 1*<1 2>]")
$ midiOn "^92" (ply 4)
$ midiOn "^91" (slice 4 "0 1 2 [2 1*<1 2>]")
$ midiOn "^59" (ply 4)
$ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>"
$ loopAt 2
$ "break:15"
# speed (range 0 2 "^56")
# speed (range 0 2 "^35")
# midiG' "^84" 0 1.4
# cut 7
# pan 0.35
d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3
$ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ midiOn "^43" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>"
# midiG' "^80" 0 1.4
d4 -- Frequency-modulated hopes
$ g2
$ midiOn "^89" (chop 16)
$ midiOn "^76" (chop 16)
$ superimpose (|+ note (cat [
2,2,2,3,
3,3,4,5,
......@@ -48,12 +48,13 @@ d4 -- Frequency-modulated hopes
]))
$ note ("d" - 12)
# "superfm"
# voicebus 42 (range 0 8 "^33")
# crushbus 41 (range 10 0.85 "^53") -- Harmonics of destruction
# midiG' "^81" 0 (1 - 0.2 * "^17")
# voicebus 42 (range 0 8 "^32")
# crushbus 41 (range 10 0.85 "^52") -- Harmonics of destruction
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # midiG' "^81" 0 (1 - 0.2 * "^17")
d5 $ g2 -- BASSLINE
$ midiOn "^90" (ply "[2|4]")
$ midiOn "^58" (chop 4)
$ midiOn "^89" (ply "[2|4]")
$ midiOn "^57" (chop 4)
$ superimpose ((|- note 12) . (|* gain 0.8))
$ arp "up"
$ n (scale "aeolian"
......@@ -63,22 +64,22 @@ d5 $ g2 -- BASSLINE
-- "<d'maj11'8!3 [d'maj11'i'6]>"
- "24")
# s "superchip"
# voicebus 51 (range 0.7 0.05 "^34")
# crushbus 52 (range 16 2.9 "^54")
# midiG' "^82" 0 (1.4 - 0.1 * "^54")
# voicebus 51 (range 0.7 0.05 "^33")
# crushbus 52 (range 16 2.9 "^53")
# midiG' "^82" 0 (1.4 - 0.1 * "^53")
# room 0.7
# dry 1.02
# sz 0.8
d6 $ g2 -- Sirene apocalyptico-commerciale
$ midiOn "^91" (
$ midiOn "^90" (
slice 4 (mask "t" $ fast 8 $ run "<4!3 [4|2]*8>"))
$ midiOff "^59" (slow 8)
$ midiOff "^58" (slow 8)
$ n (
scale "aeolian"
"[0 <[<5 6> <4 5>]>]/2"
- 36)
# "supersiren"
# crushbus 62 (range 10 2.5 "^55")
# crushbus 62 (range 10 2.5 "^34")
# midiG' "^83" 0 0.77
# panbus 63 (range 0.4 0.8
(sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin)))
live/midi/nova/ambient/empreinte_du_numerique.tidal
......@@ -15,25 +15,27 @@ let modIndex = pF "modIndex"
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4)
d1 $ gF1 $ gM1 $ gMute -- Kick
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "[jazz,808bd:6]"
# gain 1.5
d2 $ gF1 $ gM2 --
$ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ midiOn "^42" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ "~ s" # "[db:12]"
-- # note "<-2!3 -4>"
# gain 1.4
d3 $ gF1 $ gMute
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
# room 0.3
# dry 0.95
|* gain "1.2 1!6 <1 1 1.1 <1.2 1>>"
d4 $ gF2 $ gM3 -- BASSLINE BoomRang!
$ midiOn "^57" (# n "50")
$ midiOn "^89" (ply "2 4" . chop "2 <2 4>")
$ midiOn "^44" (# n "50")
$ midiOn "^76" (ply "2 4" . chop "2 <2 4>")
-- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw)))
$ slice 2 "<0!3 1>"
$ "fbass:51"
......@@ -41,10 +43,11 @@ d4 $ gF2 $ gM3 -- BASSLINE BoomRang!
# room 0.4
# sz 0.9
# lrate 0.93
# lsizebus 51 (range 0.8 4.8 "^17")
# lesliebus 52 "^33"
# lsizebus 51 (range 0.8 4.8 "^32")
# lesliebus 52 "^52"
# pan 0.3
# crushbus 53 (range 10 1.61 "^53")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 1.4
d8 $ gF1 $ gM2 -- Break bonus banane
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
......@@ -63,17 +66,17 @@ d7 $ gF3 $ gM3 -- Back solar mandoline
$ note "<d <d a> <gf> c>"
# "supermandolin"
# pan 0.8
# room (range 0 0.3 "^55")
# crushbus 71 (range 10 3.61 "^55")
# room (range 0 0.3 "^35")
# crushbus 71 (range 10 3.61 "^35")
# midiG' "^83" 0 1.5
d5 $ gF2 $ gM3 -- RHODES FOLIE <33
$ midiOn "^58" (off "e" id)
$ midiOn "^90" (jux rev)
$ midiOn "^57" (off "e" id)
$ midiOn "^89" (jux rev)
$ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
-- $ swing (1 + ("0 2" * "^58") + (2 * "^90"))
$ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
# "FMRhodes1"
# room 0.5
# pan 0.7
# crushbus 61 (range 10 4.4 "^54")
# modIndex (range "-0.1" 100 "^34")
# crushbus 61 (range 10 4.4 "^33")
# modIndex (range "-0.1" 100 "^53")
live/midi/nova/ambient/froid_de_minuit.tidal
......@@ -4,16 +4,18 @@ do
setcps(120/60/4)
d1 $ gF1 $ gM1 -- Kick solide 4/4 disponible
-- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:4]"
d2 $ gF1 $ gM2 -- Snare fantomatique
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s")
$ midiOff "^42" (<| "~ s")
$ "[cp:1,rampleM1:10]"
# room 0.1 # sz 0.5 # dry 0.9
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (fast 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -27,8 +29,8 @@ d6 $ gF1 $ gM3 $ "hh(3,8) hh(<3!6 5 <5 [5 8]>>,8)"
# "rampleS57:1" # "<hh:2 [hh:2 hh:3*<1!3 4>]>" # cut 6
# gain 0.9 # cut 3
d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
$ midiOn "^89" (ply "<8!8 [16 <8 16>]!8> <8 16>")
$ midiOn "^57" (juxBy 0.2 (
$ midiOn "^76" (ply "<8!8 [16 <8 16>]!8> <8 16>")
$ midiOn "^44" (juxBy 0.2 (
("h" ~>)
. swing 2
-- . rarely (off "e" id)
......@@ -43,15 +45,16 @@ d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
. (# rel 2))
$ note ("<b3 d3 e3 g3>/2")
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# squizbus 42 (range 0 1.5 "^33")
# octerbus 43 (range 0 1 "^17")
# octersubbus 44 (range 0 1 "^17")
# crushbus 41 (range 16 3.5 "^32")
# squizbus 42 (range 0 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 43 (range 0 1 "^17")
-- # octersubbus 44 (range 0 1 "^17")
# att 0.25 # rel 4
# pan 0.2 # room 0
d5 $ gF3 $ gM3 -- Guitare contetemps FIXME Pas convaincante
$ n "~ <0 0 4 [3(3,8),4([1 3],8,2)] 8 8 10 [14 4 14(3,8)]>"
# crushbus 51 (range 16 5 "^54")
# crushbus 51 (range 16 5 "^33")
# room 0.4 # att 0.4 # rel 0.252 # legato 0.4
# "nujazz_guitar"
d9 $ gF3 $ gM3 $ "wind:0" -- Vent de minuit originel
......
live/midi/nova/ambient/prestance.tidal
......@@ -6,21 +6,23 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let praxis = "<[~ d5 d4 e4 g4 a4 b4 d4] [e4 g4 a4 b4 <e4 g4>@4]>"
d1 $ gF1 $ gM
$ midiOn "^42" (<| "k k k k*<1!7 2>")
$ midiOff "^42" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
$ midiOn "^41" (<| "k k k k*<1!7 2>")
$ midiOff "^41" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
$ "[jazz,808bd:3]"
-- # midiG' "^78" 0 1.4
d2 $ gF1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~ c>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ <~ c>")
$ "snare:40"
# note "-4"
-- # midiG' "^79" 0 1.8
d3 $ gF1 $ gM
$ midiOn "^76" (loopAt 2 . (>| "jungle_breaks:35"))
$ midiOn "^43" (loopAt 2 . (>| "jungle_breaks:35"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (off 0.5 (ply "<1!3 2>"))
-- $ chop 8
$ midiOff "^76" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
$ midiOff "^43" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
$ loopAt 2
$ "break:20"
-- # midiG' "^80" 0 1.4
......@@ -31,15 +33,15 @@ d4 $ gF2 $ gM3 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
# delay 0.8
# delayfb "<0.1!3 0.65>"
# delayt 0.125
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
-- # midiG' "^81" 0 1.6
d6 $ gF3 $ gM3
-- $ mask "<f!12 t!4>"
$ note praxis
# "bassWarsaw"
# modIndex 5
# crushbus 61 (range 16 2 "^56")
# midiG' "^17" 0 1.4
# crushbus 61 (range 16 2 "^34")
# midiG' "^54" 0 1.4
# pan 0.3
d7 $ gF3 $ gM3
$ mask "<t(10,16)!8 f(10,16)!8>"
......
live/midi/nova/ambient/raise.tidal
......@@ -66,15 +66,15 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]"
# gain 1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ midiOff "^42" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^42" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
$ "[snare:30]"
# lpf 2800
......@@ -88,33 +88,33 @@ d3 $ gF1 $ gM2
# room 0.2 # dry 1.3
# gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^57" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^89" (ply 2)
$ midiOn "^44" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^76" (ply 2)
-- $ note ("d3" + scale "mixolydian" ("[<0!12 3!4> <4!12 6!4>]*4")) -- ORIGINAL.
$ note ("d3" + scale "mixolydian" ( -- NICE VARIATIONS
"[0 4 <0 [0 <5 6>] 0> 4 <0!3 2> 4 <0 2> 4]" + "<0!3 [4 6]*2!1>")
)
# "bassWarsaw"
-- # "bass3:3" |+ note 24
# octersubbus 41 (range 0 2.5 "^33")
# crushbus 42 (range 16 2.5 "^53")
# roombus 43 (range 0 0.5 "^33")
# octersubbus 41 (range 0 2.5 "^32")
# crushbus 42 (range 16 2.5 "^52")
# roombus 43 (range 0 0.5 "^32")
# gain 1.3
# pan 0.3
# cut 4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply 2)
$ midiOn "^89" (ply 2)
$ slow 16 $ chop 16
$ "airports" # cut 5
# pan 0.3
# delaybus 51 (range 0 0.8 "^54")
# delaytime "^34"
# delaybus 51 (range 0 0.8 "^33")
# delaytime "^53"
# room 0.4 # sz 0.8 # dry 1.1
-- # crushbus 51 (range 16 3.5 "^54")
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "<2 4 <8 [16 8]>>")
$ slow 4
$ midiOn "^55" (slow 4)
$ midiOn "^35" (slow 4)
$ slice 16 (run 6)
$ chop 16
$ "airports" # cut 5 # speed 0.5
......@@ -122,7 +122,7 @@ d7 $ gF3 $ gM3
# room 0.4
# att 0.02
# rel 2
# freezebus 71 "^55"
# freezebus 71 "^35"
# pan 0.8
d8 $ gF1 $ gM2 -- BROKEN BEAT | BREAKS STACK
$ loopAt 2 $ chop 16
......
live/midi/nova/ambient/snow_white.tidal
......@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ midiOn "^41" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^41" (<| "k . ~ k ~ <~!7 k>")
$ "[techno:0,808bd:2,909,kick:4]"
# gain 0.9
d4 $ gF3 $ gMask -- La pluie d'étoiles
......@@ -22,11 +22,12 @@ d5 $ gF3 $ gMask -- La pluie d'étoiles
$ "synth_nes:0"
# pan 0.8
# cut 5
# hpfbus 51 (range 0 8000 "^34")
# hpfbus 51 (range 0 8000 "^33")
# midiG' "^82" 0 0.9
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:11"))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
......@@ -41,13 +42,15 @@ d8 $ gF $ gMask
d2 $ gF $ gM -- Snare FOU
$ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s")
$ midiOn ("^42" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^42"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# gain 0.7
d3 $ gF $ gM
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
$ midiOn "^43" (ply "1 2 1 <2 <1 4>>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>"
$ "dr:2*8"
......@@ -55,14 +58,14 @@ d3 $ gF $ gM
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gMask
$ midiOff "^57" (midiOn "^89" (ply "<4!3 [4 8]>"))
$ midiOff "^44" (midiOn "^76" (ply "<4!3 [4 8]>"))
-- $ midiOn "^57" (midiOn "^89" (slice 4 (run 8)) . chop 8)
-- $ midiOn ("^89" - "^57") (fast "2" . slice 16 ("[0 1 2 3]*<4 8>" + (slow 2 "<0 4 8 12>")))
-- $ midiOff "^57" (midiOn 1 (slice 16 (("[0 1 2 3]*<2!8 4!8>" + "<0 12 0 8>"))))
-- $ midiOff "^89" (chop 16)
$ chop 4
$ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5") -- Sad truth pattern
$ midiOn "^44" (# "bass_gameboy:5") -- Sad truth pattern
$ "bass_gameboy"
# cut 4
# gain 0.9
......@@ -83,8 +86,8 @@ d7
# roombus 71 (range 0.3 1.2 "^55") # dry 1.8 # sz 0.7
# gain 0.8
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
......
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