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