Commit b5ad8b6c by PLN (Algolia)

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
......@@ -8,14 +8,14 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "[t ~ t t]*4")
$ midiOff "^41" (<| "[t ~ t t]*4")
$ "[jazz ~ jazz:1 jazz:1]*4"
# midiG' "^78" 0 1.3
d2 $ gF2 $ gMask -- Coupe de feu
$ midiOn "^43" (struct "~ t ~ t ~ t ~ [<t ~ ~ t> <~ t>]")
$ midiOff "^43" (slow 2)
$ midiOn "^42" (struct "~ t ~ t ~ t ~ [<t ~ ~ t> <~ t>]")
$ midiOff "^42" (slow 2)
$ "~ cp"
# lpf 2000
# note (-4)
......@@ -25,7 +25,7 @@ d3 -- weird memories
$ "90s_weird:1"
# cut 3
# note 0
# crushbus 31 (range 16 2.5 "^56")
# crushbus 31 (range 16 2.5 "^31")
# panbus 32 (range "<0.1 0.2 0.3 0.4>" "<0.4 0.5 0.6 0.7>" (fast 16 sine))
# room 0.74 # dry 1.4
# sz 0.1
......@@ -45,16 +45,16 @@ d5 $ gF2 $ gMask
$ midiOn "^57" (euclid "<3 [3 5] 5 [5 <4 8>]>" 8)
$ note (slow 2 "[gs3@2,<gs2'maj'4 c3'maj'4 gs2'maj'4 f2'maj'4>]")
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# room 0.2
# pan 0.3
# midiG' "^81" 0 1.3
d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4)
$ midiOn "^90" (ply 8)
$ midiOn "^58" (ply "1 <1!3 2>")
$ midiOff "^58" (slow 4)
$ slice 8 (run "<8!7 16>")
$ "break:4"
# cut 6
# speed (range 0 2 "^55")
# speed (range 0 2 "^34")
# midiG' "^83" 0 1.5
......@@ -6,21 +6,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = gMask
d1 $ gM1 $ gF
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ midiOff "^41" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gM2 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^42" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^41" + "^42") (struct "~ t")
$ midiOff ("^43" + "^42" + "^42") (struct "~ t")
$ "clap"
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpqbus 22 (range 0 (1 - "^42") "^30")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM2 $ gMask $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy (1 - "^31") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
$ n (run 16)
......@@ -29,7 +32,7 @@ d3 $ gM2 $ gMask $ gF -- Broken drummer
# midiG' "^80" 0 1.2
# cut 3
d6 $ gM3 -- Drumroll fou
$ midiOn "^91" (fast "2 <2!3 <4 [4 8]>>")
$ midiOn "^90" (fast "2 <2!3 <4 [4 8]>>")
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
......@@ -42,7 +45,7 @@ d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
# delay 0.2
# delayfb 0.8
# delayt 0.125
# crushbus 41 (range 16 1.2 "^56")
# crushbus 41 (range 16 1.2 "^32")
# pan 0.7
# midiG' "^84" 0 0.9
d5 $ gMask $ gF2-- La Basse qui devance
......@@ -53,7 +56,7 @@ d5 $ gMask $ gF2-- La Basse qui devance
-- chop "4 <[4 8]> 4 <4!3 16>"
)
$ juxBy 0.3 (
(# crushbus 51 (range 16 2.2 "^53"))
(# crushbus 51 (range 16 2.2 "^33"))
. (|* gain 0.8)
)
$ note ("<a <f [f@7 g]> e@2>"
......
......@@ -4,9 +4,10 @@ setcps (60/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ midiOn "^30" (fast 2)
$ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>"))
$ midiOff "^42" (<| "k . <~!8 k(3,8)!8>")
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^29 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^29 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^29" (fast 2)
$ midiOn "^41" ((<| "k k k <k k*2 k [~ k*2]>"))
$ midiOff "^41" (<| "k . <~!8 k(3,8)!8>")
$ "kick:5"
# cps ((range 60 120 "^29")/60/4)
d2 $ gF1 $ gM2
......@@ -15,11 +16,11 @@ d2 $ gF1 $ gM2
# room 0.4 # dry 0.9
d3 $ gF1 $ gM2 $ "dr*[8 8 <8 <12 24>> 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ superimpose (arp "up <up!3 down>" . (|+| note "c'maj9'8"))
$ superimpose (
(# lpf 5000)
. (# crushbus 41 (range 16 4 "^53"))
. (# crushbus 41 (range 16 4 "^32"))
)
-- $ midiOn "^"
$ note "<ef3 <fs3 bf3>>"
......@@ -36,7 +37,7 @@ d9 $ gF2 $ gM3
# octerbus 91 (range 0 1.4 "^19")
# crushbus 92 (range 16 3 "^18")
d5 $ gF3 $ gM3 -- MAIN CRUTCH
$ midiOn "^90" (ply "2 <4 8>")
$ midiOn "^89" (ply "2 <4 8>")
-- $ slice 4 "<0 1 2 3>"
$ chop 8
$ loopAt 2
......
......@@ -5,14 +5,14 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t ~ t ~")
$ midiOn "^41" (struct "t t t t")
$ midiOff "^41" (struct "t ~ t ~")
$ "[jazz,kick:4]"
# gain 1.3
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[snare:24,cp]"
# pan 0.65
# gain 1.6
......@@ -22,8 +22,8 @@ d3 $ gM2 $ gF1
# hpf 7000
# gain 1.5
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 8")
$ midiOff "^89" (superimpose (struct "t(5,8)"))
$ midiOn "^76" (ply "4 8")
$ midiOff "^76" (superimpose (struct "t(5,8)"))
$ note (
"<a3 d3 c3 <a3!3 e3>>"
-- + "[0,0(3,8)]"
......@@ -31,7 +31,7 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# gain 1.4
# room 0.4
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
......@@ -56,8 +56,8 @@ d6 $ gF1 $ gM3 -- HAWKS
# gain 1.5
d7
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
$ midiOn "^59" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^91" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
$ (0.125 ~>)
......@@ -66,8 +66,8 @@ d7
)
# "808hc:2"
# pan 0.85
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# octerbus 71 (range 0 0.5 "^35")
# octersubbus 72 (range 0 1.4 "^35")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques
......
......@@ -11,20 +11,22 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ <~!7 t>")
$ midiOn "^41" (struct "t . ~ t ~ <~!7 t>")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ "cpu"
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gM2 -- Snare
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ . t")
$ midiOn "^42" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ . t")
$ "808sd:6" -- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "<2 4>")
-- $ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
$ "h h h h" # "cpu:4"
......@@ -39,14 +41,14 @@ d8 $ gF3
# midiG' "^84" 0 1
# cut 8
d4 $ gF2
$ midiOn "^57" (struct "t(3,8)" . arpeggiate . (# legato 2) . (# room 0.2) . (# size 0.8))
$ midiOn "^44" (struct "t(3,8)" . arpeggiate . (# legato 2) . (# room 0.2) . (# size 0.8))
-- $ note (slow 2 "<[c4, e4, a4] [g3, b4, d4]>")
-- TODO: Try with just the fundamentals:
-- "e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3" -- 12 Chorus
-- "e3 ~" -- Bridge x2 -- OR SILENT?
-- "a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2" -- 12 Verse
-- Pasted: Chorus/Bridge/Verse/Chorus/Bridge2/Verse/Chorus/Bridge8
$ midiOn "^89" (chop 8)
$ midiOn "^76" (chop 8)
-- $ note ("<e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ a3 d3 g3 c3 a3 d3 e3 e3 a3 d3 g3 b2 e3 a3 d3 g3 e3 a3 d3 c3 g2 c3 f3 e3 e3 ~ e3 ~ e3 ~ e3 ~>")
-- TODO: Move along new fundamentals
-- Mapping to: F G Ab Bb C Db Eb
......@@ -103,7 +105,7 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ ~")
$ midiOn "^41" (struct "t . ~ t ~ ~")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ fix (|* gain 0.7) "jazz"
$ fix ((|* gain 0.7) . (# "jazz") . (# n "<4 4 <3 3 4 4> 3>")) "sub"
......@@ -111,8 +113,8 @@ d1 $ gF1 $ gM -- Kick
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gMask -- Snare
$ midiOff "^43" (struct "~ ~ ~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ ~ ~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "808sd:6"-- "snare:5"
# release 0.4
# att 0.02
......@@ -132,9 +134,9 @@ d4 $ gF2 $ gMute -- Hats pirouette
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 24)
$ midiOn "^57" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
$ midiOn "^89" ( -- FIRELINE
off 0.5 (
-- (# crush 6) .
(|- note 12)
......@@ -153,7 +155,7 @@ d5 $ gM $ gF2 -- BASSLINE!
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^33")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
-- $ sometimesBy "0 0.25" (mask "t . t(<3 5 8 1>,8)")
......
......@@ -7,7 +7,7 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ ~")
$ midiOn "^41" (struct "t . ~ t ~ ~")
-- $ struct ("t <t!3 [~ t]> t <t!6 ~!2>") -- RUN!
$ fix (|* gain 0.7) "jazz"
$ fix ((|* gain 0.7) . (# "jazz") . (# n "<4 4 <3 3 4 4> 3>")) "sub"
......@@ -15,14 +15,14 @@ d1 $ gF1 $ gM -- Kick
# midiG' "^78" 0 1.2
# pan 0.8
d2 $ gF1 $ gMask -- Snare
$ midiOff "^43" (struct "~ ~ ~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ ~ ~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "808sd:6"-- "snare:5"
# release 0.4
# att 0.02
# midiG' "^79" 0 1.5
d3 $ gF1 $ gMute -- Hats complément
$ midiOn "^76" (ply "<2 4>")
$ midiOn "^43" (ply "<2 4>")
$ "~ h ~ <h!3 ~> ~ <~!8 h!8> ~ h"
# "snare:51"
# att 0.0125 # rel 2 # hpf 3000
......@@ -36,9 +36,9 @@ d4 $ gF2 $ gMute -- Hats pirouette
# midiG' "^80" 0 0.8
# pan 0.65
d5 $ gM $ gF2 -- BASSLINE!
$ midiOn "^58" (|- note 24)
$ midiOn "^57" (|- note 24)
$ mask "<t!3 t(<1 8>,8)>"
$ midiOn "^90" ( -- FIRELINE
$ midiOn "^89" ( -- FIRELINE
off 0.5 (
-- (# crush 6) .
(|- note 12)
......@@ -57,7 +57,7 @@ d5 $ gM $ gF2 -- BASSLINE!
# room 0.64 # sz 0.5 # dry 1
# pan 0.2
# midiG' "^82" 0 1.6
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^33")
d6 $ gM $ gF1
$ fix (|* gain 0.7) "cpu"
-- $ sometimesBy "0 0.25" (mask "t . t(<3 5 8 1>,8)")
......
......@@ -6,19 +6,21 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ midiOff "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^41" (<| "k ~ ~ <~ k> . <k ~>")
$ "[jazz,kick:5]"
-- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
# pan 0.8
# gain 1.4
d2 $ gF1 $ gM
$ midiOff "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^43" (<| "~ ~ ~ k")
$ midiOff "^42" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOn "^42" (<| "~ ~ ~ k")
$ "[drumtraks:9]"
-- # midiG' "^79" 0 1.45
d3 $ gF1 $ gM
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8
......@@ -26,7 +28,7 @@ d3 $ gF1 $ gM
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
-- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ midiOn "^44" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
-- PARTITION ORIGINALE
-- "[bf3, d4, f4, a4]", -- Bbmaj7
......@@ -44,7 +46,7 @@ d4 $ gF2 -- V2
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53")
# modIndex (range 0 2 "^32")
-- # midiG' "^81" 0 1.6
d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
# "bassWarsaw"
......
......@@ -10,8 +10,8 @@ setcps (125/60/4)
d1 $ gF1
$ fix (# hpf 2000) "909"
$ fix (# lpf 120) "[808bd,bd]"
$ midiOn "^42" ((|* gain "1 1 0.95") . struct "t ~ [~ t]")
$ midiOff "^42" (struct "t")
$ midiOn "^41" ((|* gain "1 1 0.95") . struct "t ~ [~ t]")
$ midiOff "^41" (struct "t")
-- $ "[808bd,cpu]"
$ "[808bd:3,bd:1,909]"
# room 0.2 # dry 1 # sz 0.8
......@@ -19,7 +19,7 @@ d1 $ gF1
# release 10
# midiG' "^78" 0 1.4
d2 $ gF1
$ midiOn "^43" (mask "t!7 f")
$ midiOn "^42" (mask "t!7 f")
$ "~ ~ ~ s ~ <~!3 s>"
# "snare:8"
# hpf 2000 # gain "1.1"
......@@ -27,7 +27,9 @@ d2 $ gF1
d3 $ gF2
$ fix (|* gain (slow 2 $ range 0.5 0.81 sine)) "drum"
$ fix ((# n "0!3 <0 1>") . (|* gain (range 0.7 0.5 sine))) "808oh"
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (fast 2)
$ (|* gain "1 0.9 0.85")
$ "d d d"
......@@ -37,8 +39,10 @@ d3 $ gF2
d5 $ gF2 -- filler
-- FIXME On different chorus
-- f fs gs as c cs ds
$ midiOn "^89" ((# note "fs5'maj'3")) -- Pre-verse
$ midiOn "^90" (# note ("gs4'maj'3")) -- Chorus
$ midiOn "^57" ((# note "fs5'maj'3")) -- Pre-verse
$ midiOn "^89" (# note ("gs4'maj'3")) -- Chorus
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^91 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^91 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^91 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^91 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ midiOn "^91" (# note ("ds5'maj'3")) -- Chorus
$ "bassWarsaw"
# velocity 1
......
......@@ -9,21 +9,23 @@ let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k . k(3,8)")
$ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
-- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
$ "[jazz,cpu]" # gain 1
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM2
$ midiOff "^43" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^43" (<| note ("~ 0 ~ 0"))
$ midiOff "^42" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^42" (<| note ("~ 0 ~ 0"))
$ "[snare:60,snare:21,snare:51]"
# gain 0.56
# pan 0.3
-- # room 0.2 # dry 1.1 # sz 0.8
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "drum:2*[4 <4 <8 16>>]"
-- $ "drum:2*[6 12]"
......@@ -41,15 +43,15 @@ d8 $ gF1 $ gM2
# gain 0.8
# pan 0.7
d4 $ gF2 $ gM3
$ midiOn "^57" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^89" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ midiOn "^44" (|+| note "0 <7 7 12 12>(3,8) 0 <7 12>([5 <3 2>],8)")
$ midiOn "^76" (superimpose (|+| note "[0 0(<3!3 5>,8)]"))
$ note (
cat blues + "[0]"
)
-- # "bass3:4"
-- # "modalMarimba" |+| note "0*4"
# "bassWarsaw" |- note 24
# octersubbus 41 (range 0 2 "^53")
# octersubbus 41 (range 0 2 "^32")
# pan 0.3 # crush 16
-- # room 0.1
-- # voice 0.8
......@@ -90,7 +92,7 @@ d5 $ gF3 $ note (
)
# cut 51
# room 0
# crushbus 51 (range 16 3 "^54")
# crushbus 51 (range 16 3 "^33")
# "come_guitar:0"
# midiG' "^82" 0 1.7
......
......@@ -5,25 +5,27 @@ let gM = gMask . gMute
let modIndex = pF "modIndex"
let gF = gF1 . gF2
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" (<| "k ~ ~ <~ k> . <k ~>")
$ "jazz"
# midiG' "^78" 0 1.3
# pan 0.8
d2 $ gF1
$ midiOn "^43" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOff "^43" (<| "~ ~ ~ k")
$ midiOn "^42" (<| "~ s ~ s*<1!4 2!3 1>")
$ midiOff "^42" (<| "~ ~ ~ k")
$ "[drumtraks:9]"
# midiG' "^79" 0 1.45
d3 $ gF1 $ gM
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
$ midiOn "^57" (|+ note 12)
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ midiOn "^44" (|+ note 12)
$ midiOn "^76" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
$ note (cat [
"[bf3, d4, f4, a4]", -- Bbmaj7
"[a3, c4, e4, g4]", -- Am7
......@@ -34,7 +36,7 @@ d4 $ gF2 -- V2
# "FMRhodes2"
-- |- note 12
|+ note 2 -- Adjust to C
# modIndex (range 0 2 "^53")
# modIndex (range 0 2 "^32")
# midiG' "^81" 0 1.6
d8 $ gF $ gM
$ midiOn "^92" (ply "2 <2!3 4>")
......
......@@ -21,8 +21,8 @@ let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f"
-- Sol Fa Do Sol
d1 $ gF $ gM1
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . k(<3!3 5>,8)")
$ "k"
# "[cpu,jazz,808bd:3,808bd:2]"
-- # midiG' "^78" 0 1.9
......@@ -31,7 +31,7 @@ d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
-- # midiG' "^79" 0 1.3
d3 $ gF $ gMute
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9
......@@ -47,8 +47,8 @@ d8 $ gF $ gM
# cut 8
# gain 1.2
d4 $ gF2 $ gM3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
$ midiOn "^76" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^44" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
......@@ -62,8 +62,8 @@ d4 $ gF2 $ gM3
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 16 1.3 "^53")
# octerbus 42 (range 0 1.3 "^33")
# crushbus 41 (range 16 1.3 "^32")
# octerbus 42 (range 0 1.3 "^52")
# gain 1
d9
$ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
......
......@@ -8,7 +8,8 @@ let modIndex = pF "modIndex"
d1
$ gF1
$ midiOn "^74" (fast 2)
$ midiOn ("^42" - "^41") (mask "t(1,4)")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^41" - "^41") (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
$ fix ((|* gain 0.8) . (# att 0.05) . (# rel 1)) ("kick")
$ fix ((|* gain 0.95)
......@@ -31,26 +32,28 @@ d3 $ gF3 $ gO
# midiG' "^80" 0 1.2
d3 $ gF $ gM -- Breaks du Marathon
$ midiOn "^76" (scramble (8 - 4 * "^44"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^43" (scramble (8 - 4 * "^44"))
$ midiOn "^44" (slice 16 (run "8 . <8 8 <8 16> <16!3 [32 <32 16>]>>"))
$ midiOff "^44" (slice 8 ("0 1 2 3 . 4 5 6 <7!3 6>"))
$ loopAt 2
$ "break:15"
# cut 2
# pan 0.4
# speed (range 0 2 "^52")
# speed (range 0 2 "^31")
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^53" (-- Trigger: DATA BURN
$ midiOn "^32" (-- Trigger: DATA BURN
(
(# cut 42) . (|* gain 0.85) .
(# squizbus 41 (range 200 0 "^53"))
(# squizbus 41 (range 200 0 "^32"))
)
)
$ midiOn "^57" ( -- Ritournelle
midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
$ midiOn "^44" ( -- Ritournelle
midiOn "^76" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
. (+| note (scale "aeolian" (arp "converge" $
"[0 <2!4 1!2 2!2> 0 <0!3 4>]"
-- "<5@3 [5 4@2]> <<2 0> [2 0]>"
......@@ -65,25 +68,26 @@ d4 -- BASSLINE BRULANTE
# "90s_synatm:9"
# pan 0.15
-- # room 0.5 # dry 0.2 # sz 0.8
# lratebus 43 (range 0.6 6.7 "^33")
# lesliebus 42 (range 0 1 "^17")
# lratebus 43 (range 0.6 6.7 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 42 (range 0 1 "^17")
# lsize (slow 8 $ range 2 6 saw)
# midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^53")
# crushbus 41 (range 10 4.5 "^53")
-- # midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^32")
# crushbus 41 (range 10 4.5 "^32")
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes
$ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
$ midiOn "^57" (off "q" (|+ note 12) . (|* gain 0.85))
$ note (
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
- "<24!12 12!4>")
# "FMRhodes1"
# modIndex (range 0 100 "^54")
# modIndex (range 0 100 "^33")
-- # crushbus 51 (range 10 4.5 "^34")
# midiG' "^82" 0 2
d6 $ gF2 -- Voices from the st0rm
$ midiOn "^91" ((# cut 6) . slow 8)
$ midiOn "^58" ((# cut 6) . slow 8)
$ swingBy 0.125 8
$ midiOn "^59" (superimpose ( -- Resolution chant
$ midiOn "^90" (superimpose ( -- Resolution chant
(>| note (scale "aeolian" "<7 [7@3 <5 9>]>"))
. (# cut 61)
. (# legato 1.2)
......@@ -94,7 +98,7 @@ d6 $ gF2 -- Voices from the st0rm
))
# "90s_matrix:3"
# cut 6 # gain 0.4
# squizbus 61 (range 0 4 "^55")
# squizbus 61 (range 0 4 "^34")
# room 0.42 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 2
......
......@@ -7,8 +7,8 @@ let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g = (gDJF)
let m = mBreak
d1 $ g --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "jazz"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1.4
......@@ -22,7 +22,9 @@ d3 $ g $ m -- Clap contretemps stable
# room 0.8 # sz 0.8 # dry 0.99
# midiG' "^79" 0 1.8
d2 $ g $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42" - "^76") (ply 2)
$ midiOn "^76" (fast 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id)
......@@ -45,7 +47,7 @@ d9
d4 $ g $ m
$ midiOn "^57" (chop "8 1")
$ midiOn "^76" (chop "8 1")
$ superimpose ((# cut 41)
. (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
)
......@@ -56,11 +58,11 @@ d4 $ g $ m
)
# "bassWarsaw"
# midiG' "^81" 0 1.5
# crushbus 4 (range 16 1.5 "^53")
# crushbus 4 (range 16 1.5 "^32")
# cut 4
# pan 0.2
d5 $ g $ m
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
(# cut 51)
. (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
. (|* gain 0.9)
......@@ -72,6 +74,6 @@ d5 $ g $ m
)
# "FMRhodes1"
# midiG' "^82" 0 1.8
# modIndex (range 0.1 32 "^54")
# modIndex (range 0.1 32 "^33")
# cut 5
# pan 0.8
......@@ -4,8 +4,8 @@ setcps (118/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 <~ k>")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . ~!3 <~ k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -14,8 +14,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^42" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
......@@ -29,7 +29,7 @@ d4 $ gF2 $ gM3
-- $ slow 2
$ note ("<[b,e,g] [b,ds,g] [b,d,g] [b,cs,e,g] [b,c,e,g] [a,c,e,g] [bf,c,e,g] [a,b,d,f]>" - 12)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d5 $ gM3 $ gF3
$ ("1/8" ~>)
$ loopAt 4
......@@ -43,10 +43,10 @@ d8 $ gF1 $ gM2
d4 $ gF2 $ gM3-- BASSLINE
-- $ mask "<f!8 t!12 t!44 t!64>"
$ superimpose (
(# crushbus 4 (range 16 4 "^53"))
(# crushbus 4 (range 16 4 "^32"))
. (# hpf 200) . (|* gain 1.4)
)
$ midiOn "^57" (chop "<8 8 4 <8 16>>")
$ midiOn "^76" (chop "<8 8 4 <8 16>>")
$ whenmod 64 16 (superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
......@@ -67,7 +67,7 @@ d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
# "giorgio_syn:9" # n "<9!3 10>"
# cut 7
# gain 1.3
# crushbus 71 (range 16 4 "^55")
# crushbus 71 (range 16 4 "^35")
# room 0.3 # bandf 400
d10 $ gF3 $ gM3 -- Mad organ
$ mask "<f!4 t!10 f!2>"
......@@ -105,7 +105,7 @@ d5 $ gF3 $ gM3 -- Rhodes arps <3
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (range 0 2 "^34")
# modIndex (range 0 2 "^33")
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
......
......@@ -20,21 +20,25 @@ d1 $ g
-- # crushbus 11 (range 16 0.95 "^14")
d2 $ g
$ midiOn ("^75") (fast 2)
$ midiOn ("^41"-"^43") (fast 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42"-"^43") (fast 2)
$ "~ [cp,clap:1]"
# midiG' "^79" 0 3
# note (range "-12" "12" "^51")
# room 0.4 # dry 0.98
# crushbus 11 (range 16 1.95 "^15")
d3 $ g
$ midiOn ("^44" + "^76") (
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" + "^76") (
const $ loopAt "<1!6 2 2>"
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
$ slice 8 (run 8)
$ "breaks165"
# cut 3
# note (range "-12" "12" "^52")
# note (range "-12" "12" "^31")
# midiG' "^80" 0 1.8
)
$ rarely ("e" ~>)
......@@ -42,13 +46,13 @@ d3 $ g
$ "[drum:2,tech:7]*8"
# midiG' "^80" 0 1.9
d4 $ g -- Mecano Course
$ midiOn "^57" (
$ midiOn "^76" (
slice 8 ("0*<1 2> 1 2 3*<2 1>")
-- . (>| "breaks125")
)
$ midiOn "^89" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ midiOn "^44" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
$ sometimesBy "0 ^33!7" (shuffle 8)
$ someCyclesBy "^53" (iter "1 4")
$ someCyclesBy "^32" (iter "1 4")
$ chop 8
$ loopAt 1
$ "breaks125:3"
......@@ -57,21 +61,22 @@ d4 $ g -- Mecano Course
d5 -- Runny Maracas Pitchables
$ g
$ mask "t(16,32)"
$ midiOn "^90" (ply "<2!3 4>")
$ midiOn "^89" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^82" 0 2
# room "^34"
# note (range "-24" "0" "^18")
# crushbus 51 (range 16 4.2 "^54")
# room "^33"
# note (range "-24" "0" "^53")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # crushbus 51 (range 16 4.2 "^54")
d6 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ midiOn "^58" (slow 2)
$ midiOn "^90" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
......@@ -88,8 +93,8 @@ d6 -- Running Hats
d8 $ g
$ note (scale "aeolian" (iter 4 $ slow 4 $ arpeggiate "c'min'4") - 24)
# "supersaw"
# midiG' "^56" 0 1
# crushbus 51 (range 16 2 "^36")
# midiG' "^36" 0 1
# crushbus 51 (range 16 2 "^56")
# pan 0.2
# velocity 0.9
......
......@@ -5,19 +5,21 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k*<1!4 2!4> . k(<1 3 3 <5 [3 <1 5>]>>,8)")
$ midiOn "^41" (<| "k k k k*<1 2>")
$ midiOff "^41" (<| "k*<1!4 2!4> . k(<1 3 3 <5 [3 <1 5>]>>,8)")
$ "[cpu,jazz,808bd:3,808bd:2]"
# gain 0.9
d2 $ gM $ gF2
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s")
$ midiOff "^42" (<| "~ s")
$ "snare:39"
-- # note "-2"
# gain 1
# att 0.02 # rel 0.9
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOff "^43" (mask "t([8 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -26,13 +28,13 @@ d3 $ gF1 $ gM2
d8 $ gF1 $ gM
$ midiOff "^60" (struct "t(<4>,8)" . segment 8)
$ whenmod 16 8 (iter 8)
$ midiOn "^56" (loopAt 2 . (# n "40"))
$ midiOn "^36" (loopAt 2 . (# n "40"))
$ loopAt 2
$ midiOn "^92" (ply 8)
-- $ slice 16 (run 8)
$ chop 8
$ "jungle_breaks:8"
# speed (range 0.5 1.5 "^56")
# speed (range 0.5 1.5 "^36")
# cut 8
# gain 0.8
......
......@@ -36,13 +36,13 @@ let modIndex = pF "modIndex"
setcps (120/60/4)
d1 $ g1 $ gMute -- THE ROAD
$ midiOn "^74" (fast 2)
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (struct "t*2")
$ midiOn "^41" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^41" (struct "t*2")
$ "[jazz,808bd:6]"
# midiG' "^78" 0 1.4
# orbit 0
d2 $ g1 $ gM -- THE FUEL
$ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^42" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^75" (ply 2)
$ loopAt 4
$ chop 32
......@@ -52,7 +52,9 @@ d2 $ g1 $ gM -- THE FUEL
# cut 2
# orbit 1
d3 $ gM $ g1 -- THE GUIDELINES
$ midiOn ("^44" - "^76")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" - "^76")
(sometimesBy (slow 8 $ range 0.3 0.95 saw)
$ mask "t(3,8)")
$ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN
......@@ -63,31 +65,31 @@ d3 $ gM $ g1 -- THE GUIDELINES
# orbit 2
d4 $ gMask -- THE THUNDER
$ g2
$ midiOn "^57" (off "0.75" id)
$ midiOn "^89" (off "1" id . chop "8")
$ midiOn "^44" (off "0.75" id)
$ midiOn "^76" (off "1" id . chop "8")
$ fix (|* gain 0.8) (note "a4")
$ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>"
# "FMRhodes1"
# cut 4
# modIndex (range 0 128 "^53")
# crushbus 41 (range 16 4 "^33")
# roombus 42 (range 0.05 0.6 "^33")
# modIndex (range 0 128 "^32")
# crushbus 41 (range 16 4 "^52")
# roombus 42 (range 0.05 0.6 "^52")
# sz 0.9
# pan "<0.8!3 0.5>"
# midiG' "^81" 0 1.8
# room 0.4
# orbit 3
d5 $ g2 $ gMask -- THE RAIN
$ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^90" (striate "<2!3 4>" . ply 2)
$ midiOn "^57" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^89" (striate "<2!3 4>" . ply 2)
$ struct "t(<3!7 [3 8]>,8,<0!3 3>)"
$ note (
arp "down"
("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12))
# "FMRhodes2"
# modIndex (range 0 128 "^54")
# crushbus 41 (range 16 4 "^34")
# roombus 42 (range 0 0.2 "^34")
# modIndex (range 0 128 "^33")
# crushbus 41 (range 16 4 "^53")
# roombus 42 (range 0 0.2 "^53")
# sz 0.5
# pan 0.8
# orbit 4
......@@ -96,8 +98,8 @@ d8 $ g3 $ gM -- THE UNAVOIDABLE BREAKS
$ mask "t(16,64)"
$ midiOn "^36" (# n 6) -- Double light
$ midiOn "^56" (# n 4) -- DOUBLE HEAVY
$ midiOn "^60" (ply 2)
$ midiOn "^92" (fast 2)
$ midiOn "^92" (ply 2)
$ midiOn "^60" (fast 2)
$ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
$ loopAt 2
$ "fbreak120:3"
......
......@@ -6,13 +6,13 @@ setcps (120/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
$ midiOn "^42" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k . k(<1!3 <3 5>>,8)")
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^41" (<| "k . k(<1!3 <3 5>>,8)")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ g1
$ midiOn "^43" (struct "~ t ~ t*<1 2 2 1>")
$ midiOff "^43" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ t*<1 2 2 1>")
$ midiOff "^42" (struct "~ t")
$ "cp"
# lpf 1200
# room 0.2
......@@ -20,7 +20,9 @@ d2 $ g1
# dry 1
# midiG' "^79" 0 1
d3 $ g1
$ midiOn "^44" (mask "t([5 <8!3 <4 16>>],16)")
$ midiOn "^43" (mask "t([5 <8!3 <4 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (mask "t(16,32)" . ply 2)
$ n "~ 0 ~ 0 ~ 0 ~ <0!3 2>*<2 1 2 2>"
# "h2ogmsn" # gain 0.8
......@@ -35,20 +37,20 @@ d4 $ g1
# pan 0.3
# midiG' "^80" 0 1.1
d5 $ g2 -- THE BASS REMNANTS
$ midiOn ("^89" + "^57") (slice 4 "0 1 2 <3 1 3 3*8>")
$ midiOn "^57" ((# legato 4) . (slow 4)) -- Hack longer sample
$ midiOn ("^57" + "^89") (slice 4 "0 1 2 <3 1 3 3*8>")
$ midiOn "^89" ((# legato 4) . (slow 4)) -- Hack longer sample
$ "90s_matrix:0"
# crushbus 51 (range 16 1.8 "^53")
# crushbus 51 (range 16 1.8 "^33")
# legato 2 # cut 5
# midiG' "^81" 0 1.8
d6 -- TODO BASSLINE <3
$ note (-24) # "bassWarsaw"
# midiG' "^82" 0 1.3
d8 $ g2
$ midiOn "^59" (chop 2)
$ midiOn "^91" (chop 8)
$ midiOn "^92" (chop 2)
$ midiOn "^60" (chop 8)
$ "90s_glassatm:3" -- Scintillant espoir
# crushbus 81 (range 16 1.8 "^55")
# crushbus 81 (range 16 1.8 "^36")
# cut 8
# midiG' "^83" 0 1.2
# pan (0.9 - 0.3 * perlin)
......
......@@ -49,8 +49,8 @@ setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick, le pas du train qui démarre
$ midiOn "^42" (struct "t ~ ~ ~ ~ ~ t ~") -- half-time feel (60bpm sur 120 Tidal)
$ midiOff "^42" (struct "t ~ <~ t> ~ ~ ~ t <~ t>") -- broken-beat plus dense
$ midiOn "^41" (struct "t ~ ~ ~ ~ ~ t ~") -- half-time feel (60bpm sur 120 Tidal)
$ midiOff "^41" (struct "t ~ <~ t> ~ ~ ~ t <~ t>") -- broken-beat plus dense
$ stack [
"kick" # lpf 10000 # cut 1,
"jazz" # lpf 200 # cut 11 |* gain 0.9,
......@@ -61,29 +61,29 @@ d1 $ gF1 $ gM1 -- Kick, le pas du train qui démarre
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM2 -- Clap/snare, contretemps liquide
$ midiOn "^43" (<| "~ ~ ~ ~ s ~ ~ <~ s*<1 2>>")
$ midiOff "^43" (<| "~ ~ ~ ~ s ~ ~ ~")
$ midiOn "^42" (<| "~ ~ ~ ~ s ~ ~ <~ s*<1 2>>")
$ midiOff "^42" (<| "~ ~ ~ ~ s ~ ~ ~")
$ "[snare:24,cp]"
# gain 1.3
d3 $ gF1 $ gM2 -- Cymbales légères, la brume du matin
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!6 <~ <cy ~> cy>")
$ midiOn "^43" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^43" (<| "~!6 <~ <cy ~> cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
|* gain (range 1.0 0.7 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d4 $ gF2 $ gM3 -- Basse bassWarsaw, le cœur qui tourne (C#m ⇄ G# puis F#m-B-E-A)
$ midiOn "^89" (struct "t*16")
$ midiOn "^57" (struct "t(<3 5 5 7>,8)")
$ midiOn "^44" (struct "t*16")
$ midiOn "^76" (struct "t(<3 5 5 7>,8)")
-- couplet (i⇄V) puis spirale du refrain
$ note ("<[cs2@7 gs2] [gs1@7 cs2] [cs2@7 gs2] [gs1@7 cs2] [fs1@7 b1] [b1@7 e2] [e2@7 a1] [a1@7 gs1]>")
# stack [
"bassWarsaw" # lpf 500,
"bassWarsaw" # cut 41 # crushbus 41 (range 16 3.5 "^53") # bandf 500 # gain 1.2,
"bassWarsaw" # cut 41 # crushbus 41 (range 16 3.5 "^32") # bandf 500 # gain 1.2,
""]
# "cpluck" |+ note 12
# octerbus 42 (range 0 0.8 "^33")
# octerbus 42 (range 0 0.8 "^52")
-- # octersubbus 43 (range 0 2.5 "^33")
# cut 41
# lpf 20000
......@@ -91,10 +91,10 @@ d4 $ gF2 $ gM3 -- Basse bassWarsaw, le cœur qui tourne (C#m ⇄ G# puis F#m-B-E
d5 $ gF3 $ gM3 -- Rhodes/Keys, les moulins qui tournent doucement
-- sample 120_Rhodes_Chords_C ou _Eli_rhodes_chords_C shiftés +1 pour C#
$ midiOn "^90" (superimpose ((# cut 51) . (# delay 0.95) . (# delayt 0.125) . (# delayfb 0.7) . (# room 0) . (|* gain 0.8)))
$ midiOn "^89" (superimpose ((# cut 51) . (# delay 0.95) . (# delayt 0.125) . (# delayfb 0.7) . (# room 0) . (|* gain 0.8)))
$ stack [
midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.4 # pan 0.4,
midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ ~ ~ ~>/2" # cut 52 # begin 0.4 # end 0.8 # pan 0.55,
midiOn "^57" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.4 # pan 0.4,
midiOn "^57" (# silence) $ slow 2 "<~ mid ~ mid ~ ~ ~ ~>/2" # cut 52 # begin 0.4 # end 0.8 # pan 0.55,
"<~!24 end!8>" # begin 0.8 # end 1 # cut 53 # gain 0.8 # pan 0.7,
""
]
......@@ -102,7 +102,7 @@ d5 $ gF3 $ gM3 -- Rhodes/Keys, les moulins qui tournent doucement
# "120_Rhodes_Chords_C:0" |+ note 1
-- alternatives : "120_NuPad_Chords_C:<0 1 2 3>" |+ note 1 ← pad 8-variations
-- "120_Eli_rhodes_chords_C:<0 1 2>" |+ note 1
# crushbus 51 (range 16 2.7 "^54")
# crushbus 51 (range 16 2.7 "^33")
# room 0.45
# gain 1.3
......
......@@ -9,14 +9,14 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:30]"
# pan 0.65
# legato 0.22
......@@ -25,18 +25,18 @@ d3 $ gM2 $ gF1
# "snare:34"
# hpf 7000
d4 $ gF2 $ gM3
$ midiOn "^57" (slice 16 "[0 ~]*<4!3 8>")
$ midiOn "^89" (ply 8)
$ midiOn "^76" (slice 16 "[0 ~]*<4!3 8>")
$ midiOn "^44" (ply 8)
$ note "<b2 <<as2 [as2@3 [~ <fs2 b2>]]>!6 cs3 [cs3@3 [~ ef3]]> gs2@2>"
# "bassWarsaw"
# gain 1.4 # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octerbus 42 (range 0 0.04 "^33")
# octersubbus 43 (range 0 1.2 "^33")
# octersubsubbus 44 (range 0 1.2 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octerbus 42 (range 0 0.04 "^52")
# octersubbus 43 (range 0 1.2 "^52")
# octersubsubbus 44 (range 0 1.2 "^52")
d5 $ gF3 $ gM3 -- Baba hums
$ midiOff "^58" (mask "f")
$ midiOn "^90" ((# begin 0.5))
$ midiOff "^57" (mask "f")
$ midiOn "^89" ((# begin 0.5))
$ someCyclesBy "<t!16 f!16>" (>| n "<1@2 1@2 2@4>") -- Better usage!
$ n "<1@2 2@2 3@2 4@2>" -- Live v1
-- $ n "<3 ~>"
......@@ -45,7 +45,7 @@ d5 $ gF3 $ gM3 -- Baba hums
# begin 0.02
-- # rel 4
# "paroles" # cut 5
# tremrbus 51 (range 0 8 "^54")
# tremrbus 51 (range 0 8 "^33")
# tremdp 0.8
-- # lpf 3000
# hpf 400 -- Needed to remove kick in the background :'(
......@@ -76,7 +76,7 @@ d7 $ gM3 $ gF3 -- Paroles!
# hpf 300
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
......
......@@ -26,36 +26,36 @@ d2 $ gF1 $ gM2
$ "[snare:24]"
# gain 1.4
d3 $ gF1 $ gM2 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
$ midiOn "^43" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^43" (<| "~!7 <~ <cy ~> ~ cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
|* gain (range 1.1 0.8 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d4 $ gF2 $ gM3 -- Bassline faite main avec un violoncelle californien
$ midiOn "^89" (struct "t*16")
$ midiOn "^57" (struct "t(<3 5 5 7>,8)")
$ midiOn "^44" (struct "t*16")
$ midiOn "^76" (struct "t(<3 5 5 7>,8)")
$ note ("<<[b3@5 a3 b3 a3] <[b3@7 a3] [b3@5 d4@2 a3]>> [e3@7 b3]>")
# stack [
"bass" # lpf 500,
"bass" # cut 41 # crushbus 41 (range 16 4.5 "^53") # bandf 500 # gain 1.2,
"bass" # cut 41 # crushbus 41 (range 16 4.5 "^32") # bandf 500 # gain 1.2,
""]
# "cpluck" |+ note 12
# octerbus 42 (range 0 0.8 "^33")
# octerbus 42 (range 0 0.8 "^52")
-- # octersubbus 43 (range 0 2.5 "^33")
# cut 41
# lpf 20000
# gain 1.4
d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
$ midiOn "^90" (superimpose ((# cut 51) . (# delay 0.95). (# delayt 0.125) . (# delayfb 0.7) . (# room 0) .(|* gain 0.8)))
$ midiOn "^89" (superimpose ((# cut 51) . (# delay 0.95). (# delayt 0.125) . (# delayfb 0.7) . (# room 0) .(|* gain 0.8)))
$ stack [
midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano
midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano
midiOn "^57" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano
midiOn "^57" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano
"<~!24 end!8>" # begin 0.75 # end 1 # cut 53 # gain 0.8 # pan 0.9, -- ENDING <3
-- midiOff "^58" (# silence) $ (0.25 ~>) $ (# hpf 1200) ("<p1 ~>") # cut 54, -- Filtered delayed echoes
""
]
# "rhadamanthe_melo:1"
# crushbus 51 (range 16 2.7 "^54")
# crushbus 51 (range 16 2.7 "^33")
# room 0.4
# gain 1.3
d6 $ gF1 $ gM2 $ chop 8 -- Je t'avais oublie toi <3
......
......@@ -2,12 +2,12 @@
do
setcps (120/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOn "^41" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>")
$ "[jazz,techno:1]"
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "<~ <~ sn>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "<~ <~ sn>>")
$ "snare:39"
d3 $ gF1 $ gM2
$ "h h h h h h h h*<1 <2 0 [4 2] [0 2]>>"
......@@ -16,18 +16,18 @@ d3 $ gF1 $ gM2
|* gain (slow 16 $ range 0.75 0.9 saw)
# room 0.3 # sz 0.01
d4 $ gF2 $ gM3
$ superimpose ((# crushbus 41 (range 16 3 "^53")) . (# cut 41))
$ midiOn "^89" (slice 2 1)
$ midiOn ("^57" - "^89") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
$ midiOff ("^57" + "^89") (slice 2 "<0 1>")
$ superimpose ((# crushbus 41 (range 16 3 "^32")) . (# cut 41))
$ midiOn "^76" (slice 2 1)
$ midiOn ("^44" - "^76") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
$ midiOff ("^44" + "^76") (slice 2 "<0 1>")
$ "nujazz_bass120:16"
# room 0
# cut 4
d8 $ gF1 $ gM2
$ chop 8
$ loopAt 2
$ midiOn "^56" ((# "jungle_breaks:30") . (# lpf 4000))
$ midiOn "^36" (# "jungle_breaks:13")
$ midiOn "^36" ((# "jungle_breaks:30") . (# lpf 4000))
$ midiOn "^56" (# "jungle_breaks:13")
$ "jungle_breaks:3"
d11 $ gF3 $ gM3
$ midiOn "^89" (>| note "cs5@2 gs4 cs5@3 gs4@2")
......
......@@ -5,20 +5,20 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (fast 2 . (<| "k . ~ k ~ ~"))
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" (fast 2 . (<| "k . ~ k ~ ~"))
$ "[808bd:3,jazz]"
# gain 1.8
d2 $ gF2 $ gM2
$ midiOn "^43" (fast "<1!8 4!24>")
$ midiOn "^42" (fast "<1!8 4!24>")
$ "~ s*<1!7 [4 <2 4>]>"
# "snare:32"
# note "-4"
# gain 1.3 # legato 0.35
# hpf 1300
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ midiOn "^43" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^43" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr"
-- d4 $ gF2 $ gM3
-- -- $ note "<c3 c3 e3 c3>"
......@@ -36,8 +36,8 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# gain 1.6
-- # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 3.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 3.5 "^52")
d5
$ arp "up"
......@@ -51,7 +51,7 @@ d8 $ gF1 $ gM2 $ chop 8
$ loopAt 2
$ midiOn "^60" (mask "t(4,8,1)" . chop 2
)
$ midiOn "^56" (loopAt 0.5 . (# "breaks165"))
$ midiOn "^36" (loopAt 0.5 . (# "breaks165"))
$ "jungle_breaks:45"
# cut 8
# hpf 500
......
......@@ -5,14 +5,14 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" ((<| "k . ~ k ~ ~"))
$ midiOn "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^41" ((<| "k . ~ k ~ ~"))
$ "[808bd:3,jazz]"
# gain 1.4
-- # room 0.3 # dry 1.1 # sz 0.8
d2 $ gF1 $ gM2
$ midiOn "^43" (fast "<1!8 4!24>" . (<| "~ s*<1!7 [4 <2 4>]>"))
$ midiOff "^43" (<| "~ s ~ s")
$ midiOn "^42" (fast "<1!8 4!24>" . (<| "~ s*<1!7 [4 <2 4>]>"))
$ midiOff "^42" (<| "~ s ~ s")
$ "snare:40"
-- # note "-4"
-- # gain 1.8
......@@ -31,16 +31,16 @@ d4 $ gF2 $ gM3
$ note ("<c c f c g f g f>" - 24)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (<| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ midiOn "^43" (fast 2 . (<| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^43" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr" # "h2ogmsn:4"
# gain 1.3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^57" (fast 4)
$ midiOn "^76" (ply 8)
$ midiOn "^44" (fast 4)
$ arp "up"
-- $ (off "0.125" (|+ note "12"))
$ note (
......@@ -51,8 +51,8 @@ d4 $ gF2 $ gM3
-- $ slice 4 "<0 1 2 3>"
# "bassWarsaw" |- note 24
# gain 1.6
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 3.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 3.5 "^52")
# pan 0.9
d5 $ gF3 $ gM3
$ fast 4
......@@ -69,7 +69,7 @@ d5 $ gF3 $ gM3
# room 0.9
# gain 1.3
-- # cut 4
# modIndex (range 0 4.5 "^53")
# modIndex (range 0 4.5 "^33")
-- # octersubbus 42 (range 0 3.5 "^33")
d7 $ gF3 $ gM3 $ "vocalOoh1/2" # n "<4 5>" # cut 7
# gain 1.2
......
......@@ -3,27 +3,27 @@
do
setcps(140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^42" (<| "<k ~>")
$ midiOn "^29" (# "hardkick_rha:29")
$ midiOn "^41" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^41" (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
-- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM2
$ fix (# lpf 1300) "cp"
$ midiOn "^43" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^43" (<| "~ . cp")
$ midiOn "^42" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^42" (<| "~ . cp")
$ "[snare:32,cp]"
d3 $ gF1 $ gM2
$ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
$ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
# cut 3
d4 $ gF2 $ gM3 -- Caring bass
$ midiOn "^57" (|+ note "[0,12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ midiOn "^44" (|+ note "[0,12]")
$ midiOn "^76" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 41) .
(# crushbus 41 (range 10 3.5 "^53"))
(# crushbus 41 (range 10 3.5 "^32"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
......@@ -33,30 +33,32 @@ d4 $ gF2 $ gM3 -- Caring bass
# legato 1
# bandf 500
# bandq 0
# octerbus 42 (range 0 0.9 "^33")
# octerbus 42 (range 0 0.9 "^52")
# cut 7
# gain 1.4
d5 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^58" (
$ midiOff "^57" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^53 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^53 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^54" + "^34")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^54"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^34"), -- TODO BONUS ACID
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^33" + "^53")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^33"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^53"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[b d6 b cs6 d6 b cs6 b]*2"
-- - "<0!32 12!32>" -- Alternance
-- -- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
-- )
-- -- # att 0.1 # sus 0.2 # rel 4
-- -- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
......@@ -82,7 +84,7 @@ d7 $ gF1 $ gM3
. (# room 0)
)
$ midiOff ("^59" + "^91") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^55" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ midiOn "^35" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
......
......@@ -9,7 +9,7 @@ setcps (160/60/4)
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
$ midiOn "^29" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
......@@ -22,7 +22,7 @@ d2 $ gM2 $ gF1 -- snare contretemps variable
# pan 0.65
-- # legato 0.22
d3 $ gM2 $ gF1
$ midiOn "^44" (ply "1 1 2 <1 2>")
$ midiOn "^43" (ply "1 1 2 <1 2>")
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
......@@ -44,9 +44,9 @@ d8 $ gF1 $ gM2
# octersub 0.5
# gain 1.2
d4 $ gF2 $ gM3 -- BASSLINE
$ midiOn "^89" (|+| note "[0,12*4]")
$ midiOff "^89" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
$ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^53")))
$ midiOn "^44" (|+| note "[0,12*4]")
$ midiOff "^44" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
$ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^32")))
$ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12)
# "bassWarsaw"
# gain 1.12
......@@ -58,18 +58,19 @@ d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
-- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^55"),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^35"),
-- "vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 71 (range 16 1 "^53")
# crushbus 71 (range 16 1 "^55")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[e gs e fs gs e fs e]*2"
- 12
)
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d7's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[e gs e fs gs e fs e]*2"
-- - 12
-- )
# gain 1.12
# room 0.7
# dry 1 # sz 0.8
......@@ -88,10 +89,10 @@ d6 $ gF1 $ gM3 -- HAWKS
# gain 1.5
# dry 1.025
d5 $ gM3 $ gF3
$ midiOn "^18" (# n "6")
$ midiOn "^58" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
$ midiOn "^90" (struct "f(3,8)" . ply 4 . chop 2)
$ someCyclesBy (1 - "^34") (mask "<t f f f>")
$ midiOn "^33" (# n "6")
$ midiOn "^57" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
$ midiOn "^89" (struct "f(3,8)" . ply 4 . chop 2)
$ someCyclesBy (1 - "^53") (mask "<t f f f>")
$ "ghost" # n (slow 4 $ "<0 1 2 3>")
# cut 5
# lpf 3000
......
......@@ -11,24 +11,26 @@ let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gMute
$ someCyclesBy "^30" (ply "2 <2!3 4>")
$ someCyclesBy "^29" (ply "2 <2!3 4>")
$ midiOn "^74" (# "[kick:5,kick:4]")
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
$ midiOn "^41" (<| "k k k <k [<k ~> k]>")
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (struct "t . ~ t ~ ~")
$ midiOff "^41" (struct "t . ~ t ~ ~")
$ "[kick:5,kick:4,808bd:8]"
# att 0.015
# rel 0.125
# lpf 2000
# midiG' "^78" 0 1.3
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ c")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# midiG' "^79" 0 1.3
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 . 4 <4 <8 16>>],16)")
$ midiOn "^43" (mask "t([8 . 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -41,17 +43,20 @@ d4 $ gF2
$ "fbass:4"
# cut 4
# pan 0.1
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1.4
d6 $ gF3
$ midiOn "^91" (ply "4 <4 8>")
$ midiOn "^90" (ply "4 <4 8>")
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^59 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^59 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^59 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^59 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ midiOn "^59" (slice 8 ("0 <0 [0 <0 1 2 3>]>") . chop 8)
$ midiOff "^59" (slice 4 ("<0 1 2 3>"))
$ loopAt 16
$ "shiloh:7"
# pan 0.8
# room 0.2 # sz 0.8 # dry 1
# crushbus 81 (range 16 2.5 "^55")
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d6's own control.
-- # crushbus 81 (range 16 2.5 "^34")
# midiG' "^83" 0 1.2
# cut 6
......@@ -73,22 +78,22 @@ d7 $ gF3 $ gM3 -- High Dauphin
# cut 7
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# crushbus 71 (range 16 2.5 "^35")
# midiG' "^83" 0 1
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^43" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ slow 2 -- Basse Baleine
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ midiOn "^44" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy "^17" (
$ someCyclesBy "^52" (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
$ fix ((midiOff "^76" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
......@@ -97,12 +102,14 @@ d4 $ gF2 $ slow 2 -- Basse Baleine
# "[bass2:1,bassWarsaw]" -- TODO: Autre basse moins venere?
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1.3
d6 $ gF3 $ gM3 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ midiOn "^58" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^54 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^54 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d6's own control with gSel.
$ sometimesBy "^34" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
......@@ -117,10 +124,10 @@ d6 $ gF3 $ gM3 -- Leads reponse
- 12
)
# "FMRhodes1"
# room 0.2
-- # room 0.2
# pan 0.8
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# modIndex (range 0 16 "^54")
# crushbus 61 (range 16 2.5 "^34")
# midiG' "^82" 0 1.3
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
......
......@@ -3,17 +3,17 @@ resetCycles
do
setcps (120/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^41" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ "kick:5"
d2 $ gM2 $ gF1
$ fix (# lpf 2500) "h2ogmsn"
$ midiOff "^43" (slow 2)
$ midiOff "^42" (slow 2)
$ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>"
# "[db:11,h2ogmsn:12]"
# "[dr55:3]"
d3 $ gM2 $ gF1
$ midiOn "^76" (ply "2 <2 4>")
$ midiOn "^43" (ply "2 <2 4>")
$ someCyclesBy "<0 0.4>" (jux $ swing 2)
$ "<hh(<3!3 [3 5]>,8)!3 [hh(3,8) hh(<3!3 5>,8)]>"
# "rampleA4:6" # gain 0.5
......@@ -22,11 +22,11 @@ d3 $ gM2 $ gF1
# dry 0.9
# pan (range 0.2 0.8 (slow 4 perlin))
d4 $ gM3 $ gF2
$ midiOn "^57" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
$ midiOn "^44" (>| note ("<d d <d g> <a d d a>>" - 2 - 12))
$ note ("d" - 2 - 12)
# "90s_synatm:2"
# crushbus 41 (range 12 1.4 "^53")
# octerbus 42 (range 0 1.4 "^33")
# crushbus 41 (range 12 1.4 "^32")
# octerbus 42 (range 0 1.4 "^52")
# cut 4
# room 0.4
# pan (slow 32 $ range 0.98 0.7 saw)
......@@ -35,7 +35,7 @@ d5 $ gM3 $ gF2
$ fix (|* gain 0.7) (n 10)
$ note "<<d!16 g!16> <d!16 g!16> d g [a@3 <~ bf>]>"
# n "<5!24 10!8>" # "cbow"
# crushbus 51 (range 12 2.4 "^54")
# crushbus 51 (range 12 2.4 "^33")
# cut 5
# gain 0.6
d7 $ gM3 $ gF3 -- Keys of Paradise
......@@ -48,8 +48,8 @@ d8 $ gF1 $ gM2 -- Train break train wreck
$ chop 16
$ midiOff "^36" (loopAt 2)
$ midiOff "^56" (loopAt 2)
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "2 1 4 <2 1>")
$ midiOn "^92" (loopAt 0.5)
$ midiOn "^60" (ply "2 1 4 <2 1>")
$ chop 4
$ loopAt 4
$ "jungle_breaks:45"
......
do
d1 $ gM1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t t(3,8)")
$ midiOn "^41" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^41" (struct "t t(3,8)")
$ "jazz"
# lpf 400
d2 $ gM2 $ gF1
$ midiOff "^43" (struct "~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ t")
$ "vec1_snare:30"
d3 $ gM2 $ gF1 $ "hh*16" # "h2ogmhh"
d4 $ gM3 $ gF2
......@@ -15,8 +15,8 @@ d4 $ gM3 $ gF2
# s "bassWarsaw"
# octave 2
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 5 "^32")
# leslie 0.85
# lrate (slow 16 $ range 2 16 saw)
# lsize 0.7
......@@ -24,15 +24,15 @@ d4 $ gM3 $ gF2
# pan 0.3
# room 0.2 # sz 0.8 # dry 0.8
d5 $ gM3 $ gF3
$ midiOff "^58" (mask "t(<1 2 3 4 5 6 7 8>,16)" . chop 16)
$ midiOn "^90" (ply "4 <4 8 8 16>")
$ midiOff "^57" (mask "t(<1 2 3 4 5 6 7 8>,16)" . chop 16)
$ midiOn "^89" (ply "4 <4 8 8 16>")
$ slice 8 (slow 2
$ ply "<1!8 2!3 4 2!3 8>"
$ "<0 1 2 3 4 5 6 7>")
$ "gfunk_lead:5"
# gain 1.2 # cut 5
# pan 0.8
# octersubbus 51 (range 0 2.5 "^54")
# octersubbus 51 (range 0 2.5 "^33")
d8 $ gM2 $ gF1
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ chop 8
......
......@@ -11,13 +11,13 @@ let chordsRoot = whenmod 128 64 (const $ jroot chords2) (jroot chords1)
setcps (81/60/4)
d1 $ gF1 $ gM1 -- KICK TECHNO KICK TO DNB
$ fast 2
$ midiOn "^42" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^42" (<|"k . ~ k ~ <~ k>" )
$ midiOn "^41" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^41" (<|"k . ~ k ~ <~ k>" )
$ "[808bd:13,jazz]"
# gain 1
# lpf 300
d2 $ gF1 $ gM2
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ [s*<1!3 2> <~ <s s*[4 2]>>]"
# "hh27:12"
# cut 2
......@@ -26,7 +26,7 @@ d2 $ gF1 $ gM2
# legato 0.5
d3 $ gF1 $ gM2
$ degradeBy (slow 32 $ range 0.8 "-0.2" sine)
$ midiOff "^44" (degradeBy "0 0.2 0.4 0.8 0 <0!4 0.5!4> 0.1 0")
$ midiOff "^43" (degradeBy "0 0.2 0.4 0.8 0 <0!4 0.5!4> 0.1 0")
$ "dr*[<32!3 16> . 16 <32 [8 32]>]"
# "h2ogmsn:4"
# gain (0.8 * "1 1 0.9 1 0.8 0.9 0.8 <0.9 0.8 0.9 [1.1|1]>")
......@@ -43,17 +43,17 @@ d4 $ gF2 $ gM3
# room 0.3 # sz 0.4 -- Tighter reverb for punch
# gain (1.3 * "<1 [0.9|1] 1 0.9>") -- Consistent power with subtle variation
# legato (slow 8 $ range 0.5 1 perlin) -- Not always full
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3
-- $ struct "<[t ~ ~ t? ~ t ~ ~] [t ~ t? ~ ~ ~ t ~]>" -- Alternating patterns + random hits
-- $ struct "t ~ [~|t] t ~ <t t?> ~ ~" -- Alt: More random variation
$ superimpose (id -- TODO ARPEGIATE PLZ)
(midiOn "^90" (stut 4 "e" 0.9)) .
(midiOn "^89" (stut 4 "e" 0.9)) .
struct "t(12,8)" .
slow 4
. arp "up"
. (# cut 51)
. (|* gain (1.4 * "^34"))
. (|* gain (1.4 * "^33"))
. (|+ octave 1)
. (# pan 0.8)
. (# modIndex 0)
......@@ -70,7 +70,7 @@ d5 $ gF3 $ gM3
# pan ("<0.3 0.7 [0.5|0.6]>" + (slow 32 $ range (-0.1) 0.1 sine)) -- Drift + variation
# attack (0.01 + (rand * 0.02)) -- Slight timing humanization
# release (slow 16 $ range 0.8 1.5 sine)
# crushbus 41 (range 16 3.5 "^54")
# crushbus 41 (range 16 3.5 "^53")
d7 $ gF3 $ gM3
$ slow 16 $ chordsRoot -- Very slow, ambient
-- |+| n "[0,7] ~ ~ ~ [7,12]? ~ ~ ~" -- Fifth chords, sparse hits
......
......@@ -5,14 +5,14 @@ setcps (112/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
$ midiOn "^41" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^41" (<| "k . <~!8 k!8> ~ ~ k")
-- $ fix (|* gain 0.6) "jazz"
$ "[jazz]"
# gain 0.9
d2 $ gF1 $ gM2
$ midiOn "^43" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^43" (<| "~ <s <~ [~ s]>>")
$ midiOn "^42" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^42" (<| "~ <s <~ [~ s]>>")
$ "vec1_claps"
# gain 1
# room (slow 16 $ range 0 0.8 perlin)
......@@ -21,13 +21,13 @@ d2 $ gF1 $ gM2
# gain 0.8
-- # att 0.03 # rel 2
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "h*[<12 16 32 8> <8 [4 16]>]"
# "drum:2"
# gain 1.2
# room 0.3 # dry 0.8
d4 $ gF2 $ gM3
$ midiOn "^57" (
$ midiOn "^44" (
|+ note (arp "up" "<c'maj'4!8 g'maj'4!8> c'maj'4")
)
$ struct "t. t(<3 5 8>,8)"
......@@ -36,7 +36,7 @@ d4 $ gF2 $ gM3
# gain 0.8
# room 0.4 # sz 0.4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "8 <8 16>")
$ midiOn "^89" (ply "8 <8 16>")
$ slice 8 ("<0 1 2 3 4 5 6 7>")
-- $ loopAt 4
$ "cricri:7"
......
......@@ -3,28 +3,28 @@ setcps (114/60/4)
-- resetCycles
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^78" (# silence)
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ "[kick:4]"
# gain 1.8
# lpf 400
d2 $ gF1 $ gM2
$ midiOff "^79" (# silence)
$ midiOff "^43" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ midiOff "^42" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "o([8 . 8 <8 16> 4],8,1)"
# "ho"
# gain 1.2
# att 0.1 # rel 0.9
# room 0.5
# drybus 31 (range 1 0 "^51")
# legato (range "s" 2 "^52")
# legato (range "s" 2 "^31")
d5 $ gF2 $ gM3
$ midiOn "^90" (ply 4)
$ midiOn "^58" (# n 1)
$ midiOn "^89" (ply 4)
$ midiOn "^57" (# n 1)
-- $ slice 4 (ply 2 $ "<0 1 2 3>" + "0 0*2")
$ slice 4 (ply 2 $ "<0 0 0 3>")
$ "aux_heart"
......@@ -32,21 +32,21 @@ d5 $ gF2 $ gM3
# gain 1.4
# room 0.4
# pan 0.8
# crushbus 51 (range 16 2.5 "^54")
# octerbus 52 (range 0 1 "^34")
# crushbus 51 (range 16 2.5 "^33")
# octerbus 52 (range 0 1 "^53")
# gain 1.7
d4 $ gF2 $ gM3
$ midiOn "^89" (chop "<8 8 8 8 8 7 8 7>")
$ midiOn "^76" (chop "<8 8 8 8 8 7 8 7>")
$ note ("<a <a [a@7 b]> fs <fs [fs@7 e]>>"
-- + "[0,<0 7>,7,12]"
- "[24]"
)
# "bassWarsaw"
# gain 1.5
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
d7 $ gF3 $ gM3
$ midiOn "^91" ((ply "8 <16 [16 32]>"))
$ midiOn "^59" ((ply "8 <16 [16 32]>"))
$ slow 2
$ slice 4 ("<0 1 2 3>")
$ "aux_heart:3"
......
......@@ -2,16 +2,16 @@ do
setcps (120/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^42" (<| "<k <~ [~!7 k]>>")
$ midiOn "^41" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^41" (<| "<k <~ [~!7 k]>>")
$ "[reverbkick,808bd:4]" -- Profond
# gain 1.8
# lpf 400
# octersub 2
# cut 1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ . <~ <s [s*2 . ~ <~ s>]>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ . <~ <s [s*2 . ~ <~ s>]>>")
$ "[snare:70]"
# note "-5"
# gain 1.4
......@@ -30,7 +30,7 @@ d4 $ gF2 $ gM3 -- BASSLINE SYNTH
$ chop 2
$ superimpose (
(
# crushbus 41 (range 10 4.5 "^53")
# crushbus 41 (range 10 4.5 "^32")
) . (# hpf 500) . (# lpf 10000)
)
$ slow 2
......@@ -44,7 +44,7 @@ d4 $ gF2 $ gM3 -- BASSLINE SYNTH
# room 0.4 # sz 0.8
# octersub 2 # octersubsub 1
d5 $ gF3 $ gM3
$ midiOn "^58" (superimpose ( -- Echoes
$ midiOn "^89" (superimpose ( -- Echoes
(# pan 0.8)
. (0.25 ~>)
. (|* gain "<0 1> 0.9 0.8 0.8")
......@@ -72,15 +72,15 @@ d7
d8 $ gF1 $ gM2
$ midiOn "^92" ( -- BREAK ME
splice 4 "<0!3 [0 1] 0 0 [0 1] [0 1]*2> 1 2 3*<4 <2 8>>")
$ midiOn "^56" (loopAt 0.5 . (# "break:15"))
$ midiOn "^36" (loopAt 0.5 . (# "break:15"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:101"
# gain 1.2
d4 $ gF2 $ gM3 -- Cello bass
$ midiOn "^89" (|+| note "[0 12 0]")
$ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ midiOn "^44" (|+| note "[0 12 0]")
$ midiOn "^76" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ juxBy 0.6 (|+| note ("7([3 1],8)"))
$ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
|* gain "<[1@7 0.9] 1 1 1>"
......@@ -113,7 +113,7 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (>| "jungle_breaks:10")
$ midiOn "^36" (>| "jungle_breaks:10")
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
......
......@@ -9,8 +9,8 @@ setcps (114/60/4)
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t*4")
$ midiOff "^42" (<| "k ")
$ midiOn "^41" (struct "t*4")
$ midiOff "^41" (<| "k ")
$ "[jazz,kick:4,909]"
-- # midiG' "^78" 0 1.2
# gain 1.2
......@@ -27,18 +27,18 @@ d3 $ gM2 $ gF1
-- # midiG' "^80" 0 1.6
# gain 1.6
d4 $ gF2
$ midiOn "^89" (ply "<4 8>" . slow 2)
$ midiOff "^57" (mask "f(4,8,1)")
$ midiOn "^76" (ply "<4 8>" . slow 2)
$ midiOff "^44" (mask "f(4,8,1)")
$ note ((slow 2 $ ("<e3 e3 b3 <b3 b3 a3 a3>>" + "[0,0(4,8,1)*2]"))
-- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
)
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# "bassWarsaw"
# pan 0.25
-- # midiG' "^81" 0 1.5
# gain 1.5
d5 $ gM3 $ gF3
$ midiOn "^58" (mask "t(<1 2>,4)")
$ midiOn "^57" (mask "t(<1 2>,4)")
-- c e d b / c a d b / a c b g / c a g b
$ note ("<[c@2 e@2 d@1 b4@3]!2 [c@2 a4@2 d@1 b4@3]!2 [a4@2 c@2 b4@1 g4@3]!2 [c@2 a4@2 c@1 b4@3]!2>" - 3)
# att 0.8
......@@ -49,8 +49,8 @@ d5 $ gM3 $ gF3
-- # velocity 0.45
-- # midiG' "^82" 0 2.5
# gain 2.5
# crushbus 51 (range 16 4.5 "^54")
# roombus 52 (range 0 0.5 "^54") # sz 0.5 # dry 1.3
# crushbus 51 (range 16 4.5 "^33")
# roombus 52 (range 0 0.5 "^33") # sz 0.5 # dry 1.3
d8 $ gF1
$ midiOn "^92" (ply "1 <2 4 4 8>")
$ chop 16
......@@ -108,8 +108,8 @@ setcps (120/60/4)
$ "[jazz,kick:4]" # lpf 3000
# midiG' "^78" 0 1.5
d2 $ gM2 $ gF1 -- snare contretemps variable
$ midiOn "^43" (<| "~ cp ~ cp")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp")
$ midiOff "^42" (<| "~ cp")
$ "[cp]"
# pan 0.65
# legato 0.22
......
......@@ -5,15 +5,15 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[vec1_claps:10]"
-- # pan 0.65
# gain 1.5
......@@ -28,13 +28,13 @@ d4 $ gF1 $ gM3
$ note ("<e3 b3 e3 g3>" - 12)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 1.5 "^52")
d5 $ gF1 $ gM3
-- $ midiOn "^90" (ply "4")
$ midiOn "^90" (stut 4 0.9 "q")
$ midiOn "^58" (slice 8 "<4 4 <4 5> 6>") -- Phase 2
$ midiOff "^58" (slice 16 "<[1 2] [1 2] [1 2] [3 4]>") -- Phase1
$ midiOn "^89" (stut 4 0.9 "q")
$ midiOn "^57" (slice 8 "<4 4 <4 5> 6>") -- Phase 2
$ midiOff "^57" (slice 16 "<[1 2] [1 2] [1 2] [3 4]>") -- Phase1
$ "latin:0"
# cut 5
# gain 1.2 # room 0.3 # sz 0.9 # lpf 4000
......
......@@ -3,22 +3,24 @@ resetCycles
do
setcps(120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ fix (|* gain 0.9) "kick:5"
$ "[h2ogmbd:1,kick:5]" -- TODO: Meilleur kick?
# gain 1.2
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "cp"
# gain 0.9
# pan 0.6
# note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -29,21 +31,21 @@ d3 $ gF1 $ gM2 -- Highest hats
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gM3 $ gF2
$ midiOn "^89" (superimpose (
$ midiOn "^76" (superimpose (
(struct "t(8,16)") . (# legato 0.2). (# cut 41))
. (|* gain 0.8)
)
$ note "<<e!3 e4> <~ [~!7 <g g g a g a bf b>]>>"
# "moog"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 "^33"
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 "^52"
# cut 4 # gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^90" (ply 2)
$ midiOn "^89" (ply 2)
$ note (arp "down" "c'min'2" + "<<e!3 e4> <b3 [~!7 <g g g a g a bf b>]>>")
# "FMRhodes1"
# crushbus 52 (range 16 2.5 "^54")
# modIndex (range 0 2.5 "^34")
# crushbus 52 (range 16 2.5 "^33")
# modIndex (range 0 2.5 "^53")
-- # cut 5
# pan 0.7
# gain 1.2
......@@ -58,7 +60,7 @@ d8 $ gF1 $ gM2 -- Break populaire
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM3 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^35" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
......
......@@ -6,8 +6,8 @@ setcps (120/60/4)
d1 $ gF1 $ gM1
-- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
$ midiOn "^42" (<| "k k k k*<2 4>")
$ midiOff "^42" (<|"k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*<2 4>")
$ midiOff "^41" (<|"k . ~ k ~ ~")
$ "[jazz,kick:5]"
-- # att 0.02
-- # rel 0.5
......@@ -20,21 +20,21 @@ d2 $ gF1 $ gM2 $ "~ s ~ s*<1 2>"
# gain 1.2
d3 $ gF1 $ gM2 $ "~ d ~ d ~ d ~ d*<1 <2 [2 4]>>" # "dr:2" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^76" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 0.85 "^52")
# room 0.4
# gain 1.5
d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t f")
$ midiOff "^57" (mask "t f")
$ loopAt 2
$ chop 2
$ midiOn "^58" (# n 14)
$ midiOn "^57" (# n 14)
$ "nujazz_keys120:13"
# room 0.5
# crushbus 51 (range 10 1.8 "^54")
# crushbus 51 (range 10 1.8 "^33")
# sz 0.8 # dry 1.2
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "2 <2 4 4 8>")
......@@ -48,7 +48,7 @@ d7 $ gF3 $ gM3
# gain 1.4
d8 $ gF1 $ gM2 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(4,8)")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^36" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 8 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
. loopAt 1 . (# "breaks165")
......
......@@ -4,10 +4,10 @@ setcps (142/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
$ midiOn "^29" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
$ midiOn "^41" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
-- $ fix ((|- note 2) . (# lpf 1200)) ""
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~!3 s")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~!3 s")
-- $ "[snare:35,<snare:43!4 snare:40!4>]"
$ "vec1_claps:45" # legato 0.25
# gain 1.44
......@@ -35,7 +35,7 @@ d6 $ gM3 $ gF1 -- HAWKS
# gain 1.4
# dry 1.02
d3 $ gM2 $ gF1-- DrumRoll
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
-- $ whenmod 4 2 (rarely (ply 2))
......@@ -58,41 +58,42 @@ d9 $ gF3 $ gM3 -- BASSLINE FONDEMENT
# gain 1.8
d4 $ gF2 $ gM3 -- LA BASSE REBONDISSANTE
$ superimpose (mask "[f t]*4" . (|+| note (12 + "0 12 <0!3 <12!3 0>>" + 3))
. (# "vec1_acid:6") . (|* gain (range 0.35 1 "^33")). (# cut 41))
$ midiOn "^57" (off "-0.125" (|- note 12))
. (# "vec1_acid:6") . (|* gain (range 0.35 1 "^32")). (# cut 41))
$ midiOn "^44" (off "-0.125" (|- note 12))
$ note ("~ f ~ f . ~ <f!3 ef> <~!3 f> <f!3 ~>" - 24)
# "bassWarsaw"
# gain 1.3
# octersubsubbus 42 (range 0 0.8 "^17")
# octerbus 43 (range 0 0.8 "^17")
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 0.8 "^52")
# octerbus 43 (range 0 0.8 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 3.5 "^53")
# room 0.4 # sz 0.5
d5 $ gF2 $ gM3 -- Keys
$ mask "t <f!4 t!12>"
$ midiOn "^90" (ply 8 . chop 4)
$ midiOn "^58" (slice 16 ("[~ <4!4 3!4 2!4 1!4>]*4"))
$ midiOn "^89" (ply 8 . chop 4)
$ midiOn "^57" (slice 16 ("[~ <4!4 3!4 2!4 1!4>]*4"))
-- $ someCyclesBy (slow 16 $ range 0 0.2 saw) (degradeBy "0 0.5!15")
$ slow 4
$ "sogood"
# n "<0!4 1!4 2!4 3!4>"
# cut 5
# octersubbus 51 (range 0 0.9 "^34")
# crushbus 52 (range 16 4.5 "^54")
# octersubbus 51 (range 0 0.9 "^33")
# crushbus 52 (range 16 4.5 "^53")
# gain 1.8
# lpf 2000
-- # room 0.4
d7 $ gF3 $ gM3 -- VOICES TODO Refine loops
-- $ midiOn "^91" (ply "<2>" . off 1 id . off 2 id . chop "<1!3 4>" . (# cut 7))
$ midiOn "^91" (ply "8 4" . chop "<1 2>". (# cut 7) . (# room 0.3))
$ midiOn "^19" ( -- Intro: Your love
$ midiOn "^35" ( -- Intro: Your love
(>| n "<~!3 11>") . (# end (slow 4 "<0.2 0.55>")))
$ midiOn ("^59"-"^19") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^19") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ midiOn ("^59"-"^35") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^35") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ "sogood"
# gain 1.6
-- # cut 7
-- # delay "<0!3 [0.5]>" # delayt 0.125 # delayfb 0.5
# octersubbus 71 (range 0 1.9 "^35")
# octersubbus 71 (range 0 1.9 "^55")
d11 $ gF2 $ gM3
$ note ("<gs4 f4 gs4 f4 c5 gs4 c5 gs4 f5 ef5 cs5 c5 bf4 gs4 g4 f4>"
+ "0 5@3 . 0 <-2 <2 5>>"
......
......@@ -4,15 +4,15 @@ setcps (166/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "[jazz]"
-- # lpf 300 -- TODO Sound design this kick <3
# cut 1
# gain 1.5
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ midiOff "^42" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -26,32 +26,32 @@ d3 $ gF1 $ gM2
# "h2ogmhh:2"
# gain 1.7
-- # att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
# legato (range 0.05 0.9 "^31")
d4 $ gF2 $ gM3
$ midiOn "^57" (
$ midiOn "^76" (
superimpose (("e" ~>) .(|+ note 12) . (# cut 41)))
$ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c"
+ "<0 0 0 0 7 7 5 0>"
)
-- # "moog:1"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# pan 0.4
# cut 4
# gain 1.4
d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ midiOn "^90" (ply "4 <8 16>")
$ midiOn "^89" (ply "4 <8 16>")
$ slow 2
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:10" # cut 4
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# pan 0.9
# room 0.3
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
......@@ -4,8 +4,8 @@ setcps (110/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -30,25 +30,27 @@ d3
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ chop 4
$ loopAt 2
$ "blues_guitar_rock_110" # n "<9 <9 13> 11 12>"
# cut 4
# room 0.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# tremdpbus 43 "^17"
# tremrbus 44 (range 0.2 8 "^18")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremdpbus 43 "^17"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremrbus 44 (range 0.2 8 "^18")
d5 $ gF3 $ gM3 -- YOUR VALUES ARE WRONG
$ midiOff "^58" (mask "t(4,8,1)")
$ midiOn "^90" (ply 2)
$ midiOff "^57" (mask "t(4,8,1)")
$ midiOn "^89" (ply 2)
$ note ("[ef f gs ef f gs ef f]*2"
- 12
+ "<0!4 12!4>"
)
# "FMRhodes1"
# squizbus 51 (range 0 4 "^54")
# squizbus 51 (range 0 4 "^33")
# modIndex "<2 4 8 16>"
# gain 1.5
d7 $ gF3 $ gM3
......@@ -72,11 +74,11 @@ d12 $ gF3 $ gM3
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
$ midiOn "^36" (
-- slice 8 "0 <1 <~ 1*2>> 2 3? 4 5? <6 6?> <7 7*2>" .
loopAt 2 .
(# "jungle_breaks:63"))
$ midiOn "^36" ( -- Bouton Nassim <3
$ midiOn "^56" ( -- Bouton Nassim <3
(loopAt 2) . (# "jungle_breaks:45")
)
$ loopAt 1 $ "breaks165"
......@@ -109,7 +111,9 @@ d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -137,8 +141,8 @@ d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
$ midiOn "^36" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^56" (loopAt 2 . (# n 12))
$ midiOn "^56" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^36" (loopAt 2 . (# n 12))
$ chop 16
$ loopAt 4
$ "jungle_breaks:12" # cut 8
......@@ -151,7 +155,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -161,8 +165,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -182,16 +186,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
......@@ -4,8 +4,8 @@ setcps (80/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (fast 2 . struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (fast 2 . struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -16,8 +16,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -31,25 +31,27 @@ d3
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ chop 4
$ loopAt 4
$ "bass_commodore:8"
# cut 4
# room 0.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# tremdpbus 43 "^17"
# tremrbus 44 (range 0.2 8 "^18")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremdpbus 43 "^17"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # tremrbus 44 (range 0.2 8 "^18")
d5 $ gF3 $ gM3 -- YOUR VALUES ARE WRONG
$ midiOff "^58" (mask "t(4,8,1)")
$ midiOn "^90" (ply 2)
$ midiOff "^57" (mask "t(4,8,1)")
$ midiOn "^89" (ply 2)
$ note ("[c ef f c ef f c <ef <gs c5> <gs b5> ef>]*2"
- 12
+ "<0!4 12!4>"
)
# "FMRhodes1"
# squizbus 51 (range 0 4 "^54")
# squizbus 51 (range 0 4 "^33")
# modIndex "<2 4 8 16>"
# gain 1.5
d7 $ gF3 $ gM3
......@@ -71,10 +73,10 @@ d12 $ gF3 $ gM3
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
$ midiOn "^36" (
slice 8 "0 <1 <~ 1*2>> 2 3? 4 5? <6 6?> <7 7*2>"
. loopAt 2 . (# "jungle_breaks:63"))
$ midiOn "^36" ( -- Bouton Nassim <3
$ midiOn "^56" ( -- Bouton Nassim <3
(loopAt 2) . (# "jungle_breaks:45")
)
$ loopAt 0.5 $ "breaks165"
......@@ -107,7 +109,9 @@ d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -135,8 +139,8 @@ d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
$ midiOn "^36" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^56" (loopAt 2 . (# n 12))
$ midiOn "^56" (loopAt 0.5 . (# n 45) . (|* gain 1.1)) -- Orleanaise
$ midiOn "^36" (loopAt 2 . (# n 12))
$ chop 16
$ loopAt 4
$ "jungle_breaks:12" # cut 8
......@@ -149,7 +153,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -159,8 +163,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -180,16 +184,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
......@@ -4,8 +4,8 @@ resetCycles
setcps (135/60/4)
let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ midiOn "^41" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ stack [
"kick" # cut 11 # gain 1.2 # lpf 10000 # delaybus 11 0,
"rumble" # cut 12 # gain 2 # lpf 200 # delaybus 12 0.25 # delayt "q" # delayfb 0
......@@ -19,8 +19,8 @@ d1 $ gM1 $ gF1 -- Kick solide
# gain 1
-- # cut 1
d2 $ gF1 $ gM2 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ midiOn "^42" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^42" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "cp"
# note "0!3 -1"
# lpf 4000
......@@ -33,7 +33,7 @@ d3 $ gF1 $ gM2
# "rampleP3:19"
# delay 0.5 # delayt 0.25 # delayfb 0.2
# pan 0.7 # cut 3
# legato (range 0.2 0.8 "^52")
# legato (range 0.2 0.8 "^31")
d10 $ gF3 -- Self-destruction riser
$ (stack [
n "<<55!8 ~!54> ~!3>"
......@@ -58,35 +58,36 @@ d9 $ gF3
# bandf 400
# gain 1.3
d4 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^57" (
$ midiOff "^44" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^53" + "^33")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^53"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^33"), -- TODO BONUS ACID
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^32" + "^52")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^32"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^52"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
# crushbus 41 (range 16 1 "^32")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # legato (range 0.39 0.7 (1 - "^17"))
-- >| note ("[b d6 b cs6 d6 b cs6 b]*2"
-- - "<0!32 12!32>" -- Alternance
-- -- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
-- )
-- -- # att 0.1 # sus 0.2 # rel 4
-- -- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
d5 $ gF3 $ gM3 -- Piano lead acidule
$ fix (# bandf 800) "FMRhodes1"
-- $ fix (# bandf 1050) "FMRhodes2"
$ midiOn "^90" (struct "t(<8 <8 16>>,64)")
$ midiOn "^58" ((stutWith 4 0.125 (|- note 12)) . (|+ note 12))
$ superimpose (# modIndex (range 0 16 "^34"))
$ midiOn "^57" (struct "t(<8 <8 16>>,64)")
$ midiOn "^89" ((stutWith 4 0.125 (|- note 12)) . (|+ note 12))
$ superimpose (# modIndex (range 0 16 "^33"))
$ note ("b ~ ~ b ~ ~ <d!7 e6> <~ d>"
+ "[0,<~!4 7!4>]"
-- + "[0,12]"
......@@ -101,7 +102,7 @@ d7 $ gF2 $ gM3 -- Caring bass
$ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 71) .
(# crushbus 71 (range 10 3.5 "^55"))
(# crushbus 71 (range 10 3.5 "^35"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
......@@ -119,8 +120,8 @@ d8 $ gF1 $ gM2
. (|* gain 0.8)
)
$ midiOff ("^60" + "^92") (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:40")
$ midiOn ("^36" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4") . (|* gain 1.1))
$ midiOn "^36" (# "jungle_breaks:40")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 4 . (# "trance_loops:4") . (|* gain 1.1))
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
......
......@@ -3,27 +3,27 @@ setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~!3 <~!3 k>")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . ~!3 <~!3 k>")
$ "[kick:5,clubkick]"
# cut
1
d2 $ gF1 $ gM2
$ fast 2
$ midiOn "^43" (<|"~ s ~ s*<1 2>" )
$ midiOff "^43" (<| "~ s/2")
$ midiOn "^42" (<|"~ s ~ s*<1 2>" )
$ midiOff "^42" (<| "~ s/2")
$ "rampleM9:4"
# gain 0.9
d3 $ gF1 $ gM2
$ fast 2
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
$ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
$ "~ d ~ d ~ d ~ d*<1 <2 [4 2]>>"
# "rampleA4:9"
# cut 3
# pan 0.2
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "2 4")
$ midiOn "^76" (ply "2 4")
$ note ("[c4@2 c5 ~ [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
# "bassWarsaw"
# cut 4
......@@ -31,7 +31,7 @@ d4 $ gF2 $ gM3
# octersub 0.8
# gain 0.8
# pan 0.6
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d9 $ "90s_matrix:0/4"
# cut 9
-- # room 0.4
......@@ -42,15 +42,15 @@ d5 $ gF3 $ gM3
$ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
$ fast 4 $ note ("[c <c!3 f> c <g fs ef b4>]")
# "FMRhodes1"
# modIndex (range 0 64 "^54")
# modIndex (range 0 64 "^33")
# pan 0.2
# gain 1.2
# room 0.2 # sz 0.9
# cut 5
|- note 12
d8 $ gF1 $ gM2
$ midiOn "^60" (ply 2)
$ midiOn "^92" (ply 2)
$ midiOn "^60" (ply 2)
$ chop 16
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:24") . (|* gain 1.1)) -- Legerete orleanaise
$ midiOn "^56" ((# "jungle_breaks:45")) -- Legerete orleanaise
......
do
setcps (128/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^42" (<| "k . ~ k")
$ midiOn "^41" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^41" (<| "k . ~ k")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM2
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_snare" # gain 1.4
d3 $ gF1 $ gM2
$ midiOn "^44" (sometimes rev . stut 3 0.8 "s")
$ midiOn "^43" (sometimes rev . stut 3 0.8 "s")
$ "~ h ~ h ~ h ~ h"
# "ho:2" # gain 1.1 # cut 3
d4 $ gF2 $ gM3 -- LA ACID BASS DOUBLE AMOUR
$ midiOn "^57" (superimpose (
$ midiOn "^76" (superimpose (
(0.25 ~>) . (|+ note "[7 12 7 <7 12>]")
. (# pan 0.7)
. (# squizbus 41 (range 0 4 "^53"))
. (# squizbus 41 (range 0 4 "^32"))
. (|* gain 1.3)
))
$ note (
......@@ -26,7 +26,7 @@ d4 $ gF2 $ gM3 -- LA ACID BASS DOUBLE AMOUR
# "vec1_acid:0" |+ note 3 # legato 0.7
# room 0.3
-- # cut 4
# octersubbus 42 (range 0 2.5 "^33")
# octersubbus 42 (range 0 2.5 "^52")
-- |+ note 3
d9 $ gF3 $ gM3
$ sometimesBy "^18*4" (ply 4)
......
......@@ -6,14 +6,14 @@ d1 $ gM1 $ gF1 -- Kick solide
-- $ fast 2
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
d2
$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ cp")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
......@@ -24,14 +24,15 @@ d3 $ gM2 $ gF1
# hpf 7000
-- # midiG' "^80" 0 1.5
d4 $ gF2
$ midiOn "^89" (ply "<2 4> <2 4 4 8>")
$ midiOn "^76" (ply "<2 4> <2 4 4 8>")
$ arp "up"
$ note ("<g f ef d>" + "[0 12 0 12*<1 2>]")
# "giorgio_syn:23"
# room 0.5 # sz 0.6
# crushbus 42 (range 16 1.4 "^53")
# relbus 43 (range 2 0.02 "^33")
# octerbus 44 (range 0 1.4 "^17")
# crushbus 42 (range 16 1.4 "^32")
# relbus 43 (range 2 0.02 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 44 (range 0 1.4 "^17")
# att 0.22
# gain 0.8
-- # cut 4
......@@ -39,9 +40,10 @@ d5 $ gF3 $ gM3
$ note ("<g d ef d>" + "0(3,8)")
# "trance_blips:12"
# room 0.5 # sz 0.6
# crushbus 52 (range 12 1.4 "^54")
# relbus 53 (range 2 0.02 "^34")
# octerbus 54 (range 0 1.4 "^18")
# crushbus 52 (range 12 1.4 "^33")
# relbus 53 (range 2 0.02 "^53")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # octerbus 54 (range 0 1.4 "^18")
# att 0.22
# cut 5
d6 $ gF2
......@@ -64,11 +66,11 @@ d7
-- # gain 0.8
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff ("^56" + "^36") (mask "t(4,8,1)")
$ midiOff ("^36" + "^56") (mask "t(4,8,1)")
$ chop 16
$ loopAt 2
$ midiOn "^36" ((|* gain 0.7) .(# "jungle_breaks:42"))
$ midiOn "^56" (# "jungle_breaks:43")
$ midiOn "^56" ((|* gain 0.7) .(# "jungle_breaks:42"))
$ midiOn "^36" (# "jungle_breaks:43")
$ "jungle_breaks:45"
# cut 8
-- # midiG' "^84" 0 1.5
......@@ -94,7 +96,8 @@ d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
-- $ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^17 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
......@@ -104,7 +107,7 @@ d4 -- Basse convaincante
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
$ midiOn "^57" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
......@@ -114,8 +117,8 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# modIndex (range 0 50 "^33")
# delaybus 51 (range 0 0.8 "^53")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
......
......@@ -11,8 +11,8 @@ d1 $ gM1 $ gF1 -- Kick solide
. (# legato 0.25)
. (# lpf 400) -- Low-pass show
)
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ midiOn "^41" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ "[techno:1,jazz]"
-- $ "[hardkick_rha:1]"
# lpf 400
......@@ -23,17 +23,17 @@ d2 $ gF1 $ gM2 $ "~ . s*<1!3 2 1 2 1 2> ~"
# note "-14"
# room 0.14 # dry 1 # gain 1.7
d3 $ gF1 $ gM2
$ midiOn "^44" (<| "~ h ~ h ~ h*<1 2 2 1> ~ h*<1 1 2 <2 4>>")
$ midiOff "^44" (<| "h h ~!5 h*<1 2>" )
$ midiOn "^43" (<| "~ h ~ h ~ h*<1 2 2 1> ~ h*<1 1 2 <2 4>>")
$ midiOff "^43" (<| "h h ~!5 h*<1 2>" )
$ "h2ogmhh"
# delay 0.4 # delayt 0.125 # delayfb 0.2
# gain 1.2
d4 $ gF2 $ gM3 -- TODO REWORK
$ midiOn "^57" (struct "t([16@3 <16!3 8 16 16 8 4>],8)")
$ midiOff "^57" (|+| note"0([5 <2!16 <3!16 5!16>>],8,1)")
$ midiOn "^44" (struct "t([16@3 <16!3 8 16 16 8 4>],8)")
$ midiOff "^44" (|+| note"0([5 <2!16 <3!16 5!16>>],8,1)")
$ superimpose (
(# cut 41)
. (# crushbus 41 (range 16 1.5 "^53"))
. (# crushbus 41 (range 16 1.5 "^32"))
. (# hpf 200)
. (# lpf 10000)
)
......@@ -44,9 +44,10 @@ d4 $ gF2 $ gM3 -- TODO REWORK
-- + 12 -- Octave: -1
)
# "giorgio_syn:6"
# octerbus 42 (range 0.25 1.2 "^33")
# octerbus 42 (range 0.25 1.2 "^52")
# cut 4
# scram (range 0 0.72 "^17")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # scram (range 0 0.72 "^17")
d7 $ gF3 $ gM3 -- Apollo call
$ note ((scale "phrygian" "0 2@2 3@3 <2!3 5 6 6 7 [9 9]>@2")
- 1 -- Fondamentale: re
......@@ -55,7 +56,7 @@ d7 $ gF3 $ gM3 -- Apollo call
# "FMRhodes1"
# gain 2
d5 $ gF3 $ gM3
$ midiOn "^58" (stut 4 0.9 "e")
$ midiOn "^89" (stut 4 0.9 "e")
$ note (
-- "<b <b fs b <d d6 d6>>@7]>"
"<b [~ . bf ~ ~ <~ bf g g>]>"
......
......@@ -14,7 +14,9 @@ d2 $ gF1 $ gM2 $ dMask
# "[h2ogmcy:1,cp]"
# gain 1
d3 $ gF1 $ gM2 $ dMask
$ midiOff "^76" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "t t t t t t*<1 2 1 1> ~ t*<1!3 2>")
)
......@@ -23,24 +25,24 @@ d3 $ gF1 $ gM2 $ dMask
# legato "<0.33!16 0.5!16 0.75!16 1!16>"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3
$ midiOn "^57" (superimpose ((0.25 ~>)
$ midiOn "^76" (superimpose ((0.25 ~>)
. (|+| note (
"[0 7 0 12]*2" +
"0 0 0*<1!4 2!4> 0*<1 2 1 2 2!3 4>"
+ "<12!6 24 [24 . 12 0]>"
))))
$ midiOn "^89" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ midiOn "^44" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ note "<g3 g3 bf3 d3>"
# "bassWarsaw"
# gain 1.2
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.2
# sz 0.2
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "4 8")
$ midiOn "^59" (<| n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>" )
$ midiOff "^59" (<| n "<0 1>")
$ midiOn "^89" (ply "4 8")
$ midiOn "^57" (<| n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>" )
$ midiOff "^57" (<| n "<0 1>")
$ "law_adri"
# cut 5
# pan 0.8
......
......@@ -7,22 +7,24 @@ let gM = gMask . gMute
-- Main Bbm/F vamp with Db/Ebm variation at the end
let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
d1 $ gF1 $ gM1 -- KICK: Deep 4otf house kick
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k")
$ fix ((# att 0.01) . (# rel 0.5) . (# lpf 2000)) "kick:4"
$ "[techno:0,808bd:2,kick:4]"
# gain 1.3
d2 $ gF1 $ gM -- CLAP: h2o natural handclap, reverbed
$ midiOn "^43" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^43" (<| "~ cp ~ <~ cp*<1 2>>")
$ midiOn "^42" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^42" (<| "~ cp ~ <~ cp*<1 2>>")
$ "h2ogmcp"
-- # room (slow 32 $ range 0.3 0.6 saw)
-- # sz (slow 32 $ range 0.1 0.45 cosine)
# dry 1
# gain 1.1
d3 $ gF1 $ gM -- HATS: h2o sparse offbeat + light flourish
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2) -- double time on button
$ midiOff "^44" (mask "t(3,8)")
$ midiOff "^43" (mask "t(3,8)")
-- n: 0-4 closed Hard→Soft, 5-9 open, 15-19 semi-open
$ "~ h ~ h ~ h ~ <h!3 h*2>"
# "h2ogmhh"
......@@ -33,15 +35,15 @@ d4 $ gF3 $ gM3
$ "gfunk_lead:7"
# gain 1.2
# room 0.3
# crushbus 41 (range 16 3.5 "^53")
# lpfbus 42 (range 300 1200 "^33")
# crushbus 41 (range 16 3.5 "^32")
# lpfbus 42 (range 300 1200 "^52")
d5 $ gF3 $ gM3 $ loopAt 16 $ chop 8
$ "gfunk_lead:7"
# octersubbus 51 (range 0 2.9 "^34")
# octersubbus 51 (range 0 2.9 "^33")
# hpf 1000
# gain 1.3
d8 $ gF1 $ gM2
$ loopAt 2 $ chop 8
$ midiOn "^56" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ midiOn "^36" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ "jungle_breaks:74"
do
setcps (140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOn "^41" (<| "k*4")
-- $ midiOff "^42" (<| "k . ~ k")
$ "kick:5"
# gain 1.5
......@@ -16,20 +16,20 @@ d3 $ gF1 $ gM2
# dry (slow 16 $ range 0.2 1.8 perlin)
# sz 0.4
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 16)
$ midiOn "^76" (ply 16)
$ note "<gs2 gs2 gs2 ef3>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 1.5 "^52")
# room 0.3
d5 $ gF2 $ gM3
$ midiOn "^89" (ply 16)
$ note "<gs2 gs2 gs2 ef3>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^33")
# octerbus 42 (range 0 1.5 "^53")
# room 0.3
d9 $ gF3 $ gM3
$ note ("<gs gs gs ef>"
......@@ -45,7 +45,7 @@ d5 $ gF3 $ gM3 -- PRAISE YOU VOICE.
-- $ midiOn "^58" (ply 4 . (# begin 0)
-- . (# end 0.115) -- A LONG LONG WAY
-- )
$ midiOn "^58" (slice 8 (run 4))
$ midiOn "^89" (slice 8 (run 4))
$ n "3"
# "praise"
# cut 5
......
......@@ -4,18 +4,18 @@ setcps (85/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
d1 $ gF
$ superimpose ((# "kick:5") . (|* gain 0.8))
$ midiOn "^42" (struct "t*<1!3 2> . t(3,8)")
$ midiOff "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOn "^41" (struct "t*<1!3 2> . t(3,8)")
$ midiOff "^41" (struct "t t t <t t*2 t [~ t]>")
$ "[jazz,808bd:2]"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ [cpu:2,cpu:3]"
# midiG' "^79" 0 1.2
d3 $ gF
-- $ someCyclesBy 2 (fast "1 2")
-- $ struct "t([12 . <16!3 8> 16],16)"
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ struct "t*4 t*8"
$ "drum:2"
# midiG' "^80" 0 2
......@@ -26,8 +26,8 @@ d4 $ gF2 -- La base
. (# cut 41)
. (|* gain 1.2)
)
$ (# crushbus 41 (range 16 4 "^54"))
$ midiOn "^58" (mask "t f <f!3 f> <f!8 [t f]!7 t>")
$ (# crushbus 41 (range 16 4 "^32"))
$ midiOn "^44" (mask "t f <f!3 f> <f!8 [t f]!7 t>")
$ chop 16
$ loopAt 1
$ "han" # n "<0!4 1!4>"
......
......@@ -25,9 +25,9 @@ do
setcps (205/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^29" (# "hardkick_rha")
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -38,8 +38,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:5]"
# note "<-0!12 -2 -2 -3 0>"
# gain 1.3
......@@ -48,7 +48,9 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
$ midiOn "^43" (ply "1 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (
(# delay "<0 0.2 0.3 0.5 0.6 0.7 0.8 0.9>") .
(# delayt "s") .
......@@ -90,7 +92,7 @@ d4 $ gF2 $ gM3
# room 0.2
# octersub 0.5
# sz 0.8
# crushbus 41 (range 15 4 "^53")
# crushbus 41 (range 15 4 "^32")
-- d5 $ n "e fs g a b g a e" # s "FMRhodes1"
-- d3 $ n "d cs c b a g fs e" # s "superpiano"
d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
......@@ -100,8 +102,8 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# note "-2"
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^58" (<|"~ s ~ s*<1 2>")
$ midiOff "^58" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
......@@ -121,16 +123,16 @@ d4 $ gF2 $ gM3 -- BASS <3
# cut 4
# gain 1.1
# room 0.3 # sz 0.3 # dry 1.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.93 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.93 "^52")
d5 $ gF3 $ gM3 -- Rain piano <3
$ midiOn "^58" ((>| n "5/2"))
$ midiOn "^57" ((>| n "5/2"))
$ slow 4 $ ply "4 . 2 0" -- Slowly, loop 4 times each
$ n "<5 6 7 8 8 8 7 8 9 10 11 12 13 14 13 12 17 18 19 20 17 18 20 20 17 18 19 20 21 23 22 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 37 37 38 37 38 39 ~ 37 ~ ~ 38 38 38 39 ~>" # "orage"
# cut 5
-- # octersubbus 51 (range 0 2 "^18")
-- # octerbus 52 "^34"
# crushbus 53 (range 16 5 "^54")
# crushbus 53 (range 16 5 "^33")
# room 0.3 # sz 0.4
# gain (slow 32 $ range 0.6 1.2 saw)
d7 $ gF2 $ gM3
......
......@@ -3,8 +3,8 @@ do
-- resetCycles
setcps (99/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
......@@ -22,21 +22,22 @@ d3 $ gF1 $ gM2
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]")
$ midiOn "^44" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id
$ note "<[f4@5 <c5!7 ef5>] <bf4!3 cs5>>"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# gain 1.3
d5 $ gF3 $ gM3 $ chop 4
$ midiOn "^90" (ply "4 <4 8>") -- That's all folks!
$ midiOn "^58" (# n "<1!3 2>") -- That's all folks!
$ midiOn "^89" (ply "4 <4 8>") -- That's all folks!
$ midiOn "^57" (# n "<1!3 2>") -- That's all folks!
$ "rob_cross_riff" # n "<0!8 <3 3 3 <[3 4] 4>>!8 >"
-- # n "<0!7 1>"
# cut 5
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
d8 $ gF1 $ gM2
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
......
......@@ -2,8 +2,8 @@ do
setcps (102/60/4)
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*<1 2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM2
......@@ -13,23 +13,23 @@ d3 $ gF1 $ gM2
$ "[~ h*<1!3 <1 2 [4 2] 1?>>]*4"
# "h2ogmhh" # gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^57" (>| n "12 12(<1 1 3 4 4!4 8!16>,8)")
$ midiOn "^89" (ply 16)
$ midiOn "^44" (>| n "12 12(<1 1 3 4 4!4 8!16>,8)")
$ midiOn "^76" (ply 16)
$ "praise"
# n "<12 12 13 13 14 14 15 15 12!4 13!4 14!4 15!4 12 13 14 15>"
# cut 4
# gain 1.7
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 1.2 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 1.2 "^52")
d7 $ gF3 $ gM3
$ midiOn "^59" (slow 1 . slow 2 . slice 8 "0 1 2 3*<1 <2 4>> 4*2 5*2 [6 7]*<1 <2 4>> 7*4")
$ midiOn "^91" (slice 8 "0 1 2 3")
$ midiOn "^91" (slow 1 . slow 2 . slice 8 "0 1 2 3*<1 <2 4>> 4*2 5*2 [6 7]*<1 <2 4>> 7*4")
$ midiOn "^59" (slice 8 "0 1 2 3")
$ "praise:1/2"
# cut 7
# gain 1.4
d5 $ gF3 $ gM3 -- PRAISE YOU VOICE
$ midiOn "^90" (ply 16)
$ midiOn "^58" (ply 4 . (# begin 0)
$ midiOn "^89" (ply 16)
$ midiOn "^57" (ply 4 . (# begin 0)
. (# end 0.115) -- A LONG LONG WAY
)
$ "praise/8"
......
......@@ -6,17 +6,17 @@ setcps (84/60/4)
d1
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")#
$ midiOn "^30" (# "jazz:0")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOn "^29" (# "jazz:0")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "[popkick:2,kick:5]"
# lpf 300 -- TODO Sound design this kick <3
-- # cut 1
# gain 2
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 <2 [4 2]>>")
$ midiOff "^43" (<| "~ . s*<1!3 2> ~")
$ midiOn "^42" (<| "~ s ~ s*<1!3 <2 [4 2]>>")
$ midiOff "^42" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0,snare:56]"
-- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -28,16 +28,16 @@ d3 $ gM2 $ gF1
# gain 1.4
# room 0.3 # sz 0.5 # dry 0.9
d4 $ gF2 $ gM3
$ midiOn "^57" (striate "<4!3 <8 16>>")
$ midiOn "^89" (ply 2)
$ midiOn "^76" (striate "<4!3 <8 16>>")
$ midiOn "^44" (ply 2)
$ slow 2 $ slice 4 "<0 1 2 3>"
$ "gfunk_bass:2"
# cut 4
# room 0.4
# gain 1.1
# room 0.3 # sz 0.4
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 1.4 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 1.4 "^52")
d9 $ gF3 $ gM3
$ midiOn "^18" ( -- GET MAD!
(fast 4) .
......
......@@ -3,47 +3,47 @@ do
setcps (155/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~")
$ midiOn "^41" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^41" (<| "t . ~ t ~ ~")
$ "[rampleA0:1,jazz]"
# gain 1.6
# cpsbus 1 (155/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ midiOn "^42" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^42" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ "[snare:38,snare:39]"
# gain 1.2
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ "dr*<8!3 16>"
# "h2ogmhh" # cut 3
# gain 0.85
d8 $ gF1 $ gM2 $ chop 16 -- Breaks-in-a-box' (patent pending)
$ loopAt 1
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
$ midiOn "^60" (# "breaks165") -- BOUTON NASSIM <3
-- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
$ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
$ midiOn ("^36" - "^60") (loopAt 4 . (# n 44))
$ "jungle_breaks:79" -- Arguably not very drum-n-bass
d4 $ gF2 $ gM3 -- Ligne directrice: P-U-N-K
$ midiOn "^89" (ply 2)
$ midiOn "^57" (chop 2)
$ midiOn "^76" (ply 2)
$ midiOn "^44" (chop 2)
$ chop 4
$ "punk:0/4"
# cut 4
# gain 0.9
# legato (range 0.42 1 "^33")
# crushbus 41 (range 16 1.5 "^53")
# legato (range 0.42 1 "^32")
# crushbus 41 (range 16 1.5 "^52")
# room 0.2 # dry 1.9 # sz 0.6
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "2 <1 4>")
$ midiOn "^58" (
$ midiOn "^89" (ply "2 <1 4>")
$ midiOn "^57" (
chop "<4 4 8 16>"
. (# legato 0.5) . (# room 0.3) . (# sz 0.7))
$ note "<e c d b4>"
# "90s_synatm:9"
# crushbus 52 (range 16 3.5 "^54")
# octersubbus 51 (range 0 4 "^54")
# octerbus 53 (range 0 1 "^34")
# crushbus 52 (range 16 3.5 "^33")
# octersubbus 51 (range 0 4 "^33")
# octerbus 53 (range 0 1 "^53")
# cut 5
# pan 0.7
d6 $ gF3
......
do
setcps (150/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ midiOn "^41" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
# lpf 1200
# gain 1
d2 $ gF1 $ gM2
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ s")
$ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
$ "[snare:2,snare:10]"
# octer 0
......@@ -17,17 +17,19 @@ d2 $ gF1 $ gM2
# pan 0.25
-- # lpf 3000
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)")
$ midiOff ("^44"+"^76") ((mask "t(<8!3 [8!3 4]>,16,2)"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOff ("^44"+"^43") ((mask "t(<8!3 [8!3 4]>,16,2)"))
$ "hh:8*16"
|* gain "1 1 0.95 1 0.96 1 0.975 1.1"
# gain 1.8
# pan 0.2
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
$ midiOn "^57" ((# freeze 0.2) . ply 4)
$ midiOn "^76" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
$ midiOn "^44" ((# freeze 0.2) . ply 4)
$ chop 4 $ loopAt 4
$ "bass_nes:1"
# cut 4
......@@ -36,23 +38,24 @@ d4 $ gF2 $ gM3
# sz 0.9
# gain 1.5
-- # octerbus 42 (range 0 1.5 "^17")
# octersubbus 43 (range 0 1.5 "^17")
# squizbus 44 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 43 (range 0 1.5 "^32")
# squizbus 44 (range 0 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 2.5 "^53")
# gain 1
d5 $ gF3 $ gM3
$ midiOff "^58" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^58" (
$ midiOff "^89" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^89" (
slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" .
(# n "41")
)
$ "fguitar:40"
-- # crush 3.5
-- # note "-24"
# gain (1 - 0.24 * "^34")
# crushbus 51 (range 16 2.5 "^54")
# distortbus 52 (range 0 1.5 "^34")
# lpfbus 53 (range 3000 200 "^34")
# gain (1 - 0.24 * "^33")
# crushbus 51 (range 16 2.5 "^53")
# distortbus 52 (range 0 1.5 "^33")
# lpfbus 53 (range 3000 200 "^33")
# cut 5
# pan 0.66
d9 $ gF3 $ gM3
......
......@@ -22,7 +22,7 @@ d3 $ gF1 $ gM2
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ fix (|* gain (range 1 0.5 ("^17" + "^35"))) "vec1_acid:11"
$ midiOn "^76" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ superimpose ((|* gain "^16") . (# n 10) . (# legato 0.8))
$ superimpose ((|* gain "^32") . (# n 12)
-- . (# cut 41)
......
......@@ -12,29 +12,29 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gCPS $ gF $ gMute
$ midiOn "^74" (fast 2)
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
$ midiOff "^42" (<| "k k")
$ midiOn "^41" (<| "k k k <k [<k ~> k]>")
$ midiOff "^41" (<| "k k")
$ "[wobble,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gF $ gMute
$ fix ((|- note 4) . (|* gain 0.95)) "cp"
$ midiOn "^43" (<| "~ s ~ s*<1 <2 [4 2]>>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s*<1 <2 [4 2]>>")
$ midiOff "^42" (<| "~ s")
$ "[snare:20,cp]"
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- course de chapeaux
$ midiOff "^44" (mask "<t t(1,8)>")
$ midiOff "^43" (mask "<t t(1,8)>")
$ "~ o ~ o ~ o*<1 2> ~ o*<1!3 2>" # drumFrom "rolandd110" "oh"
# midiG' "^80" 0 1.2
# pan 0.7
d4 $ gF2 -- Meth == Crash
$ midiOff "^59" ((# legato 1) . mask "<t f>")
$ midiOn "^91" (ply 8)
$ midiOff "^44" ((# legato 1) . mask "<t f>")
$ midiOn "^76" (ply 8)
-- $ loopAt 8
$ chop 8
$ "meth_1902:0"
# pan 0.7
# crushbus 41 (range 16 1.5 "^55")
# crushbus 41 (range 16 1.5 "^32")
# cut 4
# room 0.2 # sz 0.3 # dry 1.1
# midiG' "^83" 0 1.2
......@@ -44,14 +44,14 @@ d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
$ loopAt 16
$ chop 8
$ "synth_commodore"
# crushbus 51 (range 16 1.5 "^53")
# crushbus 51 (range 16 1.5 "^33")
# pan 0.4
# room 0.2 # sz 0.2 # dry 2
# midiG' "^81" 0 1.53
# cut 5
d8 $ gF $ gM
$ midiOn "^20" (# n "48")
$ midiOn "^36" (# n 50)
$ midiOn "^36" (# n "48")
$ midiOn "^56" (# n 50)
$ midiOn "^60" (slow 2)
$ midiOn ("^92") ((# legato "1 h") . (ply "2 <4 [4 8]>"))
$ loopAt 2 $ chop 16
......
......@@ -7,8 +7,10 @@ let g2 = ( # djfbus 2 "^50")
d1 $ g1
$ superimpose (
(# att 0.08) . (# rel 0.05)
. (# "drums_atari") . (# cut 1) . (|* gain "^30"))
. (# "drums_atari") . (# cut 1) . (|* gain "^29"))
$ midiOn "^41" (slow 2)
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "kick:5"
......@@ -19,36 +21,38 @@ d2
# cut 2
# midiG' "^79" 0 1.1
d3 $ g2
$ midiOn "^44" (mask "f(5,8)")
$ midiOn "^43" (mask "f(5,8)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "2 <2!3 4>")
$ "drum:2*[8 <8 [8!3 16] 8 [16 32]>]"
-- # cut 3
# pan (slow 16 $ range 0.2 0.8 (sine + perlin))
# midiG' "^80" 0 1
d4 $ g2
$ midiOff "^90" (mask "t(<8!4 8 [8 16] 8 [8 . 32 16]>,32)") $ chop 32
$ midiOff "^44" (mask "t(<8!4 8 [8 16] 8 [8 . 32 16]>,32)") $ chop 32
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "synth_nes:0"
# cut 4
# gain 0.65
# roombus 42 (range 0 0.4 "^33")
# roombus 42 (range 0 0.4 "^32")
# pan 0.8
# squizbus 4 (range 0 16 "^54")
# squizbus 4 (range 0 16 "^52")
# midiG' "^82" 0 1
d5 $ g2
$ midiOn "^89" (|+ note 12)
$ midiOn "^57" (|+| note "[0 12 0]*<1 1 2 4>")
$ midiOn "^57" (|+ note 12)
$ midiOn "^89" (|+| note "[0 12 0]*<1 1 2 4>")
$ note ("0(3,8) <7!3 [12 <7 7 7 7>]>*<1!3 2>"
+ "<f3 gs3 c4 <bf3!3 ds4>>" - 12)
# "bassWarsaw"
# crushbus 5 (range 16 2 "^53")
# crushbus 5 (range 16 2 "^33")
# ampbus 52 (range 0 0.94 ("^81" * "^77"))
-- GRAVEYARD
d2 $ g1
$ midiOn "^43" (ply 2)
$ midiOn "^42" (ply 2)
$ slice 8 "2"
$ "drums_gameboy"
# n (slow 4 $ "<6 5>")
......
......@@ -4,33 +4,35 @@ setcps (90/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ midiOff "^41" (<| "k k k k*<1!3 2>")
$ midiOn "^41" (<| "k . ~ k ~ ~ ")
-- $ "[bskick,kicklinn:2]"
$ "reverbkick"
# lpf 3000
# att 0.01 # rel 0.5
# gain 1.1
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]" # note "-2" # lpf 4000
# gain 1.45
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
# gain 1.2
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ note ("<[c3@3 c3 . <ef3!0 [ef3 . c3 bf2]>] [<gs2 [gs2 bf2 gs2]> g2]>")
# "bassWarsaw"
# room 0.5 # sz 0.5
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# octersubbus 43 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 0.85 "^52")
# octersubbus 43 (range 0 1.5 "^52")
d8 $ gF1 $ gM2 $ chop 8
$ midiOn "^60" (mask "t(4,8,1)") $ chop 8
-- TODO PR#EMIER JET
......@@ -40,12 +42,12 @@ d9 $ gF3 $ gM3
# "moogBass"
# room 0.15 # sz 0.15
d5 $ gF3 $ gM3
$ midiOn "^90" (|+| note "[12 0]*[8 . <8 16>]")
$ midiOn "^57" (|+| note "[12 0]*[8 . <8 16>]")
$ note (
"<~ <[c3 c3 c3 ef3 c3 c3@3] [c3 c3 c3 bf2 <bf2 c3> c3@3]>>"
)
# "FMRhodes1"
# modIndex (range 0 12 "^54")
# modIndex (range 0 12 "^33")
# room 0.4
# octer 0.5
# gain (1.4 - 0.3 * "^54")
# gain (1.4 - 0.3 * "^33")
......@@ -2,16 +2,17 @@ do
setcps (133/60/4)
-- resetCycles
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^30" (|> "hardkick_rha:4")
$ midiOn "^41" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^29 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^29 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^29" (|> "hardkick_rha:4")
$ "kick:5"
# gain 1.6
# lpf 400
# cps ((range 100 166 "^29")/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s ~ s ~ s")
$ midiOff "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ midiOn "^42" (<| "~ s ~ s ~ s ~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "vec1_snare:24"
# gain 1.3
d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
......@@ -26,16 +27,16 @@ d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
-- # octerbus 41 (range 0 1.4 "^53")
d4 $ gM3 $ gF2 -- BASSLINE 8BIT <3
$ chop 8 $ slow 4 $ "bass_commodore:13"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
-- # octerbus 41 (range 0 1.4 "^53")
# room 0.4
d5 $ gF3 $ gM3 -- WAP HOES
$ midiOn "^18" (# 7) -- FORCE INTRO
$ midiOff ("^18"+"^90") (slow 4)
$ midiOn "^33" (# 7) -- FORCE INTRO
$ midiOff ("^33"+"^89") (slow 4)
$ stut 4 1 1 -- Four repeats each
$ slow 4
$ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
$ midiOn "^90" (ply "[1!3 4]*4" . chop 4 . stut "4" 0.9 (fast 4 "s") . (# att 0.08) . (# rel 10))
$ midiOn "^57" (stut "4" 0.9 (fast 4 "e"))
$ midiOn "^89" (ply "[1!3 4]*4" . chop 4 . stut "4" 0.9 (fast 4 "s") . (# att 0.08) . (# rel 10))
$ loopAt 4
$ "wap:0"
# n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
......@@ -51,7 +52,7 @@ d6 $ gF3 $ gM3
# note "<0 1 6 12>"
# gain 0.8
d7 $ gF1 $ gM3 --Les WAP DRUMS
$ midiOff "^60" (mask "t(4,8,1)" . chop 8)
$ midiOff "^59" (mask "t(4,8,1)" . chop 8)
$ midiOn "^91" (ply "2 <2 4>")
$ loopAt 2 $ chop 8
$ "wap" # n "<3!4 4!4 5!4 6!4>"
......
......@@ -3,35 +3,38 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*2>")
$ midiOn "^41" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 k*2>")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]"
# gain 1.1
# lpf 300
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ midiOff "^42" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^42" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
$ "[vec1_snare:38]"
# lpf 4800
# gain 1.3
# cut 2
d3 $ gF1 $ gM2 -- Hihat
$ midiOn "^76" (ply "2 <2!3 4>")
$ midiOn "^43" (ply "2 <2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (ply "2 <2!3 4>")
$ "~ h ~ h ~ h*<1 2 1 <1 [4 2]>> ~ h*<1 <1 1 0 2> 1 <2 4>>"
-- # "db:0"
# "h2ogmhh"
-- # attbus 32 (slow 32 $ range 0.4 0.04 saw)
# legato (range 0.1 0.5 "^52")
# legato (range 0.1 0.5 "^31")
# room 0.2
# dry 1.3
# gain 2.9
# pan 0.3
d8 $ gF1 $ gM2 -- BROKEN BEAT | BREAKS STACK
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^60 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^60 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ loopAt 2 $ chop 16
$ midiOn "^92" (ply "<2 [2 4]>")
$ midiOn "^60" ( -- Broken Beat!
......
......@@ -3,6 +3,8 @@ setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (slow 2 . gDJF)
d1 $ g
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^42" (fast 2)
$ midiOn "^41" (struct "t t t <t!3 [<~ t> t]>")
$ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
......@@ -11,15 +13,17 @@ d1 $ g
# lpf 500
d2 $ g
$ fix ((# lpf 1500) . (|* gain 0.8)) "cp"
$ midiOn "^43" (whenmod 4 3 (ply 2) . fast 2)
$ midiOn "^42" (whenmod 4 3 (ply 2) . fast 2)
$ fast 2
$ midiOff "^43" (fast "<1!5 2!3>")
$ midiOff "^42" (fast "<1!5 2!3>")
$ "~ [snare:40,cp]"
# note (range "-10" "10" "^51")
# midiG' "^79" 0 0.87
d3 $ g
$ midiOn "^76" --BOUTON NASSIM
$ midiOn "^43" --BOUTON NASSIM
(ply 2 . (# speed 2))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (slice 4 "0 1 <2 2 0 0> <3 3 1 3>*<1!3 <2 1>>")
$ midiOff "^44" (slice 4 "0 1 2 3")
$ loopAt 2
......@@ -27,10 +31,10 @@ d3 $ g
# midiG' "^80" 0 0.9
# pan 0.3
# lpf 5000
# crushbus 31 (range "10" 2.5 "^52")
# crushbus 31 (range "10" 2.5 "^31")
# cut 3
d4 $ g
$ midiOn "^89" (ply 2)
$ midiOn "^76" (ply 2)
$ ply "<1!4 2!4> <2 1 2 1 1 1 2 1> . [2 <4 8>]"
$ "d d d d d d d d" # "drum:2"
# midiG' "^81" 0 0.9
......@@ -38,13 +42,13 @@ d5 $ g $ "hh(<<7!3 10> [3 <3 <7 12>>]>,12)"
# midiG' "^82" 0 0.65
d6 -- Runny Maracas Pitchables
$ g
$ midiOn "^59" (fast 2)
$ midiOn "^91" (ply 2)
$ midiOn "^90" (fast 2)
$ midiOn "^58" (ply 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
-- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "d ~ ~ d d ~ d <~!3 d>"
# "hh27:2"
# note (range "-10" "10" "^55")
# note (range "-10" "10" "^34")
-- # crushbus 51 (range 16 4.2 "^54")
# midiG' "^83" 0 1.2
-- # speed (range 0 2 "^51")
......@@ -57,4 +61,4 @@ d8 $ g
# room 0.4 # dry 1.05 # sz 0.6
# pan 0.7
# midiG' "^84" 0 0.75
# crushbus 81 (range 16 2.5 "^56")
# crushbus 81 (range 16 2.5 "^36")
......@@ -7,14 +7,14 @@ let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gF $ gM1
-- $ fast 2
$ midiOn "^42" (struct "t t t t")
$ midiOn "^41" (struct "t t t t")
-- $ midiOff "^42" (struct "t . ~ t ~ ~")
-- $ "[techno:0,808bd:2,909,kick:4]"
$ "[rampleS2:0,techno:0,jazz]"
# midiG' "^78" 0 1.3
d2 $ gF2 $ gMute
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ ~ ~ <~ c>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ ~ ~ <~ c>")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# pan 0.7
......@@ -30,8 +30,9 @@ d3 $ gF2 $ gMute
d8 $ gF3 $ gMute -- MARINE BREAKS
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (iter 4)
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^36 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^36 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ someCyclesBy "^36" (loopAt 2)
$ someCyclesBy "^36" ((# n 0))
-- $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" ((# "fbreak120:3"))
$ someCyclesBy "^56" (loopAt 1)
......@@ -41,12 +42,14 @@ d8 $ gF3 $ gMute -- MARINE BREAKS
# midiG' "^84" 0 1.3
d8 $ gF3 $ gM2 -- MARINE BREAKS
$ midiOn "^73" (mask "f*16") -- FIXME DUPLICATE
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")
$ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "t([4!3 8],8,1)")
-- $ chop 16
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
$ someCyclesBy "^36" (loopAt 2)
$ someCyclesBy "^36" ((# n 0))
$ someCyclesBy "^36" (loopAt 1)
$ someCyclesBy "^36" (mask "[f t]*4")
$ someCyclesBy "^36" (chop 16)
......@@ -58,9 +61,9 @@ d8 $ gF3 $ gM2 -- MARINE BREAKS
# cut 8
# midiG' "^84" 0 1.3
d4 $ gF2 $ gMask $ gMute
$ sometimesBy (range 0 0.8 "^53") (# crush 5)
$ midiOn "^57" (iter "1 4")
$ midiOn "^89" (ply 2)
$ sometimesBy (range 0 0.8 "^32") (# crush 5)
$ midiOn "^44" (iter "1 4")
$ midiOn "^76" (ply 2)
$ loopAt 1
$ chop 8
$ "breaks165"
......@@ -72,5 +75,5 @@ d7 $ gF3 $ gMute $ gMask
$ midiOn "^59" (# n 4)
$ "drums_commodore:2" # cut 7
# midiG' "^83" 0 1.4
# crushbus 72 (range 16 1.5 "^55")
# crushbus 72 (range 16 1.5 "^35")
# panbus 7 (slow 16 $ range 0.8 0.2 sine)
......@@ -13,8 +13,8 @@ let modIndex = pF "modIndex"
-- # pan 0.7
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
$ midiOn "^41" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
-- $ superimpose ((# "hardkick_rha:3") . (# lpfbus 12 80))
$ stack [
"[techno:0,jazz]"
......@@ -23,8 +23,8 @@ d1 $ gF1 $ gM1
-- # room 0.2
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
$ midiOff "^42" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^42" (<| "~ s")
-- $ "[snare:35,<snare:43!4 snare:40!4>,nass:0]"
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
......@@ -39,10 +39,10 @@ d3 $ gM2 $ gF1-- DrumRoll
d4 $ gF2 $ gM3-- BASSLINE
-- $ mask "<f!8 t!12 t!44 t!64>"
$ superimpose (
(# crushbus 4 (range 16 4 "^53"))
(# crushbus 4 (range 16 4 "^32"))
. (# hpf 200) . (|* gain 1.4)
)
$ midiOn "^57" (chop "<8 8 4 <8 16>>")
$ midiOn "^76" (chop "<8 8 4 <8 16>>")
$ whenmod 64 16 (superimpose ( -- Aigu complément
("e" ~>) . (# voice 100)
. (# pan 0.4)
......@@ -63,7 +63,7 @@ d7 $ gF2 $ gM3 -- SYNTH BASS FRIEND
# "giorgio_syn:9" # n "<9!3 10>"
# cut 7
# gain 1.3
# crushbus 71 (range 16 4 "^55")
# crushbus 71 (range 16 4 "^35")
# room 0.3 # bandf 400
d10 $ gF3 $ gM3 -- Mad organ
$ mask "<f!4 t!10 f!2>"
......@@ -101,7 +101,7 @@ d5 $ gF3 $ gM3 -- Rhodes arps <3
+ "0 12"
- 24)
# "[FMRhodes2,FMRhodes1]"
# modIndex (range 0 2 "^34")
# modIndex (range 0 2 "^33")
# crushbus 6 (slow 16 $ range 16 4 saw)
# pan 0.6
# room 0.4
......
......@@ -21,13 +21,14 @@ let g = gDJF
d1 $ fast 4 $ "drum"
d1 $ g
$ midiOn "^42" (fast 2)
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^41" (fast 2)
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[jazz,rootsDrums:0]"
# midiG' "^78" 0 1.1
d2 $ g
$ midiOn ("^43"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7")
$ midiOn ("^42"+"^75") (superimpose (slice 8 ("0*4 1 1*4 3 4 5 6*2 7")
. (loopAt 1)
. (>| "breaks165")
. (|* gain 0.7)
......@@ -49,7 +50,9 @@ d10 $ g -- Drumroll bonus <3
d3 -- Running Hats
$ g
-- $ degradeBy ("1 0 0 1!13" - "^52")
$ midiOn "^44" (slow 2)
$ midiOn "^43" (slow 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (fast 2)
$ sometimesBy "0 . 0!3 0.95" (ply "<2 [2|4]>")
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
......@@ -60,7 +63,7 @@ d3 -- Running Hats
d4 -- Bassline
$ g
$ "rootsBass:3"
# crushbus 41 (range 16 1.5 "^53")
# crushbus 41 (range 16 1.5 "^32")
# midiG' "^81" 0 0.8
# pan 0.3
d5 $ g -- Guitar
......@@ -74,7 +77,7 @@ d7 $ g-- Trompettes en retard
$ slice 4 "<0 1 2 3>"
$ "rootsTrump:8" -- ritournelle
# cut 7
# midiG' "^56" 0 0.6
# midiG' "^35" 0 0.6
# pan 0.6
# cut 3
d8 $ g -- Trombone Pensif
......@@ -82,9 +85,9 @@ d8 $ g -- Trombone Pensif
$ slice 4 "<1? 1 0 1?>"
$ "rootsTromb:1"
# cut 4
# midiG' "^55" 0 0.65
# midiG' "^36" 0 0.65
# room 0.3
# crushbus 41 (range 16 1.25 "^35")
# crushbus 41 (range 16 1.25 "^56")
# cut 8
# pan 0.8
d6 $ g -- Piano contretemps reggae!
......@@ -93,8 +96,8 @@ d6 $ g -- Piano contretemps reggae!
. mask "t(16,32)"
. (|+ note 12)
)
$ midiOn "^91" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed
$ midiOn "^91" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9))
$ midiOn "^58" (slow 4 . mask "t(8,16)") -- 59: Slow and delayed
$ midiOn "^58" ((# delay 0.25) . (# delayfb "<0.5!3 0.8>") . (|* gain 0.9))
$ n ("~ 1 ~ <1 <[~ 1] 1?>> ~ <0!3 [0 1]> ~ 0*<1!6 2 <4 [4 8]>>"
+ "<0!3 [-1 1]>"
)
......
......@@ -9,8 +9,8 @@ let width = pF "width"
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM -- Kick "Underwater Rave"
$ midiOn "^42" (<| "k k <k!7 ~> <k k*<2 2 2 4 2 4 [4 8] [4 8 16]>>")
$ midiOff "^42" (<| "k*<1!8 2 1!7> . k(<<3 1> [3 <1 5> 3]>,8)")
$ midiOn "^41" (<| "k k <k!7 ~> <k k*<2 2 2 4 2 4 [4 8] [4 8 16]>>")
$ midiOff "^41" (<| "k*<1!8 2 1!7> . k(<<3 1> [3 <1 5> 3]>,8)")
$ "[jazz,clubkick:1]"
# midiG' "^78" 0 0.8
d2 $ gF1 $ gM2 -- Clap sonar intraitable
......@@ -21,20 +21,20 @@ d2 $ gF1 $ gM2 -- Clap sonar intraitable
# midiG' "^79" 0 0.8
# room 0.8 # sz 0.4 # dry 0.985
d3 $ gM $ gF1 -- Drumroll de Sebastien
$ midiOn "^76" (ply 4)
$ midiOn "^43" (ply 4)
$ "drum:2*[4 <4 4 <8 [8 16]>>]"
# midiG' "^80" 0 0.6
# pan 0.77
d4 $ gF2 -- Baleine sur la défensive
$ midiOn "^89" (chop (slow 2 "<[8 16 8 8 . 16 8] 1>"))
$ midiOn "^76" (chop (slow 2 "<[8 16 8 8 . 16 8] 1>"))
$ fix ((# width 0.5) . (# cut 12)) "bassWarsaw"
$ fix ((# voice 0.1) . (# cut 11) . (# lfo 0) . (|* gain 0.8)) "supersaw"
$ note "<<d3 d3(<3 [3 5]>,8)> <a2 a2(<3 [5 3]>,8)>>"
-- TODO: seconde voix
# "[bassWarsaw,supersaw]"
# midiG' "^81" 0 0.8
# octerbus 41 (range 0 0.85 "^53")
# crushbus 41 (range 16 3.5 "^53")
# octerbus 41 (range 0 0.85 "^32")
# crushbus 41 (range 16 3.5 "^32")
# room 0.3 # sz 0.4 # dry 1.1
# pan 0.4
# cut 1
......@@ -54,11 +54,11 @@ d7 $ gF2 -- La certitude du verre brisé
$ note "<d <e g> d [a ~ ~ g ~ f e ~ ~]>" -- TODO: Variations sur la fin
# "90s_glassatm:0"
# cut 7
# midiG' "^18" 0 0.8
# midiG' "^35" 0 0.8
d8 $ gF2 -- Crystal de sel
$ "90s_synatm:2"
# note "<0 0 -5 -5>"
# midiG' "^19" 0 (range 0.23 0.45 perlin)
# midiG' "^36" 0 (range 0.23 0.45 perlin)
# room 0.4 # sz (range 0 0.6 perlin)
# delay 0.5
# delayt 0.125
......
......@@ -9,17 +9,17 @@ let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f1l = (# djfbus 3 (range 0.45 0.55 "^49"))
setcps (93/60/4)
d1 $ f1 $ gMute
$ midiOn "^42" (<| "<k k k*2 k> ~ . ~ ~ <~!2 k <~ k*2>> <~ k>")
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <k k ~ k>")
$ midiOn "^41" (<| "<k k k*2 k> ~ . ~ ~ <~!2 k <~ k*2>> <~ k>")
$ midiOff "^41" (<| "<k ~> . ~ ~ ~ <k k ~ k>")
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gMute
$ juxBy 0.85 (whenmod 8 7 rev)
$ f1
$ midiOn "^43" (
$ midiOn "^42" (
someCyclesBy "<0 1>" (off "<-e!3 -s>" (|* gain 0.8)) -- Bonus prehit
)
$ midiOff "^43" (mask "<f t>")
$ midiOff "^42" (mask "<f t>")
$ fix (# note (-4)) "cp"
$ "~ snare"
# "[cp,snare:20,snare:50]"
......@@ -30,11 +30,13 @@ d2 $ gMute
# gain 0.8
# midiG' "^79" 0 1.2
d3 $ f1l $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "<[2 2 4 2]!3 [2!3 4]>" . (# room 0.2))
$ ply "1 . <1!6 2 2> <2!3 [2 4]>"
$ "dr*4"
# room (slow 32 $ range 0 (range 0 0.8 "^52") saw)
# room (slow 32 $ range 0 (range 0 0.8 "^31") saw)
# sz (slow 64 $ range 0.1 0.92 saw)
# dry 1.5
# midiG' "^80" 0 1
......@@ -48,9 +50,11 @@ d4 -- BASSES
. (# dry 0.9)
. (# sz 0.7)
. (# pan 0.8)
. (# crushbus 41 (range 16 4 "^53"))
. (|* gain (range 0 1 "^17"))
. (# crushbus 41 (range 16 4 "^32"))
. (|* gain (range 0 1 "^52"))
) "matrix"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ fix (
(<| note (scale "aeolian" "<0 [<0 2> . <2!3 3> <3!3 5>]>"))
. (# "bass1")
......@@ -69,7 +73,7 @@ d6 $ f2 -- VOICES
. (# pan 0.2)
. (# hpf 2500)
. (# room "<0.5 0.8 0.8 <0.8 0.1>>")
. (# squizbus 61 (range 0 4 "^55"))
. (# squizbus 61 (range 0 4 "^34"))
. (|* gain 0.9)
) "morohai"
$ fix (
......@@ -91,7 +95,7 @@ d7 $ f2 -- LEADS
. (# room 0.4)
. (# sz 0.3)
. (# pan 0.3)
. (|* gain (range 0 0.8 "^18"))
. (|* gain (range 0 0.8 "^35"))
) "pad"
$ fix (
(# "superpiano") . gM3
......@@ -102,7 +106,7 @@ d7 $ f2 -- LEADS
. (>| note (scale "aeolian" (
"<[~ 0] [<0 2> . <2!3 3> <3!3 5>]>"
) - 12))
. (|* gain "^34")
. (|* gain "^55")
. (# velocity "0.85 0.9!7")
. (# pan 0.9)
) "piano"
......
......@@ -4,15 +4,17 @@ setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
-- $ midiOn "^42" (<| "k*2 k k <k <k*2 [~ k*<1 [4 2]>]>>") -- PERMANENCE
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>" )
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>" )
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]"
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1 <2 2 1>>")
$ midiOff "^43" (<| "~ <c!3 [c*2]>")
$ midiOn "^42" (<| "~ c ~ c*<1 <2 2 1>>")
$ midiOff "^42" (<| "~ <c!3 [c*2]>")
$ "[snare:40,sn:31]"
d3 $ gF3 $ gM2
$ midiOn "^76" (ply 4)
$ midiOn "^43" (ply 4)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (<| "~ h ~ h ~ h ~ h*<1 2>")
$ midiOff "^44" (<| "h(<3!4 8!8>,8) h(<3 3 5 <5 [5 8]>>,8)" )
$ "hh:7"
......@@ -24,12 +26,13 @@ d4
d8 $ gM2 $ gF1
$ midiOn "^60" (("e" <~) . mask "<t(4,8)>")
$ chop 16
$ midiOn "^20" (# "break:5")
$ midiOn "^36" (# "break:5")
$ midiOn "^92" (
(# delay 0.3)
. (# delayt "q") . (#delayfb 0.5)
)
$ midiOn "^36" (loopAt 1 . (# n "46"))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (loopAt 1 . (# n "46"))
$ midiOn "^56" (loopAt 0.5 . (# n "19"))
-- $ slice 2 "0 1*<1!3 4>"
$ loopAt 4
......@@ -38,15 +41,15 @@ d8 $ gM2 $ gF1
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
-- # midiG' "^78" 0 1.5
d2
$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ cp")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
......@@ -60,19 +63,20 @@ d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^32") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw"
# room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.5
# crushbus 42 (range 16 4 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # relbus 43 (range 2 0.02 "^33") # att 0.22
-- -- # midiG' "^81" 0 1.5
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
$ midiOn "^57" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
......@@ -82,8 +86,8 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# modIndex (range 0 50 "^33")
# delaybus 51 (range 0 0.8 "^53")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
......
......@@ -24,7 +24,7 @@ d1 -- Kick regulier degradé
# gM' 0 1.4 "^78"
d2 -- Cymbales gravitantes
$ g
$ novaOn "^43" (<| "h*16")
$ novaOn "^42" (<| "h*16")
$ whenmod 16 8 (jux (rev . (hurry "<2!3 0.5>")))
$ degradeBy "0 <0.5!6 0.25!2>!7" $ "ho:1*4 hc:3*4"
# note ("<0!<3 2> -4 -8 <[-8 -4] -12>>")
......@@ -40,21 +40,23 @@ d3 -- Drumroll ma foi bien classique
d4 -- Bassline "maybe mad smirk smirk"
$ g
$ loopAt 2
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^58 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^58 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ slice 8 (
stack [
(sometimesBy "^89" (>| "0")
(sometimesBy "^44" (>| "0")
"0 1 2 3 4 5 6 7*<1 2 4 1>"),
(degradeBy (1 - "^57") $ "0(3,8)"), -- Megamask!
(degradeBy (1 - "^76") $ "0(3,8)"), -- Megamask!
(degradeBy (1 - "^58") $ "0 0 0 0") -- MULTIMASK!
]
)
$ s "fbass:8"
# gM' 0 2 "^81"
# cut 6
# crush (range 16 5 "^53")
# crush (range 16 5 "^32")
d5 -- Chopped choir
$ g
$ sometimesBy "^90" (slow 2) -- TODO end: Rarefy
$ sometimesBy "^57" (slow 2) -- TODO end: Rarefy
$ slice 8 (
whenmod 16 12 (|> "<0!2 2!2>*8") $
whenmod 16 8 (|> "0*4") $
......
......@@ -11,23 +11,23 @@ let rq = pF "rq "
let filterRange = pF "filterRange"
let lagTime = pF "lagTime"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ <k <k? k*2>>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [~ <k <k? k*2>>]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:4]"
# gain 1.4
d2 $ gM2 $ gF1 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "~ c . ~ ~ ~ <~!3 c>"))
$ midiOn "^42" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^42" ((|* gain "1 0.8") . (<| "~ c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.8
d3 $ gF1 $ gM2 -- Drumroll chaser de highs technooo
$ midiOn "^76" (struct "t([16 . <16 32> <16!3 <8 32>>],16)" . (# n 20))
$ midiOff "^76" (<| "~ h ~ h ~ h*<1 2> ~ h")
$ midiOn "^43" (struct "t([16 . <16 32> <16!3 <8 32>>],16)" . (# n 20))
$ midiOff "^43" (<| "~ h ~ h ~ h*<1 2> ~ h")
$ "h2ogmhh"
# n "<19!4 20!4 19!8 20!8 19!16 20!16>"
d4 $ gF3 $ gM3 -- Smooth Wobble LPF modulated bass
$ midiOn "^89" (ply "<<2!4 4!4> <2!3 4> <4!4 8!4> [8 <6 16>]>" . fast 2)
$ midiOn "^76" (ply "<<2!4 4!4> <2!3 4> <4!4 8!4> [8 <6 16>]>" . fast 2)
$ slow 4 $ note ("<[f@3 [g f] . c]!3 [c@3 [ef g] . f]>"
- 24)
# "bassWarsaw"
......@@ -38,12 +38,12 @@ d4 $ gF3 $ gM3 -- Smooth Wobble LPF modulated bass
# room 0.4
# sz 0.5
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
# gain 1.2
# pan 0.3
d5 $ gF3 $ gM3 -- ACID SYNTH <3
$ midiOn "^58" (|- note 12)
$ midiOn "^57" (|- note 12)
-- out = 0, gate = 1, freq = 440, amp = 0.1, pan = 0, att = 0.001, dec = 0.5, sus = 0.1, rel = 0.5, curve = -4,
-- // Other Controls
-- // width is 0 - 1
......@@ -54,8 +54,8 @@ d5 $ gF3 $ gM3 -- ACID SYNTH <3
|+ note ("[0,<0!4 12!4>]" + "[0,12]")
# room 0.14 # sz 0.05 # dry 0.9
# pan 0.7
# width (range 0.05 0.5 "^54")
# filterRange (range 0 6 "^34")
# width (range 0.05 0.5 "^33")
# filterRange (range 0 6 "^53")
# gain 1.4
# room 0.2 # sz 0.2 # dry 0.98
-- d5 $ gF2 $ gM3 -- Giorgio Friendo
......
......@@ -3,15 +3,15 @@ do
setcps (135/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
$ midiOff "^41" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
# gain 1.6
d2 $ gF1 $ gM2 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ midiOn "^42" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^42" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "vec1_claps:42"
-- # note "0!3 -1"
-- # lpf 4000
......@@ -29,16 +29,16 @@ d3 $ gF1 $ gM2 -- Elaborate offbeat drums
# gain 1.4
d5 $ gM3 $ gF2 -- ACID LEAD
$ ply 2
$ midiOn "^90" (mask "t([16 <8 8 [16 8] [32!3 8]>],32)" . ply 2)
$ fix (|* gain (range 1 0.2 "^54")) ("vec1_acid:30")
$ superimpose ((# "vec1_acid:32") . (|* gain (range 0 1.5 "^54")))
$ midiOn "^57" (mask "t([16 <8 8 [16 8] [32!3 8]>],32)" . ply 2)
$ fix (|* gain (range 1 0.2 "^33")) ("vec1_acid:30")
$ superimpose ((# "vec1_acid:32") . (|* gain (range 0 1.5 "^33")))
$ note ("0 7 0*<1 1 2 2> 7*<1 2>"
+ "<a3 cs4 fs4 <cs4 e4>>/2"
+ "[12]"
)
# "vec1_acid:30"
-- # cut 6
# octerbus 51 (range 0 0.82 "^34")
# octerbus 51 (range 0 0.82 "^53")
-- # room 0.3 # sz 0.1
# pan (slow 16 $ range 0.8 0.5 sine)
-- # octersubsub 1.4
......@@ -78,7 +78,7 @@ d4 $ gF2 $ gM3
)
# "moog:1"
# cut 4
# crushbus 41 (range 16 3 "^53")
# crushbus 41 (range 16 3 "^32")
# gain 1.8
# room 0.4
d10 $ gF1
......
......@@ -10,38 +10,38 @@ let gMute = (midiOn "^73" (mask "f*16"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1 $ f1 $ gM1
$ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
$ midiOn "^41" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^41" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
$ fix ((# hpf 500) . (|* gain 0.7)) "kick:5"
$ "[jazz,kick:5]"
# gain 1.3
d2 $ f1 $ gM2
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops $ midiOn "^75" (ply "2 <2!3 4>")
$ midiOn "^43" (slice 4 (run 8))
$ midiOn "^42" (slice 4 (run 8))
$ mask "<t [t!6 f t] t t t!4>" -- Degrade mid-loop!
$ iter "1 <1!4 4 4 4 2>" $ loopAt 2$ slice 8 (run 8)
$ "break:20" # pan 0.4 # cut 2 # speed (range "-0.25" 2.25 "^31")
$ "break:20" # pan 0.4 # cut 2 # speed (range "-0.25" 2.25 "^30")
d11 $ f1 $ gMute -- Snare <3 chak reverb phantome
$ struct "~ t ~ <t!3 ~>" $ "[snare:34,cp]" # lpf 2000
d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
$ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>") $ maskLoops
$ midiOn "^43" (ply "[4 <1 2>]*<4!3 8>") $ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
$ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
$ ply "<1!8 <2 <2 [2 2 4 2]!7> <2!4 4!4> <4!2 [4 4 8 4] [4 8 <8 4> 4]!3 4>>>"
$ "hh*4" # "h2ogmhh" # pan 0.6 # room 0.2 # gain (0.8 + 0.08 * (slow 2 perlin))
d4 $ f3 -- Atmospheric synth: aerial questions
$ midiOn "^89" (|+ note "<2 2 4 <4 12>>") $ midiOn "^57" (chop "<[16@3 32] [32@3 64]>")
$ midiOn "^76" (|+ note "<2 2 4 <4 12>>") $ midiOn "^44" (chop "<[16@3 32] [32@3 64]>")
$ "90s_synatm:8/4" # cut 4 # room 0.8 # legato 4 # dry 1 # pan 0.45
# legato 2
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d5 $ f2 -- Synth: ELECTRONIC ANSWERS
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ midiOn "^89" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^57" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4" # cut 5 # room 0.85 # sz 0.8 # pan 0.43 # dry 1
# delayfb 0.25 # delayt 0.25 # delay 0.8
# panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34") # gain 1.6
# panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^33")
# octersubbus 53 (range 0 1.85 "^53") # gain 1.6
d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
......@@ -58,8 +58,8 @@ d7 $ f3 -- High lead: Winds of truth
-- # room 0.4 # sz 0.8
# dry 0.1
# cut 7
# crushbus 62 (range 16 2.25 "^55")
# panbus 63 (range 0.05 0.95 "^19")
# crushbus 62 (range 16 2.25 "^35")
# panbus 63 (range 0.05 0.95 "^55")
d8 $ f1 $ gM2 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
......
......@@ -8,8 +8,8 @@ let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g -- KICK
$ fix (* gain 0.82) "wobble"
$ fix ((|* gain 0.8) . (|+ note "0 0 <1 2 4 -1> <0!3 <0 -2>>")) "wobble"
$ midiOn "^42" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^42" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ midiOn "^41" (<| "k k k [<k [~ <~!3 k>]> <~ k>]") -- Cours toujours
$ midiOff "^41" (<| "k . ~ ~ ~ <k!3 [~ k]>") -- Attente Chaloupée
$ "[jazz,808bd:3,wobble]"
# room 0 # dry 1 # sz 0 # crush 32
# midiG' "^78" 0 1.4
......@@ -18,28 +18,28 @@ d2 $ g -- Snare minitel
-- $ fix (ply "1 <1!3 <2 4>>" . (|* gain 0.9) . (# legato "<0.4!6 0.5!2>")) "glitch"
$ fix ((|* gain 0.85) . (# "realclaps:2")) "cp"
$ fix (|* gain 0.8) "snare"
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ (|* gain "1 . 1 ~ ~ 0.76")
$ "~ . s ~ ~ <~ s*<1!3 2>>"
# "[snare:27,<~!8 cp!24 cp!8 ~!8 cp!16>]"
# midiG' "^79" 0 1.4
d7 $ g -- Down Break
$ midiOn "^60" (slice 4 "0 1 2 [2 1*<1 2>]")
$ midiOn "^92" (ply 4)
$ midiOn "^91" (slice 4 "0 1 2 [2 1*<1 2>]")
$ midiOn "^59" (ply 4)
$ slice 4 "0 1 <2 [2|1]> <1 2 3 7*<1 <2 4>>>"
$ loopAt 2
$ "break:15"
# speed (range 0 2 "^56")
# speed (range 0 2 "^35")
# midiG' "^84" 0 1.4
# cut 7
# pan 0.35
d3 $ g -- Fight hats -- FIXME Rework? Could be loved <3
$ midiOn "^44" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ midiOn "^43" (fast "4!3 <8 [<4 8> <4!3 8>]>") -- RUN
$ "h2ogmhh(3,8)" # n "<1 <2!3 1 2!2 1 1>>"
# midiG' "^80" 0 1.4
d4 -- Frequency-modulated hopes
$ g2
$ midiOn "^89" (chop 16)
$ midiOn "^76" (chop 16)
$ superimpose (|+ note (cat [
2,2,2,3,
3,3,4,5,
......@@ -48,12 +48,13 @@ d4 -- Frequency-modulated hopes
]))
$ note ("d" - 12)
# "superfm"
# voicebus 42 (range 0 8 "^33")
# crushbus 41 (range 10 0.85 "^53") -- Harmonics of destruction
# midiG' "^81" 0 (1 - 0.2 * "^17")
# voicebus 42 (range 0 8 "^32")
# crushbus 41 (range 10 0.85 "^52") -- Harmonics of destruction
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # midiG' "^81" 0 (1 - 0.2 * "^17")
d5 $ g2 -- BASSLINE
$ midiOn "^90" (ply "[2|4]")
$ midiOn "^58" (chop 4)
$ midiOn "^89" (ply "[2|4]")
$ midiOn "^57" (chop 4)
$ superimpose ((|- note 12) . (|* gain 0.8))
$ arp "up"
$ n (scale "aeolian"
......@@ -63,22 +64,22 @@ d5 $ g2 -- BASSLINE
-- "<d'maj11'8!3 [d'maj11'i'6]>"
- "24")
# s "superchip"
# voicebus 51 (range 0.7 0.05 "^34")
# crushbus 52 (range 16 2.9 "^54")
# midiG' "^82" 0 (1.4 - 0.1 * "^54")
# voicebus 51 (range 0.7 0.05 "^33")
# crushbus 52 (range 16 2.9 "^53")
# midiG' "^82" 0 (1.4 - 0.1 * "^53")
# room 0.7
# dry 1.02
# sz 0.8
d6 $ g2 -- Sirene apocalyptico-commerciale
$ midiOn "^91" (
$ midiOn "^90" (
slice 4 (mask "t" $ fast 8 $ run "<4!3 [4|2]*8>"))
$ midiOff "^59" (slow 8)
$ midiOff "^58" (slow 8)
$ n (
scale "aeolian"
"[0 <[<5 6> <4 5>]>]/2"
- 36)
# "supersiren"
# crushbus 62 (range 10 2.5 "^55")
# crushbus 62 (range 10 2.5 "^34")
# midiG' "^83" 0 0.77
# panbus 63 (range 0.4 0.8
(sine - 2 * (fast "<2!3 4 4!3 0.25>" $ perlin)))
......@@ -15,25 +15,27 @@ let modIndex = pF "modIndex"
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4)
d1 $ gF1 $ gM1 $ gMute -- Kick
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ midiOn "^41" (<| "k k k <k k*2>")
$ midiOff "^41" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "[jazz,808bd:6]"
# gain 1.5
d2 $ gF1 $ gM2 --
$ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ midiOn "^42" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ "~ s" # "[db:12]"
-- # note "<-2!3 -4>"
# gain 1.4
d3 $ gF1 $ gMute
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
# room 0.3
# dry 0.95
|* gain "1.2 1!6 <1 1 1.1 <1.2 1>>"
d4 $ gF2 $ gM3 -- BASSLINE BoomRang!
$ midiOn "^57" (# n "50")
$ midiOn "^89" (ply "2 4" . chop "2 <2 4>")
$ midiOn "^44" (# n "50")
$ midiOn "^76" (ply "2 4" . chop "2 <2 4>")
-- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw)))
$ slice 2 "<0!3 1>"
$ "fbass:51"
......@@ -41,10 +43,11 @@ d4 $ gF2 $ gM3 -- BASSLINE BoomRang!
# room 0.4
# sz 0.9
# lrate 0.93
# lsizebus 51 (range 0.8 4.8 "^17")
# lesliebus 52 "^33"
# lsizebus 51 (range 0.8 4.8 "^32")
# lesliebus 52 "^52"
# pan 0.3
# crushbus 53 (range 10 1.61 "^53")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 1.4
d8 $ gF1 $ gM2 -- Break bonus banane
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
......@@ -63,17 +66,17 @@ d7 $ gF3 $ gM3 -- Back solar mandoline
$ note "<d <d a> <gf> c>"
# "supermandolin"
# pan 0.8
# room (range 0 0.3 "^55")
# crushbus 71 (range 10 3.61 "^55")
# room (range 0 0.3 "^35")
# crushbus 71 (range 10 3.61 "^35")
# midiG' "^83" 0 1.5
d5 $ gF2 $ gM3 -- RHODES FOLIE <33
$ midiOn "^58" (off "e" id)
$ midiOn "^90" (jux rev)
$ midiOn "^57" (off "e" id)
$ midiOn "^89" (jux rev)
$ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
-- $ swing (1 + ("0 2" * "^58") + (2 * "^90"))
$ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
# "FMRhodes1"
# room 0.5
# pan 0.7
# crushbus 61 (range 10 4.4 "^54")
# modIndex (range "-0.1" 100 "^34")
# crushbus 61 (range 10 4.4 "^33")
# modIndex (range "-0.1" 100 "^53")
......@@ -4,16 +4,18 @@ do
setcps(120/60/4)
d1 $ gF1 $ gM1 -- Kick solide 4/4 disponible
-- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:4]"
d2 $ gF1 $ gM2 -- Snare fantomatique
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s ~ s")
$ midiOff "^42" (<| "~ s")
$ "[cp:1,rampleM1:10]"
# room 0.1 # sz 0.5 # dry 0.9
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (fast 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -27,8 +29,8 @@ d6 $ gF1 $ gM3 $ "hh(3,8) hh(<3!6 5 <5 [5 8]>>,8)"
# "rampleS57:1" # "<hh:2 [hh:2 hh:3*<1!3 4>]>" # cut 6
# gain 0.9 # cut 3
d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
$ midiOn "^89" (ply "<8!8 [16 <8 16>]!8> <8 16>")
$ midiOn "^57" (juxBy 0.2 (
$ midiOn "^76" (ply "<8!8 [16 <8 16>]!8> <8 16>")
$ midiOn "^44" (juxBy 0.2 (
("h" ~>)
. swing 2
-- . rarely (off "e" id)
......@@ -43,15 +45,16 @@ d4 $ gM3 $ gF2 -- Major Ambient Bassline au rapport
. (# rel 2))
$ note ("<b3 d3 e3 g3>/2")
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# squizbus 42 (range 0 1.5 "^33")
# octerbus 43 (range 0 1 "^17")
# octersubbus 44 (range 0 1 "^17")
# crushbus 41 (range 16 3.5 "^32")
# squizbus 42 (range 0 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 43 (range 0 1 "^17")
-- # octersubbus 44 (range 0 1 "^17")
# att 0.25 # rel 4
# pan 0.2 # room 0
d5 $ gF3 $ gM3 -- Guitare contetemps FIXME Pas convaincante
$ n "~ <0 0 4 [3(3,8),4([1 3],8,2)] 8 8 10 [14 4 14(3,8)]>"
# crushbus 51 (range 16 5 "^54")
# crushbus 51 (range 16 5 "^33")
# room 0.4 # att 0.4 # rel 0.252 # legato 0.4
# "nujazz_guitar"
d9 $ gF3 $ gM3 $ "wind:0" -- Vent de minuit originel
......
......@@ -6,21 +6,23 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let praxis = "<[~ d5 d4 e4 g4 a4 b4 d4] [e4 g4 a4 b4 <e4 g4>@4]>"
d1 $ gF1 $ gM
$ midiOn "^42" (<| "k k k k*<1!7 2>")
$ midiOff "^42" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
$ midiOn "^41" (<| "k k k k*<1!7 2>")
$ midiOff "^41" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
$ "[jazz,808bd:3]"
-- # midiG' "^78" 0 1.4
d2 $ gF1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~ c>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ <~ c>")
$ "snare:40"
# note "-4"
-- # midiG' "^79" 0 1.8
d3 $ gF1 $ gM
$ midiOn "^76" (loopAt 2 . (>| "jungle_breaks:35"))
$ midiOn "^43" (loopAt 2 . (>| "jungle_breaks:35"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (off 0.5 (ply "<1!3 2>"))
-- $ chop 8
$ midiOff "^76" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
$ midiOff "^43" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
$ loopAt 2
$ "break:20"
-- # midiG' "^80" 0 1.4
......@@ -31,15 +33,15 @@ d4 $ gF2 $ gM3 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
# delay 0.8
# delayfb "<0.1!3 0.65>"
# delayt 0.125
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
-- # midiG' "^81" 0 1.6
d6 $ gF3 $ gM3
-- $ mask "<f!12 t!4>"
$ note praxis
# "bassWarsaw"
# modIndex 5
# crushbus 61 (range 16 2 "^56")
# midiG' "^17" 0 1.4
# crushbus 61 (range 16 2 "^34")
# midiG' "^54" 0 1.4
# pan 0.3
d7 $ gF3 $ gM3
$ mask "<t(10,16)!8 f(10,16)!8>"
......
......@@ -66,15 +66,15 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]"
# gain 1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ midiOff "^42" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^42" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
$ "[snare:30]"
# lpf 2800
......@@ -88,33 +88,33 @@ d3 $ gF1 $ gM2
# room 0.2 # dry 1.3
# gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^57" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^89" (ply 2)
$ midiOn "^44" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^76" (ply 2)
-- $ note ("d3" + scale "mixolydian" ("[<0!12 3!4> <4!12 6!4>]*4")) -- ORIGINAL.
$ note ("d3" + scale "mixolydian" ( -- NICE VARIATIONS
"[0 4 <0 [0 <5 6>] 0> 4 <0!3 2> 4 <0 2> 4]" + "<0!3 [4 6]*2!1>")
)
# "bassWarsaw"
-- # "bass3:3" |+ note 24
# octersubbus 41 (range 0 2.5 "^33")
# crushbus 42 (range 16 2.5 "^53")
# roombus 43 (range 0 0.5 "^33")
# octersubbus 41 (range 0 2.5 "^32")
# crushbus 42 (range 16 2.5 "^52")
# roombus 43 (range 0 0.5 "^32")
# gain 1.3
# pan 0.3
# cut 4
d5 $ gF3 $ gM3
$ midiOn "^90" (ply 2)
$ midiOn "^89" (ply 2)
$ slow 16 $ chop 16
$ "airports" # cut 5
# pan 0.3
# delaybus 51 (range 0 0.8 "^54")
# delaytime "^34"
# delaybus 51 (range 0 0.8 "^33")
# delaytime "^53"
# room 0.4 # sz 0.8 # dry 1.1
-- # crushbus 51 (range 16 3.5 "^54")
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "<2 4 <8 [16 8]>>")
$ slow 4
$ midiOn "^55" (slow 4)
$ midiOn "^35" (slow 4)
$ slice 16 (run 6)
$ chop 16
$ "airports" # cut 5 # speed 0.5
......@@ -122,7 +122,7 @@ d7 $ gF3 $ gM3
# room 0.4
# att 0.02
# rel 2
# freezebus 71 "^55"
# freezebus 71 "^35"
# pan 0.8
d8 $ gF1 $ gM2 -- BROKEN BEAT | BREAKS STACK
$ loopAt 2 $ chop 16
......
......@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ midiOn "^41" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^41" (<| "k . ~ k ~ <~!7 k>")
$ "[techno:0,808bd:2,909,kick:4]"
# gain 0.9
d4 $ gF3 $ gMask -- La pluie d'étoiles
......@@ -22,11 +22,12 @@ d5 $ gF3 $ gMask -- La pluie d'étoiles
$ "synth_nes:0"
# pan 0.8
# cut 5
# hpfbus 51 (range 0 8000 "^34")
# hpfbus 51 (range 0 8000 "^33")
# midiG' "^82" 0 0.9
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:11"))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
......@@ -41,13 +42,15 @@ d8 $ gF $ gMask
d2 $ gF $ gM -- Snare FOU
$ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s")
$ midiOn ("^42" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^42"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# gain 0.7
d3 $ gF $ gM
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
$ midiOn "^43" (ply "1 2 1 <2 <1 4>>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>"
$ "dr:2*8"
......@@ -55,14 +58,14 @@ d3 $ gF $ gM
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gMask
$ midiOff "^57" (midiOn "^89" (ply "<4!3 [4 8]>"))
$ midiOff "^44" (midiOn "^76" (ply "<4!3 [4 8]>"))
-- $ midiOn "^57" (midiOn "^89" (slice 4 (run 8)) . chop 8)
-- $ midiOn ("^89" - "^57") (fast "2" . slice 16 ("[0 1 2 3]*<4 8>" + (slow 2 "<0 4 8 12>")))
-- $ midiOff "^57" (midiOn 1 (slice 16 (("[0 1 2 3]*<2!8 4!8>" + "<0 12 0 8>"))))
-- $ midiOff "^89" (chop 16)
$ chop 4
$ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5") -- Sad truth pattern
$ midiOn "^44" (# "bass_gameboy:5") -- Sad truth pattern
$ "bass_gameboy"
# cut 4
# gain 0.9
......@@ -83,8 +86,8 @@ d7
# roombus 71 (range 0.3 1.2 "^55") # dry 1.8 # sz 0.7
# gain 0.8
d8 $ gF $ gMask
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
......
......@@ -6,15 +6,15 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]"
# pan 0.65
# gain 1.4
......@@ -27,22 +27,23 @@ d3 $ gM2 $ gF1
d4 -- Basse convaincante
$ gM3 $ gF2
$ superimpose ((# hpf 500) .
(# crushbus 42 (range 16 4 "^53")))
(# crushbus 42 (range 16 4 "^32")))
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
$ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^33") (struct "<t [t t]>") -- FIXME
$ midiOn "^76" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^52") (struct "<t [t t]>") -- FIXME
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]") -- ???
$ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
# "bassWarsaw"
# room 0.2 # sz 0.1
# relbus 43 (range 2 0.02 "^17") # att 0.22
-- # midiG' "^81" 0 1.d
-- 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.
-- # relbus 43 (range 2 0.02 "^17") # att 0.22
-- -- # midiG' "^81" 0 1.d
# gain 1.4
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gM3 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit
$ midiOn "^57" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
)
$ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
......@@ -52,8 +53,8 @@ d5 $ gM3 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- g c ef g / gsc ef f / gs c g f / gs c f ef
$ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
# "FMRhodes1"
# modIndex (range 0 50 "^54")
# delaybus 51 (range 0 0.8 "^34")
# modIndex (range 0 50 "^33")
# delaybus 51 (range 0 0.8 "^53")
# delayt "<h>"
# delayfb 0.25
# pan 0.7
......@@ -83,8 +84,8 @@ d6 $ gF1 $ gM3 -- HAWKS
-- # midiG' "^31" 0 1.5
d7 $ gM3 $ gF3 -- CHORUS OF HCs
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
$ midiOn "^59" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^91" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
$ (0.125 ~>)
......@@ -93,8 +94,8 @@ d7 $ gM3 $ gF3 -- CHORUS OF HCs
)
# "808hc:2"
# pan 0.85
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# octerbus 71 (range 0 0.5 "^35")
# octersubbus 72 (range 0 1.4 "^35")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 $ gM3-- Pads atmospheriques
......
......@@ -3,12 +3,12 @@ setcps (90/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gM1 $ gF1
$ midiOn "^42" (fast 1 . (<| "k k k <k [k*2 <k [~ k]>]>"))
$ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)")
$ midiOn "^41" (fast 1 . (<| "k k k <k [k*2 <k [~ k]>]>"))
$ midiOff "^41" (<| "k . k(<3 [3 <5 4 5 8>]>,8)")
$ "[jazz, kick:5,808bd:2]"
# gain 0.8
d2 $ gM $ gF1
$ midiOff "^43" (mask "f t")
$ midiOff "^42" (mask "f t")
$ fix (# lpf 200) "snare:15"
$ "~ s [~!3 <~!3 s ~ s ~ s>] s*<1!7 2>"
# note "0 0 -2 0"
......@@ -16,7 +16,9 @@ d2 $ gM $ gF1
# gain 0.9
d3 $ gM $ gF1
$ rarely (off "[s|e]" (|* gain 0.93))
$ midiOn "^76" (mask "t(<24 32 32 24>,32)" . ply "1 2 1 2")
$ midiOn "^43" (mask "t(<24 32 32 24>,32)" . ply "1 2 1 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" (ply 2)
$ "d*8"
# note "8"
......@@ -27,7 +29,7 @@ d3 $ gM $ gF1
d4 $ gM3 $ gF2 -- Can I?
$ slow 2
$ note ("<[a3@3 ~ ~ ~ ~ <c4 g3>] [e3@3 ~ ~ ~ ~ g3]>" + "[0,12]" - 12)
# modIndex (range 0 4 "^53")
# modIndex (range 0 4 "^32")
# "FMRhodes2"
# delay "<0.5!3 0>"
# delayt 0.5
......@@ -35,7 +37,7 @@ d4 $ gM3 $ gF2 -- Can I?
# room 0.2 # dry 1.1 # sz 0.8
# gain 1.2 # cut 4
d5 $ gF3 $ gM3 -- BURNING IT
$ midiOn "^58" (# freeze 0.5)
$ midiOn "^57" (# freeze 0.5)
$ whenmod 32 24 (off 0.25 ( -- Final angels
mask "t(<4 8>,16,1)"
. (|+ note 12)
......@@ -57,9 +59,9 @@ d5 $ gF3 $ gM3 -- BURNING IT
# "giorgio_syn:5"
# cut 5
# pan (slow 32 $ range 0.8 0.6 saw)
# distortbus 53 (range 0 2 "^54")
# distortbus 53 (range 0 2 "^33")
# room 0.5 # sz (slow 16 $ range 0.4 0.8 saw)
# delaybus 54 (range 0 2 "^34")
# delaybus 54 (range 0 2 "^53")
# delayt 0.25
# delayfb 0.8
# gain 0.6
......@@ -90,7 +92,7 @@ d7 $ gF2 -- Mono Maniaque
# room 0.3 # sz 0.9 # dry 2
# gain 0.65
# pan 0.7
# crushbus 71 (range 14 2.5 "^55")
# crushbus 71 (range 14 2.5 "^35")
d9 $ gF3 $ n "<64!3 65>/4"
# "90s_megafx:64"
# cut 9
......
......@@ -4,13 +4,13 @@ resetCycles
do
setcps (117/60/4)
d1 $ gM1 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k k k <k!3 [<~ k> k]>")
$ midiOn "^41" (<| "k k k <k!3 [<~ k> k]>")
$ "[hardkick_rha:60,jazz]"
-- # bandf 200
# lpf 1300
d2 $ gM2 $ gF1 -- Snare glitch+perc
$ midiOn "^43" (struct "~ t ~ t*<1!3 2>")
$ midiOff "^43" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ t*<1!3 2>")
$ midiOff "^42" (struct "~ t")
$ fix (whenmod 4 3 (ply "4 [4 <1 2>]") . (|* gain 0.8) . (# rel 0.1)) "clap"
$ fix ((# n 2) . (# pan 0.2) . (# note "-24")) "glitch"
$ "glitch"
......@@ -18,8 +18,10 @@ d2 $ gM2 $ gF1 -- Snare glitch+perc
# end 0.35
# pan 0.8
d3 $ gM2 $ gF1 -- Hats reguliers mais varies
-- 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)
$ midiOn "^76" (struct "t(3,8). t(5,8)")
$ midiOn "^43" (struct "t(3,8). t(5,8)")
$ someCyclesBy "<1!8 0!56>" (mask "f . t f")
$ "~ h ~ h ~ h*<1!7 2> ~ h"
# drumFrom "rolandtr909" "hh:2"
......@@ -40,35 +42,36 @@ d8 $ gM2 $ gF1
# cut 8
d4 $ gM3 $ gF2 -- MATRIX BASS
$ slow 2
$ midiOn "^57" (# freeze 0.1)
$ midiOn "^89" (slice 8 "0*[8 16]")
$ midiOn "^44" (# freeze 0.1)
$ midiOn "^76" (slice 8 "0*[8 16]")
$ note "<[f@3 <cs!3 [cs ds]>] c>"
# "90s_matrix:0"
# cut 4
# tremoloratebus 41 (range 0 (slow 4 "<2 4 8 16>") "^53")
# tremolodepthbus 42 (range 0 0.9 "^53")
# combbus 43 (range 0 0.5 "^17")
# ampbus 44 (range 1 1.25 "^17")
# distortbus 45 (range 0 0.5 "^33")
# tremoloratebus 41 (range 0 (slow 4 "<2 4 8 16>") "^32")
# tremolodepthbus 42 (range 0 0.9 "^32")
# combbus 43 (range 0 0.5 "^52")
# ampbus 44 (range 1 1.25 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # distortbus 45 (range 0 0.5 "^33")
# pan "<0.8!32 0.2!32>"
# gain 0.8
d5 $ gM3 $ gF2 -- ACID bassline
$ midiOn "^90" ( -- Echoes of future FIXME SUPERPOSITION NOT REPLACE
$ midiOn "^89" ( -- Echoes of future FIXME SUPERPOSITION NOT REPLACE
superimpose ((# cut 51) . superimpose ((# cut 52) . (|+ note 12))
. (|+ note "[12,<~!8 24!8>]")
. (|* gain 0.9) . (# room 0.2) . (# sz 0.9)) . (# cut 51))
$ midiOn "^58" (# freezebus 51 0.1)
$ midiOn "^57" (# freezebus 51 0.1)
$ note ( "f@2 f <gs!2 gf!2>@2 <gs!2 g!2> <g!2 gs <gs gs5>>@2"
- 12
)
# distortbus 52 (range 0 2.5 "^54")
# distortbus 52 (range 0 2.5 "^33")
# "90s_matrix:4"
# pan "<0.2!32 0.8!32>"
-- # octave 3
# cut 5
-- # midiG' "^82" 0 1.9
d7 $ gF3 $ gM3
$ midiOn "^91" (|- note "c'maj'2")
$ midiOn "^59" (|- note "c'maj'2")
$ note (
(slow 8 $ "<[<f4 as5>]!2 [<ef3!2 [ef4!3 f4] f4>]!2>")
+ "0([3 <3!3 5>],8) . 0(<3!7 [3 5]>,8)"
......@@ -76,8 +79,8 @@ d7 $ gF3 $ gM3
# "superfork"
# room (slow 16 $ range 0 0.2 saw)
# delay (slow 32 $ range 0 0.5 saw)
# octersubbus 71 (range 0 2 "^55")
# octersubsubbus 72 (range 0 2 "^55")
# octersubbus 71 (range 0 2 "^35")
# octersubsubbus 72 (range 0 2 "^35")
# pan (slow 16 $ (saw + 0.2 * perlin))
-- c bf g
d10 -- RISE!
......
......@@ -3,21 +3,23 @@ resetCycles
do
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 1 1 2>")
$ midiOff "^42" ((<| "<k(3,8) [k k k k ~]>") . superimpose (# "kick:5"))
$ midiOn "^41" (<| "k k k k*<1 1 1 2>")
$ midiOff "^41" ((<| "<k(3,8) [k k k k ~]>") . superimpose (# "kick:5"))
$ "[jazz,house]"
# gain 1.2
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[rampleM1:10]"
# gain 1.2
# pan 0.6
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[rampleS57:2]"
......@@ -27,21 +29,22 @@ d3 $ gF1 $ gM2 -- Highest hats
# pan 0.3
d4 $ gF2 $ gM3 -- LOOP Bass Jazzy Electrique
$ loopAt 2
$ midiOn "^33" (chop 2)
$ midiOn "^89" (chop 8)
$ midiOn "^57" (slice 4 "4 3 2 1")
$ midiOn "^32" (chop 2)
$ midiOn "^76" (chop 8)
$ midiOn "^44" (slice 4 "4 3 2 1")
$ chop 8
$ "nujazz_bass120:18"
# crushbus 41 (range 16 4.5 "^53")
# crushbus 41 (range 16 4.5 "^52")
# room 0.3
# cut 4
# octerbus 42 (range 0 0.9 "^17")
-- # octersub 0.5
-- 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 42 (range 0 0.9 "^17")
-- -- # octersub 0.5
d5 $ gF1 $ gM3
$ n "<10 10 11 10 10 12 11 12 11 12 12 11 11 12 12 13>"
# "nujazz_guitar120" # cut 5
# crushbus 51 (range 16 4.5 "^54")
# hpfbus 51 (range 10 1500 "^54")
# crushbus 51 (range 16 4.5 "^33")
# hpfbus 51 (range 10 1500 "^33")
# att 0.05
# rel 2
d7 $ gF1-- Comeon!
......@@ -55,8 +58,8 @@ d7 $ gF1-- Comeon!
# rel 2
# cut 7 # gain 1.4
d8 $ gF1 $ gM2 -- BREAK THIS FLOOR
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ midiOn "^92" (slice 8 $ run 16)
$ midiOn "^60" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:6"))
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45")) -- ORLEANAISE
......
......@@ -7,28 +7,30 @@ setcps (93/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k . ~ <~!2 k!2> ~ <~!3 k*<1 2>>")
$ midiOff "^41" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^41" (<| "k . ~ <~!2 k!2> ~ <~!3 k*<1 2>>")
$ "[808bd:4,jazz]"
# lpf 400
# gain 1.2
-- # gain 1.4
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ . s*<1!4 2!3 [4 2]> ~")
$ midiOff "^42" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^42" (<| "~ . s*<1!4 2!3 [4 2]> ~")
$ "[rampleM12:3]"
# gain 1.2
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^76" (ply 4)
$ note "<f3 c3 cs3 f3>"
# crushbus 41 (range 16 3 "^53")
# octerbus 42 (range 0 0.93 "^33")
# octersubbus 43 (range 0 1.93 "^33")
# crushbus 41 (range 16 3 "^32")
# octerbus 42 (range 0 0.93 "^52")
# octersubbus 43 (range 0 1.93 "^52")
# "bassWarsaw"
# pan 0.4
# room 0.3
......@@ -39,8 +41,8 @@ d5 $ gF3 $ gM3
# "superfork"
# room 0.3
# pan "0.2 0.8 0.8 0.2"
# octersubbus 52 (range 0 16 "^54")
# crushbus 51 (range 16 2 "^54")
# octersubbus 52 (range 0 16 "^33")
# crushbus 51 (range 16 2 "^33")
d7 $ gF3 $ gM3
$ midiOn "^59" (struct "t*[8 . <8!3 16>]")
$ midiOff "^59" (struct "<[t(3,8)]!3 [t(3,8) . t(3,8)]>")
......@@ -48,9 +50,10 @@ d7 $ gF3 $ gM3
"<[f4@3 g4 . gs4 as4 c5@2] [f5@3 f5 . ef5 df5 c5] [bf4@3 bf4 gs4 g4 f4] f4>"
+"[0,12]" )
# "pluck"
# delaybus 71 "^55"
# delaytbus 72 (range "s" ("h"+"q") "^35")
# delayfbbus 73 "^19"
# delaybus 71 "^35"
# delaytbus 72 (range "s" ("h"+"q") "^55")
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^19 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.
-- # delayfbbus 73 "^19"
# room 0.3 # pan 0.66
d8 $ gF1 $ gM2
$ chop 8
......
......@@ -24,8 +24,8 @@ do
setcps (90/60/4)
d1 $ gF1 $ gM1
$ fix (# n 0) "jazz"
$ midiOff "^42" (>| n "0 . ~ [~ <~!2 0!2>]")
$ midiOn "^42" (>| n "0 0 0 0*<1 2 1 4 1 2 2 1>")
$ midiOff "^41" (>| n "0 . ~ [~ <~!2 0!2>]")
$ midiOn "^41" (>| n "0 0 0 0*<1 2 1 4 1 2 2 1>")
$ "[rampleK1,jazz]"
# gain 1.8
d2 $ gF1 $ gM2
......@@ -35,16 +35,16 @@ d2 $ gF1 $ gM2
-- # lpf 2000
# gain 1.4
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
$ "~ h ~ h ~ h ~ h*<1 2>"
# "h2ogmhh:3"
# gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*<<8 [8 4]!2 8> <4 [4 16]>>")
$ midiOn "^44" (struct "t*<<8 [8 4]!2 8> <4 [4 16]>>")
$ note "<<<g3!4 e2!4> [<g3!4 e2!4>@7 bf2]> b2>"
# "bassWarsaw"
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 1.5 "^53")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 1.5 "^32")
# room 0.4
# lpf 1500
# gain 1.6
......@@ -54,7 +54,7 @@ d5 $ gF3 $ gM3 -- Synth Marimba
$ note "[<e4!3 a3>@3 <~ g3!7>]"
# "giorgio_syn:38"
# room 0.4 # sz 0.8
# octersubbus 51 (range 0 2.85 "^54")
# octersubbus 51 (range 0 2.85 "^33")
# att 0.05
# rel 2
d9
......@@ -74,7 +74,7 @@ d7 $ gF3 $ gM3
# gain 1.7
# roombus 71 (range 0.0 0.8 saw)
# panbus 72 (slow 4 $ range 0.2 0.8 (sine + (slow 4 $ sine)))
# tremrbus 51 (range 0 8 "^55")
# tremrbus 51 (range 0 8 "^35")
# tremdp 0.8
-- # tremoloratebus 71 (range 0 2 "^55")
d8 $ gF1 $ gM2
......
......@@ -2,21 +2,21 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k <k k*2 k [<~!3 k*2> k*<1 2>]>"))
$ midiOff "^42" (<| "k ~ . ~ k ~ <~!3 <k k*2>>")
$ midiOn "^41" (fast 2 . (<| "k k k <k k*2 k [<~!3 k*2> k*<1 2>]>"))
$ midiOff "^41" (<| "k ~ . ~ k ~ <~!3 <k k*2>>")
$ "[jazz,808bd:3]"
# gain 1.8
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s ~ s ~ <s? s*2>")
$ midiOff "^43" (<| "<[~ s]!12 [~ s ~ [s*<1 2> ~]]!4>")
$ midiOn "^42" (<| "~ s ~ s ~ s ~ <s? s*2>")
$ midiOff "^42" (<| "<[~ s]!12 [~ s ~ [s*<1 2> ~]]!4>")
$ "snare:21" # gain 1.3
d3 $ gF1 $ gM2
$ "dr*[8 8 8 <4 12 12 [<12 32> 16]>]"
# gain 1.2
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^76" (ply 8)
$ (|- note 24)
$ midiOn "^58" ((|> note "<d b a b>") . (|* gain 0.8))
$ midiOn "^44" ((|> note "<d b a b>") . (|* gain 0.8))
$ note (
"<g e a d>"
+ "[0,7] . 12 0"
......@@ -30,7 +30,7 @@ d4 $ gF2 $ gM3
-- # sz 0.3 # dry 1.2
# gain 1.2
d5 $ gF3 $ gM3
$ midiOn "^58" ((|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>"). (|* gain 0.8))
$ midiOn "^57" ((|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>"). (|* gain 0.8))
$ note (
(
-- arp "up" $
......@@ -39,7 +39,7 @@ d5 $ gF3 $ gM3
)
)
# "FMRhodes2"
# modIndex (range 0 32 "^54")
# modIndex (range 0 32 "^33")
# legato 1
# room 0.2
# gain 1.1
......
......@@ -4,8 +4,8 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
setcps (93/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k(<1 [3 1] 3 [3 8]>,8)")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k k k k(<1 [3 1] 3 [3 8]>,8)")
$ midiOff "^41" (<| "k . k(3,8)")
$ "jazz"
# gain 1.4
# lpf 4000
......@@ -14,11 +14,11 @@ d2 $ gF1 $ gM2
# "vec1_snare:33"
d3 $ gF1 $ gM2 $ fast "1 [1|2]!6 [2|2|4|2]*4" $ "hh*16" # "h2ogmhh"
# gain "1 [1|0.9|0.93|0.97]!14 1"
d4 $ gF2 $ gM3 $ midiOn "^89" (ply 8)
d4 $ gF2 $ gM3 $ midiOn "^76" (ply 8)
$ slice 4 "<0 1 2 3>" $ "noir_bass:5" # cut 4
# room 0.4 # sz 0.4 # dry 1.1
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
d7 $ gM3 $ gF3
$ midiOn "^91" (ply 4)
$ midiOn "^35" ((# n "<1 ~>") . (# end "<0.4!3 <0.8 1>>")) -- PUTAINN!!
......@@ -33,9 +33,9 @@ d7 $ gM3 $ gF3
# pan 0.3
d5 $ gM3 $ gM3
$ (0.5 ~>)
$ midiOn ("^58" - "^34") (>| n "<6 5 6 6*2 10 ~ 11 ~ 12 ~ ~ ~ 12 ~ 13 13>")
$ midiOn "^34" ((>| n "<15 16>") . (# end "<1!4 0.45 0.5 0.45 0.5>"))
$ midiOff "^58" (slow 2 . (>| n "<2 0 1 ~ 2 1 3 ~>"))
$ midiOn ("^57" - "^33") (>| n "<6 5 6 6*2 10 ~ 11 ~ 12 ~ ~ ~ 12 ~ 13 13>")
$ midiOn "^33" ((>| n "<15 16>") . (# end "<1!4 0.45 0.5 0.45 0.5>"))
$ midiOff "^57" (slow 2 . (>| n "<2 0 1 ~ 2 1 3 ~>"))
$ "sarko"
# pan 0.8
# cut 5
......@@ -43,7 +43,7 @@ d5 $ gM3 $ gM3
d8 $ gF1 $ gM2
$ chop 8
$ loopAt 2
$ midiOn "^56" (# n 45)
$ midiOn "^36" (# n 45)
$ "jungle_breaks:40"
# cut 8
d12 $ gF3 $ gM3
......
......@@ -4,21 +4,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gM1 $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k <k*2 [k*2 k]>>")
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ midiOn "^41" (<| "k k k <k <k*2 [k*2 k]>>")
$ midiOff "^41" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[kick:5,808bd:4,kick:4]"
# gain 1.2
d2 $ gM
$ gF
$ midiOn "^43" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" )
$ midiOff "^43" (<| "~ <c!7 ~>" )
$ midiOn "^42" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" )
$ midiOff "^42" (<| "~ <c!7 ~>" )
$ "clap:2"
# lpf 2000
# note "-2"
# room (slow 8 $ range 0.2 0.6 saw) # dry 1
# gain 1.3
d3 $ gF $ gM
$ midiOn "^76" (ply "2 4")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 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 d3's own control with gSel.
$ midiOn "^43" (ply "2 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" (off (0.5- 0.125) id)
$ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>"
# "hh"
......@@ -27,34 +30,37 @@ d3 $ gF $ gM
# room 0.3
# dry 1.1
d4 $ gM3 $ gF2 -- Malediction acide
$ someCyclesBy (1 - "^17") (mask "t(3, 8)" . chop 8)
$ midiOn "^89" (chop "<8!3 16>")
$ midiOn "^57" (jux ((# cut 41) . rev))
$ someCyclesBy (1 - "^32") (mask "t(3, 8)" . chop 8)
$ midiOn "^76" (chop "<8!3 16>")
$ midiOn "^44" (jux ((# cut 41) . rev))
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^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 d4's own control with gSel.
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^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 d4's own control with gSel.
$ midiOff "^41" (
whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93)))
)
$ chop 8
$ loopAt 8
$ "synth_commodore" # n "1"
# crushbus 41 (range 16 2.25 "^53")
# roombus 43 (range 0 0.5 "^33")
# crushbus 41 (range 16 2.25 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # roombus 43 (range 0 0.5 "^33")
# cut 4
# gain 1.2
# panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw))
-- # pan 0.8
d5 $ gF3 -- Piano solo lover sunset
$ midiOn "^58" (-- Sunset echoes
$ midiOn "^57" (-- Sunset echoes
off 0.5 ((someCyclesBy 0.1 (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6))))
. mask "<t [f t]> t(3,8)"
)
. (|+ note 12) . (|+ pan 0.1) . (|* gain 0.8))
$ midiOff ("^58" + "^90") (mask "t f")
$ midiOff ("^57" + "^89") (mask "t f")
$ note (arp "up" ("<g <g6 df6>>" + "{0,[0 7]([3 5],8)}")
+ "[0,12]"
- 36)
# "FMRhodes1"
# crushbus 41 (range 16 2.25 "^54")
# modIndex (range 0 16 "^34")
# crushbus 41 (range 16 2.25 "^33")
# modIndex (range 0 16 "^53")
# room 0.4
d7 $ gF2 -- Nice organs you got there
$ slice 8 "[5(3,8) <6 6 3 <2 7>>]"
......@@ -65,8 +71,8 @@ d7 $ gF2 -- Nice organs you got there
# gain 1.4
# pan (slow 16 $ range 0.5 0.2 saw)
d8 $ gF $ gM
$ midiOn "^60" (loopAt 4 . (|* gain 0.9) . (# "drums_nes:7"))
$ midiOn "^92" (ply 2)
$ midiOn "^92" (loopAt 4 . (|* gain 0.9) . (# "drums_nes:7"))
$ midiOn "^60" (ply 2)
$ slice 4 "0 1 2 3 0*<1 1 2 1> 1 2 3*<1!4 2 2 2 [4 1]>"
$ striate "1 <1 <2 [0 1]>>"
$ loopAt 1
......@@ -86,7 +92,11 @@ d9 $ never (# silence)
# sz 0.3
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 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 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). ^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 d2's own control with gSel.
$ midiOn "^44" (fast "1 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 "^76" -- L'Esprit de Nassim
(
whenmod 8 7 (ply "1 . 2") .
......@@ -107,24 +117,24 @@ d3 $ gF -- Un peu d'encouragement?
# midiG' "^79" 0 2
-- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts
$ midiOn "^44" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>")
. (chop "8 . <8!3 16>") . (# cut 41)))
$ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]"))
$ midiOn "^76" (chop (slow 4 $ "[16 32 64 128]"))
$ "synth/4"
# "90s_synatm:9"
# crushbus 41 (range 10 2.5 "^53")
# crushbus 41 (range 10 2.5 "^52")
# room 0.3
# sz "<0.4!7 0.8>"
# dry 1
# cut 4
# midiG' "^81" 0 1.6
d5 $ gM $ gF2 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ midiOn "^57" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54")
# crushbus 51 (range 16 2.5 "^33")
# midiG' "^82" 0 1.1
d10 -- Ready playerm two
$ mask "<f!3 t f!3 t f!3 t t!4>"
......
......@@ -8,8 +8,8 @@ d1 $ gF1 $ gM1 -- Kick FIXME PLUS PUISSANT!!1!
-- $ superimpose ((# crush 5) . (# lpf 2000) . (# gain 2))
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" ((<| "k k k <k!7 [<k ~> k]>"))
$ midiOff "^42" (
$ midiOn "^41" ((<| "k k k <k!7 [<k ~> k]>"))
$ midiOff "^41" (
-- (<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~")
(<| "k . ~ k ~ <~ k>")
)
......@@ -18,13 +18,15 @@ d1 $ gF1 $ gM1 -- Kick FIXME PLUS PUISSANT!!1!
-- $ "[rampleA0:3,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1 1 2 <1 4>>")
$ midiOff "^43" (<| "~ s ~ s*<1 2 <1 2> 1>")
$ midiOn "^42" (<| "~ s ~ s*<1 1 2 <1 4>>")
$ midiOff "^42" (<| "~ s ~ s*<1 2 <1 2> 1>")
$ "[rampleA0:11,rampleA2:11]" -- Basic snare
# note "-5"
# gain 0.9
d3 $ gF1 $ gM2 -- Contretemps
$ midiOn "^76" (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). ^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)
$ "~ h ~ h ~ h ~ h*<1 2 2 <1 2>>"
-- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>"
......@@ -33,10 +35,10 @@ d3 $ gF1 $ gM2 -- Contretemps
# gain 1.3
d4 $ gO $ gF2 $ gM3 -- SUBSUB INFRABASS
$ superimpose (
# crushbus 41 (range 12 2 "^53")
# crushbus 41 (range 12 2 "^32")
)
$ midiOn "^57" (struct "t*8 t(<3!3 5>,8)")
$ midiOn "^89" (stut 4 0.9 "e")
$ midiOn "^44" (struct "t*8 t(<3!3 5>,8)")
$ midiOn "^76" (stut 4 0.9 "e")
-- $ juxBy 0.8 (
-- (# crushbus 41 (slow 16 $ range 12 2.5 saw))
-- . (# lpfbus 41 (slow 16 $ range 10000 2000 saw))
......@@ -45,7 +47,7 @@ d4 $ gO $ gF2 $ gM3 -- SUBSUB INFRABASS
# "jungbass:3"
# cut 4
# att 0.1 # rel 1
# octersubsubbus 42 (range 0 1.2 "^33")
# octersubsubbus 42 (range 0 1.2 "^52")
# gain 1.8
# pan 0.3
d5
......@@ -54,7 +56,7 @@ d5
$ note "<fs3 [fs3@7 b3] [fs3@7 g3] [fs3@5 g3 fs3 d2] [b2@7 d2] [b2@7 d2] [b2@7 gs2] [b2 . b2 d3 <fs3 g3>]>"
# "giorgio_syn:0"
# pan 0.351
# lpfbus 52 (range 400 2000 "^54")
# lpfbus 52 (range 400 2000 "^33")
# cut 5
# gain 1.5
# pan 0.7
......
......@@ -25,6 +25,8 @@ d1
$ whenmod 4 2 (off (-1/"<8 16>") (
degradeBy "0 1!7" . (|* gain 0.9))
)
-- 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 ~ ~")
$ midiNo "^41" "^42" (
someCyclesBy "<0!8 1!8>" (<| "k . k(<5 <3 [3 <8 [8!3 4]>]>>,8)")
......@@ -36,8 +38,8 @@ d1
d2
$ g1
$ midiOn "^75" (ply 2)
$ midiOn "^43" (slice 4 "0 1*<1 1 2 4>")
$ midiOff "^43" (
$ midiOn "^42" (slice 4 "0 1*<1 1 2 4>")
$ midiOff "^42" (
slice 4 (
"0 1*[1|2] 2 3*<1 1 2 <2 4>>" -- Progressif
-- "0 <~ 0 1 ~> <0 0 2 2> <~ 0 2 3>" -- Broken
......@@ -48,9 +50,9 @@ d2
# pan 0.6
# cut 2
d3 -- Bassline
$ (# lpf (range 10000 500 "^53"))
$ (# lpf (range 10000 500 "^31"))
$ g1
$ midiOn "^89" (off "h" (
$ midiOn "^43" (off "h" (
mask "t(<8 16> ,16)"
. ply 2
. (# cut 31)
......@@ -58,6 +60,8 @@ d3 -- Bassline
. (|+ gain 0.1)
))
$ loopAt 2
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^57 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^57 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). ^57 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^57 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 "^57" ( -- Le slice
whenmod 16 4 (
slice 4 "0 1 2*2 <0 3>"
......@@ -70,13 +74,13 @@ d3 -- Bassline
)
$ "fbass:9"
# cut 3
# crushbus 31 (range 16 4 "^53")
# crushbus 31 (range 16 4 "^31")
# pan 0.2
# midiG' ("^81" + 0.125*"^53") 0 1.8
# midiG' ("^81" + 0.125*"^31") 0 1.8
d5 $ g2 -- Piano base
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
(0.5 ~>)
. degradeBy (1 - "^54")
. degradeBy (1 - "^33")
. fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
. (|+ note 12)
. (|* gain 1.2)
......@@ -99,8 +103,8 @@ d4 -- Skank organ
-- $ segment 8 $ "fmono:9"
-- # midiG' "^55" 0.2 1.2
-- # cut 42)
$ midiOn "^59" (superimpose ( -- MAD ARPS
degradeBy ("0 1!14 0" * (slow 16 $ (1-"^55")))
$ midiOn "^76" (superimpose ( -- MAD ARPS
degradeBy ("0 1!14 0" * (slow 16 $ (1-"^32")))
. struct "t*16"
. (|+ note (12 + "[0|5]"))
. (|* gain (slow 16 $ range 0.85 0.65 sine))
......@@ -111,13 +115,13 @@ d4 -- Skank organ
# orbit 4
# pan 0.45
# room 0.7 # sz 0.8
# crushbus 41 (range 16 4 "^55")
# crushbus 41 (range 16 4 "^32")
# midiG' "^83" 0.2 1
d8 -- Tom roll
$ g2
$ midiOn "^76" (fast 2)
$ midiOn "^44" (<| "~ h ~ h")
$ midiOff "^44" (<| "h(<4 5 8 [8 16]>,8)")
$ midiOn "^92" (fast 2)
$ midiOn "^60" (<| "~ h ~ h")
$ midiOff "^60" (<| "h(<4 5 8 [8 16]>,8)")
-- $ someCyclesBy (slow 8 $ saw) (juxBy 0.3 rev)
$ whenmod 16 8 (ply "2 1")
$ "hh27:2"
......
......@@ -5,7 +5,8 @@ setcps (90/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g1
$ 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!3 [<k ~> k*<1 2>]>")
$ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)")
$ "[jazz,909]"
......@@ -15,35 +16,38 @@ d2
$ "~ snare:5"
# midiG' "^79" 0 1.5
d3 $ g1
$ midiOn "^76" (fast "2 <2!3 <[2 4]>>")
$ midiOn "^43" (fast "2 <2!3 <[2 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")
$ chop 16
$ loopAt 1
$ "noir_beats:6"
# speed (range 0 2 "^52")
# speed (range 0 2 "^31")
# midiG' "^80" 0 1.5
# cut 1
d4 $ g2-- CHOIR BASS
$ midiOff "^57" (mask "t(<4 <2 8>>,8)")
$ midiOff "^44" (mask "t(<4 <2 8>>,8)")
$ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>")
$ "noir_choir:7"
# lesliebus 41 "^33"
# lesliebus 41 "^32"
# lrate 1
# lsize (range 0.17 6.7 "^17")
# lsize (range 0.17 6.7 "^52")
-- # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
-- # lpf 5000
-- # lsizebus 42 (range 1.9 6.7 "^33")
# cut 4
# crushbus 42 (range 14 0.85 "^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 42 (range 14 0.85 "^53")
# midiG' "^81" 0 1.5
# room 0.3
-- d4 $ -- Noir Bass!
d5 $ g2
$ midiOn "^90" (chop 16 . mask "<t f!3>")
$ midiOn "^57" (chop 16 . mask "<t f!3>")
$ "noir_angels:1"
# legato 4
# cut 5
# crushbus 51 (range 14 2 "^54")
# crushbus 51 (range 14 2 "^33")
# midiG' "^82" 0 1.8
# cut 1
d6 $ g2
......@@ -51,7 +55,7 @@ d6 $ g2
$ slice 4 (run 8)
$ "fguitar"
# n "<12!32 13!16 12!16>"
# crushbus 61 (range 14 2 "^55")
# crushbus 61 (range 14 2 "^34")
# cut 6
# midiG' "^83" 0 1
......
......@@ -8,6 +8,8 @@ d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
$ fix (|* gain 0.8) "kick"
$ fix (|* gain 0.8) "bskick"
$ midiOn "^41" (<| "k k k k k k k*<1!7 2> [<k <~ k>> k]")
-- 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] <[k*2 k] [k*4]>>")
$ midiOff "^42" (<| "bd*[4 <6!3 [6 12]>]")
$ "[808bd:11,bskick:0,jazz]" -- 11
......@@ -16,12 +18,14 @@ d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
# dry 0.99
d2 $ gLPF $ gF
$ midiOn "^75" (struct "[~ t]*[4 <4 8>]")
$ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
$ midiOff ("^43" + "^75") (struct "~ t")
$ midiOn ("^42" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
$ midiOff ("^42" + "^75") (struct "~ t")
$ "[bssnare:0,bssnare:3]"
# midiG' "^79" 0 1.2
d3 $ gLPF $ gF $ gM2
$ midiOn "^76" (ply "<2!3 4>")
$ midiOn "^43" (ply "<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" (chop 4 . loopAt 2 . (>| "jungle_breaks:44"))
$ whenmod 8 4 (ply "1 2")
$ "h(<8!4 16>, 16)"
......@@ -38,7 +42,7 @@ d8 $ gF3
# sz 0.2 # dry 1.13
# midiG' "^80" 0 1
d4 $ gLPFSoft $ gF2 -- Guitar sample turned bassline
$ midiOn "^57" ( -- ELECTRIC
$ midiOn "^44" ( -- ELECTRIC
whenmod 4 3 ((# crushbus 41 (range 5 3.5 saw)))
)
$ ply "1 <1 2>"
......@@ -53,16 +57,16 @@ d4 $ gLPFSoft $ gF2 -- Guitar sample turned bassline
# sz 0.9
# pan "0.7 0.3"
# midiG' "^81" 0 1
# crushbus 42 (range 16 2 "^53")
# crushbus 42 (range 16 2 "^32")
d5 $ gF2 $ gM3 -- BASS BONES
$ midiOn "^92" (ply "<8 16>")
$ midiOn "^89" (ply "<8 16>")
$ note "<ef ef {b, [~!7 fs]} fs>"
# "moog"
# cut 5
# pan 0.2
# crushbus 51 (range 16 2 "^56")
# octerbus 52 (range 0 0.63 "^36")
# octersubbus 53 (range 0 0.58 "^36")
# crushbus 51 (range 16 2 "^33")
# octerbus 52 (range 0 0.63 "^53")
# octersubbus 53 (range 0 0.58 "^53")
# midiG' "^84" 0 1.8
d6 $ gF3 $ gM3 -- High pitched guitar
$ whenmod 4 3 (someCyclesBy (slow 32 $ range 0.5 0.95 saw)
......@@ -80,5 +84,5 @@ d7 $ gF3 -- Divine
# n "4 <4 4 5 <4 3>> 5 <6 5 5 4>"
# cut 7
# pan 0.8
# crushbus 71 (range 16 3 "^55")
# crushbus 71 (range 16 3 "^35")
# midiG' "^83" 0 0.8
......@@ -44,12 +44,14 @@ do
resetCycles
setcps (110/60/4)
d1 $ gM1 $ gF1 -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k k*2 k <k [<~ k> k]>>")
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ midiOn "^41" (<| "k k k <k k*2 k <k [<~ k> k]>>")
$ midiOff "^41" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[808bd:4,kick:4]" -- FIXME DESIGN THIS KICK BETTER <3
# gain 1.5
d3 $ gM2 $ gF1 -- Break "80s' Apocalypse in a Box"
$ midiOn "^44" (fast "1 2")
$ midiOn "^43" (fast "1 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" -- L'Esprit de Nassim
(
whenmod 8 7 (ply "1 . 2") .
......@@ -65,39 +67,40 @@ d3 $ gM2 $ gF1 -- Break "80s' Apocalypse in a Box"
-- # midiG' "^80" 0 1
# pan 0.4
d2 $ gF1 $ gM2 -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
$ midiOn "^42" ((# "cp") . (|- note 2) . (# lpf 5000))
$ "~ clap"
-- # midiG' "^79" 0 2
-- # gain 0.8
d4 $ gF2 $ gM3 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts
$ midiOn "^76" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>")
. (chop "8 . <8!3 16>") . (# cut 41)))
$ midiOn "^89" ((0.125 ~>) . chop (slow 4 $ "[16 32 64 128]"))
$ midiOn "^44" ((0.125 ~>) . chop (slow 4 $ "[16 32 64 128]"))
$ "synth/4"
# "90s_synatm:9"
# crushbus 41 (range 10 2.5 "^53")
# crushbus 41 (range 10 2.5 "^32")
# room 0.3
# sz "<0.4!7 0.8>"
# dry 1
# cut 4
-- # midiG' "^81" 0 1.4
d5 $ gM3 $ gF3 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ midiOn "^57" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54")
# crushbus 51 (range 16 2.5 "^33")
-- # midiG' "^82" 0 1.1
d7 $ gF3 $ gM3 -- Jump aboard the BASIC BUS
$ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
$ midiOff "^59" (loopAt 16)
$ midiOn "^59" (loopAt 8)
$ midiOn "^59" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
$ midiOff "^91" (loopAt 16)
$ midiOn "^91" (loopAt 8)
$ chop 8
$ "synth_commodore" # n " 0"
# crushbus 61 (range 20 2.25 "^55")
# squizbus 62 (range 0 1.5 "^35")
# roombus 63 (range 0 0.5 "^19")
# crushbus 61 (range 20 2.25 "^35")
# squizbus 62 (range 0 1.5 "^55")
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^19 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.
-- # roombus 63 (range 0 0.5 "^19")
# gain 1.4
# panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 7
......@@ -128,8 +131,14 @@ d10 -- Ready playerm two
-- SANDBOX
--
d7 $ gM -- Break from the past
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^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 d7's own control with gSel.
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^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 d7's own control with gSel.
$ (# speed (range (-0.25) 2.25 "^56"))
-- FIXME(#94) d7 drives more controls than the grid gives it (BT7 + BL7). ^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 d7's own control with gSel.
-- FIXME(#94) d7 drives more controls than the grid gives it (BT7 + BL7). ^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 d7's own control with gSel.
$ midiOn "^60" (often (ply 2))
-- FIXME(#94) d7 drives more controls than the grid gives it (BT7 + BL7). ^92 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^92 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 d7's own control with gSel.
-- FIXME(#94) d7 drives more controls than the grid gives it (BT7 + BL7). ^92 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^92 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 d7's own control with gSel.
$ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2)
$ chop 16
$ loopAt 4
......
......@@ -7,8 +7,8 @@ let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gF $ gMute
$ fast 2
$ midiOn "^42" (struct "t t t t*<1!3 [2 <2 4>]>")
$ midiOff "^42" (struct "t . ~ t ~ ~")
$ midiOn "^41" (struct "t t t t*<1!3 [2 <2 4>]>")
$ midiOff "^41" (struct "t . ~ t ~ ~")
$ "[808bd:13,jazz]" -- 11
# midiG' "^78" 0 1.3
# room 0.2 # sz 0.2
......@@ -19,8 +19,8 @@ d2 $ gF $ gM
-- $ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
-- $ midiOff ("^43" - "^75") (struct "~ t")
$ whenmod 64 32 (whenmod 8 6 (mask "t . <t f> <f [f t]>"))
$ midiOn "^43" (struct "~ t ~ <t!3 ~> ~ t ~ <t [<t ~> t]>")
$ midiOff "^43" (struct "~ t ~ [t*<1!7 2> ~]")
$ midiOn "^42" (struct "~ t ~ <t!3 ~> ~ t ~ <t [<t ~> t]>")
$ midiOff "^42" (struct "~ t ~ [t*<1!7 2> ~]")
-- $ "[bssnare:0,bssnare:3]"
$ "[snare:24,<meth_snare:1!32 meth_snare:2!32>]"
# lpf 5000
......@@ -28,10 +28,14 @@ d2 $ gF $ gM
# room 0.2 # dry 0.9 # sz 0.4
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- Broken Jungle Snake
$ sometimesBy (1 - "^32") (mask "t(<1!3 [1 4]>,4) . t(<3 5>,8,<0!3 3>)")
$ sometimesBy (1 - "^31") (mask "t(<1!3 [1 4]>,4) . t(<3 5>,8,<0!3 3>)")
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 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(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 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.
$ (|* speed (range 0.5 1.5 "^52"))
$ gF $ loopAt 1 $ chop 8
$ midiOn "^44" (# n "14")
$ midiOn "^43" (# n "14")
-- 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)
$ "jungle_breaks" -- Progressive jungle :D
# n "<13!3 [13 14 13] 13!3 [13 14] 13!4 14!3 [13 <13 [14 13 14]>]>"
......@@ -39,15 +43,15 @@ d3 $ gF $ gM -- Broken Jungle Snake
# pan 0.6
# midiG' "^80" 0 1.2
d4 $ gF2 $ gM -- GENIE OF INFRABASS
$ midiOn "^89" (juxBy 0.8 (rev . (# cut 41)))
$ chop (4 + (4 * "^57"))
$ midiOn "^44" (juxBy 0.8 (rev . (# cut 41)))
$ chop (4 + (4 * "^76"))
$ "m . m*<1 <2 4>>" # "meth_genie:0"
# cut 4
# octersubbus 41 (range 0 0.81 "^53")
# octersubsubbus 42 (range 0 0.6 "^53")
# octersubbus 41 (range 0 0.81 "^32")
# octersubsubbus 42 (range 0 0.6 "^32")
# midiG' "^81" 0 1.2
d7 $ gF3
$ midiOn "^58" (juxBy 0.7 (rev . (# cut 71)))
$ midiOn "^59" (juxBy 0.7 (rev . (# cut 71)))
$ mask "t <f t>" $ chop 16
$ slice 4 "0 <1!3 2>"
$ loopAt 2
......@@ -55,8 +59,8 @@ d7 $ gF3
# cut 7
# midiG' "^82" 0 1
d8 $ gF3 -- HIGH HOPES
$ midiOn "^91" (|-| note "[0,12]")
$ midiOn "^59" (
$ midiOn "^60" (|-| note "[0,12]")
$ midiOn "^92" (
|+| note (arpeggiate "[0 12 <0!8 7!8>]([4 5 <1 4 1 <5 8>>],8)")
)
$ note ("<af5 <f5!4 c5!3 cs5>>"
......@@ -66,7 +70,7 @@ d8 $ gF3 -- HIGH HOPES
# pan 0.8
# room 0.2 # sz 0.4 # dry 1.1
# legato 2
# crushbus 61 (range 16 3.5 "^55")
# crushbus 61 (range 16 3.5 "^36")
# midiG' "^83" 0 1.5
d9 $ gF3 -- Pluie bienfaisante
$ whenmod 64 32 (superimpose (
......
......@@ -4,18 +4,20 @@ setcps (138/60/4)
-- resetCycles
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "jazz"
d2 $ gM2 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ midiOn "^42" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^42" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.2
d3 $ gF1 $ gMute
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOff "^43" (mask "t([8 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -24,16 +26,17 @@ d3 $ gF1 $ gMute
# gain 1.1
d4 $ gF2 $ gM3-- Basse Magie Noire Meta-Programmation. :sorcerer:
-- FIXME: Si les dieux d'OPAL t'inspirent, remplace moi
$ midiOn "^57" (struct "t(4,8,1)")
$ midiOn "^44" (struct "t(4,8,1)")
$ slow 4
$ midiOff "^89" (mask "t t t f")
$ midiOff "^76" (mask "t t t f")
$ note ("c3 <d3 [d3] d3 [d3@3 f3]> e3 <g3 b3 a3 c4>"
-- + "<0!8 <[<0!3 0@7> 3]!3 [0 9 12 0]>!8> <0!3 3 0 3 <3 7>> <0 12> 0"
) -- Variations majeures
# "bassWarsaw"
# crushbus 41 (range 16 5 "^53")
# octersubbus 42 (range 0 3 "^33")
# octerbus 43 (range 0 2 "^17")
# crushbus 41 (range 16 5 "^32")
# octersubbus 42 (range 0 3 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 43 (range 0 2 "^17")
# legato 2
# cut 4
# room 0.7
......@@ -59,7 +62,7 @@ d5 $ gF2 $ gM3 -- Giorgio Friendo
# room 0.8 # size 0.8
# gain 2
# pan 0.3
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
d12 $ gF3 $ gM3
-- $ midiOff "^29" (# delay 0)
$ slow 4 $ ply 2
......@@ -76,8 +79,9 @@ d7 $ gF3 $ gM3 -- Lady Perplexity
-- $ whenmod 8 7 (# silence)
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^59" (chop 4)
$ someCyclesBy "^19" (mask "t(3,8) t(<3 <5 8>>,8) t(<3 [<5 3> <3 5>]>,8) t(<3!3 5>,8)")
$ sometimesBy "^35" (juxBy 0.25 (loopAt 0.5 . (# cut 71) . (|* gain (slow 8 $ range 0.7 1 saw))))
$ someCyclesBy "^35" (mask "t(3,8) t(<3 <5 8>>,8) t(<3 [<5 3> <3 5>]>,8) t(<3!3 5>,8)")
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^55 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^55 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 d7's own control with gSel.
$ sometimesBy "^55" (juxBy 0.25 (loopAt 0.5 . (# cut 71) . (|* gain (slow 8 $ range 0.7 1 saw))))
$ sometimesBy "^55" (rev)
-- $ midiOff "^59" (chop 4)
$ chop 16
......
......@@ -4,24 +4,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- 4 SOLID wheels
$ fix ((# rel 0.15) . (# room 0.42) . (# sz 0.3)) "kick:5"
$ midiOn "^42" (whenmod 32 29 (# silence) . (<| "k k k <k <k*2 [~ k]>>"))
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ midiOn "^41" (whenmod 32 29 (# silence) . (<| "k k k <k <k*2 [~ k]>>"))
$ midiOff "^41" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[jazz,kick:5]"
-- # lpf 2000
# midiG' "^78" 0 1.4
d2 $ gF $ gMute
$ midiOn "^43" ((
$ midiOn "^42" ((
(+| note "~ 0 ~ 1")
. fix (# rel 0.15) "clap"
. fix ((# n 1) . (# rel 0.5)) "fx_commodore"
))
$ fix (|* gain 0.68) "fx_commodore"
$ midiOff "^43" (struct "~ t")
$ midiOff "^42" (struct "~ t")
$ "[fx_commodore:2,clap:2]"
# note 2
# midiG' "^79" 0 1.3
d3 $ gF $ gMask $ whenmod 4 2 (gMute) -- DRUUUUMS
$ midiOn "^44" --BOUTON NASSIM
$ midiOn "^43" --BOUTON NASSIM
(
whenmod 8 7 (ply "1 . <2!3 4>") .
slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
......@@ -29,8 +29,10 @@ d3 $ gF $ gMask $ whenmod 4 2 (gMute) -- DRUUUUMS
. (# cut 3)
. (|* gain 1.1)
)
$ midiOff ("^76"+"^44") (struct "t([12 <12 [12 16]>],16)" . slice 8 (run 16))
$ midiOff ("^76"+"^44") (slice 8 "0 3 . ~ 0 3 <~!3 3>")
-- 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.
$ midiOff ("^76"+"^43") (struct "t([12 <12 [12 16]>],16)" . slice 8 (run 16))
$ midiOff ("^76"+"^43") (slice 8 "0 3 . ~ 0 3 <~!3 3>")
$ loopAt 1
$ "break:13"
# cut 3
......@@ -40,14 +42,14 @@ d4 $ gF2 -- BURNING BASS
$ loopAt 4
$ "bass_commodore:3"
# midiG' "^81" 0 0.9
# crushbus 41 (range 16 0 "^53")
# lpfbus 42 (range 0 20000 "^33")
# crushbus 41 (range 16 0 "^32")
# lpfbus 42 (range 0 20000 "^52")
# cut 4
# pan 0.4
# room 0.4 # sz 0.8
d5 $ gF2 -- BASS Melody
$ midiOff ("^17") (mask "<t f>")
$ sometimesBy (1 - "^17") (mask "t(1,4)")
$ midiOff ("^33") (mask "<t f>")
$ sometimesBy (1 - "^33") (mask "t(1,4)")
$ mask "t(<1!8 [2!3 <4 8>]!8 [16!7 <8 16>]!16>,16)"
$ note ("<5 12 8 <7 13>>" + 0
+ (arp "updown" "<c'min'4!3 c'min'2>")
......@@ -97,4 +99,4 @@ d8 -- Lointains vaisseaux
# room (slow 16 sine)
# sz (slow 8 sine)
# speed ("[0.25,0.5,0.75,1,1.25]")
# midiG' "^20" 0 0.8
# midiG' "^36" 0 0.8
......@@ -10,8 +10,8 @@ let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]"
# midiG' "^78" 0 1.6
d3 $ g1 $ m -- Clap contretemps stable
......@@ -22,17 +22,19 @@ d3 $ g1 $ m -- Clap contretemps stable
# midiG' "^79" 0 1.0
# pan "^15"
d2 $ g1 $ m -- BREAKs divers
$ 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" (striate 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break" # n "<13!12 14!4 15!12 14!4>"
# midiG' "^80" 0 1.9
# speed (range 0 2 "^52")
# speed (range 0 2 "^30")
# cut 2
d4 $ g2 $ m -- Basse avec du repondant
$ midiOn "^57" (chop "8 1")
$ midiOn "^76" (chop "8 1")
$ superimpose ((# cut 41)
. (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
)
......@@ -43,11 +45,11 @@ d4 $ g2 $ m -- Basse avec du repondant
)
# "bassWarsaw"
# midiG' "^81" 0 1.5
# crushbus 4 (range 16 1.5 "^53")
# crushbus 4 (range 16 1.5 "^32")
# cut 4
# pan 0.2
d5 $ g2 $ m -- Rhodes piano questionnant
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
(# cut 51)
. (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
. (|* gain 0.9)
......@@ -59,6 +61,6 @@ d5 $ g2 $ m -- Rhodes piano questionnant
)
# "FMRhodes1"
# midiG' "^82" 0 2
# modIndex (range 0.1 32 "^54")
# modIndex (range 0.1 32 "^33")
# cut 5
# pan 0.8
......@@ -6,20 +6,22 @@ let gM = gMask . gMute
let maskDrum = "t(5,8) . t(9,16)"
let maskDrumI = "f(5,8) . f(9,16)"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . k(3,8)")
$ "[techno:0,808bd:2,jazz]"
# midiG' "^78" 0 1
d2 $ gF1 $ gM
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ c")
$ "cp"
# midiG' "^79" 0 1
d3 $ gF1 $ gM
$ mask "<f!8 t!24>"
$ midiOn "^44" (const -- JIUUUUUUNGLE
$ midiOn "^43" (const -- JIUUUUUUNGLE
-- 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" (# n 70)
$ sometimesBy "^52" (ply "<2 <4 [4 8]>>")
$ sometimesBy "^31" (ply "<2 <4 [4 8]>>")
$ loopAt 4
$ chop 8
$ "jungle_breaks:10"
......@@ -39,10 +41,10 @@ d4 $ gF2 -- the bassy fright
# lpf 200
# room 0.4
# sz 0.8
# midiG' ("^81" - 0.35 * "^53") 0 1.2
# distortbus 41 (range 0 1 "^53") -- FIXME: Meileur effet
# lpfbus 42 (range 4000 500 "^53")
# roombus 43 (range 0.4 0.14 "^53")
# midiG' ("^81" - 0.35 * "^32") 0 1.2
# distortbus 41 (range 0 1 "^32") -- FIXME: Meileur effet
# lpfbus 42 (range 4000 500 "^32")
# roombus 43 (range 0.4 0.14 "^32")
d5 $ gF3 -- The starry night
$ whenmod 64 32 (superimpose ( -- Star rain
(|+| note "0 12 0 <12 24>")
......@@ -69,6 +71,8 @@ d7 $ gM $ gF1
d8 $ gM $ gF1
$ midiOn "^60" (struct "t . t(<3 <5 [5 8]>>,8)")
$ midiOn "^92" (ply "<[4 2 2 4] [4 8 4]> <8 8 16 [16 32]>")
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^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 d8's own control with gSel.
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^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 d8's own control with gSel.
$ midiOn ("^59" - "^60") (mask (cat [maskDrum,maskDrum,maskDrum,maskDrumI]))
$ chop 16 $ loopAt 4
$ "break:3"
......
......@@ -15,7 +15,7 @@ let m = mBreak
setcps (60/60/4)
d1 $ g1 $ m
-- $ "k(<3!3 5>,8)"
$ midiOn "^42" (fast 2) -- Cooldown :')
$ midiOn "^41" (fast 2) -- Cooldown :')
$ fast 2 $ "k k k <k [<~ k> k]>" -- TECHNOOOO
-- $ "k . <~ [k . <k k(<3 [5 3]>,8)>]>"
# "[808bd:3,cpu2]" -- Bumpy kick
......@@ -29,18 +29,20 @@ d2 $ g1 $ m
# midiG' "^79" 0 1.4
d3 $ g2 $ m
$ mask "<t!3 [t!3 f]>"
$ midiOn "^76" (iter "4 8")
$ midiOn "^43" (iter "4 8")
-- 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 (run "<8!3 <16 32>>"))
$ loopAt 2
$ chop 8
$ "break"
# pan 0.2
# cut 3
# speed (range "0" 2 "^52")
# speed (range "0" 2 "^31")
# midiG' "^80" 0 1.1
d4 $ g2
$ whenmod 16 14 (# n "<6 ~>")
$ midiOn "^57" (striate "4 <4 2>" . chop 8)
$ midiOn "^76" (striate "4 <4 2>" . chop 8)
$ loopAt 1
$ "bossa"
# n "<0 0 0 1 0 1 <2!3 3> <1 0>>"
......@@ -53,19 +55,19 @@ d5 $ g2
- 24
)
# room 0.4 # dry 1 # sz 0.9
# modIndex (range 0 35 ("^54"))
# crushbus 5 (range 12 3.5 ("^34"))
# modIndex (range 0 35 ("^33"))
# crushbus 5 (range 12 3.5 ("^53"))
# "FMRhodes1"
# release 4
# lpf 2000
# midiG' "^82" 0 1.3
d8 $ g2 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91") (scramble 4 . fast 2)
$ midiOn "^92" (fast 2)
$ midiOn ("^60") (scramble 4 . fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[h2ogmhh:13]"
# speed (range 0.5 1.5 "^55")
# speed (range 0.5 1.5 "^36")
# midiG' "^83" 0 1.5
d9
$ g2
......
......@@ -8,20 +8,22 @@ let scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])])
-- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2
d1 $ gM1 $ gF1
-- $ midiOff "^42" (<| "k . ~ <~!8 k!56> ~ <~!6 <~ k>!54>") -- Attente
$ midiOff "^42" (<| "<k ~>") -- TRAP
$ midiOn "^42" (<| "k k k*[1 <1 <2 4>>] k*<1 2>")
$ midiOff "^41" (<| "<k ~>") -- TRAP
$ midiOn "^41" (<| "k k k*[1 <1 <2 4>>] k*<1 2>")
$ "[jazz,kick:4]"
d2 $ gM2 $ gF1
$ "~ <~!8 s!56> <s!8 ~!56> <~!8 s!56>"
# "[sn:20,snare:8]" # rel 0.4 # note "-12"
# gain 1
d3 $ gM2 $ gF1
$ midiOff "^44" (mask "[~ [t . <~!3 t> ~!3 ]]*4")
$ midiOff "^43" (mask "[~ [t . <~!3 t> ~!3 ]]*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)
$ n ("~ 0*<1 1 2 1> ~ 0*<1 2 <1 2> 2> ~ <0!32 0*<1!4 2 4!3>!32> ~ <1!16 1*<1 1 2 1 4 1 2 <4 8>>!16>")
# "amencutup"
# cut 3
# panbus 31 "^52"
# panbus 31 "^31"
|* gain (fast 8 $ range 0.9 1.1 perlin)
d6 $ gF1 $ gM3
$ someCyclesBy "<f!3 t f f t t>" (superimpose ((|- note 1) . (|* gain 0.9) . (0.125 <~)))
......@@ -31,24 +33,25 @@ d6 $ gF1 $ gM3
# lpf 2000
# gain 1.1
d4 $ gF2 $ gM3
$ midiOn "^89" (slow "<4!12 8!4>" . striate "<4!12 8!4>")
$ midiOn "^57" (slow "<1!12 [1 2]!3 [2 4]>" . mask "<t!6 [<t f> [<t f> f]] [t f]>" . (stut "<4!12 2 2 4 8>" 0.7 "<e!12 e e s s>") . mask "t(2,16)")
$ midiOn "^76" (slow "<4!12 8!4>" . striate "<4!12 8!4>")
$ midiOn "^44" (slow "<1!12 [1 2]!3 [2 4]>" . mask "<t!6 [<t f> [<t f> f]] [t f]>" . (stut "<4!12 2 2 4 8>" 0.7 "<e!12 e e s s>") . mask "t(2,16)")
-- $ midiOn "^17" (mask "t(4,16)")
$ loopAt 8
$ chop 64
$ "bass_commodore:7"
# cut 4
# crushbus 41 (range 8 0.81 "^53")
# octersubbus 42 (range 0 7 "^33")
# lesliebus 43 (range 0 2 "^29")
# crushbus 41 (range 8 0.81 "^32")
# octersubbus 42 (range 0 7 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^29 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 2 "^29")
# lsize 2.2
# lrate (slow 4 $ range 0.2 0.8 sine)
-- # distortbus 41 (range 0 5 "^53")
# gain (1.1 - 0.1 * "^33" - 0.1 * "^29")
-- # gain (1.1 - 0.1 * "^52" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3 -- Mario's 8-bit Harp
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^58" (superimpose (
$ someCyclesBy "^33" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^89" (superimpose (
(|- note 12) . (# cut 51) . (# pan 0.2))
)
$ whenmod 32 24 (off "e" ((|* gain 0.95) . (|+ pan 0.12) . (|+ note "<12!3 24>")))
......@@ -57,7 +60,7 @@ d5 $ gF3 $ gM3 -- Mario's 8-bit Harp
+ "<<0 0 2 2> <0 0 2 2> <0 7 7 9> <0 0 9 9>>"
))
# "harpsichord2"
# distortbus 51 (range 0 0.5 "^54")
# distortbus 51 (range 0 0.5 "^53")
# room 0.4 # dry 0.9 # sz 0.5
# pan 0.85
# modIndex 0.3
......
......@@ -13,6 +13,8 @@ let modIndex = pF "modIndex"
-- endregion
d1 $ f1 $ gF -- KICK
$ midiOn "^41" (<| "k*4 . k k k k*<1 2>") -- Run
-- 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" - "^41") (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
$ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
$ "[hh27:6,jazz]"
......@@ -20,24 +22,24 @@ d1 $ f1 $ gF -- KICK
# room 0.3 # sz 0.5 # dry 0.9
d2 -- Breakbeat
$ f1 $ gF
$ midiOn "^43" (fast 4 . often (scramble 2))
$ midiOn "^42" (fast 4 . often (scramble 2))
-- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]")
$ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
# cut 2
# midiG' "^79" 0 1.75
d3 $ f1 $ gF
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
$ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22"
# speed (range 0.5 1.5 "^52")
# speed (range 0.5 1.5 "^31")
# midiG' "^80" 0 2
d4 $ f1 -- Bassline
$ superimpose ( -- la caution? :)
(# crushbus 41 (range 10 4.5 "^53"))
(# crushbus 41 (range 10 4.5 "^32"))
. (# legato 4)
. mask "t f!7"
)
$ midiOn "^57" (-- + Arps aigus!
$ midiOn "^76" (-- + Arps aigus!
superimpose (
often (off "h" rev)
. (|+ note (
......@@ -55,15 +57,15 @@ d4 $ f1 -- Bassline
# pan 0.2
# midiG' "^81" 0 1.8
d5 $ f2 -- fmono
$ midiOn "^90" (chop "<8!3 [8 16]>")
$ (# lpf (range 10000 5000 "^54"))
$ midiOn "^89" (chop "<8!3 [8 16]>")
$ (# lpf (range 10000 5000 "^33"))
$ slice 8 (
"0 <1 1 0 0*2> 2 3*<1 <2 4>>" +
"<0 3>")
$ "fmono:40"
# cut 4
# crushbus 51 (range 12 1.85 "^54")
# midiG' ("^82" - 0.125 * "^54") 0 1.2
# crushbus 51 (range 12 1.85 "^33")
# midiG' ("^82" - 0.125 * "^33") 0 1.2
# room 0.3 # sz 0.8 # dry 1
d9 -- Maracas Hats
$ f1 $ gF
......@@ -91,7 +93,7 @@ d6 -- Pwm steps
+ "-24" -- Base gamme
)
# "superpwm"
# voice (range 0.01 2 "^55")
# voice (range 0.01 2 "^34")
# pan 0.8
# room 0.5
# sz 0.4
......@@ -103,9 +105,9 @@ d7 -- Arps FMRhodes1
$ note "<c4 ds4 c4 b3>/2"
# "FMRhodes1"
# pan 0.3
# modIndex (range 0 100 "^34")
# modIndex (range 0 100 "^35")
# room 0.6 # sz 0.8
# midiG' "^18" 0 1.5
# midiG' "^55" 0 1.5
d10 $ f1
$ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
$ midiOff "^92" (<| "~ c")
......
......@@ -14,8 +14,8 @@ let m = mBreak . mDegrade
d1 $ g1 $ m --
$ mask "<f!4 t!12>"
$ fix ((# cut 1). (|* gain 0.85)) ("808bd")
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,808bd:1,hh:5]"
# midiG' "^78" 0 1.7
d3 $ g1 $ m -- Snare
......@@ -28,22 +28,25 @@ d3 $ g1 $ m -- Snare
# note "<0!7 -4>"
# midiG' "^79" 0 1.4
d2 $ g1 $ 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" (striate 4)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break:11"
# hpf 500
# speed (range 0 2 "^52")
# octerbus 20 (range 0 0.5 "^32")
# octersubbus 21 (range 0 1.2 "^32")
# octersubsubbus 22 (range 0 1.2 "^32")
# speed (range 0 2 "^30")
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^32 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 d2's own control.
-- # octerbus 20 (range 0 0.5 "^32")
-- # octersubbus 21 (range 0 1.2 "^32")
-- # octersubsubbus 22 (range 0 1.2 "^32")
# midiG' "^80" 0 1.9
# cut 2
d4
$ whenmod 4 3 (off "q" id)
$ midiOn "^57" ((
$ midiOn "^44" ((
(|+| note (
arp "<up!8 converge!7 diverge>"
"c'maj'8" - "[0,12]")
......@@ -54,11 +57,11 @@ d4
$ arpeggiate
$ note "e3'maj"
# "bassWarsaw"
# crushbus 51 (range 16 4.6 "^53")
# crushbus 51 (range 16 4.6 "^32")
# midiG' "^81" 0 1.25
# pan 0.2
d5 $ g2
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
(sometimesBy "0!3 0.45" (ply 2)) .
(|+| note (
arp "<up!8 converge!7 diverge>"
......@@ -71,8 +74,8 @@ d5 $ g2
# "FMRhodes1"
-- # room "<0.4!3 0.7>"
# pan 0.8
# modIndex (range 0 128 "^34")
# crushbus 51 (range 16 4.6 "^54")
# modIndex (range 0 128 "^33")
# crushbus 51 (range 16 4.6 "^53")
# midiG' "^82" 0 2
d9 $ g1 $ m
$ midiOff "^60" (mask "<f!8 t!124>")
......@@ -90,27 +93,27 @@ d9 $ g1 $ m
d8 $ g2 -- FIXME REMOVE OR SAVE
$ whenmod 8 4 (rarely (striate 2))
$ whenmod 16 8 (sometimesBy "0 1" rev)
$ midiOn "^59" (
$ midiOn "^92" (
slice 2 (run "<2 1 2 4 1 4 6 16>")
)
$ loopAt 2
$ "forgan:2"
# midiG' "^83" 0 1
# crushbus 8 (range 16 1.5 "^55")
# crushbus 8 (range 16 1.5 "^36")
# cut 8
# pan 0.8
d7 $ g -- Hello PWM!
$ (|* gain "<1!15 0.8>")
$ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^89" (superimpose $ segment 16)
$ midiOn "^91" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^59" (superimpose $ segment 16)
$ note (mel - 12)
# "superpwm"
# semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
# accelerate "<0!7 <6 12>>"
# rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53")
# crushbus 71 (range 10 3 "^35")
# midiG' "^81" 0 1.42
......@@ -136,7 +139,7 @@ $ loopAt 2
$ slice 8 (run 8)
$ "fbass:3"
# midiG' "^81" 0 1.4
# crushbus 4 (range 16 1.5 "^53")
# crushbus 4 (range 16 1.5 "^32")
# cut 4
# pan 0.2
......@@ -148,8 +151,8 @@ d6 $ g -- Nappes Rhodes
)
# "FMRhodes1"
# pan 0.2
# modIndex (range 0 100 "^54")
# crushbus 61 (range 16 5 "^34")
# modIndex (range 0 100 "^34")
# crushbus 61 (range 16 5 "^54")
# midiG' "^82" 0 1.5
d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>")
......
......@@ -3,8 +3,8 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k <k [<k k*2 ~ k*[1|2]> k]>"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ midiOn "^41" (fast 2 . (<| "k k k <k [<k k*2 ~ k*[1|2]> k]>"))
$ midiOff "^41" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ fix (# lpf 1200) "kick"
$ "[jazz,kick:3]"
-- # room 0.2 # sz 0.3 # dry 1.4
......@@ -23,10 +23,10 @@ d3 $ gF1 $ gM2
# pan "0.2 0.8"
# drumFrom "rolandtr909" "hh:2" # cut 3
# gain 1.8
# legato (range 0.05 0.9 "^32")
# legato (range 0.05 0.9 "^31")
d7 $ gF1 $ gM3 -- Breaks Demoniaques
$ midiOn "^91" (ply "2 <2!2 <3 4> <4 8>>")
$ midiOn "^55" (slice 4 "<[0 1 2 3]!6 3*8 3*[16 . 32 8 8 4]>"
$ midiOn "^35" (slice 4 "<[0 1 2 3]!6 3*8 3*[16 . 32 8 8 4]>"
. (loopAt 1)
. (# "jungle_breaks:19")
. (|* gain 1.3)) -- Pure COMEON!
......@@ -36,23 +36,23 @@ d7 $ gF1 $ gM3 -- Breaks Demoniaques
# cut 8
# pan 0.3
d4 $ gF2 $ gM3 -- TEMPT MY BASS
$ midiOff "^57" (superimpose ((|+ note 12) . (# cut 41) . (# pan 0.8)))
$ midiOn "^89" (ply "2 <2!2 <3 4> <4 8>>")
$ midiOn "^57" (# n 3)
$ midiOff "^76" (superimpose ((|+ note 12) . (# cut 41) . (# pan 0.8)))
$ midiOn "^44" (ply "2 <2!2 <3 4> <4 8>>")
$ midiOn "^76" (# n 3)
$ chop 8
$ "temptation"
# n 2 # cut 4 # room 0.3 # sz 0.4
# crushbus 41 (range 12 3 "^53")
# octersubbus 42 (range 0 2 "^33")
# crushbus 41 (range 12 3 "^32")
# octersubbus 42 (range 0 2 "^52")
# gain 1.8
d5 $ gF3 $ gM3 -- ANGEL MOOG CHOIR
$ midiOn "^90" (ply "<4 [4 8]>")
$ midiOn "^58" (fast 4 . slice 8 "<0 0 1 1 2 2 3 3>/2")
$ midiOn "^89" (ply "<4 [4 8]>")
$ midiOn "^57" (fast 4 . slice 8 "<0 0 1 1 2 2 3 3>/2")
$ "temptation:0"
# cut 5
# room 0.4 # sz 0.8
# crushbus 51 (range 12 3 "^54")
# octerbus 52 (range 0 1 "^34")
# crushbus 51 (range 12 3 "^33")
# octerbus 52 (range 0 1 "^53")
# gain 1
d8 $ gF1 $ gM2
$ chop 8
......
......@@ -28,8 +28,8 @@ do
setcps (99/60/4)
d1 $ gF1 $ gM1
-- $ midiOn "^42" (<| "k*<1!12 2 1 1 2> <~!4 [~ k]!4> . ~ k ~ <~ k>")
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k k*<1 2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
......@@ -44,17 +44,17 @@ d2 $ gF1 $ gM2
# gain "1 1 0.93 1"
d3 $ gF1 $ gM2
$ whenmod 8 15 (mask "t t t f")
$ midiOn "^44" (struct "t*8")
$ midiOn "^43" (struct "t*8")
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1 * "1 1 0.9 1 0.9 0.85 0.9 1")
# pan "^18"
# pan "^31"
d4 $ gF2 $ gM3
$ whenmod 64 48 ((2/8) <~) -- Calage chants TODO KEEPSYNC1
$ midiOn "^34" ((2/8) <~) -- Calage chants
$ midiOn "^89" (struct "t(12,16)"
$ midiOn "^32" ((2/8) <~) -- Calage chants
$ midiOn "^44" (struct "t(12,16)"
-- . (# legato 0.4)
)
$ midiOn "^57" (off "e" -- Coeur battant extrait de la basse
$ midiOn "^76" (off "e" -- Coeur battant extrait de la basse
(
(|+| note "0 [12 7 12] 0 <[12 0 12]!3 12>")
-- . (# crush 16)
......@@ -71,14 +71,15 @@ d4 $ gF2 $ gM3
# rel 2
# gain 1.6
# pan 0.4
# crushbus 41 (range 16 5 "^53")
# octersubbus 42 (range 0 0.8 "^33")
# crushbus 41 (range 16 5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octersubbus 42 (range 0 0.8 "^33")
d5 $ gF3 $ gM3 -- Donne moi ton Private Number <3 FIXME Decalage?
$ fix ((# rel 2) . (# legato 1)) (n 2)
$ midiOn "^34" (# n 2) -- Force chants
$ midiOn "^33" (# n 2) -- Force chants
$ midiOn "^73" (# lpfbus 55 1200) -- Mask drums in sample
$ someCyclesBy "^90" (off "e" (mask "<t!6 f f>"))
$ someCyclesBy ("^58" - "^34") (mask "t(<4 [<4!3 [4 8]> 8]>,8)" . fix (chop 4) (n "[0,1]"))
$ someCyclesBy "^57" (off "e" (mask "<t!6 f f>"))
$ someCyclesBy ("^89" - "^33") (mask "t(<4 [<4!3 [4 8]> 8]>,8)" . fix (chop 4) (n "[0,1]"))
$ chop 8
$ fix (0.375 <~) (n 0)
-- $ whenmod 8 6 (|* gain (slow 2 $ range 0.9 0.6 saw))
......@@ -112,7 +113,7 @@ d8 $ gF1 $ gM2
)
$ midiOff ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ chop 16
$ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ midiOn "^36" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
......
......@@ -41,7 +41,7 @@ d2
$ g -- Snare
$ (|- lpf 1000)
$ (|/ lpf 2)
$ novaOn "^43" (|<| "s*4")
$ novaOn "^42" (|<| "s*4")
$ "~ <~!7 s> ~ ~ . s"
# "[snare:50,snare:4]"
# orbit 1
......@@ -51,7 +51,9 @@ d3 $ g -- Hats
sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
. sometimesBy "0 . 0 1 0 0" (|* gain 0)
)
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^43") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
-- 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.
$ novaOn ("^44") (<|"h*8") -- TODO Eclaircir
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit
......@@ -60,13 +62,13 @@ d3 $ g -- Hats
# orbit 1
# gM' 0.2 1.5 "^80"
d4 $ g -- Bassline
$ novaOn "^57" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ novaOn "^44" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ novaOff "^44" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ note "0" # "bass1:3"
# cut 4
# pan 0.2
# attack (range 0 1 "^53")
# crush (range 16 4 "^53")
# attack (range 0 1 "^32")
# crush (range 16 4 "^32")
# release 0.95
# orbit 1
# gM' 0.25 1.2 "^81"
......@@ -84,7 +86,8 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^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 d5's own control.
-- # gM' 0 1 ("^82" * (range 0.25 1.5 "^33"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
......@@ -99,13 +102,14 @@ d7
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^35")))
d8 -- Trompette lancinante
$ g $ gDelay
$ novaOn "^59" (mask "<f!3 t>")
$ novaOn "^60" (mask "<f!3 t>")
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>")
# "brass" # n "2"
# gM' 0.2 0.85 ("^55")
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^36 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 d8's own control.
-- # gM' 0.2 0.85 ("^36")
# attack 0.5 # cut 8
d9 -- CP
$ sometimesBy "^59" (fast 2)
......@@ -161,7 +165,7 @@ d5 $ g -- Basse + Sirene
. (-| note 12) -- 24 when crushed
. (# gM' 0 0.8 ((
"^81" -- gain bass
* (range 0.6 0.9 "^53") -- Modulated 5C
* (range 0.6 0.9 "^33") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
......@@ -173,8 +177,8 @@ d5 $ g -- Basse + Sirene
+ melodyFirst
)
# s "supersaw"
# voice 0.02
# crush (range 16 3.5 "^33")
-- # voice 0.02
# crush (range 16 3.5 "^53")
# gM' 0 0.8 "^81"
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantomes
......@@ -185,16 +189,17 @@ d7 $ g -- Claps fantomes
# gM' 0 1 "^83"
# pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire
$ sometimesBy "^20" (
-- 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.
$ sometimesBy "^36" (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25)
)
$ often (stut 2 0.85 (1/16)) -- écho
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + perlin/4))
# gM' 0 1 ("^56")
-- $ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^56" + perlin/4))
# gM' 0 1 ("^36")
# cut 80
# dry 1.02
# pan (range 0.2 0.8 perlin)
......@@ -204,6 +209,7 @@ d8 $ g -- Gunfire
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.5 1 ("^35" + perlin/4))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^35 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 d8's own control.
-- # speed (range 0.5 1 ("^35" + perlin/4))
# gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8
......@@ -17,14 +17,14 @@ d1 $ gF1 $ gM1
# midiG' "^78" 0 0.9
d2 $ gF1 $ gMute
$ fast 2
$ midiOn "^43" (<| "~ cp ~ <cp!3 cp*<2 [2 4]>>")
$ midiOff "^43" (<| "~ . cp ~ ~ <~!7 cp>")
$ midiOn "^42" (<| "~ cp ~ <cp!3 cp*<2 [2 4]>>")
$ midiOff "^42" (<| "~ . cp ~ ~ <~!7 cp>")
$ "cp:1"
# n "<3!7 [3 4]>"
# room 0
# midiG "^79"
d3 $ gMute $ gF1 -- charley double croche
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ s "hh*16"
# note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# n 8
......@@ -32,19 +32,19 @@ d3 $ gMute $ gF1 -- charley double croche
# pan 0.6
# midiG "^80"
d4 $ gF2
$ midiOn "^89" (ply "8")
$ midiOn "^57" (slice 4 ("<0!8 2!8> 0 0 <1!3 3>"))
$ midiOn "^76" (ply "8")
$ midiOn "^44" (slice 4 ("<0!8 2!8> 0 0 <1!3 3>"))
$ chop 8
$ midiOn "^33" (# n 39) -- BassC_120E
$ midiOn "^32" (# n 39) -- BassC_120E
$ "fbass:37" -- BassC_120D
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^52")
# room 0
# pan 0.2
# midiG' "^81" 0 0.8
d5 $ gF3
$ midiOn "^90" (ply "<8!4 8 16 [16 32] [32 64]>")
$ midiOn "^58" (slice 4 ("0"))
$ midiOn "^89" (ply "<8!4 8 16 [16 32] [32 64]>")
$ midiOn "^57" (slice 4 ("0"))
$ chop 16
$ n "<39!4 37!3 [37 39]>"
# "fguitar"
......@@ -53,7 +53,7 @@ d5 $ gF3
-- 38: Rif hesitation
# cut 5
# gain 0.8
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# midiG' "^82" 0 0.8
d8 -- TODO: Validate or replace ;)
$ midiOn "^92" (ply 4)
......
......@@ -54,21 +54,21 @@ d3 $ g
# gM' 0 1 "^80"
d4 $ g
$ mask "<f!9 t!55>"
$ novaOn "^89" (chop 4)
$ novaOn "^44" (chop 4)
$ whenmod 16 8 (rev)
$ slice 8 ("0(3,8)" + "0 <0 1!3>")
$ "fbass:3"
# crush (range 10 4.5 "^53")
# crush (range 10 4.5 "^32")
# gM' 0 1.1 "^81"
# pan 0.2
# cut 1
d5 $ g
$ someCyclesBy "<1!64 0!64>" (# octave 4)
$ novaOn "^90" (scramble 4 . fast 4)
$ novaOn "^57" (scramble 4 . fast 4)
$ slice 4 ("<0 1 2 3>")
$ "fguitar:1"
# pan 0.7
# crush (range 10 2 "^54")
# crush (range 10 2 "^33")
# room 0.2 # sz 0.8
# gM' 0 1.1 "^82"
# cut 1
......@@ -82,16 +82,18 @@ once
d4 $ g
$ novaOn "^57" (# width 1)
$ novaOn "^76" (# width 1)
-- $ whenmod 16 8 (|+ note (scale "lydian" ("<4 4 6 7>")))
$ note (scale "lydian" (prog + "0"))
# "bassWarsaw"
# lpq (range 0 0.125 "^54")
# satt ("^17")
# ssus ("^33")
# lpq (range 0 0.125 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # satt ("^17")
-- 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.
-- # ssus ("^33")
# octave 2
# gM' 0.35 1.1 "^81"
# crush (range 10 3.13 "^53")
# crush (range 10 3.13 "^32")
# legato 0.85
......@@ -106,7 +108,7 @@ d5 $ g
# cut 5
d6 $ g
$ degradeBy (1 - "1 ^55!7")
$ novaOn "^59" (superimpose (|+ note 12))
$ novaOn "^58" (superimpose (|+ note 12))
$ juxBy 0.8 (rev . chop 2)
$ note (scale "lydian" "<1!3 4> . [1 2] <1 4 4 4>")
# "FMRhodes2"
......@@ -123,7 +125,7 @@ d8
$ mask "<f!32 t!32>"
$ slice 8 ("~ <0 0 1 <1 2>>") $ "meth_bass:2"
# pan 0.8 # room 0.2
# gain ((range 0 1.5 "^56"* "^77") * (slow 16 $ range 0.45 0.65 sine))
# gain ((range 0 1.5 "^36"* "^77") * (slow 16 $ range 0.45 0.65 sine))
d9 $ g
$ "<[~ ~ ~ w] w(3,8) w(5,8)>"
# "wobble:1"
......@@ -176,7 +178,7 @@ d5 $ loopAt 2 $ slice 4 ("0 0 1*2 2") $ "choir:2" # cut 1 # gain 0.55
d2 $ g
$ (# gM' 0.35 0.9 "^79")
$ novaOn "^43" (slow 2)
$ novaOn "^42" (slow 2)
$ novaOn "^75" (const $ loopAt 1
$ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3")
$ "breaks165")
......@@ -195,13 +197,13 @@ d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4"
# cut 4
# gM' 0 0.8 "^81"
d5 $ g
$ novaOn "^58" (chop (4 + ("12" * "^90")))
$ novaOn "^89" (chop (4 + ("12" * "^57")))
$ whenmod 4 2 (stutWith 4 "e" (# legato 0.25))
$ note (chords)
# "moogBass"
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^54"))
# crush (range 16 4 "^34")
# chorus (range 0 4 "^54") -- 0.7
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^33"))
# crush (range 16 4 "^53")
# chorus (range 0 4 "^33") -- 0.7
......
......@@ -31,7 +31,7 @@ setcps (160/60/4)
-- resetCycles
d1 $ g
-- $ mask "<f!4 t!16 t!3 f f!4 t f!2 t!2>"
$ novaOn "^42" (<| "k k k k")
$ novaOn "^41" (<| "k k k k")
-- $ novaOff "^42" (<| "k . ~ k ~ ~")
$ "[reverbkick,kick:5,kick:9]"
# gM' 0 1 "^78"
......@@ -44,7 +44,7 @@ d2 $ g
# gM' 0 1.1 "^79"
d3
$ g
$ novaOn "^44" (chop 16)
$ novaOn "^43" (chop 16)
$ slow (slow 2 "<1 2 2 4 4 8 8 8>")
$ "meth_bass:2"
# cut 1
......@@ -52,7 +52,7 @@ d3
d4
$ note ("<d2!4 g2!4>")
# "bassWarsaw"
# crush (range 10 3.13 "^53")
# crush (range 10 3.13 "^32")
# gM' 0.3 1.4 "^81"
d6 $ g
$ degradeBy (1 - "1 ^55!7")
......@@ -64,7 +64,7 @@ d6 $ g
d7 $ g
$ mask "<f!24 t!8>"
$ "~ clap"
# gM' 0 1 "^55"
# gM' 0 1 "^35"
# dry 0.99 # room 0
# note (-2)
......@@ -75,20 +75,23 @@ once $ "meth_bass:4" # cut 1 # gain 0 -- ALERTE
d3
$ g
-- 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.
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ "d*[8!3 <[8 . 8 4] [16 <4 16>]>]"
# "drum:2"
# gM' 0 1 "^80"
d4 $ g
$ novaOn "^57" (# width 1)
$ novaOn "^44" (# width 1)
-- $ whenmod 16 8 (|+ note (scale "lydian" ("<4 4 6 7>")))
$ note (scale "lydian" (prog + "0 . 0(<3!3 5>,8)"))
# "bassWarsaw"
# satt ("^17")
# ssus ("^33")
# satt ("^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # ssus ("^33")
# octave 2
# gM' 0.35 1.1 "^81"
# crush (range 10 3.13 "^53")
# crush (range 10 3.13 "^32")
# legato 0.85
d5
$ sometimesBy "<[f t!3]!1 t!7 f!24>" (# silence)
......@@ -105,7 +108,7 @@ d8
$ mask "<f!32 t!32>"
$ slice 8 ("~ <0 0 1 <1 2>>") $ "meth_bass:2"
# pan 0.8 # room 0.2
# gain ((range 0 1.3 "^56"* "^77") * (slow 16 $ range 0.45 0.65 sine))
# gain ((range 0 1.3 "^36"* "^77") * (slow 16 $ range 0.45 0.65 sine))
d9
$ "<[~ ~ ~ w] w(3,8) w(5,8)>"
# "wobble:1"
......
......@@ -9,8 +9,8 @@ d1 $ gF1 $ gM1 -- KICK
$ whenmod 16 14 (ply "<2 0>")
$ every' 8 7 (ply 2)
$ midiOn "^74" (fast 2)
$ midiOn "^42" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOff "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
$ midiOn "^41" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOff "^41" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
-- $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
-- $ fix ((# lpf 6000) . (|* gain 0.9)) "techno:0"
-- $ "[techno:0,kick:4]"
......@@ -25,18 +25,20 @@ d1 $ gF1 $ gM1 -- KICK
# delayfb "<0!3 0.5>"
# delayt 0.2
d2 $ gF1 $ gM2 -- Snare tchak!
$ midiOn "^43" (ply 2)
$ midiOn "^42" (ply 2)
$ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
$ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>"
# "[snare:40,snare:22]"
# pan 0.55
# note (range "-7" 7 "^31")
# note (range "-7" 7 "^30")
# room 0.8 # dry 0.99 # sz 0.2
-- # midiG' "^79" 0 1.2
d3 $ gF1 $ gM2 -- Running Hats
$ g32Bridge
-- 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" (slow 2)
$ midiOn "^76" (mask "t(32,64)" . ply 2)
$ midiOn "^43" (mask "t(32,64)" . ply 2)
$ "~ h ~ h ~ h ~ h ~ h ~ h ~ h*<1 <0 1>> ~ h*<1 <2!3 0>>"
# "h2ogmhh:3"
-- # legato (0.5 + 0.1 * perlin)
......@@ -50,14 +52,14 @@ d3 $ gF1 $ gM2 -- Running Hats
# cut 344
# gain 1.6
d4 $ gF2 $ gM3 -- Resolute Bass
$ superimpose ((# crushbus 41 (range 16 2.5 "^53")). (# pan 0.2))
$ superimpose ((# octerbus 42 ("^33")) . (# cut 41))
$ superimpose ((# crushbus 41 (range 16 2.5 "^32")). (# pan 0.2))
$ superimpose ((# octerbus 42 ("^52")) . (# cut 41))
-- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
$ midiOn "^89" ( -- Glitch vary end
$ midiOn "^76" ( -- Glitch vary end
slice 8 "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>"
. (# legato "<1!7 [1@3 0.25]>")
)
$ midiOn "^57" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers
$ midiOn "^44" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers
$ loopAt 4
$ chop 16
$ "fbass:25"
......@@ -75,29 +77,29 @@ d5 $ gF3 $ gM3-- Guitar A/B - La surprise et l'attente
) "guitarA"
$ fix (
whenmod 4 3 (# silence)
. midiOn "^90" (# n "25")
. midiOn "^58" ( (# n 27))
. midiOff "^58" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
. midiOn "^57" (# n "25")
. midiOn "^89" ( (# n 27))
. midiOff "^89" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
. (# "fguitar")
. (# n "<25!3 [25 26] 25!2 27!2 27!8>")
. (# pan 0.65)
. (# leslie "^34")
. (# leslie "^33")
. (# lsize (1 + (slow 16 perlin * 2)))
. (# crushbus 71 (range 10 2 "^54"))
. (# crushbus 71 (range 10 2 "^53"))
. (# lrate 6.7)
-- . (# cut 61)
) "guitarB"
$ "[guitarA,guitarB]"
# pan 0.8
# crushbus 51 (range 10 3.5 "^54")
# crushbus 51 (range 10 3.5 "^53")
# cut 5
d7 $ gF3 $ gM3 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91" - "^59") (fast 2)
$ midiOn "^91" (fast 2)
$ midiOn ("^59" - "^91") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0 2 "^55")
# speed (range 0 2 "^35")
# gain 1.7
d8 $ gF1 $ gM2 -- I WANT THEM DRUMS
$ midiOn "^92" --BOUTON NASSIM
......
......@@ -37,7 +37,7 @@ d1 $ g -- Kick
# gM' 0 1.5 "^78"
d2
$ g -- Snare
$ novaOn "^43" (|<| "s*4")
$ novaOn "^42" (|<| "s*4")
$ "~ s ~ s*<1!3 2 2 2 [2 1] 1>"
# "[sn:20,snare:8]"
# note (range "-12" 4 "^51")
......@@ -45,7 +45,9 @@ d2
# gM' 0.2 0.9 "^79"
d3 $ g -- Hats
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^43") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
-- 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.
$ novaOn ("^44") (<|"h*8") -- TODO Eclaircir
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit
......@@ -66,12 +68,13 @@ d9 -- CP
# lpf 2000
d4
$ g
$ novaOn "^57" (fast "<2!3 4>")
$ novaOn "^44" (fast "<2!3 4>")
$ splice 4 "<2!3 3>"
$ "fbass:57"
# dry (range 0.5 1.5 "^17")
# attack (range 0.5 1.5 "^33")
# crush (range 10 3.5 "^53")
# dry (range 0.5 1.5 "^32")
# attack (range 0.5 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crush (range 10 3.5 "^53")
# orbit 1
# gM' 0.25 1.25 "^81"
# cut 4
......@@ -79,7 +82,7 @@ d5
$ g
$ slice 8 ("<0!4 4!4 0 0 4 4 0 4 0 4>" + "0 1 2 3")
$ "fguitar:58"
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
# gM' 0 1 ("^82" * (range 0.25 1.5 "^33"))
# cut 5
-- TODO RECYCLE
......@@ -96,7 +99,7 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
# gM' 0 1 ("^82" * (range 0.25 1.5 "^33"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
......@@ -111,11 +114,11 @@ d7
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^35")))
d8 -- Trompette lancinante
$ g $ gDelay
$ novaOn "^59" (mask "<f!3 t>")
$ novaOn "^60" (mask "<f!3 t>")
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>")
# "brass" # n "2"
# gM' 0.2 0.85 ("^55")
# gM' 0.2 0.85 ("^36")
# attack 0.5 # cut 8
......@@ -9,7 +9,8 @@ let gM = (midiOn "^42" (mask "t <t!3 <[f t]!2 f [f t!3]>>"))
d1
$ gF
$ midiOn "^74" (fast 2)
$ midiOn ("^42" - "^41") (mask "t(1,4)")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^41" - "^41") (mask "t(1,4)")
-- $ mask "<f!4 t(1,2)!3 t!9>"
$ fix ((|* gain 0.8) . (# att 0.05) . (# rel 1)) ("kick")
$ fix ((|* gain 0.75)
......@@ -28,25 +29,27 @@ d2 $ gF $ gM -- Snare glitch high
# room 0.74 # sz 0.2 # dry 1
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- Breaks du Marathon
$ midiOn "^76" (scramble (8 - 4 * "^44"))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^43" (scramble (8 - 4 * "^44"))
$ midiOn "^44" (slice 16 (run "8 . <8 8 <8 16> <16!3 [32 <32 16>]>>"))
$ midiOff "^44" (slice 8 ("0 1 2 3 . 4 5 6 <7!3 6>"))
$ loopAt 2
$ "break:15"
# cut 2
# pan 0.4
# speed (range 0 2 "^52")
# speed (range 0 2 "^31")
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^53" (-- Trigger: DATA BURN
$ midiOn "^32" (-- Trigger: DATA BURN
(
(# cut 42) . (|* gain 0.85) .
(# squizbus 41 (range 200 0 "^53"))
(# squizbus 41 (range 200 0 "^32"))
)
)
$ midiOn "^57" ( -- Ritournelle
midiOn "^89" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
$ midiOn "^44" ( -- Ritournelle
midiOn "^76" (ply "2 2 4 <2 4 <4 4 8 4> <2 4>>")
. (+| note (scale "aeolian" (arp "converge" $
"[0 <2!4 1!2 2!2> 0 <0!3 4>]"
-- "<5@3 [5 4@2]> <<2 0> [2 0]>"
......@@ -61,25 +64,26 @@ d4 -- BASSLINE BRULANTE
# "90s_synatm:9"
# pan 0.15
-- # room 0.5 # dry 0.2 # sz 0.8
# lratebus 43 (range 0.6 6.7 "^33")
# lesliebus 42 (range 0 1 "^17")
# lratebus 43 (range 0.6 6.7 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 42 (range 0 1 "^17")
# lsize (slow 8 $ range 2 6 saw)
# midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^53")
# crushbus 41 (range 10 4.5 "^53")
-- # midiG' "^81" 0 (1.5 - 0.3 * "^17" - 0.25 * "^32")
# crushbus 41 (range 10 4.5 "^32")
# cut 4
d5 $ gF2 $ gM -- Ritournelle Rhodes
$ midiOn "^58" (off "q" (|+ note 12) . (|* gain 0.85))
$ midiOn "^57" (off "q" (|+ note 12) . (|* gain 0.85))
$ note (
"<[c ~ c d ~ d <ef!3 f> ~]!0 [f ~ f g ~ <g!3 f> <gs!3 f> ~]!8>"
- "<24!12 12!4>")
# "FMRhodes1"
# modIndex (range 0 100 "^54")
# modIndex (range 0 100 "^33")
-- # crushbus 51 (range 10 4.5 "^34")
# midiG' "^82" 0 2
d6 $ gF2 -- Voices from the st0rm
$ midiOn "^91" ((# cut 6) . slow 8)
$ midiOn "^58" ((# cut 6) . slow 8)
$ swingBy 0.125 8
$ midiOn "^59" (superimpose ( -- Resolution chant
$ midiOn "^90" (superimpose ( -- Resolution chant
(>| note (scale "aeolian" "<7 [7@3 <5 9>]>"))
. (# cut 61)
. (# legato 1.2)
......@@ -90,7 +94,7 @@ d6 $ gF2 -- Voices from the st0rm
))
# "90s_matrix:3"
# cut 6 # gain 0.4
# squizbus 61 (range 0 4 "^55")
# squizbus 61 (range 0 4 "^34")
# room 0.42 # dry 1 # sz 0.8
# pan 0.6
# midiG' "^83" 0 2
......
......@@ -4,41 +4,41 @@ setcps (140/60/4)
d1 -- Kick premier`
$ gF1 $ gM1
-- $ midiOn "^42" (off "e" (# "jazz:0"))
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6)) ("tek_kick:3")
$ "[kick:4]"
# room 0.2 # sz 0.8 # dry 1.1
# gain 1.3
d2 $ gM2 $ gF1 -- Snare second
-- $ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
$ midiOff "^42" (mask "<t!16 f!16>")
$ fix ((|* gain 1.1) . (|- note 2)) ("ab:11")
$ "~ s ~ s*<1!3 2>"
# "[<ab:10!3 ab:11>]" -- FIXME kick plus "on ne vit qu'une fois"
# gain 1.4
d3 $ gM2 $ gF1
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
$ "dr*[8 [<8 <16 [16 <8 32> 16]>>]]"
# "dr" # "h2ogmhh:2"
# gain ((fast 8 $ range 0.85 0.95 perlin) + 0.4)
d4 $ gF2 $ gM3
$ superimpose (
(# crushbus 42 (range 16 0.85 "^53")) . (# cut 41)
(# crushbus 42 (range 16 0.85 "^32")) . (# cut 41)
. (# hpf 500) . (# lpf 10000) -- Crush the high freqs only
)
$ midiOn "^89" (ply "8 <4 16>")
$ midiOn "^76" (ply "8 <4 16>")
$ slice 8 "<7 6>"
$ "meth_bass:0"
# cut 4
# lpf 500 -- Keep the low freq from crush
# octersubbus 41 (range 0 2 "^33")
# octersubbus 41 (range 0 2 "^52")
|- note 0.5
# gain 1.1
# room 0.3 # sz 0.5 # dry 0.9
d5 -- Melancolie solitaire
$ midiOn "^58" ( superimpose (
$ midiOn "^89" ( superimpose (
(+ note "12")
. stut 4 0.9 "<e!12 q!4>"
. (# pan 0.3)
......@@ -56,9 +56,9 @@ d5 -- Melancolie solitaire
-- |+ note 12
# "FMRhodes1"
# pan 0.7
# tremrbus 51 (range 0 20 "^34")
# tremrbus 51 (range 0 20 "^33")
# tremdp 2
# modIndex (range 0 8 "^54")
# modIndex (range 0 8 "^53")
# gain 1.4
# room 0.2 # sz 0.3
d6 $ gF2 $ gM3
......@@ -71,7 +71,7 @@ d6 $ gF2 $ gM3
|* gain "0.85 1.1"
# room 0.2
# gain 0.9
# octersubbus 61 (range 0 1 "^30")
# octersubbus 61 (range 0 1 "^34")
-- TODO Make d7 the new d9 and another lead in d7
d7 $ gF3 $ gM3
$ note ("<d g f a>" + "[0,7]" - 12)
......@@ -80,8 +80,8 @@ d7 $ gF3 $ gM3
# gain 0.9
# room 0.2
d8 $ gF1 $ gM2 -- BREAK THAT SHIT
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ midiOn "^92" (slice 8 $ run 16)
$ midiOn "^60" (ply "2 <2 <4 [4 8]>>")
$ chop 8
$ midiOn "^36" (loopAt 1 . (# "jungle_breaks:72")) -- Sables mouvants
$ midiOn "^56" (loopAt 1 . (# "jungle_breaks:19")) -- Break sable noir
......
......@@ -3,9 +3,9 @@ do
setcps (74/60/4)
d1 $ fast 2
$ gF1 $ gM1
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[k k*2] [k*2 k]>>")
$ superimpose ((|* gain "^30") .(# "tek_kick:3"))
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k k k <k <[k k*2] [k*2 k]>>")
$ superimpose ((|* gain "^29") .(# "tek_kick:3"))
$ "[jazz,rampleA0:1]"
d2 $ gM2 $ gF1
$ "~ s ~ s*<1!3 2>"
......@@ -15,22 +15,22 @@ d2 $ gM2 $ gF1
d3 $ gM2 $ gF1
$ "drum:2*[[24 <8 12 16 24> 32 16 32 16 32 8] 8]"
d4 $ gM3 $ gF2
$ midiOn "^89" (ply 2)
$ midiOn "^76" (ply 2)
$ note ("<e3 <b2 fs3 a3 b3>>" + "0 . <5 -4>([3 <1 <3 5>>],8)")
# "bassWarsaw"
# crushbus 41 (range 16 5 "^53")
# crushbus 41 (range 16 5 "^32")
# cut 4 # gain 0.8
d5
$ midiOn "^58" (rev)
$ midiOn "^57" (rev)
$ fast 2
$ note ("<b3 c4 cs4 c4>" )
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# "FMRhodes2"
d8 $ gF1 $ gM2
$ loopAt 1
$ chop 8
$ midiOn "^56" (# n 52)
$ midiOff "^56" (slice 4 "<[0 1]!3 [0 1 2 3]>")
$ midiOn "^36" (# n 52)
$ midiOff "^36" (slice 4 "<[0 1]!3 [0 1 2 3]>")
$ "jungle_breaks:65"
# gain 0.8
# lpf 4000
......
......@@ -4,15 +4,15 @@ do
setcps (125/60/4)
d1 -- Kick premier`
$ gF1 $ gM1
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k k")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k k k k")
-- $ superimpose ((# hpf 500) . (# delay "<0!2 <0 0.2> 0.2>") . (# delayt 0.25))
$ "[kick:4,jazz]"
# lpf 5000
# gain 0.93
d2 $ gM2 $ gF1 -- Snare second
$ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
$ midiOff "^42" (mask "<t!16 f!16>")
$ "~ s ~ s*<1!3 2>"
# "[rampleM8:8,snare:45]"
# note "-2"
......@@ -22,7 +22,7 @@ d3 $ gM2 $ gF1
# "rampleM8:4"
# gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gM3 $ gF2
$ midiOff "^89" (slice 4 "1 2*<1 2> 3*<1 4> 4") -- ON OFF
$ midiOff "^76" (slice 4 "1 2*<1 2> 3*<1 4> 4") -- ON OFF
$ chop 16 $ loopAt 4
$ "nujazz_bass125:1"
# cut 4
......@@ -30,15 +30,15 @@ d4 $ gM3 $ gF2
-- # room (slow 32 $ range 0.2 0.8 cosine)
-- # dry 1.3
# pan 0.3
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.94 "^33")
# crushbus 41 (range 16 4 "^32")
# octerbus 42 (range 0 0.94 "^52")
# gain 1.3
-- # sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF3
$ midiOn "^58" (off 0.125 id . rev)
$ midiOn "^57" (off 0.125 id . rev)
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 12)
# crushbus 51 (range 16 5 "^54")
# modIndex (range 0 2 "^34")
# crushbus 51 (range 16 5 "^33")
# modIndex (range 0 2 "^53")
# "FMRhodes1"
# gain 1.2
-- # room 0.2
......@@ -51,7 +51,7 @@ d7 $ gM3 $ gF3
# pan 0.9
# room 0.4
# "giorgio_syn:22"
# crushbus 71 (range 12 3.4 "^55")
# crushbus 71 (range 12 3.4 "^35")
# cut 7
# gain 1.2
d8 $ gM2 $ gF1
......
......@@ -2,19 +2,19 @@ do
setcps (160/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[rampleA2:0]"
d2 $ gF1 $ gM2
$ midiOn "^43" (struct "~ t ~ <t <t*2 [~ t]>>")
$ midiOff "^43" (struct "~ ~ t ~")
$ midiOn "^42" (struct "~ t ~ <t <t*2 [~ t]>>")
$ midiOff "^42" (struct "~ ~ t ~")
-- $ fix (|+ note 2) "snare"
$ "[rampleA2:10]"
# lpf 2000
# rel 0.35
d3 $ gF1 $ gM2 -- Scintillement de claquements de doigts
$ whenmod 8 6 (superimpose ((# n "13") . (# room 0.4) . (|* gain 1.1)))
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ midiOn "^43" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:15"
# hpf 5000
......@@ -27,13 +27,13 @@ d7 $ gF2 $ gM3 -- Piano magique guide eternel
$ slice 8 (slow 4 $ run 4 + "<0!16 4!16>")
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 71 (range 16 3.3 "^55")
# lesliebus 72 (range 0 1 "^35") # lrate 0.92 # lsize 3.9
# crushbus 71 (range 16 3.3 "^35")
# lesliebus 72 (range 0 1 "^55") # lrate 0.92 # lsize 3.9
# pan 0.7
# cut 7
# gain 0.8
d5 $ gM3 $ gF3
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
arp "<up!4 down!4>"
. someCyclesBy "<0.2!3 0.6 0.2!3 0.6 0.6!3 0.2 0.8!3 0.2>" (mask "t(3,8)")
. (|+ note "[17,24,12,0]"))
......@@ -45,14 +45,14 @@ d5 $ gM3 $ gF3
+ (arp "up" "c'min'2")
)
# "FMRhodes1"
# modIndex (range 0 5 "^54")
# modIndex (range 0 5 "^33")
# pan 0.4
# room 0.4
# dry 1.52
# sz 0.7
# gain 1.2
d6 $ gM3 $ gF2
$ midiOn "^89" (striate 2)
$ midiOn "^90" (striate 2)
$ chop 8
$ "meth_bass:3"
# note ("<<a cs6> fs>"
......@@ -152,8 +152,8 @@ d7 $ gF3 $ gM3 -- La guitare d'Icare
$ chop 8 $ "suns_guitar:0"
-- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
# n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
# crushbus 71 (range 16 8.5 "^55")
# lpfbus 72 (range 20000 5000 "^55")
# crushbus 71 (range 16 8.5 "^35")
# lpfbus 72 (range 20000 5000 "^35")
-- # octerbus 73 (range 0 1 "^35")
# hpf 1200
# cut 7
......
......@@ -2,40 +2,41 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" ((<| "k k k <k <[~ k] k*<2 [4 2]>>>") . (# legato 0.5))
$ midiOff "^42" ((<| "<k ~> . ~ [~ k ~] ~ <~!3 k>") . (# legato 0.5))
$ midiOn "^41" ((<| "k k k <k <[~ k] k*<2 [4 2]>>>") . (# legato 0.5))
$ midiOff "^41" ((<| "<k ~> . ~ [~ k ~] ~ <~!3 k>") . (# legato 0.5))
$ "[808bd:1,808bd:2,jazz]"
d2 $ gM2 $ gF1
$ midiOn "^43" ((<| "~ s ~ s"))
$ midiOff "^43" ((<| "~ . <~ s*<<1 2 4>>> ~"))
$ midiOn "^42" ((<| "~ s ~ s"))
$ midiOff "^42" ((<| "~ . <~ s*<<1 2 4>>> ~"))
$ "snare:41"
# lpf 5000
# room 0.4
d3 $ gM2 $ gF1
$ midiOff "^44" (mask "t(2,8,1)")
$ midiOff "^43" (mask "t(2,8,1)")
$ "~ h ~ h ~ <h!6 ~ h*2> ~ h*<1!4 2!3 <2 <1 4>>>"
# "ho" # n "<0!6 1 1>"
# cut 3
# att 0.04 # rel 2
d4 $ gM3 $ gF2 -- DARK CURSE BASSLINE
$ midiOn "^89" (ply 2)
$ midiOn "^76" (ply 2)
$ note (
"[bf4 a4] <g4!3 bf4> <g4 <[g4 g4*2] [g4@2 a4 <g4!3 g5>]>>"
+ 2)
# "vec1_acid:30"
# crushbus 41 (range 14 3.5 "^53")
# octerbus 42 (range 0 0.95 "^33")
# octersubbus 43 (range 0 0.95 "^17")
# crushbus 41 (range 14 3.5 "^32")
# octerbus 42 (range 0 0.95 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octersubbus 43 (range 0 0.95 "^17")
# room 0.3 # sz 0.8 # dry 1.5
# cut 4
# legato 0.9
d5 $ gF3 $ gM3 -- Blue Birdies as lead <3
$ midiOn "^90" (ply "<2!3 4>")
$ midiOn "^89" (ply "<2!3 4>")
$ slice 4 "<[0 1] [2 3]>"
-- Sequence: A!4 C!3 A A!6 CS ~
$ n "<0!4 3!3 0 0!6 4 <~ 0>>"
-- $ n "0"
# crushbus 51 (range 14 3.5 "^54")
# crushbus 51 (range 14 3.5 "^33")
# "blues_guitar_birdy_120"
# cut 5
# panbus 52 (range 0.95 0.05 sine)
......@@ -45,8 +46,8 @@ d5 $ gF3 $ gM3 -- Blue Birdies as lead <3
# cut 5
d7 $ gM3 $ gF3 -- Blue Birdies as lead <3
-- Sequence: A!4 C!3 A A!6 CS ~
$ midiOn "^92" (ply "<1!3 2 2!3 4>")
$ midiOn "^91" (ply "<1!3 2 2!3 4>")
$ midiOn "^59" (ply "<1!3 2 2!3 4>")
$ n "<~ <0!4 3!3 0 0!6 4 ~>>"
-- $ n "0"
# "blues_guitar_riff_120"
......@@ -66,9 +67,9 @@ d8 $ gM2 $ gF1 -- BREAKS WITH RULES <3
$ midiOn "^92" (mask "t(4,8,1)" . chop 8)
$ chop 8
$ loopAt 4
$ midiOff ("^56" + "^36") (|* gain 1.3)
$ midiOn "^36" (mask "t [t t <t f> f]" . chop 4 . loopAt 0.25 . (|> "jungle_breaks"))
$ midiOn "^56" (loopAt 0.25 . (|> "breaks165"))
$ midiOff ("^36" + "^56") (|* gain 1.3)
$ midiOn "^56" (mask "t [t t <t f> f]" . chop 4 . loopAt 0.25 . (|> "jungle_breaks"))
$ midiOn "^36" (loopAt 0.25 . (|> "breaks165"))
$ "trance_loops:2"
# cut 8
d10 -- Slow low Riser
......
......@@ -6,43 +6,43 @@ setcps (124/60/4)
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:25") . (|- note 1) . (|* gain 0.8))
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>")
$ midiOn "^29" ((# "hardkick_rha:25") . (|- note 1) . (|* gain 0.8))
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:22]"
# pan 0.65
-- # legato 0.22
d3 $ gM2 $ gF1
$ midiOn "^44" (ply "<2!6 4 8>")
$ midiOn "^43" (ply "<2!6 4 8>")
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "vec1_snare:34"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 2)
$ midiOn "^57" (ply 2)
$ midiOff "^57" (ply "1 1 1 <1!8 <[1|2]!3 2>!8> 1" . degradeBy "0 <0.5!3 0> 0 <0.5!8 0!8> 0")
$ midiOn "^76" (ply 2)
$ midiOn "^44" (ply 2)
$ midiOff "^44" (ply "1 1 1 <1!8 <[1|2]!3 2>!8> 1" . degradeBy "0 <0.5!3 0> 0 <0.5!8 0!8> 0")
$ note ("e fs <b e bf a> fs <g!3 g4>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 4.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 4.5 "^52")
-- e fs b g bf a
# gain 1.4
-- # room 0.2 # sz 0.3 # dry 1.1
# cut 4
# pan 0.7
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "4 <4!3 8>")
$ midiOn "^89" (ply "4 <4!3 8>")
-- $ slow 4
$ slice 4 "<0*[4 1] 1 2 3>"
-- $ whenmod 16 12 (>| "<~ ~ foule_keys:5 ~>")
$ fix (0.28 <~) (n "[0,2]")
$ midiOn "^58" (# n "<2 3>")
$ midiOn "^57" (# n "<2 3>")
$ n "<0!4 1!4>"
-- $ n "<2 3>"
# "foule_keys"
......
......@@ -8,8 +8,8 @@ let width = pF "width"
let rq = pF "rq"
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -20,8 +20,8 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[vec1_snare:4]"
# lpf 1800
# gain 1.3
......@@ -34,26 +34,30 @@ d12 $ gF1 $ gM3 -- Cymbales sol -- moved d6 -> d12 (PLN, d11 was taken by Menac
|* gain (range 1.1 0.8 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d3 $ gF1 $ gM2
-- 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" ((# "dr") . (|* gain 1.45))
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "hh*[16 . <16!3 <[16 8] 8>>]"
# "vec1_claps"
# cut 3
# legato (slow 13 $ range 0.3 2 saw)
# delaybus 31 (range 0 1 "^52") # delayt "e" # delayfbbus 32 "^32"
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^32 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 d3's own control.
-- # delaybus 31 (range 0 1 "^31") # delayt "e" # delayfbbus 32 "^32"
d4 $ gF2 $ gM3 -- La GROSSE BASSE MOLOTOVAH
$ midiOn "^89" (ply "<4 4 2 4> <4 8>")
$ midiOn "^57" (chop 4)
$ midiOn "^17" ((# n 1) . (|* gain 0.8))
$ midiOn "^76" (ply "<4 4 2 4> <4 8>")
$ midiOn "^44" (chop 4)
$ midiOn "^32" ((# n 1) . (|* gain 0.8))
$ "molotov:0/2"
# cut 4
# gain 1.8
# room 0.4 # sz 0.9 # dry 1.3
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 0.8 "^33")
# crushbus 41 (range 16 2.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octerbus 42 (range 0 0.8 "^33")
d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t(8,16)")
$ midiOn "^90" (ply 2)
$ midiOff "^57" (mask "t(8,16)")
$ midiOn "^89" (ply 2)
$ note (
"a4!15 <<a4!4 c4!3 d4> <g4 c5>>"
-- + "[0*16]"
......@@ -62,9 +66,10 @@ d5 $ gF3 $ gM3
# "acidOto3092"
# gain 1.5
# room 0.3
# filterRange (range 0 7 "^18")
# width (range 0.05 0.5 "^34")
# crushbus 51 (range 16 3.5 "^54")
# filterRange (range 0 7 "^33")
# width (range 0.05 0.5 "^53")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # crushbus 51 (range 16 3.5 "^54")
# legato 0.25
# rq 0.3 -- TODO EXPLORE <3
d7 $ gF3 $ gM3
......
do
setcps (110/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
$ midiOn "^41" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^41" (<| "k . ~ k ~ <~!7 k>")
$ "[techno:0,808bd:2,909,kick:4]"
# gain 0.9
d2 $ gF1 $ gM2 -- Snare FOU
$ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s")
$ midiOn ("^42" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^42"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# gain 0.7
d3 $ gF1 $ gM2
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
$ midiOn "^43" (ply "1 2 1 <2 <1 4>>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ ply "1 . 1 <<2 1> [<4 [4 2]> 1]>"
$ "dr:2*8"
......@@ -22,14 +24,14 @@ d3 $ gF1 $ gM2
-- # midiG' "^80" 0 1.2
# pan (0.3 - 0.2 * perlin)
d4 $ gF2 $ gM3
$ midiOff "^57" (midiOn "^89" (ply "<4!3 [4 8]>"))
$ midiOff "^44" (midiOn "^76" (ply "<4!3 [4 8]>"))
-- $ midiOn "^57" (midiOn "^89" (slice 4 (run 8)) . chop 8)
-- $ midiOn ("^89" - "^57") (fast "2" . slice 16 ("[0 1 2 3]*<4 8>" + (slow 2 "<0 4 8 12>")))
-- $ midiOff "^57" (midiOn 1 (slice 16 (("[0 1 2 3]*<2!8 4!8>" + "<0 12 0 8>"))))
-- $ midiOff "^89" (chop 16)
$ chop 4
$ loopAt 4
$ midiOn "^57" (# "bass_gameboy:5") -- Sad truth pattern
$ midiOn "^44" (# "bass_gameboy:5") -- Sad truth pattern
$ "bass_gameboy"
# cut 4
# gain 0.9
......@@ -41,7 +43,7 @@ d5 $ gF3 $ gM3 -- La pluie d'étoiles
$ loopAt 4
$ "synth_gameboy:5"
# pan 0.2
# hpfbus 51 (range 0 8000 "^34")
# hpfbus 51 (range 0 8000 "^33")
# gain 0.9
d6 $ gF3 $ gM3 -- La corne de l'espoir
$ whenmod 8 6 (juxBy 0.8 (rev . (# cut 61)))
......@@ -59,8 +61,9 @@ d7 $ gF2 $ gM3
# roombus 71 (range 0.3 1.2 "^55") # dry 1.8 # sz 0.7
# gain 0.8
d8 $ gF1 $ gM2
$ midiOn "^20" (loopAt 2 . (# "jungle_breaks:11"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:38"))
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:11"))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:38"))
-- $ sometimesBy "^56" (off "h" ((|+ pan 0.2) . ply 2 . (# cut 41)))
$ sometimesBy "^56" (iter 4)
$ midiOn "^92" (ply "<1 [2 <2 4>]>")
......
......@@ -4,9 +4,9 @@ setcps (85/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick variable
-- $ midiOn "^76" (fast /2)
$ midiOn "^42" (fast 2 . struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
$ midiOn "^41" (fast 2 . struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
$ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
$ fix (|* gain 0.9) "kick:4"
-- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
-- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
......@@ -17,6 +17,8 @@ d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
(<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
. (# "[snare:57,909: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 "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff ("^43"+"^42") (<| "~ <~!4 c ~!3> ~ c*<1!7 2>")
$ fix (|* gain 0.8) "snare"
......@@ -26,7 +28,9 @@ d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
# note "-2"
# legato 0.5
d3 $ gF1 $ gM2
$ midiOn "^44" (ply "1 2")
$ midiOn "^43" (ply "1 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]>")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2> <~!3 h> h*<1!3 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -44,13 +48,13 @@ d4 $ gF2 $ gM3 -- COME WITH THE BASS
-- # lpf 5000
-- )
$ slow 2
$ midiOn "^89" (ply "1 <4 2>")
$ midiOn "^57" (ply 2 . chop "8 . <8!3 16> <8 16>")
$ midiOn "^76" (ply "1 <4 2>")
$ midiOn "^44" (ply 2 . chop "8 . <8!3 16> <8 16>")
$ n ("<[0 0]!6 [1 1] <2 [2 2]>>") -- TODO SYNC WITH OVER ME
-- $ n ("<[0 0]!6 [1 1] <2 [2 2]>>")
# "come_bass"
# cut 4
# crushbus 43 (range 16 3.5 "^53")
# crushbus 43 (range 16 3.5 "^32")
# room 0
# dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035
......@@ -58,15 +62,15 @@ d4 $ gF2 $ gM3 -- COME WITH THE BASS
# pan 0.2
# gain 1.2
d5 $ gM3 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (>| n "<3 ~ 3 ~>")
$ midiOn "^89" (ply "2 <2 <4 8>>")
$ midiOn "^57" (>| n "<3 ~ 3 ~>")
$ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
# "come_eguitar"
# cut 5
# pan 0.8
-- # speed 1.25
# room 0.2 # sz 0.3 # dry 1.2
# crushbus 51 (range 16 5.5 "^54")
# crushbus 51 (range 16 5.5 "^33")
# gain 1.3
d11 $ gM3 $ gF3 -- Sky's companion
$ midiOn "^58" (mask "f")
......@@ -77,10 +81,10 @@ d11 $ gM3 $ gF3 -- Sky's companion
# cut 11
# pan 0.9
d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11") -- Shew
$ someCyclesBy ("^35" - "^91") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
$ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- Reponse: COME <3
$ midiOff ("^59" + "^91" + "^35") -- Default: YEAH
$ midiOn "^59" (>| n "~ ~ ~ 11") -- Shew
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
$ midiOn ("^91" - "^59") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- Reponse: COME <3
$ midiOff ("^91" + "^59" + "^35") -- Default: YEAH
(>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
$ "come_voice"
# crushbus 71 (range 16 "<5 10>" "^55")
......
......@@ -39,17 +39,19 @@ d1
d2
$ g -- Snare
$ (|- lpf 1000)
$ midiOn "^43" (|<| "s*4")
$ midiOn "^42" (|<| "s*4")
$ "~ <~!7 s> ~ ~ . s"
# "[snare:50,snare:4]"
# orbit 1
# gM' 0.2 1.3 "^79"
d3 $ g -- Hats
$ midiOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ midiOn ("^43") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ every' 4 3 (
sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
. sometimesBy "0 . 0 1 0 0" (|* gain 0)
)
-- 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") (degradeBy (slow 4 $ range 0.9 0 saw) . (<|"h*16")) -- TODO Eclaircir
$ midiOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the Hi Hat hit
......@@ -60,15 +62,15 @@ d3 $ g -- Hats
# pan 0.2
# gM' 0.2 1.25 "^80"
d4 $ g -- Bassline
$ midiOn "^57" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ midiOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ midiOn "^44" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ midiOff "^44" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ note "0" # "bass1:3"
# cut 4
# pan 0.7
# lpq (range 0 0.33 "^33")
# lpq (range 0 0.33 "^32")
# release 0.95
# orbit 1
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^52")
# midiG' "^81" 0.25 1
d5 $ g $ gDelay -- Skank Piano
$ whenmod 4 3 (sometimesBy "0 1 . 0" (
......@@ -84,7 +86,7 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# midiG' ("^82" * (range 0.25 1.5 "^54")) 0 1
# midiG' ("^82" * (range 0.25 1.5 "^33")) 0 1
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
......@@ -100,11 +102,11 @@ d7
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^35")))
d8 -- Trompette lancinante
$ g $ gDelayD
$ degradeBy "^35"
$ midiOn "^59" (mask "<f!3 t>")
$ degradeBy "^36"
$ midiOn "^60" (mask "<f!3 t>")
$ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95))
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>"
- 12)
......
......@@ -13,7 +13,11 @@ d1
$ fix ((|* gain 0.5) . (# "kick:5")) ("c")
$ fix ((|* gain 0.37) . (# "cpu2")) ("b")
$ fix ((|* gain 0.8) . (# "jazz")) ("a")
-- 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]>") -- Jump?
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 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 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). ^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 d1's own control with gSel.
$ midiOn ("^43" - "^42") (<| "k k k <k [<[<~ k>]!16 ~!3 k ~!3 k k!3 ~ k!3 ~> k]>") -- RUN!
$ "[a,b,c]"
# legato 2
......@@ -33,7 +37,7 @@ d2 $ g1 -- Snare cloc fantome
# midiG' "^79" 0 1.5
d3 $ g2
$ someCyclesBy 0.2 (ply 2)
$ midiOff "^44" (slow "<2!3 <1 2>>")
$ midiOff "^43" (slow "<2!3 <1 2>>")
$ ply "2 <2!3 [2|4|8]*4>"
$ "h h h h*<1 2>"
# "h2ogmhh" # n "1 <2 [2 1]>"
......@@ -41,12 +45,12 @@ d3 $ g2
# midiG' "^80" 0 (range 0 1.2 "^16")
d7 $ g2 -- BREAKBEAT <3
$ loopAt 2
$ midiOn "^76" (mask "t(<3<5 8>>,8) t(<1 2>, 4) t?" . iter 4 . splice 8 (run 32) . (|> "breaks165"))
$ midiOn "^44" (slice 8 (run 8))
$ midiOff "^44" (slice 8 ("0 1 [2 5] <3 7*2>"))
$ midiOn "^59" (mask "t(<3<5 8>>,8) t(<1 2>, 4) t?" . iter 4 . splice 8 (run 32) . (|> "breaks165"))
$ midiOn "^91" (slice 8 (run 8))
$ midiOff "^91" (slice 8 ("0 1 [2 5] <3 7*2>"))
$ "break" # n "<21!32 22!8>"
# midiG' "^80" 0 1.4
# speed (range 0 2 "^52")
# speed (range 0 2 "^35")
d4 $ g2 -- Bassline sub base
$ note "[c3(<3!3 <1 5>>,8),[~!7 <<b3 ~> b3 b3 ~ ~ ~ b3>]] <c3 g3>"
# "ikedaBass"
......@@ -55,7 +59,7 @@ d4 $ g2 -- Bassline sub base
# room "<0.25!3 0>"
# sz 0.8
# midiG' "^81" 0 1.2
# crushbus 41 (range 14 2 "^53")
# crushbus 41 (range 14 2 "^32")
# panbus 42 (range 0.4 0.2 saw)
# harmonic (range "-25" 25 (fast 8 saw))
# cut 4
......@@ -68,14 +72,14 @@ d5 $ g2 -- Bassline melodie
# legato 2
# lfobus 50 (fast 4 sine)
# midiG' "^82" 0 1
# crushbus 51 (range 16 2.95 "^54")
# crushbus 51 (range 16 2.95 "^33")
# octerbus 52 (range 0 "<0.4 0.5 0.9 1.2>" (fast "<4!3 8>" sine))
# octersubbus 53 (range 0 8 ("^34" + 0.5 * (fast 16 cosine)))
# octersubbus 53 (range 0 8 ("^53" + 0.5 * (fast 16 cosine)))
# panbus 54 (range 0.6 0.8 saw)
# room 0.5 # sz 0.8
# cut 5
d6 $ g2 -- Skank organ
$ midiOn "^59" (
$ midiOn "^90" (
superimpose (arp "<up up converge down>"
. (|+ note "0*<2 <2 4> 4 8>"))
)
......
......@@ -36,7 +36,7 @@ d2 -- Clap contretemps
$ g -- Snare
-- $ (|/ lpf 2)
-- $ (|- lpf 1000)
$ novaOn "^43" (fast 2)
$ novaOn "^42" (fast 2)
$ superimpose ((# "cp"))
$ "~ c"
# "glitch:2"
......@@ -48,50 +48,63 @@ d3 $ g -- Hats
-- sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
-- . sometimesBy "0 . 0 1 0 0" (|* gain 0)
-- )
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^43") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
-- 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.
$ novaOn ("^44") (<|"h*8")
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ s "hh"
# room "^52"
# sz "^32"
# room "^31"
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^32 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 d3's own control.
-- # sz "^32"
# dry (range 0 2 "^16")
# pan (range 0 1 "^15")
# cut 3
# orbit 3
# gM' 0.2 1 "^80"
d4 $ g -- Lead synth
$ novaOn "^57" (mask "t f t")
$ novaOn "^44" (mask "t f t")
$ slow 2
$ novaOn "^89" (striate 2)
$ novaOn "^76" (striate 2)
$ note (iter 4 melody) -- Naif
# "supersaw"
# pan 0.6
# rate (range 0 1 "^18")
# resonance (range 0 0.9 "^34")
# lfo (range 0 1 "^54")
-- # resonance (range 0 0.9 "^54")
# voice (range 0 1 "^33")
# crush (range 16 2 "^53")
# rate (range 0 1 "^32")
# resonance (range 0 0.9 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^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 d4's own control.
-- # lfo (range 0 1 "^54")
-- -- # resonance (range 0 0.9 "^54")
-- 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.
-- # voice (range 0 1 "^33")
-- 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.
-- # crush (range 16 2 "^53")
# release 0.95
# pan (range 0.5 1 "^18")
# pan (range 0.5 1 "^32")
# gM' 0.25 0.8 "^81"
# phasr "^19"
# phasdp "^20"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^19 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.
-- # phasr "^19"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^20 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.
-- # phasdp "^20"
d5
$ note (melody)
# "bassWarsaw"
# crush (range 12 4.2 "^54")
# crush (range 12 4.2 "^33")
# octave 3
# pan (range 0 0.5 "^18")
# pan (range 0 0.5 "^53")
# gM' 0 1.2 "^82"
d6 -- continuous laser
$ novaOn "^60" (off 1 (|* gain 0.8) . mask "<t f>")
$ novaOn "^59" rev
$ novaOn "^58" (off 1 (|* gain 0.8) . mask "<t f>")
$ novaOn "^90" rev
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^34 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^34 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(#54) d6 drives more controls than the grid gives it (B6 + C6). ^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 d6's own control with gSel.
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^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 d6's own control with gSel.
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^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 d6's own control with gSel.
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^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 d6's own control with gSel.
$ s "bd"
>| speed (
segment (range 16 128 "^35") $
segment (range 16 128 "^34") $
range
(range 0 256 "^55")
(range 0 256 "^54")
(range 0 256 "^56")
(slow (range 0.1 2 "^36") saw)
)
......@@ -116,7 +129,7 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
# gM' 0 1 ("^82" * (range 0.25 1.5 "^33"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
......@@ -131,11 +144,11 @@ d7
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^35")))
d8 -- Trompette lancinante
$ novaOn "^59" (mask "<f!3 t>")
$ novaOn "^60" (mask "<f!3 t>")
$ slow 2 $ note ("~ <a!7 g> <g d g bf> ~")
# "brass:2" # gM' 0.2 0.55 ("^55")
# "brass:2" # gM' 0.2 0.55 ("^36")
# cut 8 # room 0.1
d9 -- CP
$ sometimesBy "^59" (fast 2)
......
......@@ -25,9 +25,10 @@ d1 $ g1
. (|* gain 0.8)
)
"808bd"
$ midiOn "^42" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>")
$ midiOn ("^41" - "^42") (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>")
$ midiOff ("^41" + "^42") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)")
-- 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" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>")
$ midiOn ("^41" - "^41") (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>")
$ midiOff ("^41" + "^41") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)")
$ "[bd,808bd:4]"
# midiG' "^78" 0 1.2
d2 $ g1
......@@ -36,7 +37,7 @@ d2 $ g1
# "clap:1"
# midiG' "^79" 0 1.2
d3 $ g2
$ midiOn "^44" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush
$ midiOn "^43" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush
$ ply "2 <2 4>"
$ "sn:27*4"
# midiG' "^80" 0 1.2
......@@ -44,17 +45,17 @@ d4 $ g2
$ note "<e4 d4 <a3!3 f4>@2>"
# "supersaw" # octave 3
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# panbus 42 (0.5 + 0.1 * perlin)
# room 0.2
# sz 0.5
# dry 0.8
# midiG' "^81" 0 (1.2 - 0.2 * "^53")
# midiG' "^81" 0 (1.2 - 0.2 * "^32")
d5 $ g2
$ sometimesBy "0 0.05!14 0" (# crush 2)
$ sometimesBy 0.1 (ply 2)
$ swing "1 4"
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
mask "<t!16 f(<14 10>,16)!3 t!13>" .
(|+| note (
arp "<pinkyup <converge thumbupdown>>"
......@@ -67,13 +68,13 @@ d5 $ g2
# pan 0.7
# room 0.4
# midiG' "^82" 0 1.2
# modIndex (range 0 100 "^34")
# crushbus 51 (range 16 2.5 "^54")
# modIndex (range 0 100 "^33")
# crushbus 51 (range 16 2.5 "^53")
d6 -- Break balance
$ g1
$ midiOn "^60" (sometimesBy "0.5!14 0!2" $ ply 2)
$ midiOn "^92" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>"))
$ midiOff "^92" (slice 16 (run 8))
$ midiOn "^90" (sometimesBy "0.5!14 0!2" $ ply 2)
$ midiOn "^58" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>"))
$ midiOff "^58" (slice 16 (run 8))
$ loopAt 2
$ "break:26"
# cut 6
......
......@@ -2,12 +2,12 @@ do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ midiOn "^41" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ "[techno:0,kick:4]"
d2 $ gF1 $ gM2 $ "~ h2ogmcp:1"
# room 0.2 # dry 1.1 # sz 0.1
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
$ "hh(<3!3 5>,8,<0!6 1 2>)"
d4 $ gF2 $ gM3 -- Basse Fantome
$ superimpose ((|- note 24) . (|* gain 0.8) . (# "bassWarsaw") . (# cut 41) . (# crush 16))
......@@ -16,10 +16,10 @@ d4 $ gF2 $ gM3 -- Basse Fantome
# room 0.4 # sz 0.8
# pan 0.3
# gain 1.9
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 2 "^52")
d5 $ gF3 $ gM3 -- LASER SALVATEUR
$ midiOn "^90" (slice 4 (run "<4!3 8>. <4 8> <4 8 8 16>"))
$ midiOn "^89" (slice 4 (run "<4!3 8>. <4 8> <4 8 8 16>"))
$ chop 4
$ "synth_atari/4"
# n "<23!0 <24 25 24 23>!16>"
......@@ -29,12 +29,12 @@ d5 $ gF3 $ gM3 -- LASER SALVATEUR
# dry 1.5
# sz 0.6
# pan 0.8
# octersubbus 51 (range 0 2 "^34")
# octersubsubbus 52 (range 0 1.2 "^34")
# crushbus 53 (range 16 2 "^54")
# octersubbus 51 (range 0 2 "^33")
# octersubsubbus 52 (range 0 1.2 "^33")
# crushbus 53 (range 16 2 "^53")
# att 0.2 # rel 3.2
d8 $ gF1 $ gM2
$ midiOn "^56" (loopAt 4)
$ midiOn "^36" (loopAt 4)
-- $ midiOn "^92" (ply "2 <2 4 4 [16 . 8 4]>")
$ midiOn "^92" (ply "<2 4> <4 8>")
$ chop 8
......
......@@ -12,8 +12,8 @@ do
setcps (160/60/4)
let mMask = midiOn "^73" (# silence) -- Take your time
d1 $ gF1 $ mMask
$ midiOn "^42" (struct "t <t t*2 t [~ t]>") -- We push
$ midiOff "^42" (struct "t . ~ <~!4 t!4> ~ ~") -- We pull
$ midiOn "^41" (struct "t <t t*2 t [~ t]>") -- We push
$ midiOff "^41" (struct "t . ~ <~!4 t!4> ~ ~") -- We pull
$ "[cpu2,jazz,808bd:3]"
# midiG' "^78" 0 2
d2 $ gF1 $ mMask
......@@ -22,14 +22,14 @@ d2 $ gF1 $ mMask
# "808sd:11"
# midiG' "^79" 0 1.4
d3 $ gF1 $ mMask -- Break it down
$ midiOn "^44" (ply "<2!3 <4 4 [4 . 1 2] <4 8>>>")
$ midiOn "^43" (ply "<2!3 <4 4 [4 . 1 2] <4 8>>>")
$ splice 4 "0 1 2 3"
$ loopAt 8
$ "fbreak80"
# cut 3
# midiG' "^80" 0 1.2
d5 $ gF2
$ someCyclesBy ("^17") (-- We unite
$ someCyclesBy ("^33") (-- We unite
superimpose (# note ("<gs cs4 e fs>" - 12))
)
$ midiOn "^57" (mask "t(1,4)" -- Dreamstate
......@@ -48,20 +48,20 @@ d5 $ gF2
# pan 0.33
# midiG' "^81" 0 2
d4 $ gF2
$ sometimesBy "^18" ( ( -- FIXME
$ sometimesBy "^32" ( ( -- FIXME
(|+ note (12 + 2))
. (# "cbow:8") . (# cut 41) . (|* gain 0.8)
))
$ midiOn "^58" (mask "t f f f" . (# room 0.5))
$ midiOn "^44" (mask "t f f f" . (# room 0.5))
$ note ("<cs!3 ds> ~ ~ <e!3 cs> ~ ~ <cs!3 b4> ~"
-1 -- Drift back to unison
) # "808mc:3"
# crushbus 41 (range 16 1.2 "^54")
# crushbus 41 (range 16 1.2 "^52")
# midiG' "^82" 0 2
# dry 0.95
# sz 0.9
d6 $ gF2 -- CHOIR
$ midiOn "^59" (superimpose (
$ midiOn "^90" (superimpose (
whenmod 32 24 (ply 4)
. struct ("t@3 t@3 <t [t ~]>@2") -- Longer
. (|+ note 12) -- Higher
......@@ -78,13 +78,14 @@ d6 $ gF2 -- CHOIR
# room 0.83 # sz 0.4 # dry 1
d7 -- Dem Maracas
$ mask "t(16,32)"
$ midiOn "^60" (slow 2)
$ midiOn "^92" (ply "<2!3 4>")
$ midiOn "^59" (slow 2)
$ midiOn "^91" (ply "<2!3 4>")
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# crushbus 51 (range 16 4.2 "^20")
# room "^36"
# note (range "-24" "0" "^56")
# crushbus 51 (range 16 4.2 "^35")
# room "^55"
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^56 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 (range "-24" "0" "^56")
# midiG' "^84" 0 1.3
......@@ -4,17 +4,17 @@ do
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [~ k]>")
$ midiOff "^42" (<| "<<k!3 k(<3 6 12>,8)> [~ !7 <~ k>]>")
$ midiOn "^41" (<| "k k k <k [~ k]>")
$ midiOff "^41" (<| "<<k!3 k(<3 6 12>,8)> [~ !7 <~ k>]>")
$ "[kick:5,808bd:5]"
d2 $ gF1 $ gM2 -- Snare complice
$ fix (|* gain 0.8) "sn"
$ midiOn "^43" (<| "~ s ~ s*<1!6 3 3>")
$ midiOff "^43" (<| "<~ [s*<1!3 3> ~]>")
$ midiOn "^42" (<| "~ s ~ s*<1!6 3 3>")
$ midiOff "^42" (<| "<~ [s*<1!3 3> ~]>")
$ "[snare:13,sn:2]"
# pan 0.3
d3 $ gF1 $ gM2 $ gMaskEnd16 -- My grimest hat
$ midiOn "^76" (fast "[2]")
$ midiOn "^43" (fast "[2]")
$ "h(3,8) h([<3 5 5 3> <3 5>],8)"
# drumFrom "rolandtr909" "hh"
# cut 3
......@@ -33,7 +33,7 @@ d5 $ gF3 $ gM3 -- Burning butterflies FIXME TROP NUMERIQUE
# "supersquare"
-- # cut 5
# modIndex 2
# crushbus 51 (range 16 5 "^54")
# crushbus 51 (range 16 5 "^33")
# pan 0.45
# gain (0.5 + (range 0 0.2 (slow 2 perlin)))
# room 0.2
......@@ -49,21 +49,22 @@ d7 $ gF2 $ gM3
# octersubsub 0
# gain 0.9
d4 $ gM3 $ gF2 -- giorgio's massive tribal bass
$ midiOn "^91" (ply "2 <4 8>" . chop 8)
$ midiOn "^76" (ply "2 <4 8>" . chop 8)
$ slow 2
$ midiOn "^57" (>| note ("<ef bf fs gs>"))
$ midiOff "^57" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]"))
$ midiOn "^44" (>| note ("<ef bf fs gs>"))
$ midiOff "^44" (>| note ("[ef, <~ [~!15 e] [~!15 cs] [~!7 [e*2 cs]]>]"))
$ "giorgio_syn:23"
# cut 4
# room 0.4
# legato 2
# octersubbus 43 (range 0 5 "^17")
# squizbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 43 (range 0 5 "^32")
# squizbus 42 (range 0 1.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 2.5 "^53")
# gain 0.6
d8 $ gF1 $ gM2 $ gMaskEnd16 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt 2 . (# n "<60!3 61>"))
$ midiOn "^36" (loopAt 2 . (# n "<60!3 61>"))
$ midiOn "^92" (ply 4)
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
......
......@@ -59,7 +59,7 @@ d2
$ g -- Snare
$ (|- lpf 1000)
$ (|/ lpf 2)
$ novaOn "^43" (|<| "s*4")
$ novaOn "^42" (|<| "s*4")
$ "~ <~!7 s> ~ ~ . s"
# "[snare:50,snare:4]"
# orbit 1
......@@ -69,7 +69,9 @@ d3 $ g -- Hats
sometimesBy "0 . 1 0!3" ((# "ho:2") . (|* gain 0.9))
. sometimesBy "0 . 0 1 0 0" (|* gain 0)
)
$ novaOn ("^76") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
$ novaOn ("^43") (slice 8 (run 8) . (loopAt 1) . (>| "breaks165"))
-- 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.
$ novaOn ("^44") (<|"h*8") -- TODO Eclaircir
$ novaOff ("^44") (<| "h*[8 . 8 <8 16 32 4>]")
$ (|* gain "[1 0.9]*4") -- make sure that you reduce the velocity of the second Hi Hat hit
......@@ -79,13 +81,13 @@ d3 $ g -- Hats
# orbit 1
# gM' 0.2 1.5 "^80"
d4 $ g -- Bassline
$ novaOn "^57" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ novaOff "^57" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ novaOn "^44" (>| note "[~ a4] <a4 e e a4> [~ <a4 c>] <a4 e>") -- Naif
$ novaOff "^44" (>| note "<[~ a4@1.5 . a4 a4 e c] [e e . b4*<1 <2 4>>]>") -- simple+adjustements
$ note "0" # "bass1:3"
# cut 4
# pan 0.6
# attack (range 0 1 "^53")
# crush (range 16 4 "^53")
# attack (range 0 1 "^32")
# crush (range 16 4 "^32")
# release 0.95
# orbit 1
# gM' 0.25 1.2 "^81"
......@@ -103,7 +105,8 @@ d5 $ g $ gDelay -- Skank Piano
# release 0.8
# room 0.13 # sz 0.4
# pan 0.4
# gM' 0 1 ("^82" * (range 0.25 1.5 "^54"))
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^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 d5's own control.
-- # gM' 0 1 ("^82" * (range 0.25 1.5 "^33"))
d6 $ g $ gDelay-- Skank Hammond
$ ("0.125" ~>)
$ fast 2
......@@ -118,13 +121,14 @@ d7
$ note "[~ <a'min!2 e'min!2>]*2"
# "pluck:5"
# octave 5
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^18")))
# gM' 0 1 ("^82" * ((range 0.25 1.5 "^35")))
d8 -- Trompette lancinante
$ g $ gDelay
$ novaOn "^59" (mask "<f!3 t>")
$ novaOn "^60" (mask "<f!3 t>")
$ note ("<g [<a d> bf d ~]> <g [~ g a]>" + "0 <12 0>")
# "brass" # n "2"
# gM' 0.2 0.85 ("^55")
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^36 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 d8's own control.
-- # gM' 0.2 0.85 ("^36")
# attack 0.5 # cut 8
d9 -- CP
$ sometimesBy "^59" (fast 2)
......@@ -180,7 +184,7 @@ d5 $ g -- Basse + Sirene
. (-| note 12) -- 24 when crushed
. (# gM' 0 0.8 ((
"^81" -- gain bass
* (range 0.6 0.9 "^53") -- Modulated 5C
* (range 0.6 0.9 "^33") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
......@@ -192,8 +196,8 @@ d5 $ g -- Basse + Sirene
+ melodyFirst
)
# s "supersaw"
# voice 0.02
# crush (range 16 3.5 "^33")
-- # voice 0.02
# crush (range 16 3.5 "^53")
# gM' 0 0.8 "^81"
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantomes
......@@ -204,16 +208,17 @@ d7 $ g -- Claps fantomes
# gM' 0 1 "^83"
# pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire
$ sometimesBy "^20" (
-- 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.
$ sometimesBy "^36" (
superimpose (const -- pistolets
$ sometimes ( -- réplique
off 0.5 (|+ gain 0.1)
. (# room 0.25)
)
$ often (stut 2 0.85 (1/16)) -- écho
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + perlin/4))
# gM' 0 1 ("^56")
-- $ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^56" + perlin/4))
# gM' 0 1 ("^36")
# cut 80
# dry 1.02
# pan (range 0.2 0.8 perlin)
......@@ -223,6 +228,7 @@ d8 $ g -- Gunfire
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.5 1 ("^35" + perlin/4))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^35 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 d8's own control.
-- # speed (range 0.5 1 ("^35" + perlin/4))
# gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8
......@@ -8,8 +8,8 @@ do
-- resetCycles
setcps (108/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
......@@ -20,8 +20,10 @@ d2 $ gF1 $ gM2 $ "~ sn <~ [~ sn]> sn"
# room 0.4 # sz 0.6 # dry (slow 8 $ range 1 1.24 saw)
# gain 1.5
d3 $ gF1 $ gM2 -- Hats ouverts legers
-- 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)
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "ho:0*8"
# att 0.25
# rel 0.05
......@@ -37,18 +39,18 @@ d4 $ gF2 $ gM3
-- # room 0.4 # sz 0.8
# dry 1.4
# chorus 0.4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# octersubsubbus 43 (range 0 1.5 "^52")
d5 $ gF3 $ gM3
$ midiOn "^90" (slice 4 "1*[4 <4 8>]")
$ midiOn "^58" (ply "4 4 <4!3 8> <2 <8!3 16>>")
$ midiOff "^90" (slice 8 ("<0 1 0 1 0 1 2 3>"))
$ midiOn "^89" (slice 4 "1*[4 <4 8>]")
$ midiOn "^57" (ply "4 4 <4!3 8> <2 <8!3 16>>")
$ midiOff "^89" (slice 8 ("<0 1 0 1 0 1 2 3>"))
$ "medieval:210"
# cut 5
# room 0.1 # sz 0.9
# freezebus 51 "^18"
# crushbus 52 (range 16 2.5 "^54")
# freezebus 51 "^33"
# crushbus 52 (range 16 2.5 "^53")
d8 $ gF1 $ gM2
$ midiOn "^92" (loopAt "0.5 0.5 <0.5!7 0.25> <0.5!3 0.25>" . (# "breaks165"))
$ midiOn ("^60" - "^92") (mask "t(4,8,1)" . chop 8)
......
......@@ -5,6 +5,8 @@ do
setcps (135/60/4)
d1 $ gF1 $ gM1 -- Le Bum dans Bumbum
$ midiOn "^41" (mask "<t f> <f!3 [f t]>")
-- 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")
$ midiOff "^42" (<| "k . k(<3!7 8>,<9 8 8 9>)")
$ "[jazz]"
......@@ -16,13 +18,13 @@ d2 $ gM2 $ gF1 -- Popping snare
# gain 3
# room 0.4 # sz 0.8 # dry 1
d3 $ gM2 $ gF1 -- TAMTAM
$ midiOn "^44" (<| "~ h ~ h ~ h ~ h")
$ midiOff "^44" (<| "hh(3,8) hh(3,8)")
$ midiOn "^43" (<| "~ h ~ h ~ h ~ h")
$ midiOff "^43" (<| "hh(3,8) hh(3,8)")
$ "rampleS20:3"
# gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 8")
$ midiOn "^57" (superimpose
$ midiOn "^76" (ply "4 8")
$ midiOn "^44" (superimpose
(|+| note (struct "t*8" $ arp "up" ("c'maj'4 c'maj'4")
-- + 12
) )
......@@ -30,21 +32,21 @@ d4 $ gF2 $ gM3
$ note "<as2 [a2@3 <~ [cs2 c3]>]>"
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3 -- BumBum Flute (Run/Wait)
$ midiOn "^90" (slice 2 "<0 <1 0>>*<8!3 16>")
$ midiOn "^58" (>| n ("<4 5 6 7>")) -- RUN
$ midiOff "^58" (>| n ("<8!4 9!4>")) -- WAIT
$ midiOff "^90" (slice 2 "<0 1>" )
$ midiOn "^89" (slice 2 "<0 <1 0>>*<8!3 16>")
$ midiOn "^57" (>| n ("<4 5 6 7>")) -- RUN
$ midiOff "^57" (>| n ("<8!4 9!4>")) -- WAIT
$ midiOff "^89" (slice 2 "<0 1>" )
$ "bumbum"
# cut 5
# gain 1.4
d7 $ gF3 $ gM3 -- When the voice says BumBum
$ midiOn "^91" ((# begin 0.5) . ply "<4 4 4 8 4 8 16 32>")
$ midiOn "^19" (
$ midiOn "^35" (
(slow 2 . (>| n "<17 17 18 18 17 17 18 19>")) -- CALL
. (# begin 0.08) . (# cut 71))
$ midiOn "^35" ((>| "bumbum:25") . (# begin 0.08) . (# cut 71))
$ midiOn "^55" ((>| "bumbum:25") . (# begin 0.08) . (# cut 71))
$ fix ("s" <~) (n 10) -- Calage
$ fix (0.5 ~>) (n 11) -- Calage
$ fix (0.25 ~>) (n 12) -- Calage
......
......@@ -5,14 +5,14 @@ let gM = gMask . gMute
setcps (95/60/4)
d1 $ gM1 $ gF1
$ fix (|* gain 0.9) "kick:6"
$ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k*<1!3 2> ~ [~ k*<1 2 1 <1 2>>]>")
$ midiOn "^41" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ ~ ~ <~ k*<1!3 2> ~ [~ k*<1 2 1 <1 2>>]>")
-- $ "[techno:0,808bd:2,909,kick:6]"
$ "[jazz,kick:4]" -- TODO REWORK KICK FOR LIGHTER VIBE
# lpf 6000
# gain 1.5
d2 $ gMute $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ midiOn "^75" (# "cp")
$ fix (# note "-4") "snare"
$ "~ s*<1!3 <2 4>>"
......@@ -20,8 +20,10 @@ d2 $ gMute $ gF1
-- # lpf 2000
# gain 1
d3 $ gF1 $ gMute
-- 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 "^44" (struct "t*[16!3 <8 [8 <16 32>]>]")
$ midiOn "^43" (struct "t*[16!3 <8 [8 <16 32>]>]")
-- $ 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"
-- $ midiOff ("^44" + "^76") (<| "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" )
......@@ -33,53 +35,54 @@ d3 $ gF1 $ gMute
# room 0.2 # dry 0.9
# gain 1.05
d4 $ gF2 $ gM3 -- Basse complainte
$ midiOn "^89" ((ply "8 <16 [16 8]>")
$ midiOn "^44" ((ply "8 <16 [16 8]>")
-- . (# room "0 0.4")
-- . (# sz "1 1.2")
. (# cut 4))
-- $ note "[c3,ef3,g3,as3,d4,f4]"
-- Bassline habituelle
$ midiOff "^57" (
$ midiOff "^76" (
>| note "<<d4!6 [d4@7 <f4 g4>]!2> <a3!4 [a3@7 <c4 c3>]!4> [<g3 [g3@7 f3]>] d3>"
)
$ midiOn "^57" (
$ midiOn "^76" (
>| note "<[d3@6 c3@2] <as3 as3*2> <[f4@6 f4 g4] [f4@5 g4 f4 c4]> d4>"
)
$ "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.2
# cut "41 42 43 44"
# gain 1.42
d5 $ gF3 $ gM3 -- SIDEKICK LEAD AMI FIABLE DE LA BASSE
$ midiOn "^90" ((ply "4 <8 [8 4]>")
$ midiOn "^57" ((ply "4 <8 [8 4]>")
-- . (# room "0 0.4")
-- . (# sz "1 1.2")
. (# cut 4))
-- Bassline habituelle
$ midiOff "^57" (
$ midiOff "^89" (
|+| note "<<d4!6 [d4@7 <f4 g4>]!2> <a3!4 [a3@7 <c4 c3>]!4> [<g3 [g3@7 f3]>] d3>"
)
$ midiOn "^57" (
$ midiOn "^89" (
|+| note "<[d3@6 c3@2] <as3 as3*2> <[f4@6 f4 g4] [f4@5 g4 f4 c4]> d4>"
)
$ note "0 7 <0!3 [0 15]> 12" # "FMRhodes1"
# crushbus 51 (range 16 2.5 "^54")
# modIndex (range 0 2.5 "^34")
# crushbus 51 (range 16 2.5 "^33")
# modIndex (range 0 2.5 "^53")
# room 0.2
# cut "41 42 43 44"
# gain 1.42
d7 $ gM3 $ gF3
$ n "<0 0 <6 5> 0 1 1 2 7>"
# "come_guitar" # cut 6
# crushbus 61 (range 16 2.5 "^55")
# lpfbus 62 (range 10000 7500 "^55")
# crushbus 61 (range 16 2.5 "^35")
# lpfbus 62 (range 10000 7500 "^35")
# room 0.3
d8 $ gM $ gF3
$ midiOn "^60" (mask "t(4,8,1)" . chop 8)
$ midiOn "^92" (ply "<4 4 8 16>")
$ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break
$ midiOn "^36" (# "jungle_breaks:45") -- House Orleanaise
$ midiOn "^36" (loopAt 4 . (# n 11)) -- Submarine break
-- 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" (# "jungle_breaks:45") -- House Orleanaise
$ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break
$ slice 8 "0 1 2 3*<1 2>"
$ loopAt 2
......
......@@ -6,8 +6,8 @@ setcps (60/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" ((|> "808bd:4") . fast "<2!6 4 8>" . (<|"k k k k"))
$ midiOff "^42" ((|> "808bd:4") . (<|"k . k(<3 [3 5] [5 3] [8 <8 16>]>,8)"))
$ midiOn "^41" ((|> "808bd:4") . fast "<2!6 4 8>" . (<|"k k k k"))
$ midiOff "^41" ((|> "808bd:4") . (<|"k . k(<3 [3 5] [5 3] [8 <8 16>]>,8)"))
-- $ fast 2
$ "808bd:4"
# gain 1.4
......@@ -17,38 +17,38 @@ d2 $ gF2 $ gM2
# gain 1.3 # legato 0.35
# hpf 1300
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ midiOn "^43" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^43" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr"
d4 $ gF2 $ gM3
$ midiOn "^57" (
$ midiOn "^76" (
(|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)"))
)
$ midiOn "^89" (struct "t . t(3,8)")
$ midiOn "^44" (struct "t . t(3,8)")
$ note "<fs3 d3 cs3 <b2 e2>>"
# "bassWarsaw"
# crushbus 41 (range 16 2 "^53")
# octerbus 42 (range 0 1.5 "^33")
# octersubbus 43 (range 0 2.5 "^33")
# crushbus 41 (range 16 2 "^32")
# octerbus 42 (range 0 1.5 "^52")
# octersubbus 43 (range 0 2.5 "^52")
# room 0.4
# gain 1.2
d5 $ gF3 $ dMask $ gM3 -- Evasif
$ superimpose (const
$ (0.125 ~>)
$ midiOn "^42" (fast 2)
$ midiOn "^89" (fast 2)
$ slice 4 "<0 1 2 3>"
$ "numb:27/2"
# room 0.3
# cut 51
# lpf 3000
|* gain ("^34")
|* gain ("^33")
)
$ midiOn "^90" (ply "<4!3 [8 8 16 <8 16>]>")
$ midiOn "^57" (ply "<4!3 [8 8 16 <8 16>]>")
-- $ slow 16 $ mask "t(8,16) t(8,16)"
$ chop 8
$ "numb/2"
# crushbus 51 (range 16 4.1 "^54")
# octersubbus 52 (range 0 1.1 "^34")
# crushbus 51 (range 16 4.1 "^53")
# octersubbus 52 (range 0 1.1 "^33")
# cut 5
# room 0.3
d6 $ gF3 $ gM3 -- MoRE LIKE ME // LESS LIKE YOU
......
......@@ -42,7 +42,7 @@ d2 $ g -- Contretemps snare
# "[snare:20,gretsch:2]"
# midiG "^79"
d3 $ g -- Drumroll fantôme
$ midiOn "^44" (const
$ midiOn "^43" (const
-- $ sometimesBy "0 0.8!6 0" (ply "<2 [2|4]>" . (|* gain 0.9))
$ slice 8 (run 4 + "0 <~!4 4!4>")
$ loopAt 2
......@@ -65,7 +65,7 @@ d3 $ g -- Drumroll fantôme
# pan (0.4 + (slow 4 perlin/4))
# midiG' "^80" 0 0.8
d4 $ g -- Lead nostalgia gauche
$ midiOn "^57" (fast 2)
$ midiOn "^76" (fast 2)
-- $ (|* gain "<1 [0.8 0.9] 0.8 ~>") -- ajust prog nombre variable
$ note (prog
|+| "<0 [0 . ~!3 <~ <1 -2>>] 0 ~>" -- fillers
......@@ -74,25 +74,25 @@ d4 $ g -- Lead nostalgia gauche
)
# s "FMRhodes1"
# room 0.2
# leslie (range 0.1 1 "^33") # lrate 0.7 # lsize 0.5
# crushbus 4 (range 16 6 "^53")
# leslie (range 0.1 1 "^32") # lrate 0.7 # lsize 0.5
# crushbus 4 (range 16 6 "^52")
-- # note "<-20 -15 [-20,-16] ~>"
-- # velocity "<0.7 0.6 0.7>"
# midiG' "^81" 0 1.5
d5 $ g -- Infectious Bassline
$ whenmod 16 8 (degradeBy "[0 0.5!3]*2")
$ midiOn "^58" (ply "[1 2]*<4 4 2 4>")
$ midiOn "^89" (ply "[1 2]*<4 4 2 4>")
$ note (fast 8 (often rev "<e d c b4>")
- 24
)
# cut 5
# "bassWarsaw"
# width "^34"
# crushbus 5 (range 16 2.5 "^54")
# width "^33"
# crushbus 5 (range 16 2.5 "^53")
# midiG' "^82" 0 1.3
# room 0.2
d7 -- TOYS TODO Rework classico louche
$ degradeBy (0.99 - "^55")
$ degradeBy (0.99 - "^35")
$ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1"))
$ slice 8 (stack [
"<~!8 4!4 [4 5]!4>", -- Classico
......
......@@ -5,19 +5,21 @@ setcps(125/60/4)
let prog = "<c g f c>"
d1 $ gF1 $ gM1
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:5,tech:5,jazz]"
# gain 1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ . c*<1!3 <2!3 4>> ~")
$ fix ((|* gain 0.8) . (# room 0)) "cp"
$ "[cp]" # room 0.4 # sz 0.5 # dry 1.2
# gain 0.7
-- # lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
# "h2ogmsn:12"
......@@ -28,11 +30,11 @@ d3 $ gF1 $ gM2 -- Highest hats
# pan "<0.7!16 0.3!16>"
-- # pan 0.8
d4 $ gM3 $ gF2
$ midiOn "^57" (superimpose ( -- Arp up!
$ midiOn "^76" (superimpose ( -- Arp up!
struct "t*<4 8>" .
(|+| note (arp "down" "[0,<5 7>,9, 12]")) . (# cut 41))
)
$ midiOn "^89" (ply "2 <4 8>")
$ midiOn "^44" (ply "2 <4 8>")
-- $ chop 8
$ loopAt 4
$ note (prog - 36 + "0(3,8) 0(<3 5>,8,<0!6 2!2>)")
......@@ -41,7 +43,7 @@ d4 $ gM3 $ gF2
# legato 4
# pan 0.35
# room 0.3
# crushbus 41 (range 12 4.5 "^53")
# crushbus 41 (range 12 4.5 "^32")
d5 $ gM3 $ gF3
$ someCyclesBy (slow 8 $ range 0.1 1 saw) (degradeBy "0 1!6 0.5")
$ swingBy ("<1!3 <2 1>>"/3) 4
......@@ -51,7 +53,7 @@ d5 $ gM3 $ gF3
# legato 4
# pan 0.35
# room 0.3
# modIndex (range 0 50 "^54")
# modIndex (range 0 50 "^33")
d7 $ gF3 -- Anges du Minitel
$ midiOn "^91" (chop 8)
$ swingBy ("<1!3 2>"/3) 4
......@@ -89,7 +91,7 @@ d7 $ gM3 $ gF3
$ loopAt 2
$ "nujazz_keys125" # n "<66!4 67!4>"
# cut 7
# octerbus 71 (range 0 0.5 "^55")
# octerbus 71 (range 0 0.5 "^35")
# pan 0.1
d12 $ gM3 $ gF3
$ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
......
......@@ -5,30 +5,32 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t <t!3 [~ t]>")
$ midiOff "^42" (struct "t")
$ midiOn "^41" (struct "t t t <t!3 [~ t]>")
$ midiOff "^41" (struct "t")
$ "jazz"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (<| "~ c ~ c*<1 <2 [4 <2 4>]>>")
$ midiOff "^43" (<| "~ c")
$ midiOn "^42" (<| "~ c ~ c*<1 <2 [4 <2 4>]>>")
$ midiOff "^42" (<| "~ c")
$ "cp" # lpf 2000 # gain 0.8
# midiG' "^79" 0 1.2
d3 $ gF3 $ gMute
-- 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 4)
$ midiOn "^44" (struct "t*[8 8 <8 16> <8!3 16>]")
$ midiOff "^44" (<| "h . h([2 <4!3 5>],8)")
$ midiOn "^43" (struct "t*[8 8 <8 16> <8!3 16>]")
$ midiOff "^43" (<| "h . h([2 <4!3 5>],8)")
$ drumFrom "yamaharm50" "hh"
# midiG' "^80" 0 1.2
d4 $ gF2
$ midiOn "^89" (ply "1 . <2 1> <1 <2 4>>")
$ midiOn "^57" (|+ note 12)
$ midiOn "^76" (ply "1 . <2 1> <1 <2 4>>")
$ midiOn "^44" (|+ note 12)
$ note (stack ["[bf3 ~] bf3@7",
"[~!3 <~!4 bf3!4> . bf3 ~ cs4 <ds4!3 f4>]"
])
# "bassWarsaw"
# crushbus 51 (range 16 3.4 "^53") -- BURN ME I'M FAMOUS
# roombus 52 (range 0 0.8 "^53") -- REVERB AND DINE BEFORE THO
# crushbus 51 (range 16 3.4 "^32") -- BURN ME I'M FAMOUS
# roombus 52 (range 0 0.8 "^32") -- REVERB AND DINE BEFORE THO
# midiG' "^81" 0 1.2
d6 $ gF3
$ note (
......@@ -38,7 +40,7 @@ d6 $ gF3
)
# "cpluck:2"
# cut 6
# crushbus 61 (range 16 2.8 "^54") -- BURN ME I'M FAMOUS
# crushbus 61 (range 16 2.8 "^34") -- BURN ME I'M FAMOUS
# midiG' "^82" 0 1.2
d7 $ gF3 -- SHILOOOOOH FIXME: Marche plus avec la nouvelle basse
$ midiOff "^59" ((# room 0.2) . (# legato 0.5))
......@@ -57,8 +59,9 @@ d7 $ gF3 -- SHILOOOOOH FIXME: Marche plus avec la nouvelle basse
# cut 7
# midiG' "^83" 0 1.2
d8 $ gF3 $ gM -- SIDE DRUMS TO THE RESCUE!
$ midiOn "^20" (# n "20") -- SLOW DOWN
$ midiOn "^36" (# n "10") -- HAT TRICK
$ midiOn "^36" (# n "20") -- SLOW DOWN
-- 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" (# n "10") -- HAT TRICK
$ midiOn "^56" ((# n "11")) -- RESOLUTE
$ midiOn "^60" (slow "2 <4 8>")
$ midiOn "^92" (ply "2 <4 8>")
......
......@@ -6,8 +6,8 @@ let gM = gMask . gMute
let progAlt = "<[c,e,g,b] [c,e,gf,a4] [c,ef,g,bf5] [c,e,g,d5]>"
let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t <t!3 <t*2 t*[4 2]>>")
$ midiOff "^42" (struct "t*[<1!4 [8 <8 4>]!4> . 2] . ~ ~ ~ <~!3 t>")
$ midiOn "^41" (struct "t t t <t!3 <t*2 t*[4 2]>>")
$ midiOff "^41" (struct "t*[<1!4 [8 <8 4>]!4> . 2] . ~ ~ ~ <~!3 t>")
$ "[808bd:13,jazz]" -- 11
-- # midiG' "^78" 0 1.42
-- # room 0.2 # sz 0.2
......@@ -16,13 +16,15 @@ d2 $ gF $ gM -- Snare clockwork
$ fix (|* gain 0.9) "clap"
$ midiOn "^75" (struct "~ t ~ t ~ t ~ t*2")
$ midiOff "^75" (
midiOn "^43" (struct "~ t(<3 [3 <1 5>]>,8)")
. midiOff "^43" (struct "<[~ t]!32 [~ t ~ t]!32>")
midiOn "^42" (struct "~ t(<3 [3 <1 5>]>,8)")
. midiOff "^42" (struct "<[~ t]!32 [~ t ~ t]!32>")
)
$ "[snare:40]"
# midiG' "^79" 0 1.2
d3 $ gF $ gM
$ 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" (ply "2 4")
$ drumFrom "yamaharm50" "hh*<8!3 [8 . 16 <8 16 [24 8] 32>]>"
# n "<0 1 2 3>"
......@@ -33,8 +35,9 @@ d8 $ gF $ gM
$ midiOn "^92" (ply "2 <2 4>")
$ loopAt 1
$ chop 8
$ someCyclesBy "^20" ((# n 20))
$ someCyclesBy "^36" (loopAt 2 . (# n 81))
$ someCyclesBy "^36" ((# n 20))
-- 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.
$ someCyclesBy "^56" (loopAt 2 . (# n 81))
$ sometimesBy "^56" ((iter "1 4"))
$ "jungle_breaks:13"
# room 0.2 # dry 1.1 # sz 0.4
......@@ -42,8 +45,8 @@ d8 $ gF $ gM
# pan (slow 8 $ range "<0.2!8 0.8!8>" 0.5 cosine)
# midiG' "^84" 0 1.3
d4 $ gF3 -- LoFi Girl at the piano!
$ midiOn "^90" (ply 2)
$ midiOn "^58" (
$ midiOn "^76" (ply 2)
$ midiOn "^44" (
-- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9))))
-- . (off ("h" + "s") id . arp "up")
-- .
......@@ -52,7 +55,7 @@ d4 $ gF3 -- LoFi Girl at the piano!
$ whenmod 64 32 (# note (progAlt - 12))
$ note (prog - 12)
# "FMRhodes2"
# modIndex (range 0 16 "^54")
# modIndex (range 0 16 "^32")
# pan 0.8
# midiG' "^82" 0 1.5
d5 $ gF2 -- Bassline langoureuse
......@@ -62,7 +65,7 @@ d5 $ gF2 -- Bassline langoureuse
"<[c,c(3,8)] [g,[~ f6],g*4] [bf,bf(3,8)] c4>" + "0"
- 24)
# "bassWarsaw"
# crushbus 51 (range 16 2 "^53")
# crushbus 51 (range 16 2 "^33")
# midiG' "^81" 0 1.52
# room 0.2 # sz 0.2
d7 $ gF3
......
......@@ -25,17 +25,17 @@ d2 $ g -- Contretemps snare
# gain 0.8
d3 $ g -- Drumroll fantome
$ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ midiOn "^44" (fast "4 2")
$ midiOn "^43" (fast "4 2")
$ "d*<4 4 8 [4 . <4 16> 16]>" # "[drum:2,cpu:2]"
# room 0.6 # sz 0.9 # dry 1.01
# midiG' "^80" 0 1.2
d4 $ g -- A slice of bass
$ midiOn "^89" (chop 8)
$ midiOn "^76" (chop 8)
$ slice 4 "<0 0 [0 1] 3 0*2 [0 1] [3 2] [3*2 3*<2 4>]>"
-- $ slice 4 "<0!8 1!8 2!8 3!8>*<1!4 2 1 2 4>"
$ "fbass:8"
# gain 0.7
# crushbus 41 (range 8 2.9 "^53")
# crushbus 41 (range 8 2.9 "^32")
# room 0.2
# pan 0.2
# cut 4
......@@ -43,7 +43,7 @@ d5 $ g -- Climbing guitar
$ whenmod 64 32 (superimpose (
slice 4 "0*<1 2 1 <2 4>>" .
(# cut 51) . (|+ note 12)
. (|* gain (range 0.5 1.5 "^34"))
. (|* gain (range 0.5 1.5 "^33"))
))
$ slice 4 (
(whenmod 8 4 (fast 4)) $
......@@ -53,11 +53,11 @@ d5 $ g -- Climbing guitar
# cut 5
# pan 0.4
# gain 0.5
# crushbus 51 (range 8 1.9 "^54")
# crushbus 51 (range 8 1.9 "^53")
d6 $ g -- Glitchy piano!
$ whenmod 8 4 (someCyclesBy "0 1 . <0 0.25 0.5 1>" rev)
$ midiOn "^59" (slice 8 $ "0 1(<1 3 5 <2 4 8>>,8) 2 3*2" + "<0!8 4!8>")
$ midiOff "^59" (slice 8 $ "0 1 2 3*2" + "<0!8 4!8>")
$ midiOn "^90" (slice 8 $ "0 1(<1 3 5 <2 4 8>>,8) 2 3*2" + "<0!8 4!8>")
$ midiOff "^90" (slice 8 $ "0 1 2 3*2" + "<0!8 4!8>")
$ "fpiano:11"
# cut 6
# pan 0.4
......@@ -71,7 +71,7 @@ d7 $ g -- Sirene
# "supersiren"
# room 0.3 # sz 0.6
# gain 0.5
# crushbus 71 (range 8 0.9 "^56")
# crushbus 71 (range 8 0.9 "^35")
# cut 7
d8 $ loopAt 2
$ "break:12"
......
......@@ -3,8 +3,8 @@ setcps (65/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k k"))
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
$ midiOn "^41" (fast 2 . (<| "k k k k"))
$ midiOff "^41" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
$ "[jazz,kick:5,808bd:3]"
# room 0.3 # sz 0.9 # dry 1
d2 $ gF1 $ gM2 $ dMask
......@@ -25,13 +25,13 @@ d4 $ gF2 $ gM3
"<g g <gf bf> g g g bf d>" + (fast 2 $ arp "pinkyup" ("<c!7 g>" + "c'min'4"))
- 36
) # "bassWarsaw"
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 4.5 "^32")
# octersubbus 42 (range 0 1.5 "^52")
# gain 1.3
d5
$ gF3 $ gM3
$ midiOn "^90" (off 25 id . ply "4 8")
$ midiOn "^58" (ply 4 . slice 4 "<0 1 2 3>")
$ midiOn "^89" (off 25 id . ply "4 8")
$ midiOn "^57" (ply 4 . slice 4 "<0 1 2 3>")
$ "law_adri"
# n "<1!24 2!8>"
# cut 5
......@@ -70,22 +70,22 @@ d8 $ gF1 $ gM2
# cut 8 # hpf 500
d4 $ gF2 $ gM3
$ midiOn "^57" (superimpose ((0.25 ~>)
$ midiOn "^76" (superimpose ((0.25 ~>)
. (|+| note (
"[0 7 0 12]*2" +
"0 0 0*<1!4 2!4> 0*<1 2 1 2 2!3 4>"
+ "<12!6 24 [24 . 12 0]>"
))))
$ midiOn "^89" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ midiOn "^44" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ note "<g3 g3 bf3 d3>"
# "bassWarsaw"
# gain 1.2
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 4 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.2
# sz 0.2
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "4 8")
$ midiOn "^89" (ply "4 8")
$ n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>"
# "law_adri"
# cut 5
......
......@@ -14,21 +14,23 @@ let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gM1
$ fix (|* gain 0.9)"kick:4"
$ midiOn "^42" (struct "t t t t") -- Le Run
$ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOn "^41" (struct "t t t t") -- Le Run
$ midiOff "^41" (struct "~ <t!3 ~>") -- L'attente
$ "[techno:0,808bd:2,909,kick:4]"
# rel 0.5
# att 0.015
# lpf 4000
# gain 1.5
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" ((|* gain "0 1 <0.9 0.8> 1") . (<| "~ c <~ [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ midiOn "^42" ((|* gain "0 1 <0.9 0.8> 1") . (<| "~ c <~ [~ c]> c"))
$ midiOff "^42" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.2
d3 $ gF $ gMute
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOff "^43" (mask "t([8 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -36,26 +38,26 @@ d3 $ gF $ gMute
-- # midiG' "^80" 0 1.6
# gain 1.1
d4 $ gM3 $ gF2
$ midiOn "^89" (# n "20")
$ midiOn "^57" (ply "4 4 <1 1 1 4> <1 2 2 4>")
$ midiOn "^44" (# n "20")
$ midiOn "^76" (ply "4 4 <1 1 1 4> <1 2 2 4>")
$ "zombie" # n "<4 6 4 6 11 11 11 11>"
# cut 4
# begin "<0!4 0 0.2 0.2 0.4>"
# gain 1.3
# pan 0.4 # room 0.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3
$ "zombie" # n "<12!4 6!4 2!3 1 2 2 1 2>"
# cut 5
# pan 0.8
# crushbus 51 (range 16 4.5 "^54")
# octerbus 52 (range 0 1.5 "^34")
# octersubbus 53 (range 0 2.5 "^34")
# crushbus 51 (range 16 4.5 "^33")
# octerbus 52 (range 0 1.5 "^53")
# octersubbus 53 (range 0 2.5 "^53")
# room 0.4
# gain 1.2
d7 $ gF3 $ gM3
$ midiOn "^59" (chop 4)
$ midiOn "^91" (ply "2 2 2 4")
$ midiOn "^91" (chop 4)
$ midiOn "^59" (ply "2 2 2 4")
$ "zombie:24"
# cut 7
d8 $ gM $ gF -- Breaks divins
......
......@@ -8,8 +8,8 @@ setcps (93/60/4)
let prog = "<[d,fs,b4] [cs,e,a4] [d,g,b4] <[d,fs,a4] [d,a4,fs5]>>"
let progMin = "<[d,b4] [cs,a4] [d,b4] <[d,a4] [d,fs5]>>"
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 k*<1!3 4>")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . ~!3 k*<1!3 4>")
$ "[jazz,rampleA0:1]"
# lpf 2000
# att 0.02
......@@ -21,26 +21,26 @@ d2 $ gF1 $ gM2
# hpf 5000
# rel 0.35
d3 $ gF1 $ gM2
$ midiOn "^76" (off "e" id)
$ midiOn "^43" (off "e" id)
$ "hh(3,8) hh(<3!3 <[5] [3 5]>>,8)" # "hh:8" -- Chunglristmas bath
# gain 1.4
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t([<8 16> <16 [16 32]>],8)")
$ midiOn "^44" (struct "t([<8 16> <16 [16 32]>],8)")
-- $ midiOff "^57" (# legato 0.5)
$ note ("[0,7(<3 5 [5 3] <3 [3 5]>>,8,1)]" + "<d b4 g4 fs4>" - 24)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.3
d5 $ gF3 $ gM3
$ midiOn "^90" ( -- Sparkling echoes
$ midiOn "^57" ( -- Sparkling echoes
(whenmod 4 3 (off "s" ((|* gain 0.9) . (|+ note 12))))
. (off "e" ((|+ note 12))))
$ midiOn "^58" (|+| note "0 12")
$ midiOn "^89" (|+| note "0 12")
$ note ("<0(3,8)!3 0(3,8)*2>" + prog)
# "FMRhodes2"
# modIndex (range 0 16 "^54")
# modIndex (range 0 16 "^33")
d7 $ gF3
$ midiOff "^59" (>| n "~ <~ <1 2>> ~ ~") -- Intro Fabuleux
$ midiOn "^91" (ply 8)
......@@ -50,13 +50,13 @@ d7 $ gF3
$ someCyclesBy "<1!8 0!8 1!8 0!8 32!0>" (>| n "<0 1 0 <4 6>>") -- Fab/Bonheur/Genial
$ "aoc_fr"
# cut 7
# octerbus 71 (range 0 0.9 "^55")
# octerbus 71 (range 0 0.9 "^35")
# gain 1.5
# room 0.4 # sz 0.8 # dry 1
d8 $ gF1 $ gM2
$ chop 8
$ midiOn "^60" (ply "<4 <2 [2 8]>>")
$ midiOn "^92" (ply "2!3 <2 4>")
$ midiOn "^92" (ply "<4 <2 [2 8]>>")
$ midiOn "^60" (ply "2!3 <2 4>")
$ midiOn "^36" ((>| "jungle_breaks:24"))
$ midiOn "^56" ((>| "jungle_breaks:25"))
$ loopAt 2
......
......@@ -11,23 +11,27 @@ let prog = "<d6'm9 g6'dom7'ii c6'maj7 c5'maj7'iii>"
setcps (95/60/4)
d1 -- Kick techno 1-2-4/4
$ g
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^42" (fast 2)
$ midiOn "^41" (struct "t t t <t t*2 t [<~ t> t]>")
$ "[jazz,bd:2]"
# midiG' "^78" 0 2
d2 $ g
$ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]")
$ midiOn "^42" (struct "t*[4 8 16 <8 [32 16]>]")
$ "~ ~ h ~ ~ h*2 [<~ h h ~> <h ~>] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>"
# midiG' "^79" 0 1.25
d3 $ g
$ loopAt 2
$ midiOn "^76" (ply "1 2")
$ midiOn "^43" (ply "1 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" (scramble "1 8")
$ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>")
$ "fbreak100:4"
# midiG' "^80" 0 1.8
d4 $ g -- Hoover bassline
$ midiOn "^57" (superimpose (
$ midiOn "^76" (superimpose (
arp "up"
. struct "t*<2!3 4>"
. (|+| note (12 + "c'maj'3"))
......@@ -36,15 +40,15 @@ d4 $ g -- Hoover bassline
-- $ slow 2
$ n ("0" + prog - 24)
# s "superhoover"
# squizbus 30 (range 0 1.37 "^33")
# crushbus 31 (range 16 1.3 "^53")
# squizbus 30 (range 0 1.37 "^32")
# crushbus 31 (range 16 1.3 "^52")
# ampb 32 (range 0 0.25 "^81")
# pan 0.2
# midiG' "^81" 0 1.38
# legato 1.05
d5 $ g -- Arp aigus Rhodes
$ superimpose (|- note 24)
$ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")
$ midiOn ("^57" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)")
$ note (arp "<up!6 [up|down|updown]>"
$ prog
|+ "0 12"
......@@ -52,7 +56,7 @@ d5 $ g -- Arp aigus Rhodes
)
# "FMRhodes1"
# ampbus 40 (range 0 0.82 "^82")
# crushbus 41 (range 16 3.9 "^54")
# crushbus 41 (range 16 3.9 "^33")
# modIndex "[0,2.5]"
d10 $ g
$ "~ [h2ogmcp,clap]"
......
......@@ -5,18 +5,18 @@ resetCycles
do
setcps (115/60/4)
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^42" (<| "k*2")
$ midiOn "^41" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^41" (<| "k*2")
$ "[jazz,kick:5]"
# gain 1.4
d2 $ gM2 $ gF1 -- Clave de l'été
$ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2)
$ midiOn "^42" (fast 2)
$ midiOn ("^75"-"^42") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1"))
$ "d ~ ~ d d ~ d <~!3 d>"
-- $ "d"
# "[snare:22,sn:4]"
# speed (range 0 2 "^31")
# speed (range 0 2 "^30")
# gain 1.4
d3 $ gF1 $ gM2 -- L'inoubliable drumroll
$ fix (
......@@ -32,24 +32,24 @@ d3 $ gF1 $ gM2 -- L'inoubliable drumroll
d4 $ gF2 $ gM3 -- Bassline variable double piste
$ loopAt 2
$ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
$ midiOn ("^57" + "^89") (# n 14)
$ midiOn ("^44" + "^76") (# n 14)
$ "fbass:13"
# pan 0.2
# crushbus 51 (range 16 4.5 "^53")
# roombus 52 (range 0 0.8 "^33") # sz 0.5
# crushbus 51 (range 16 4.5 "^32")
# roombus 52 (range 0 0.8 "^52") # sz 0.5
# gain 1.2
# cut 4
d5 $ gF3 $ gM3 -- Douce guitare juxée
$ midiOn "^90" (ply "2")
$ midiOn "^89" (ply "2")
$ chop 16
-- $ whenmod 32 16 (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
-- $ whenmod 16 12 (rev)
$ whenmod 8 4 (chop 4)
$ loopAt 4
$ midiOn "^58" (# n 13)
$ midiOn "^57" (# n 13)
$ "fguitar:12"
# release (range 2 0.15 "^34")
# crushbus 61 (range 16 1.4 "^54")
# release (range 2 0.15 "^33")
# crushbus 61 (range 16 1.4 "^53")
# pan 0.8
# room 0.2 # dry 1
# cut 3
......@@ -59,8 +59,8 @@ d7 $ gF3 $ gM3
$ superimpose ((# cut 71) . (# crushbus 71 (range 16 2.5 "^55")))
$ loopAt 4
$ mask "t(<4 8 12 16>,16)"
$ midiOn "^59" (slice 16 (run "<16!8 32!4 [32 <8 [8 32]>]!4>"))
$ midiOff "^59" (slice 16 (run 16))
$ midiOn "^91" (slice 16 (run "<16!8 32!4 [32 <8 [8 32]>]!4>"))
$ midiOff "^91" (slice 16 (run 16))
$ "fpiano:13"
# pan 0.45
# cut 7
......
......@@ -7,15 +7,15 @@ let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (120/60/4)
d1 $ g
$ midiOn "^42" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^42" (struct "t*<1!3 2> . t(3,8)")
$ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^41" (struct "t*<1!3 2> . t(3,8)")
$ "jazz"
# room 0.5 # sz 0.5
# dry 1
# midiG' "^78" 0 1.6
d2 $ g
$ superimpose (const
$ midiOff "^43" (# silence)
$ midiOff "^42" (# silence)
$ mask "<f!8 t!24>"
$ "~ . cp*<1!3 2> ~"
# lpf 2000
......@@ -25,9 +25,9 @@ d2 $ g
# midiG' "^79" 0 0.8
# note (range "-12" 12 "^51")
d3
$ sometimesBy "^52" (ply 2)
$ sometimesBy "^31" (ply 2)
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^43" (slow 2)
$ "~ h ~ h ~ <h h*2> ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
......@@ -35,22 +35,24 @@ d3
)
# midiG' "^80" 0 1.3
d4 $ g -- Synth brass choir
$ midiOn "^57" (# crushbus 4 6)
$ midiOn "^44" (# crushbus 4 6)
$ fix (
(# "fsynth:3")
. slice 8 "0 1*<1 2 2 1> 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
. arp "pinkyup"
. (|+ pan 0.1)
. (>| note ("c'maj'3" - 7))
. (|* gain ("^17" * 0.9))
. (|* gain ("^32" * 0.9))
) "a"
$ fix (
(# "fsynth:3")
. (|- note 12)
. whenmod 4 2 (often (ply 2))
. (# pan (perlin))
. (|* gain "^33")
. (|* gain "^52")
) "b"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^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 d4's own control with gSel.
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^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 d4's own control with gSel.
$ fix (
(# "fsynth:3")
. (|- note 24)
......@@ -65,7 +67,7 @@ d4 $ g -- Synth brass choir
# pan 0.6
# sz 0.6
d5 $ g -- Jumpy Piano
$ midiOff "^58" (struct "t(2,4)")
$ midiOff "^57" (struct "t(2,4)")
-- $ degradeBy ("0 0.95!7 0" - "^34")
$ juxBy 0.8 (rev . (# cut 51))
$ mask "f <f!8 t!8>!3 . t"
......@@ -73,20 +75,20 @@ d5 $ g -- Jumpy Piano
$ "fpiano:3"
# cut 5
# pan 0.2
# crush (range 12 3 "^54")
# crush (range 12 3 "^33")
# room 0.5
# sz 0.7
# midiG' "^82" 0 1
d7 $ g
$ midiOn "^59" (ply "<1 1 2 2>")
$ midiOn "^91" (ply "<2!3 4>")
$ midiOn "^91" (ply "<1 1 2 2>")
$ midiOn "^59" (ply "<2!3 4>")
$ slice 8 (run (
"<2!3 4>"
* "<1!4 2!4 [2 1]*4 [2 4]*4>"
))
$ "forgan:17" # cut 7
# midiG' "^83" 0 (1.2 - 0.5 * "^55")
# crushbus 7 (range 10 1.5 "^55")
# midiG' "^83" 0 (1.2 - 0.5 * "^35")
# crushbus 7 (range 10 1.5 "^35")
d8 $ g
$ midiOn "^60" (iter 4)
$ midiOn "^92" (ply 2)
......
......@@ -9,14 +9,14 @@ setcps (123/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k [~ <~!7 k*4>]>")
$ midiOn "^41" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^41" (<| "<k [~ <~!7 k*4>]>")
-- $ fix (|* gain 0.6) "jazz"
$ "[808bd:13,jazz,kicklinn]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^43" (<| "~ <s <~ [~ s]>>")
$ midiOn "^42" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^42" (<| "~ <s <~ [~ s]>>")
$ "vec1_claps"
# gain 1
# room (slow 16 $ range 0 0.8 perlin)
......@@ -24,14 +24,14 @@ d2 $ gF1 $ gM2
# dry 0.9
-- # att 0.03 # rel 2
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "h h h h*<1!4 2 1 <1 2 [4 2]>> h h h h*<1 2 1 <1 2>>"
# "h2ogmhh:4"
# gain 1.5
# room 0.3 # dry 0.8
d4 $ gF2 $ gM3
$ midiOn "^89" (off "0.125" (struct "t*4"))
$ midiOn "^57" ( -- OFFBEAT FIFTH DANCE
$ midiOn "^44" (off "0.125" (struct "t*4"))
$ midiOn "^76" ( -- OFFBEAT FIFTH DANCE
(off 0.125 (|+ note 7))
. (struct "t(4,8,1)")
. (|+ pan 0.2)
......@@ -40,8 +40,8 @@ d4 $ gF2 $ gM3
$ note "<<g3 [g3@2 g3 a3@2]> <e3!3 [e3 c3]>>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# room 0.4
# sz 0.5
# pan 0.6
......@@ -58,14 +58,14 @@ d7 $ gF3 $ gM3
# room 0.5 # dry 1.3 # sz 0.9
-- # crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3 -- guitar+synth mariés pour toujours
$ midiOn "^90" (ply "<4!4 [[4 8 4 8] <8 [16 <8 16>]>]!4>")
$ midiOn "^58" (iter 4 . chop 8)
$ midiOn "^89" (ply "<4!4 [[4 8 4 8] <8 [16 <8 16>]>]!4>")
$ midiOn "^57" (iter 4 . chop 8)
$ chop 8
$ "gfunk_lead:4/8"
# cut 5
# gain 1.3
# bandfbus 51 (range 200 6800 "^54")
# crushbus 52 (range 16 5.7 "^34")
# bandfbus 51 (range 200 6800 "^33")
# crushbus 52 (range 16 5.7 "^53")
# room 0.4 # sz 0.8 # dry 0.5
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
......
......@@ -7,8 +7,8 @@ let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k . ~!3 <~ [~|k?]!6 k>")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k . ~!3 <~ [~|k?]!6 k>")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]"
......@@ -31,17 +31,17 @@ d3 $ gF1 $ gM -- Hats closed legers
-- # room 0.3 # sz 0.13 # dry 1.1
|* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8")
d6 $ gF1 $ gM -- Hats closed legers
$ midiOff "^44" (mask "t(4,8)")
$ midiOff "^58" (mask "t(4,8)")
$ "h2ogmhh:5*8" -- FIXME: "C'est pas le meilleur celui-la -- DJ Micka"
# legato 0.5
# note "<2!2 -1!2>"
# room 0.3 # sz 0.13 # dry 1.1
# gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM3 $ chop 8 -- La super sunny bass on the other side of the sunny street
$ midiOn "^89" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ midiOff "^57" (mask "t(<4 [4 <2!3 [2 8]>]>,8)")
$ midiOn "^44" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ midiOff "^76" (mask "t(<4 [4 <2!3 [2 8]>]>,8)")
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
(# crushbus 41 (range 16 3.5 "^32"))
. (# lpf 2500) . (# room 0.2)
)
$ n "<0 0 0 0 1 1 1 <0 1 2 <2!3 [2 2 3 2]>>>"
......@@ -55,12 +55,12 @@ d4 $ gF2 $ gM3 $ chop 8 -- La super sunny bass on the other side of the sunny st
# delayt 0.25 # delayfb 0
# pan 0.4
-- # bandf 400
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 2.5 "^33")
# octersubbus 42 (range 0 2.5 "^52")
# octersubsubbus 43 (range 0 2.5 "^52")
d5 $ gF3 $ gM3 -- On the Sunny side of the sample
$ midiOn "^90" (struct "t*4")
$ midiOn "^34" (slice 4 "2 2 2 3") -- FORCE END
$ midiOn "^18" (>| n (slow 4 $ "<3 4 5 6>"))
$ midiOn "^57" (struct "t*4")
$ midiOn "^33" (slice 4 "2 2 2 3") -- FORCE END
$ midiOn "^53" (>| n (slow 4 $ "<3 4 5 6>"))
-- $ someCyclesBy "<1!8 0!24>" (>| n "<0 0 1 0>") -- Hey Sunny
-- $ n "0" < <!12 <2 ~ ~ ~>!0>" -- Hey Sunny
$ mask "<t f <f t> f>" -- Mask deploy sample
......
......@@ -7,17 +7,17 @@ do
setcps (94/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "<k [k ~ ~ <k [k k k ~]>]>")
$ "[clubkick,jazz]"
d2 $ gF1 $ gM2
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ ~ t ~")
$ midiOn "^42" (struct "~ t ~ t")
$ midiOff "^42" (struct "~ ~ t ~")
$ fix (|+ note 2) "snare"
$ "[dr55,snare:24]"
# rel 0.35
d3 $ gF1 $ gM2 -- Scintillement de claquements de doigts
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ midiOn "^43" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:14"
# hpf 5000
......@@ -25,23 +25,23 @@ d3 $ gF1 $ gM2 -- Scintillement de claquements de doigts
# rel 0.2
# room 0
d4 $ gF2 $ gM3 -- Piano magique guide eternel TODO SPLIT BASS and piano d5
$ midiOn "^57" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3
$ midiOn "^89" (ply "2 4")
$ midiOn "^44" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3
$ midiOn "^76" (ply "2 4")
$ note ("[b,fs6]@1.5 [a,e6]@1.5 [[<fs!3 fs6>, cs6](3,8) [<fs!3 fs6>, cs6](<1 3 3 5>,8)]@3"
- 24)
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# room 0.2
# "bassWarsaw"
# gain 0.7
)
$ midiOff "^57" (# cut 4)
$ midiOn "^89" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0))
$ midiOff "^44" (# cut 4)
$ midiOn "^76" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0))
$ loopAt 8
$ chop 16
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 41 (range 16 2.5 "^53")
# lesliebus 42 (range 0 1 "^33") # lrate 0.92 # lsize 1.9
# crushbus 41 (range 16 2.5 "^32")
# lesliebus 42 (range 0 1 "^52") # lrate 0.92 # lsize 1.9
-- # lsizebus 43 (range 0.8 1.8 "^33")
# pan 0.3
# gain 1.0
......@@ -76,8 +76,8 @@ d12 $ gF2 $ gM3 -- Devils of delusion
d8 $ gF1 $ gM2
$ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165"))
$ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45"))
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "1 2 <1 2> <2 4>")
$ midiOn "^92" (loopAt 0.5)
$ midiOn "^60" (ply "1 2 <1 2> <2 4>")
$ chop 16
$ loopAt 4
$ "jungle_breaks:45"
......@@ -100,8 +100,8 @@ d7 $ gF3 $ gM3 -- La guitare d'Icare
$ chop 8 $ "suns_guitar:0"
-- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
# n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
# crushbus 71 (range 16 8.5 "^55")
# lpfbus 72 (range 20000 5000 "^55")
# crushbus 71 (range 16 8.5 "^35")
# lpfbus 72 (range 20000 5000 "^35")
-- # octerbus 73 (range 0 1 "^35")
# hpf 1200
# cut 7
......
......@@ -16,27 +16,27 @@ let g2 = gDJF2
setcps 0.5
d1 $ g1
$ fix (|* gain 0.75) "kick:5"
$ midiOn "^42" ( -- KICK RUN
$ midiOn "^41" ( -- KICK RUN
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8))
)
$ midiOff "^42" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "[jazz,cpu]"
# midiG' "^78" 0 1.4
d2 $ g1 -- Breathing snare contretemps
$ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
$ midiOn "^42" (fast "<2 2 2 2 4 2 2 4 4>")
$ "~ [snare:12,drum:2]"
# speed (range 0 4 "^51")
# midiG' "^79" 0.5 1.3
d3 -- Runny Maracas
$ g1
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# midiG' "^80" 0.25 1.5
# note (range "-12" 12 "^52")
# note (range "-12" 12 "^31")
d6 $ g2 -- Guitar riffs
$ whenmod 16 12 (off "h" (
chop 4
......@@ -49,15 +49,15 @@ d6 $ g2 -- Guitar riffs
$ note 2 -- correction
# "punk"
# cut 6
# attack (range 0.5 1 "^33")
# crushbus 61 (range 16 1.1 "^53")
# attack (range 0.5 1 "^34")
# crushbus 61 (range 16 1.1 "^54")
# pan 0.9
# room "<0.13!3 0.05>"
# sz "<0.6!3 0.9>"
# midiG' "^81" 0.4 1.5
d4 -- Rhodes base + chordsQ
$ g2
$ midiOn "^58" (superimpose ( -- ARPS <3
$ midiOn "^76" (superimpose ( -- ARPS <3
(|+ note 12)
. sometimesBy "0 0.5!7" rev
. fast "1 2"
......@@ -74,17 +74,19 @@ d4 -- Rhodes base + chordsQ
# "FMRhodes1"
# modIndex "[0,5,10]"
# pan 0.8
# crushbus 41 (range 10 4 "^54")
# roombus 42 (range 0 0.8 "^54")
# szbus 43 (range 0.45 0.9 "^54")
# crushbus 41 (range 10 4 "^32")
# roombus 42 (range 0 0.8 "^32")
# szbus 43 (range 0.45 0.9 "^32")
# midiG' "^82" 0.3 1.3
d8 $ g2 -- Electrified laggy moog
$ midiOn "^92" (ply 2)
$ midiOn "^59" ((|- note 12))
$ midiOn "^60" ((|- note 12))
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^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 d8's own control with gSel.
-- FIXME(#94) d8 drives more controls than the grid gives it (BT8 + BL8). ^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 d8's own control with gSel.
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 <12!4 12 12 16 <12 16>>" - 12)
# "moog:2"
# crushbus 8 (range 10 3.4 "^55")
# crushbus 8 (range 10 3.4 "^36")
# midiG' "^83" 0 1.5
# legato 2
# cut 8
......@@ -93,13 +95,13 @@ d8 $ g2 -- Electrified laggy moog
d5 $ g2 -- Choirs + arps
$ juxBy "0.7" (
arp "<up <up down>>"
. midiOn "^60" ((|- note 12))
. midiOn "^57" ((|- note 12))
. (|+| note "[0,7,12]*2")
)
$ "moogBass"
# note (prog + "[0,24]")
# octave 3
# crushbus 51 (range 13 1.5 "^56")
# crushbus 51 (range 13 1.5 "^33")
# midiG' "^84" 0 1.6
# pan 0.2
# chorus 0.6
......@@ -20,8 +20,10 @@ d2 $ gF1 $ gM2
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -32,21 +34,21 @@ d3 $ gF1 $ gM2 -- Highest hats
# gain (0.9 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gF2 $ gM3
$ midiOn "^57" (mask "t(4,8)")
$ midiOn "^89" (off "e" (|+ note 12))
$ midiOn "^44" (mask "t(4,8)")
$ midiOn "^76" (off "e" (|+ note 12))
$ note ("e3 <b2!3 <ef3 g3>>" |+| "[0 ~ ~ 0 ~ ~ 0 ~] [0 ~ ~ 0 ~ <~ 0> 0 <~!3 0>]")
# crushbus 41 (range 16 3.4 "^53")
# roombus 42 (range 0 0.4 "^33")
# crushbus 41 (range 16 3.4 "^32")
# roombus 42 (range 0 0.4 "^52")
# "bassWarsaw"
# gain 1.4
d5 $ gF3 $ gM3 -- Piano guide premier
$ midiOn "^58" (slice 4 "<2 ~> <1 <2 [2 1]>>" . (# n 60))
$ midiOn "^90" (slice 4 "2(3,8,<0!3 1>) 1(<0 1 3 [3 5]>,8)" . (# n 60))
$ midiOn "^89" (slice 4 "<2 ~> <1 <2 [2 1]>>" . (# n 60))
$ midiOn "^57" (slice 4 "2(3,8,<0!3 1>) 1(<0 1 3 [3 5]>,8)" . (# n 60))
$ "nujazz_keys120"
# n "<61!24 60!8>"
# pan 0.8
# roombus 51 (range 0 0.4 "^54") # sz 0.14
# lpfbus 52 (range 10000 400 "^54")
# roombus 51 (range 0 0.4 "^33") # sz 0.14
# lpfbus 52 (range 10000 400 "^33")
# cut 5
# gain 1.3
d11 $ gF2 $ gM3 -- Doubting bass
......@@ -75,7 +77,7 @@ d6 $ gF3 $ gM3 -- Plucking doubts
d7 $ gF1 $ gM2 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ chop 8
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^35" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ loopAt 2
$ "jungle_breaks:22"
......
......@@ -23,6 +23,8 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^43" (slow "<2!7 [4 2] 4!7 [2 4]>")
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[h2ogmcy:1]"
......@@ -32,25 +34,25 @@ d3 $ gF1 $ gM2 -- Highest hats
# pan 0.3
# cut 3
d4 $ gF2 $ gM3 -- TODO: Varier basse?
$ midiOn "^89" (ply "2 <2!3 4>")
$ midiOn "^57" (slice 4 (fast "<8!3 16>" "<0 1 2 3>"))
$ midiOff "^57" (slice 4 (fast 1 "<0!3 <1 3>>"))
$ midiOn "^76" (ply "2 <2!3 4>")
$ midiOn "^44" (slice 4 (fast "<8!3 16>" "<0 1 2 3>"))
$ midiOff "^44" (slice 4 (fast 1 "<0!3 <1 3>>"))
$ loopAt 4
$ "nujazz_bass120:4"
# cut 4
# crushbus 41 (range 16 4 "^53")
# crushbus 41 (range 16 4 "^32")
# gain 1.4
d5 $ gF3 $ gM3 -- NuJazz Keys
$ midiOn "^58" ((# freeze 0.1))
$ midiOn "^90" (chop "4 <2 4 4 8>")
$ midiOn "^57" ((# freeze 0.1))
$ midiOn "^89" (chop "4 <2 4 4 8>")
$ chop 8
$ loopAt 4
$ "nujazz_keys120"
# n (slow 4 "<5 6 7 8>")
# gain 1.6
# cut 5
# crushbus 51 (range 16 6.4 "^54")
# octerbus 52 (range 0 0.7 "^34")
# crushbus 51 (range 16 6.4 "^33")
# octerbus 52 (range 0 0.7 "^53")
d6 $ gF1 $ gM3 -- UN GLITCH DANS MON CAFE!!?!
-- $ striate 16
-- $ chop 16
......@@ -72,7 +74,7 @@ d8 $ gF1 $ gM2 -- Break populaire
# gain 1
d7 $ gF1 $ gM3 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^35" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
......
......@@ -6,8 +6,8 @@ do
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -17,28 +17,31 @@ d1 $ gF1 $ gM1
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ <s s*2 s [s s <~ s> <s ~>]>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ <s s*2 s [s s <~ s> <s ~>]>")
$ midiOff "^42" (<| "~ s")
$ "cp"
-- # note "-2"
# gain 1.8
d6 $ gF1 $ gM3 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
$ midiOn "^58" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^58" (<| "~!7 <~ <cy ~> ~ cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
|* gain (range 1.1 0.8 perlin)
|* legato (range 0.5 2 (fast 2 perlin))
d3 $ gF1 $ gM2
-- 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" ((# "dr") . (|* gain 1.45))
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "hh*[16 . <16!3 <[16 8] 8>>]"
# "vec1_claps"
# cut 3
# legato (slow 13 $ range 0.3 2 saw)
# delaybus 31 (range 0 1 "^52") # delayt "e" # delayfbbus 32 "^32"
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^32 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 d3's own control.
-- # delaybus 31 (range 0 1 "^31") # delayt "e" # delayfbbus 32 "^32"
d4 $ gF2 $ gM3
$ midiOn "^57" (>| n "<3 5 <5 5*2> <5!3 5*4>>")
$ midiOn "^89" (>| n "4*[2 <2 4>]")
$ midiOn "^44" (>| n "<3 5 <5 5*2> <5!3 5*4>>")
$ midiOn "^76" (>| n "4*[2 <2 4>]")
$ n ("<3!8 <[3 4]!7 3>!8>")
# "nujazz_bassp120"
# cut 4
......@@ -47,11 +50,11 @@ d4 $ gF2 $ gM3
# gain 1.5
# delay 0.2
# room 0.5
# crushbus 41 (range 16 2.95 "^53")
# octerbus 42 (range 0 1.5 "^33")
# octersubbus 43 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.95 "^32")
# octerbus 42 (range 0 1.5 "^52")
# octersubbus 43 (range 0 1.5 "^52")
d5 $ gF2 $ gM3 -- ACID BASSSSS
$ midiOn "^58" (off 0.125 (|+ note "<0!3 [7!3 5]>"))
$ midiOn "^57" (off 0.125 (|+ note "<0!3 [7!3 5]>"))
$ note ("c3 c3 . [bf2 c3] ~ <ef3 [f3 ef3]>@2" +12)
# "vec1_acid:27" -- BASELINE
-- # "vec1_acid:28" |+ note 12 -- ACID AIGU
......@@ -62,9 +65,10 @@ d5 $ gF2 $ gM3 -- ACID BASSSSS
# cut 5
# gain 1.4
-- # octersubbus 51 (range 0 4 "^54")
# octerbus 52 (range 0 1.8 "^34")
# octerbus 52 (range 0 1.8 "^53")
-- # octerbus 51 (range 0 1 "^33")
# crushbus 51 (range 16 2.5 "^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 2.5 "^54")
d7 $ gF3 $ gM3 -- TODO: DEVELOP THE GUITAR
$ midiOn "^59" (off "h" (# cut 71))
$ slow 2 $ n "<1!4 2 2 [1 2] 2*2 3 3 4 3 5!8>"
......
......@@ -7,8 +7,8 @@ let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . <~ k(3,8)>")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . <~ k(3,8)>")
$ "[jazz]"
d2 $ gF1 $ gM2 $ dMask
$ fast 2
......@@ -17,21 +17,21 @@ d2 $ gF1 $ gM2 $ dMask
# gain 1.3
d3 $ gF1 $ gM2 $ dMask
$ fast 2
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
$ midiOn "^43" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "~ t ~ t ~ t*<1 2 1 1> ~ t*<1!3 2>")
)
$ midiOff "^44"(<| "~ h ~ h ~ h*2 ~ h*<1!15 2>" )
$ midiOff "^43"(<| "~ h ~ h ~ h*2 ~ h*<1!15 2>" )
$ "h2ogmhh:19"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3 -- NUMB TO WEATHER
$ midiOn "^89" (ply 8)
$ midiOn "^76" (ply 8)
$ slow 2
$ chop 8
-- $ loopAt 4
$ "numb" # n "<1!4 4 5 6 6>"
# cut 4
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2 "^53")
# octerbus 42 (range 0 1.5 "^32")
# crushbus 41 (range 16 2 "^52")
# room 0.4
# sz 0.4
# dry 1.9
......@@ -42,9 +42,9 @@ d5 $ gF3 $ gM3
d7 $ gF3 $ gM3 -- ZOMBIE GUITAR INFECTION
$ ply 8
$ chop 4
$ midiOff "^90" (slow 4)
$ midiOn "^59" (>| n "<0 1 2 3>")
$ midiOff "^59" ((>| n "<5 7 9 10>"))
$ midiOff "^59" (slow 4)
$ midiOn "^91" (>| n "<0 1 2 3>")
$ midiOff "^91" ((>| n "<5 7 9 10>"))
$ "zombie"
# cut 7
# gain 1.4
......
......@@ -3,20 +3,22 @@ resetCycles
do
setcps(120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[jazz,house]"
d2 $ gF1 $ gM2 -- Surprise fourth fast snare
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[cp:1,rampleM1:10]"
# gain 0.9
# pan 0.6
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
$ arp "up"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
......@@ -28,24 +30,24 @@ d3 $ gF1 $ gM2 -- Highest hats
# pan 0.3
d4 $ gF2 $ gM3
$ whenmod 32 16 (# legato "<h!4 q!4 e!6 s!2>")
$ midiOn "^89" (off "e" (|+ note 12))
$ midiOn "^44" (off "e" (|+ note 12))
$ note "<[e3@3 b2@2] [a3@3 e3@2] [f3@3 <c3 c4>@2] <[d3@3 b2@2] [b2@3 f3@2]>>"
# "bassWarsaw"
# crushbus 41 (range 16 2 "^53")
# octerbus 42 (range 0 1.92 "^33")
# crushbus 41 (range 16 2 "^32")
# octerbus 42 (range 0 1.92 "^52")
# pan 0.4
# room 0.4 # sz 0.4
-- e b...a e4! f3 c4.. d3 b3
d5 $ gM3 $ gF3
$ midiOn "^58" (# n "12")
$ midiOn "^90" (superimpose ((# cut 51) . (|* gain 0.8) . ply 8 . chop 8))
$ midiOn "^57" (# n "12")
$ midiOn "^89" (superimpose ((# cut 51) . (|* gain 0.8) . ply 8 . chop 8))
$ n "<10!3 11 10!3 11 10!3 11 10!3 11>"
# "nujazz_guitar120"
# cut 5
# pan 0.56
# room 0.9 # sz 0.3
# dry (range 0.1 1.9 "^34")
# crushbus 51 (range 16 2 "^54")
# dry (range 0.1 1.9 "^33")
# crushbus 51 (range 16 2 "^53")
d8 $ gF1 $ gM2
-- $ midiOn "^60" (mask "t(8,16)")
$ chop 16
......
......@@ -7,18 +7,18 @@ let gMask1 = (midiOn ("^41" -"^42")(mask "t f f [<f t> t]"))
d1 $ gF1 $ gMask1 . gM1
-- $ fix ((# hpf 150) . (|* gain 1.05)) "jazz"
$ fix ((# lpf 1250) . (|* gain 1.3)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:5,tech:5,jazz]"
# gain 1.1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ . c*<1!3 <2!3 4>> ~")
$ "[cp:1,rampleM1:10]"
# gain 0.6
# lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ (0.125 ~>) -- decalage
-- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
-- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
......@@ -29,14 +29,14 @@ d3 $ gF1 $ gM2 -- Highest hats
# room 0.14 # sz 0.4 # dry 1
# pan 0.8
d4 $ gF2 $ gM3 -- Questions basses
$ midiOn "^89" (slice 8 "<[0 0 0 3] [4 4 4 7]>")
$ midiOn ("^57"-"^89") (slice 8 "<[0 1 2 3]!4 [4 5 6 7]!4>")
$ midiOff ("^57"+"^89") (slice 8 "<[0 1 2 3] [4 5 6 7]>")
$ midiOn "^76" (slice 8 "<[0 0 0 3] [4 4 4 7]>")
$ midiOn ("^44"-"^76") (slice 8 "<[0 1 2 3]!4 [4 5 6 7]!4>")
$ midiOff ("^44"+"^76") (slice 8 "<[0 1 2 3] [4 5 6 7]>")
$ "nujazz_bass120:16" -- "Bass_D_2"
# octersub 0.5
# octerbus 41 "^53"
# crushbus 42 (range 16 4.5 "^33")
# lpfbus 43 (range 10000 4000 "^33")
# octerbus 41 "^32"
# crushbus 42 (range 16 4.5 "^52")
# lpfbus 43 (range 10000 4000 "^52")
# room 0.4 # sz 0.5 # dry 1.1
# cut 4
# pan 0.6
......
......@@ -9,18 +9,20 @@ do
setcps(120/60/4)
d1 $ gF1 $ gM1
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
$ midiOn "^41" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
$ "[kick:5,tech:5,jazz]"
# gain 1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "~ . c*<1!3 <2!3 4>> ~")
$ "[cp:1,rampleM1:10]"
# gain 1.2
# lpf 2650
d3 $ gF1 $ gM2 -- Highest hats
$ 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)
-- $ (0.125 ~>) - - decalage
-- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
......@@ -46,10 +48,10 @@ d6 $ gF1 $ gM3 -- Highest hats
# room 0.4 # sz 0.4
# pan 0.8
d4 $ gF2 $ gM3 --
$ midiOn "^57" ((off "0.125" (
$ midiOn "^44" ((off "0.125" (
(|+| note "0 <7 12>") . (|- pan 0.1) . (# cut 41)
)))
$ midiOn "^89" (ply "<4!3 8>")
$ midiOn "^76" (ply "<4!3 8>")
$ note ("<[a4@4 c5 <c5 d5 c5 fs4>] a4>"
+ "[0,12]"
- 36
......@@ -59,10 +61,10 @@ d4 $ gF2 $ gM3 --
# gain 1.6
# pan 0.3
# octersub 0.5
# octerbus 41 "^53"
# squizbus 42 "^33"
# octerbus 41 "^32"
# squizbus 42 "^52"
d5 $ gF3 $ gM3 -- Piano guide premier
$ midiOn "^58" (juxBy 0.9 ( -- Piano reflet second
$ midiOn "^57" (juxBy 0.9 ( -- Piano reflet second
mask "<<f t> [<f t> t]>" .
(# begin 0.5)
. rev
......@@ -75,12 +77,12 @@ d5 $ gF3 $ gM3 -- Piano guide premier
$ "nujazz_keys120"
# n "<54!16 53!16>"
# pan 0.8
# freezebus 51 (range 0 0.7 "^34")
# freezebus 51 (range 0 0.7 "^33")
# cut 5
# gain 1.3
d7 $ gF2 $ gM3 -- Guitare egaree
$ midiOn "^59" (ply 2)
$ midiOn "^91" (ply 2)
$ midiOn "^59" (ply 2)
$ chop 4
$ n "<0!3 1 0!3 1 3!3 4 3!3 5 6!3 7 6 6 7 7 6 7!3 7!4>"
-- $ n "<>"
......@@ -88,8 +90,8 @@ d7 $ gF2 $ gM3 -- Guitare egaree
# cut 7
# pan 0.8
# room 0.124 # sz 0.25 # dry 0.5
# octersubbus 71 (range 0 2 "^55")
# octersubsubbus 72 (range 0 3 "^55")
# octersubbus 71 (range 0 2 "^35")
# octersubsubbus 72 (range 0 3 "^35")
# gain 1.1
d8 $ gF1 $ gM2 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
......
......@@ -16,14 +16,17 @@ let novaOff ch pat = someCyclesBy (1 - ch) pat
let g = (gDJF . gRes)
setcps 0.5
d1 $ g
$ midiOn "^42" (<| "k k k k")
-- 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" (<| "k k k k")
$ midiOn "^41" (<| "k k k <k [k k] k [~ k]>")
$ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)")
$ midiNo "^41" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)")
$ "[jazz,cpu,bd:8]"
# room 0.2 # sz 0.8 # dry 1
# gM' 0 1.16 "^78"
d2 $ g -- Clap
$ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2"))
$ novaOn "^42" (fast 2 . whenmod 4 3 (ply "1 2"))
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^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 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). ^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 d2's own control with gSel.
$ novaOff "^60" (# silence)
$ "~ [clap,<cp!3 ~>]"
# lpf 2500
......@@ -45,23 +48,23 @@ d8 $ g -- Hats
# gM' 0 1.45 "^80"
d4 -- RESONANT BASSLINE
$ g
$ novaOn "^57" (slow "2 . 2 <1!3 0.5>")
$ novaOn "^44" (slow "2 . 2 <1!3 0.5>")
$ whenmod 16 12 (
degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
. (# legato 2)
)
$ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
# gM' 0 1 ("^81" - 0.2 * "^53")
# crush (range 10 1 "^53")
# gM' 0 1 ("^81" - 0.2 * "^32")
# crush (range 10 1 "^32")
# room 0.5 # sz 0.8
d5 $ g -- Synth voices
$ novaOff "^58" (# silence)
$ novaOff "^57" (# silence)
$ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51)))
$ loopAt 2
$ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>")
$ "fsynth:47"
# crush (range 10 2 "^54")
# gM' 0 1 ("^82" - 0.2 * "^54")
# crush (range 10 2 "^33")
# gM' 0 1 ("^82" - 0.2 * "^33")
# cut 5
d7 $ g -- Side guitar
$ sometimesBy "^35" (scramble 16)
......
......@@ -11,6 +11,8 @@ let chordAug = "c'maj'8"
d1 -- Kick rarement doublé
$ f1
$ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
-- 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*4") . (superimpose (# "909")))
$ midiOff "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
$ "jazz"
......@@ -18,13 +20,13 @@ d1 -- Kick rarement doublé
# room 0.2
# midiG' "^78" 0 1.1
d2 $ f1
$ midiOn "^43" (fast 4)
$ midiOn "^42" (fast 4)
$ "~ [jazz:4,cp]"
# hpf (slow 4 $ range 0 10000 perlin)
# room 0.6 # sz 0.6 # dry 0.99
# midiG' "^79" 0 1.9
d3 $ f1 -- Snakes
$ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
$ midiOn "^43" (fast 2) -- Cause this is REPETITIVE MUSIC
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 2
$ "s . s <s!3 ~> <~!3 s>"
......@@ -32,8 +34,8 @@ d3 $ f1 -- Snakes
# pan 0.7
# midiG' "^80" 0 1.5
d4 $ f2
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
$ midiOn "^76" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^44" (juxBy 0.2 (
ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
......@@ -51,11 +53,11 @@ d4 $ f2
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 10 3 "^53")
# crushbus 41 (range 10 3 "^32")
# midiG' "^81" 0 1.3
d5 $ f2 -- Choeurs
$ juxBy 0.5 (
(0.5 ~>) . midiOn "^58" (superimpose (
(0.5 ~>) . midiOn "^89" (superimpose (
arp "<converge!8 diverge!4>"
. (|+ note ("[0,12]"))
. (|+ pan 0.05)
......
......@@ -20,11 +20,13 @@ d1 $ g
# midiG' "^78" 0 1.5
d2 $ g
$ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>")
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ <s!3 ~>" # "sn" # n "[1,10]"
# midiG' "^79" 0 1.6
d3 $ g
$ 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)
$ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]"
$ "h2ogmhh" # n "[10|11|12]*4"
......@@ -32,7 +34,7 @@ d3 $ g
d3
$ mask "t . <t!6 f f>"
$ sometimesBy "0 ^16!6 0" ((|* gain 0.9) . (|/ speed 2))
$ sometimesBy "^32" (|* speed 1.5)
$ sometimesBy "^31" (|* speed 1.5)
$ sometimesBy "0 ^52!7" (ply "<2!3 [2!3 1]>")
$ g
$ chop 16
......@@ -42,7 +44,7 @@ d3
# midiG' "^80" 0 1.5
d4 $ g -- Bassline
$ swingBy "h" 8
$ midiOn "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
$ midiOn "^44" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
$ note ((struct "t(3,8) t(<4 4 5 [5 8]>,8)"
$ arp "<pinkyup!2 converge!2>" prog)
+ "[0,<0 12>]"
......@@ -50,10 +52,10 @@ d4 $ g -- Bassline
# "supersaw" # voice 0.01
# pan 0.2
# room 0.2
# crushbus 40 (range 10 1.85 "^53")
# crushbus 40 (range 10 1.85 "^32")
# midiG' "^81" 0 1.5
d5 $ g -- Nappes plage
$ midiOn "^58" (superimpose (
$ midiOn "^89" (superimpose (
struct "t . t(3,8)"
. arpeggiate
. (|+ note 12)
......@@ -62,26 +64,26 @@ d5 $ g -- Nappes plage
))
$ note (prog - 12)
# "moog:2"
# crushbus 50 (range 10 1.2 "^54")
# crushbus 50 (range 10 1.2 "^33")
# midiG' "^82" 0 1
# attack 0.8
# room 0.4 # sz 0.9
d6 -- Guitare nostalgique
$ midiOn "^59" (slice 4 "0 1 2 3")
$ midiOn "^90" (slice 4 "0 1 2 3")
$ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>"
# midiG' "^83" 0 1.5
# crushbus 60 (range 10 2.85 "^55")
# crushbus 60 (range 10 2.85 "^34")
# pan 0.65
# cut 6
d7 $ g -- C-Bows
$ midiOn "^60" (mask "t([4 <8 8 4 8>],16)")
$ midiOn "^59" (mask "t([4 <8 8 4 8>],16)")
$ superimpose (
(>| note (
"<0 <-1 2>>" + "0(3,8) 0"
))
. (|+ note 24)
. (|* gain (range 0 0.95 "^20"))
. (|* gain (range 0 0.95 "^35"))
)
$ note ( -- Graves!
progm
......@@ -90,7 +92,7 @@ d7 $ g -- C-Bows
)
# "cbow:8"
# pan "<0.7!7 0.3>"
# midiG' ("^84" * "^56") 0 1.4
# midiG' ("^84" * "^55") 0 1.4
d8 $ g
$ midiOn "^60" (off "q" (# n 11) . (|* gain 0.95))
$ note (
......
do
setcps (105/60/4)
d1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t*2")
$ midiOn "^41" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^41" (struct "t*2")
$ "[jazz,808bd]"
-- # midiG' "^78" 0 1.2
d2 $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ midiOn "^75" (plyWith "<2!3 [4!3 <2!3 4>]>" (|* gain 0.9))
$ "~ cp"
# note (-6)
# lpf 4000
# gain 1.2
d3 $ gF1
$ midiOn "^44" (struct "~ t ~ t*<1 1 2 1> ~ <t!3 ~> ~ t*2")
$ midiOff "^44" (struct "~ t ~ t ~ t ~ t")
$ midiOn "^43" (struct "~ t ~ t*<1 1 2 1> ~ <t!3 ~> ~ t*2")
$ midiOff "^43" (struct "~ t ~ t ~ t ~ t")
$ "<ho:2!7 [ho:2!3 ho:0]>"
-- # n "<2 2 <2 3> 0>"
# cut 3
......@@ -34,11 +34,11 @@ d4 $ gF2 -- SynBase
# cut 4
# pan 0.8
# lpf 5000
# crushbus 42 (range 16 4 "^53")
# crushbus 42 (range 16 4 "^32")
# room 0.3 # dry 0.9
-- # midiG' "^81" 0 1.2
d6 $ gF2 -- MOTHERBASS
$ midiOn "^18" (mask "<t f!3>" . (# legato 4))
$ midiOn "^34" (mask "<t f!3>" . (# legato 4))
$ midiOn "^90" (ply 4)
$ note "f3"
# "90s_matrix:4"
......
......@@ -24,12 +24,14 @@ d1 $ g
# midiG' "^78" 0 1.8
d2 $ g
$ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>")
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ s" # "sn" # n "[1,10]"
# midiG' "^79" 0 1.6
d3 $ g
$ (# midiG' "^80" 0 1.5)
$ 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" (const $
slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
$ "breaks165"
......@@ -45,7 +47,7 @@ d4 $ g -- Smells like Bass
$ note patFunk
# "bass3"
# pan 0.2
# crushbus 40 (range 10 2.85 "^53")
# crushbus 40 (range 10 2.85 "^32")
# midiG' "^81" 0 1.8
d5 $ g -- Guitar
$ whenmod 8 4 (juxBy 0.75 ((|* gain 0.8) . off "e" id))
......@@ -55,17 +57,18 @@ d5 $ g -- Guitar
# room 0.2
# sz 0.8
# gain 0.35
# crushbus 50 (range 10 1.65 "^54")
# crushbus 50 (range 10 1.65 "^33")
# midiG' "^82" 0 1.8
d6 $ g
$ sometimesBy "0 . 1 0" (ply 2)
$ midiOn "^91" (sometimesBy "0!3 1" (rev))
$ midiOn "^59" (chop (slow 4 "<16 32 48 64>"))
$ midiOn "^58" (sometimesBy "0!3 1" (rev))
-- FIXME(#94) d6 drives more controls than the grid gives it (BT6 + BL6). ^90 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^90 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 "^90" (chop (slow 4 "<16 32 48 64>"))
$ "b/4" # "brass:27"
# midiG' "^83" 0 1.5
# cut 9
d7 $ g
$ midiOn "^60" ( -- Arps aigus
$ midiOn "^91" ( -- Arps aigus
superimpose (
(# "cbow:11")
. off "e" id
......@@ -92,20 +95,20 @@ d6 $ g
# room 0.4 # sz 0.9
d6
$ midiOn "^59" (slice 4 "0 1 2 3")
$ midiOn "^90" (slice 4 "0 1 2 3")
$ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>"
# midiG' "^83" 0 1.4
# crushbus 60 (range 10 2.85 "^55")
# crushbus 60 (range 10 2.85 "^34")
# cut 6
d7 $ g
$ midiOn "^60" (mask "t([4 <8 8 4 8>],16)")
$ midiOn "^59" (mask "t([4 <8 8 4 8>],16)")
$ superimpose (
(>| note (
"<0 <-1 2>>" + "0(3,8) 0"
))
. (|+ note 24)
. (|* gain (1.1 * (range 0 1.25 "^56")))
. (|* gain (1.1 * (range 0 1.25 "^35")))
)
$ note (
progm
......@@ -114,7 +117,7 @@ d7 $ g
)
# "cbow:8"
# pan "<0.7!7 0.3>"
# midiG' "^84" 0 (1.5 * "^20")
# midiG' "^84" 0 (1.5 * "^55")
d8 $ g
$ note (
struct "t(5,8)"
......
......@@ -33,7 +33,7 @@ d2
(slice 8 "0 ~ 2 ~ 4 ~ <6!3 ~> ~")
$ someCyclesBy "^75" -- Med
(slice 8 "0 ~ 2 3 4 <5 6> 6 4")
$ someCyclesBy "^76" -- Heavy
$ someCyclesBy "^42" -- Heavy
(slice 8 "0 1 2 3 4 3 6 6*2")
$ "fbreak80:2"
# cut 1
......@@ -41,13 +41,13 @@ d2
# gM' 0 1.4 "^79"
d3 -- Drumroll masked
$ g
$ someCyclesBy "^44" (fast 2)
$ sometimesBy "^52" (mask "t f!6 [t f]")
$ someCyclesBy "^43" (fast 2)
$ sometimesBy "^31" (mask "t f!6 [t f]")
$ "drum*<8!3 [8 16]>"
# "gretsch:4"
# gM' 0.2 1.2 "^80"
d4
$ sometimesBy "^57" (superimpose (
$ sometimesBy "^44" (superimpose (
ply "<2 4 [4 8] 8>" .
mask "t(1,4)"
. arpeggiate
......@@ -58,22 +58,22 @@ d4
. (# voice 0.2)
. (# octave 5)
))
$ sometimesBy "^89" (chop 8)
$ sometimesBy "^76" (chop 8)
$ note (cat blues + chord)
# "bassWarsaw"
# pan 0.75
# room 0.1
# octave 4
# crush (range 11 6 "^53")
# crush (range 11 6 "^32")
# voice 0.8
# room 0.1
# gM' 0.6 1.1 ("^81")
d5 -- Choeurs
$ sometimesBy "^90" (rev)
$ sometimesBy "^57" (rev)
$ superimpose (
(0.5 ~>)
. superimpose (
sometimesBy "^58" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1))
sometimesBy "^89" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1))
. arpeggiate
. (|+ note chordAug)
. (# pan 0.55)
......
do
setcps (120/60/4)
d1 $ gF1 $ gM1
$ fix (|* gain (0.9 * "^30")) "clubkick"
$ fix (|* gain (0.9 * "^29")) "clubkick"
$ "k k k k*<1 <2 [4 2]>>"
# "[clubkick:0,rampleM1]"
# room 0.3
......@@ -10,15 +10,15 @@ d1 $ gF1 $ gM1
# lpf 2000
# gain 1.5
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s*<1!8 2!3 1 2!3 1> ~ s*<1!3 2>")
$ midiOff "^43" (<| "<s*<1 2> ~> ~!3")
$ midiOn "^42" (<| "~ s*<1!8 2!3 1 2!3 1> ~ s*<1!3 2>")
$ midiOff "^42" (<| "<s*<1 2> ~> ~!3")
$ "snare:40"
# note "-2"
-- # room 0.4 # dry 0.9
# lpf 2400
-- # legato 0.25
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t f")
$ midiOff "^43" (mask "t f")
-- $ someCyclesBy 1 (|+ note "0!3 <0 4> 0!3 <4!6 -10!2>")
-- $ "dr*[8!3 <8 <16!3 [8 16]>>]"
$ "~ h ~ h ~ h*<1!6 2 2> ~ h*<1 <2 [4 2]>>"
......@@ -27,26 +27,26 @@ d3 $ gF1 $ gM2
# legato "<0.4!3 0.1>"
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (>| note "[e e <g b> e e e <a c7*<1 2 2 4>> e]")
$ midiOn "^57" (stutWith 8 "e" ((|+ note ("0 12 0 12")) . (|* gain 0.95)))
$ midiOn "^44" (>| note "[e e <g b> e e e <a c7*<1 2 2 4>> e]")
$ midiOn "^76" (stutWith 8 "e" ((|+ note ("0 12 0 12")) . (|* gain 0.95)))
-- $ someCyclesBy (1 - "^33") (mask "t . t(3,8,1)")
$ midiOff "^89" (>| note ("<<[e e g e]!2 [a a g e]!2> ~ <~!4 [a a g e]!4> ~> . ~" - 0))
$ midiOff "^44" (>| note ("<<[e e g e]!2 [a a g e]!2> ~ <~!4 [a a g e]!4> ~> . ~" - 0))
$ "bass1:10"
# cut 4
# room 0.2
# octerbus 41 (range 0 1 "^33")
# crushbus 42 (range 16 3.5 "^53")
# octerbus 41 (range 0 1 "^32")
# crushbus 42 (range 16 3.5 "^52")
# att 0.23
# pan 0.4
# rel 2
d5 $ gF3 $ gM3
$ midiOn "^58" (ply 2)
$ midiOn "^90" (slice 4 "0 1 2 3 <[0 1 2 3] [0 3]>")
$ midiOn "^89" (ply 2)
$ midiOn "^57" (slice 4 "0 1 2 3 <[0 1 2 3] [0 3]>")
$ chop 8
$ loopAt 4
$ "nujazz_guitar120"
# n "<11>"
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# cut 5
d7 $ gF3 $ gM3 -- La pluie <3
$ midiOn "^59" (|+| note "0 12 0 <12!4 [12 0 12]!4 [0 7 12 0]!8>")
......
......@@ -4,8 +4,8 @@ do
-- resetCycles
setcps(140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ midiOn "^41" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^41" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((# lpf 1400)) "kick:4"
-- $ "[techno:0,kick:4]"
$ "jazz"
......@@ -13,8 +13,8 @@ d1 $ gF1 $ gM1
# room 0.2
# dry 1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ . ~ c*<1!3 <2!3 4>>")
-- $ "[rampleM2:12,rampleD3:1,rampleD4:1]"
$ "[snare:10,snare:20]"
-- # note "-4"
......@@ -24,7 +24,9 @@ d2 $ gF1 $ gM2
# rel (slow 16 $ range 0.6 0.2 saw)
d3 $ gF1 $ gM2 -- Highest hats
$ whenmod 32 16 (swingBy (slow 16 $ range 0.08 0.01 saw) 4)
$ midiOn "^44" (off "s" id)
$ midiOn "^43" (off "s" id)
-- 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 8>")
$ fix (# legato 0.25) "rampleD2:3"
$ "~ h ~ h ~ h*<1 2> ~ h*<1!3 2>"
......@@ -44,11 +46,11 @@ d4 $ gF2 $ gM3
# room 0.3
# bandf 400
# gain 1.1
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3
$ midiOn "^90" (slice 4 "0 0 <0 0*2 1 2> <0*2 0 2 3>*<1!3 2>")
$ midiOn "^58" (>| n "2/4")
$ midiOff "^58" (>| n "1/2")
$ midiOn "^89" (slice 4 "0 0 <0 0*2 1 2> <0*2 0 2 3>*<1!3 2>")
$ midiOn "^57" (>| n "2/4")
$ midiOff "^57" (>| n "1/2")
$ "coffee"
# cut 5
d7 $ gF3 $ gM3
......
......@@ -6,14 +6,14 @@ setcps (110/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
d2 $ gF1 $ gM
$ midiOn "^43" (<|"~ sn <~ [~ sn]> sn" )
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ sn <~ [~ sn]> sn" )
$ midiOff "^42" (<| "~ s")
$ "sn"
# note "0 0 -1 0"
# legato "1 1 0.75 1"
......@@ -21,12 +21,14 @@ d2 $ gF1 $ gM
# lpf 4000
# room 0.4 # sz 0.1 # dry 1.1
d3 $ gF1 $ gM
-- 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)
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "[<~ <~ d> <~!3 d> d> d d <d!3 <d!3 ~>>]*4" # "dr" # "h2ogmhh:3"
# cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "0(3,8) 0(3,8)")
$ midiOn "^44" (struct "0(3,8) 0(3,8)")
-- -- $ midiOn "^57" ((|+ note 12) . (# freeze 0.8))
-- $ sometimesBy (1 -120_Rhodes_RiffChords_E_1 "^17") (mask "[t@6 <f!3 t> <f t>]")
$ fix ( -- ANGEL BASS INCOMING
......@@ -36,15 +38,16 @@ d4 $ gF2 $ gM3
. (# panbus 44 (slow 16 $ range 0.8 0.4 saw))
. (swing 3)
) "vec1_acid:28"
$ midiOn "^57" (fix (
$ midiOn "^76" (fix (
-- fast "<1 1 [2 1] [4 1] 2!12 4!16 4!3 2 4!3 1 4 2 4 1 4 1 4 2>"
fast "<4!3 [4 <4 4 2 4>]>"
) "vec1_acid:27")
$ note "[cs3 b3 <gs3!3 cs4> b3]"
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 5 "^33")
# roombus 45 (range 0 0.5 "^17")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# octersubsubbus 43 (range 0 5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # roombus 45 (range 0 0.5 "^17")
# "bassWarsaw" -- Classique
# "[vec1_acid:27,vec1_acid:28]" |+ note 12
# gain (slow 32 $ range 0.8 1.2 saw)
......@@ -57,21 +60,21 @@ d10
# gain 0.8
d5 $ gF3 $ gM3 -- Keys angeliques
$ superimpose (const
$ midiOn "^58" (off 0.5 id)
$ midiOn "^90" (striate 8)
$ midiOn "^57" (off 0.5 id)
$ midiOn "^89" (striate 8)
$ gF3 $ gM3
$ slow 2
$ n "<42!16 <44 ~>!16>"
# "nujazz_keys120"
# cut 51
# gain "^18")
# gain "^33")
$ note "<[b3, gs4] ~ [cs3, b4] [cs4, gs5]>(<1!3 2>,3,1)"
# modIndex 2
# "FMRhodes1"
# room 0.4 # sz 0.8
# delay 0.75
# delayt 0.25
# gain (1 - "^18")
# gain (1 - "^33")
d11 $ gF3 $ gM3 -- CBOW COEUR
$ slow 2 $ note "<[b4@3 ef5] cs5>"
# modIndex 2
......@@ -103,9 +106,9 @@ d7 $ gF2 $ gM3
# "giorgio_syn:7"
-- # lpf 500
-- # orbit 6
# octersubbus 72 (range 0 2 "^55")
# squizbus 73 (range 0 8 "^35")
# attbus 74 (range 0.05 0.2 "^35")
# octersubbus 72 (range 0 2 "^35")
# squizbus 73 (range 0 8 "^55")
# attbus 74 (range 0.05 0.2 "^55")
# rel 2
# gain 1.3
# room 0.4
......
......@@ -44,7 +44,9 @@ d7 $ gF3 $ gM3 -- High Cello Dauphin
-- # midiG' "^83" 0 1.2
# gain 1.2
d3 $ gF $ gMute
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOff "^43" (mask "t([8 4 <4 <8 16>>],16)")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
......@@ -52,13 +54,13 @@ d3 $ gF $ gMute
-- # midiG' "^80" 0 1.6
# gain 1.1
d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique
$ midiOn "^57" (rev)
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ midiOn "^76" (rev)
$ midiOn "^44" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy ("^33") ( -- Pattern complet
$ someCyclesBy ("^32") ( -- Pattern complet
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.65) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
$ fix ((midiOff "^76" (# silence)) . (|* gain 0.65) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
......@@ -67,13 +69,13 @@ d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique
# "[bass2:1,bassWarsaw]"
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 5 "^33")
# crushbus 41 (range 16 2.5 "^52")
# octersubbus 42 (range 0 5 "^32")
# gain 1.6
# cut 4
d5 $ gF3 $ gM3 -- Leads reponse TODO moins carre?
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ midiOn "^57" (struct "t*<16 32>") -- Basse folle
$ midiOn "^89" (|+ note 12)
-- $ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
-- $ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ someCyclesBy "^17" (
......@@ -89,8 +91,8 @@ d5 $ gF3 $ gM3 -- Leads reponse TODO moins carre?
# legato 2
# room 0.2
# pan 0.33
# modIndex (range 0.1 16 "^34")
# crushbus 51 (range 16 3.5 "^54")
# modIndex (range 0.1 16 "^33")
# crushbus 51 (range 16 3.5 "^53")
-- # midiG' "^82" 0 1.5
d8 $ gM $ gF -- Breaks divins
$ midiOn "^92" (off "e" id)
......
......@@ -37,9 +37,9 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM1
-- $ midiOn "^75" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") -- 4F
$ midiOn "^41" (<| "k k k <k [<~ k> k]>") -- 4F
-- $ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiOff "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
-- $ midiOn "^42" (struct "t t t <t [t <~ t*<2 1>> t*<1!3 2>]>")
$ fix (|* gain 0.9) "jazz"
$ fix (
......@@ -49,6 +49,8 @@ d1 $ gF $ gM1
d2 $ gF $ gM
$ whenmod 8 7 (off "e" ((|* gain 0.8) . (# hpf 5000)))
$ midiOn "^42" (<| "~ s ~ <s [s s*<1 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 ("^43" - "^42") (<| "~ ~ s*<1 1 1 2 2 2 1 2> <~ [~ s*<1 2>]>")
$ midiOff ("^43" + "^42") (<| "~ <~ s>")
$ "[snare:42,snare:11]"
......@@ -60,7 +62,9 @@ d2 $ gF $ gM
# midiG' "^79" 0 0.7
# pan 0.8
d3 $ gF2 $ gM
$ midiOn "^76" (ply "[2 1 2] <[4 8 4]!3 [8 16 8]>")
$ midiOn "^43" (ply "[2 1 2] <[4 8 4]!3 [8 16 8]>")
-- 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 1 2 <1 <2 4>>")
$ "dr*<8!3 [16@3 8]>"
# midiG' "^80" 0 1.1
......@@ -72,8 +76,8 @@ d4 $ gF2 $ gMask -- Basic bass
# att 0.1
# legato 2 # cut 4
# rel 10
# crushbus 41 (range 16 3.5 "^53")
# roombus 42 (range 0.2 0.5 "^53") # sz 0.9 # dry 1
# crushbus 41 (range 16 3.5 "^32")
# roombus 42 (range 0.2 0.5 "^32") # sz 0.9 # dry 1
# midiG' "^81" 0 1.2
d5 $ gF3 -- Burning birds
$ fix (mask "t f") "juno:0"
......@@ -112,7 +116,7 @@ d7
# cut 7
# crushbus 71 (slow 32 $ range 16 3 sine)
# room 0.2 # dry 1.3 # sz 0.7
# midiG "^19"
# midiG "^35"
d8 $ gF $ gM
$ midiOff "^60" (mask "t . t(<1 3 5 <3 8>>,8)")
$ midiOn "^92" (ply 2)
......
......@@ -5,8 +5,8 @@ setcps (110/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[808bd:1,808bd:2,jazz,kick:4]"
......@@ -14,27 +14,30 @@ d2 $ gF1 $ gM $ "~ sn <~ [~ sn]> 0" # note "0 0 -1 0" # legato "1 1 0.75 1"
# "[vec1_snare:28]" # note ("~ 0 <~ [~ -2]> 0" -2) # gain 1.2
# room 0.4 # sz 0.1 # dry 1.1 # lpf 4000
d3 $ gF1 $ gM -- Hats ouverts legers
-- 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)
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^43" (mask "t(4,8,1)")
$ "ho:0*8"
# att (0.25 - (0.1 * perlin))
# rel 0.05
# gain (1.4 * "1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM3
$ superimpose ((# "vec1_acid:44")
. (|* gain (range 0 1.2 "^17"))
. (|* gain (range 0 1.2 "^32"))
. (|+ note 24))
$ midiOn "^89" (ply "1 2")
$ midiOn "^57" (off 0.5 id)
$ midiOn "^76" (ply "1 2")
$ midiOn "^44" (off 0.5 id)
-- Progression 8 premieres Measures
$ note ("<c3!4 b2!2 c3!2 c3!4 b2!4> <e3!2 d3!4 e3!2 e3!2 d3!4 c3!2>@7")
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 0.9 "^33")
# crushbus 41 (range 16 3.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # octersubbus 42 (range 0 0.9 "^33")
# "bassWarsaw"
# gain 1.3
# room 0.4
d5
$ midiOn (1-"^19") (mask "t f")
$ midiOn (1-"^33") (mask "t f")
$ slow 2 $ note (
cat [
"[~ ~ g4 c5 e5 g4 c5 e5]*4", -- I
......@@ -49,7 +52,7 @@ d5
)
-- # "cs80leadMH"
# "FMRhodes1"
# modIndex (range 0 14 "^34")
# modIndex (range 0 14 "^53")
-- # cut 5
# legato 0.4
# room 0.7
......
......@@ -24,15 +24,15 @@ let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ midiOn "^41" (struct "t t t t*<1!6 2 2>")
$ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,vec1_snare:40]"
# pan 0.65
# gain 1.4
......@@ -54,22 +54,22 @@ d6 $ gF1 $ gM3 -- HAWKS
# dry 1.025
d4 $ gF3 $ gM3
$ fix (
(|* gain (1 - "^53"))
(|* gain (1 - "^32"))
. (# legato 0.8)
) ("bass1")
$ superimpose ( -- CRUSH LAYER
(# "vec2_bass_ob:73")
. (|- note 12)
. (# cut 41)
. (|* gain (range 0 2 "^53"))
. (|* gain (range 0 2 "^32"))
)
$ midiOn "^89" (off "0.5" id)
$ midiOn "^44" (off "0.5" id)
-- $ superimpose ((|+ note 12) . (# cut 41))
$ midiOn "^57" ( -- Pattern 3: 8-cycle harmonic movement
$ midiOn "^76" ( -- Pattern 3: 8-cycle harmonic movement
(+| note "[c3 ~ ef3 ~] [<c3 f3 af3 g3> ~ <g2 c2 ef2 d2> ~] [~ [ef3 g3]/2 ~ <af2 bf2 c3 b2>] [<c2!2 f2!2 af2!2 g2!2> ~ <g3 af3 bf3 g3> ~]" ))
$ midiOn "^33" ( -- Pattern 4: 16-cycle call-response-build-decay
$ midiOn "^52" ( -- Pattern 4: 16-cycle call-response-build-decay
(+| note "[c2 ~ ~ ~] [~ ~ g3 ~] [ef2 ~ <~!4 g2!4 ef3!4 c3!4> <~!4 ef3!4 g3!4 af3!4>] [<c3!4 [~ ef3 g3]!4 [c2 ~ g3 ~]!4 [c2 ~ ~ ~]!4> <~!8 bf2!8> <~!12 [ef3 c3]!4> ~]" ))
$ midiOff ("^57" + "^33") ( -- Pattern 1: 8-cycle arc from sparse to dense
$ midiOff ("^76" + "^52") ( -- Pattern 1: 8-cycle arc from sparse to dense
+| note "[c2 ~ ~ ~] [~ ef2 ~ g2] [c3 ~ <~ ef3 ~ af3> ~] [<g2 f2 ef2 d2> ~ bf2 <~ c3 ~ ef3>]"
)
-- $ note (
......@@ -93,16 +93,16 @@ d4 $ gF3 $ gM3
# room 0 # cut 4
# gain 1.4
d5 $ gM3 $ gF3
$ midiOn "^90" (fast "4 <4!3 16>")
$ midiOff "^58" (slow 4)
$ midiOff "^58" (mask "<t t t t t f!3 t f!3 t f!3 t f!3>")
$ midiOn "^89" (fast "4 <4!3 16>")
$ midiOff "^57" (slow 4)
$ midiOff "^57" (mask "<t t t t t f!3 t f!3 t f!3 t f!3>")
$ "russia" # n "<0!4 1!4 2!4 3!4 4!4 5!4 6!4 7 8 9 9>"
# cut 5
# gain 1.3
# room 0.3 # sz 0.5 # dry 1.5
d7 $ gM3 $ gF3 -- Russian Horns
$ midiOn "^59" (fast 4)
$ midiOn "^91" (ply "<4 [4 8]>")
$ midiOn "^91" (fast 4)
$ midiOn "^59" (ply "<4 [4 8]>")
$ slice 4 "<0 1 2 3>"
$ "russia"
# n (11 + "<0!4 1!4 2!4 3!4 4!4 5!4 6!4 7 8 9 9>")
......
......@@ -5,12 +5,12 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM1
-- $ someCyclesBy
$ midiOn "^42" (<| "t*4")
$ midiOff "^42" (<| "t(<3!3 <5 [5 <8 [16 10]>]>>, 8)")
$ midiOn "^41" (<| "t*4")
$ midiOff "^41" (<| "t(<3!3 <5 [5 <8 [16 10]>]>>, 8)")
$ "[jazz,electrn:8]"
-- # midiG' "^78" 0 1
d2 $ gF1 $ gM
$ midiOn "^43" (# note "-24")
$ midiOn "^42" (# note "-24")
$ "~ ~ cp*<1!3 2> <~!7 cp>" # "clap"
# note "-0"
# att 0.01 # rel 0.2
......@@ -19,7 +19,7 @@ d2 $ gF1 $ gM
-- # midiG' "^79" 0 1.4
# gain 1.4
d3 $ gF1 $ gM
$ midiOn "^76" (ply "<2!3 4>")
$ midiOn "^43" (ply "<2!3 4>")
$ "~ h ~ h ~ h ~ h"
# "electrn:4"
# pan 0.9
......@@ -27,9 +27,9 @@ d3 $ gF1 $ gM
# gain 1.8
d4 $ gF2 -- Maladive boucle
-- $ superimpose ((# lpf 2000) . (# cut 41))
$ midiOn "^57" (((# freeze 0.4) . chop 4 . (# note "<0 0 2 -2>")))
$ midiOn "^57" (# crushbus 44 (range 16 1.6 "^53"))
$ midiOff "^57" ((chop 16) . (# octerbus 41 (range 0 1.8 "^53")))
$ midiOn "^44" (((# freeze 0.4) . chop 4 . (# note "<0 0 2 -2>")))
$ midiOn "^44" (# crushbus 44 (range 16 1.6 "^32"))
$ midiOff "^44" ((chop 16) . (# octerbus 41 (range 0 1.8 "^32")))
$ "trance_syn:0/4"
-- # octersubbus 42 (range 0 2 "^33")
-- # octersubsubbus 43 (range 0 2 "^17")
......@@ -37,8 +37,8 @@ d4 $ gF2 -- Maladive boucle
# cut 4
# pan 0.1
d8 $ gF1 $ gM2 -- rythmique tribale
$ midiOn "^60" (iter "<1!8 4!4>" . chop 8)
$ midiOn "^92" (ply "<4!3 [8 4 . <16 32 64>]>")
$ midiOn "^92" (iter "<1!8 4!4>" . chop 8)
$ midiOn "^60" (ply "<4!3 [8 4 . <16 32 64>]>")
$ chop 4
$ loopAt 4
$ "trance_loops:4"
......@@ -60,11 +60,11 @@ d9 $ gF3 $ gM3 -- Harpe magique intro
-- # midiG' "^83" 0 1.5
d4 -- BassBubbles
$ midiOn "^89" (chop 16)
$ midiOn "^76" (chop 16)
$ loopAt 4
$ fix ((# cut 41) . (# pan 0.2)) (n "[0,2]")
$ fix ((# cut 42) . (# pan 0.4) . (loopAt 2)) (n "[1,3]")
$ midiOn "^57" (# n "[2,3]")
$ midiOn "^44" (# n "[2,3]")
$ "trance_bass" # n "[0,1]" -- 2
# midiG' "^81" 0 1
......
......@@ -17,19 +17,24 @@ let midiOn ch pat = someCyclesBy ch pat
setcps (60/60/4)
-- endregion
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!3 ~> <~ k>]")
$ midiOff "^41" (<| "k . k(<3!3 5>,8)")
$ "[jazz,cpu2]"
-- # gM' 0 1.2 "^78"
d2 $ g
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "h*8"
# "hh"
-- # gM' 0 1.5 "^79"
d3 $ g
$ midiOff "^41" (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). ^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" (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" (loopAt 0.5)
$ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4"
$ "breaks165"
......@@ -40,7 +45,7 @@ d4 $ g
# "bassWarsaw"
# ampb 40 (range 0 0.45 "^81")
# room 0.2
# crushbus 41 (range 16 2.95 "^53")
# crushbus 41 (range 16 2.95 "^32")
d5 $ g
$ note (cat [
"a e . [~ . a] [a b c6 d6]",
......@@ -58,7 +63,7 @@ d5 $ g
] - 12
)
# "FMRhodes1"
# modIndex (range 1 15 "^54")
# modIndex (range 1 15 "^33")
# ampb 50 (range 0 0.45 "^82")
......@@ -95,6 +100,8 @@ d2 $ g -- Break slow downtempo
(slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy
(slice 8 "0 1 4 3")
-- 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.
$ someCyclesBy "^76" -- Fulltime!
(slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ slice 8 ("0 1 2 1 3 <5!3 3> 2 <3 1>")
......
......@@ -5,45 +5,48 @@ setcps (90/60/4)
let scale = getScale (scaleTable ++ [("blues",[0, 3, 5, 6, 7, 10])])
let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Le pouvoir de voler
$ midiOn "^42" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^41" (<| "k . k(3,8)")
$ fix (|* gain 1) "808bd"
$ fix ((|* gain 0.8)) "909"
$ "[jazz,909,808bd:4]"
# gain 1.4
d2 $ gM2 $ gF1 -- Every superhero needs a clap
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ cp"
# "h2ogmcp"
-- # note (-2)
# gain 1.1
d3 $ gM2 $ gF1 -- Gretsch frappe ton os pour le renforcer
$ 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 "1 2")
$ sometimesBy "^52" (ply "1 2 1 2")
$ sometimesBy "^31" (ply "1 2 1 2")
$ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch"
$ "~ h ~ h ~ h ~ h*<1 2>" # "[hh,gretsch]"
-- # midiG' "^80" 0 1.75
d4 $ gM3 $ gF2 -- BASSLINE VOLTAIQUE
$ midiOn "^57" ((|+ note 12) . (# legato 4))
$ midiOn "^44" ((|+ note 12) . (# legato 4))
$ note ("<bf g bf g bf g bf c c!4 g bf c6@2>" - 24)
-- $ note ("c6")
# "90s_matrix:3"
# cut 4
# pan 0.3
# gain 1
# lesliebus 41 (range "-1" 1 "^17")
# lesliebus 41 (range "-1" 1 "^32")
# lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
# lpf 5000
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# lpfbus 44 (range 12000 200 "^53")
# lsizebus 42 (range 1.9 6.7 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
-- # lpfbus 44 (range 12000 200 "^53")
# room 0.2
d5 $ gM3 $ gF3 -- BLUES RUN
$ someCyclesBy (range 0.95 0.05 ("^18!15 1")) (mask "t(3,8)")
$ slice 16 (run 16)
$ midiOn "^58" (striate 2)
$ superimpose (# modIndex (range 0 96 "^34"))
$ midiOn "^89" (striate 2)
$ superimpose (# modIndex (range 0 96 "^33"))
$ ply "1 4"
$ note (scale "blues" (
-- arp
......@@ -53,7 +56,7 @@ d5 $ gM3 $ gF3 -- BLUES RUN
- 24
)
# "FMRhodes1"
# crushbus 5 (range 16 4.2 "^54")
# crushbus 5 (range 16 4.2 "^53")
# gain 1.85
-- # pan (slow 8 $ range 0.5 1 (saw - (slow 2 perlin)))
# pan (slow 16 $ range 1 0.8 saw)
......@@ -68,7 +71,7 @@ d7 $ gM3 $ gF2 -- G0dz1ll4
$ "90s_matrix:1/4"
# cut 9
# gain 0.55
# crushbus 9 (range 16 2.5 "^55")
# crushbus 9 (range 16 2.5 "^35")
# roombus 91 (slow 16 $ range 0 0.82 perlin)
# dry 2
# sz 0.9
......
......@@ -181,7 +181,10 @@ def _button_roles(blocks: list) -> dict[int, str]:
return roles
def segment(lines: list[str], i: int, last: int) -> list[int]:
STEP = r"(\$|#|d\d+\b|let\b|--\s*(FIXME|TODO))"
def segment(lines: list[str], i: int, last: int, first: int = 1) -> list[int]:
"""The whole `$`-chain segment starting at 1-indexed line i.
Commenting out a single LINE is wrong, and it produced a parse error the
......@@ -193,28 +196,80 @@ def segment(lines: list[str], i: int, last: int) -> list[int]:
In this codebase a chain step starts with `$` or `#` (or `d<N>` for a new
orbit), so the segment runs from i up to just before the next such line.
Verified afterwards by paren balance: if the segment does not close, we
refuse rather than write syntactically broken Haskell.
BUT THE BOUNDARY IS PAREN-AWARE, and that is the whole subtlety (fixed
2026-08-23, after this function refused 10 of 169 files in the corpus-wide
#94 migration). A `$` is only a new chain step at depth 0. Inside an open
paren it is a CONTINUATION of the current body:
$ midiOn ("^44" + "^76") ( <- opens, depth 1
const $ loopAt "<1!6 2 2>"
$ someCyclesBy 0.2 (scramble 4) <- `$` at depth 1: still the body
$ slice 8 (run 8)
$ "breaks165"
) <- depth back to 0
Breaking on the first `$` truncated that segment after two lines, leaving
depth 1, and the balance check then refused the whole file. The refusal was
correct — the segment really was unbalanced — but the segment was wrong. A
depth-blind boundary cannot describe a multi-line body, so every track that
writes one (10 of 169: vendredi_saint, phunk, michael, feu, grace, clameur,
8box, ataright, ccc0, computer_riddub) was unmigratable.
A BLANK LINE still breaks unconditionally, at any depth: Pulsar chunks a
buffer on blank lines, so a blank line inside an open paren is not a
multi-line body, it is a source file that will not compile as written.
Depth != 0 at the end is still a refusal, not a guess.
"""
out = [i]
j = i + 1
while j <= last:
s = lines[j - 1].strip()
if not s or re.match(r"(\$|#|d\d+\b|let\b|--\s*(FIXME|TODO))", s):
break
out.append(j)
j += 1
depth = 0
for k in out:
code = strip_comment(lines[k - 1])
def delta(line: str) -> int:
code = strip_comment(line)
code = re.sub(r'"[^"]*"', '""', code) # parens inside strings don't count
depth += code.count("(") - code.count(")")
depth += code.count("[") - code.count("]")
if depth != 0:
raise SystemExit(
f"migrate-columns: segment at line {i} does not close (depth {depth}); "
f"refusing to comment it out — this would produce broken Haskell.")
return out
return (code.count("(") - code.count(")")
+ code.count("[") - code.count("]"))
def forward(start: int) -> tuple[list[int], int]:
"""Paren-aware scan from a chain-step start; -> (lines, closing depth)."""
out = [start]
depth = delta(lines[start - 1])
j = start + 1
while j <= last:
t = lines[j - 1].strip()
if not t:
break # blank always ends the block
if depth <= 0 and re.match(STEP, t):
break # a new chain step, only at depth 0
out.append(j)
depth += delta(lines[j - 1])
j += 1
return out, depth
# THE HIT LINE IS NOT NECESSARILY A CHAIN-STEP START. `^NN` is routinely
# referenced from the MIDDLE of a multi-line body:
#
# $ midiOn "^59" ( <- the step starts here
# someCyclesBy 0.2
# $ chunk 4 (hurry "^43") <- but THIS is the line that mentions ^43
# )
#
# Scanning forward from the hit line swallows the body's closing `)` without
# its opener and lands at depth -1, which is what made five files refuse
# (ccc0, clameur, grace, feu, michael) after the depth-blind boundary was
# fixed. Negative depth was the tell: too FEW openers means the anchor is
# too late, not that the source is broken.
#
# So walk BACK to the nearest enclosing chain step whose own segment both
# balances and actually contains the hit. That is the unit it is safe to
# comment out. Refuse only when no such step exists.
for start in range(i, first - 1, -1):
if not re.match(STEP, lines[start - 1].strip()):
continue
out, depth = forward(start)
if depth == 0 and i in out:
return out
raise SystemExit(
f"migrate-columns: no balanced chain step encloses line {i}; refusing to "
f"comment it out — this would produce broken Haskell.")
def plan_track(path: Path, helpers: set[int]) -> dict:
......@@ -369,7 +424,7 @@ def rewrite(path: Path, res: dict) -> tuple[int, list[str]]:
and f'"^{cc}"' in strip_comment(lines[i - 1])):
# Expand to the whole chain segment, or the closing parens of
# a multi-line step are left dangling.
hits.update(segment(lines, i, end))
hits.update(segment(lines, i, end, start))
hits = sorted(hits) if hits else [line]
slots = (f"BT{orbit}" + (f" + BL{orbit}" if orbit >= 4
else " only — BL1-3 are the family mutes")
......@@ -377,12 +432,47 @@ def rewrite(path: Path, res: dict) -> tuple[int, list[str]]:
else f"B{orbit}" + (f" + C{orbit}" if orbit >= 4
else " only (C1-3 are the family gF filters)"))
tag = "#94" if cc in BUTTONS else "#54"
fixme = (f"-- FIXME({tag}) d{orbit} drives more controls than the grid gives it "
f"({slots}). ^{cc} now belongs to another orbit, so the line(s) below "
f"are COMMENTED OUT rather than left firing across columns. Nothing is "
f"lost — restore by removing the dashes once gSel folds this onto "
f"d{orbit}'s own control.")
edits.append((hits[0], fixme, hits, f"d{orbit} ^{cc} commented out ({len(hits)} line(s))"))
# COMMENTING OUT A `$`-STEP CAN UNDER-APPLY THE STEP ABOVE IT, and that
# is not a paren problem — it is an ARITY problem (found 2026-08-23 by
# silent-eval: 4 of 169 files stopped compiling while the other 165 were
# fine). In these chains a `$`-step is routinely the OPERAND of a
# higher-order combinator on the line before it:
#
# $ midiOff "^57" (mask "<[t f]!0 …>") <- a FUNCTION, still hungry
# $ stack [ … ] <- ITS ARGUMENT
#
# Comment the `stack` and `midiOff` has nothing to transform: GHC says
# "‘midiOff’ is applied to too few arguments" and the WHOLE do-block dies,
# all twelve orbits, which is far worse than the cross-orbit trigger the
# comment-out was protecting against. A `#`-step carries no such risk —
# `#` takes a ControlPattern, so dropping one leaves a shorter but
# well-typed chain.
#
# So: comment `#`-steps, ANNOTATE `$`-steps. Same principle the clash
# branch below already applies ("a clashed control keeps its own CC, so
# it is still correct code"). The FIXME says which one happened, because
# an annotated line IS still firing and the reader has to know that.
head = lines[hits[0] - 1].strip() if hits else ""
commentable = head.startswith("#")
if commentable:
fixme = (f"-- FIXME({tag}) d{orbit} drives more controls than the grid gives it "
f"({slots}). ^{cc} now belongs to another orbit, so the line(s) below "
f"are COMMENTED OUT rather than left firing across columns. Nothing is "
f"lost — restore by removing the dashes once gSel folds this onto "
f"d{orbit}'s own control.")
edits.append((hits[0], fixme, hits,
f"d{orbit} ^{cc} commented out ({len(hits)} line(s))"))
else:
fixme = (f"-- FIXME({tag}) d{orbit} drives more controls than the grid gives it "
f"({slots}). ^{cc} now belongs to another orbit, so this step STILL "
f"FIRES ACROSS COLUMNS — turning ^{cc} for its new owner also moves this. "
f"NOT commented out: this is a `$`-step and something above it is a "
f"partial application waiting for it, so removing it would stop the whole "
f"block compiling. Fold it onto d{orbit}'s own control with gSel.")
edits.append((hits[0], fixme, [],
f"d{orbit} ^{cc} ANNOTATED, still live ($-step, {len(hits)} line(s))"))
for orbit, cc, line, dest, reason in res.get("clashes", []):
edits.append((line,
f"-- FIXME(#94) d{orbit}: ^{cc} should become ^{dest} ({label(dest)}) "
......
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