Commit daf074f2 by PLN (Algolia)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Excluded from this commit: live/midi/nova/lounge/ouais_je_funk.tidal, which was
already in PLN's modified set. The deshadow is applied on disk there; his to
commit.
parent d6e509c3
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ "k k k k*<1 2>"
......
......@@ -3,16 +3,8 @@ once $ "bassWarsaw"
do
-- resetCycles
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
......
do
setcps (93/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let rootD = "[d3'maj'3]"
let rootA = "[a3,cs4,e4]"
let rootE = "[e3,gs3,b3]"
......
......@@ -110,16 +110,8 @@
do
setcps (120/60/4)
-- resetCycles
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Main Bbm/F vamp with Db/Ebm variation
-- pyin evidence: bass = sustained Bb1(58Hz)↔F2(88Hz), Eb2 for iv, chromatic slides
......
......@@ -2,12 +2,9 @@ E b d e
once $ "dr"
-- V2: Reboot base mi tension si
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.15 0.85 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......@@ -94,18 +91,10 @@ d9
# "moogBass" # legato 0.2
# midiG' "^83" 0 1
-- V1: Yay, voices
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMutePont = (mask "<t!14 f [t f!3]>")
let gM = gMask . gMute . gMutePont
......@@ -177,8 +166,6 @@ d10 -- READY FOR THIS MAN?
$ "voices_reggae:7" # cut 9
# midiG' "^83" 0 1
-- TOO GOSPEL?
d5 -- Chorus 1
$ whenmod 64 48 (-- MYMYMY
......
......@@ -4,8 +4,6 @@ once "dr"
do
setcps (105/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM
......
......@@ -3,10 +3,6 @@
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gM1 = (midiOn "^73" (mask "f*16"))
let gM2 = (midiOn "^74" (mask "f*16"))
let gM = gMask
d1 $ gM2 $ gF
$ midiOn "^14" (fast 2)
......
......@@ -2,9 +2,6 @@ once $ "90s_synatm:1" # cut 1 # gain 0.98
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4)
d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
......
......@@ -3,14 +3,7 @@ do
-- resetCycles
setcps (90/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ 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")
......@@ -65,5 +58,4 @@ d5 $ fast 3 $ note (
"0 2 4" + scale "indian" "c5"
) # "cricri:3"
-- once $ note "a" # "cpluck:" # cut 1
......@@ -2,14 +2,7 @@ do
setcps (60/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^30" (fast 2)
$ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>"))
......
do
setcps (90/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^13" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......
do
-- resetCycles
setcps (105/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......@@ -107,7 +97,6 @@ d11
-- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
# gain (1.1 * (slow 8 $ range 0.75 1 saw))
once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
# gain 1
......@@ -129,6 +118,5 @@ once $ "weird_dialogs:39"
# end 1
# cut 11
d2
$ "~ cp"
do
setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF1min = (# djfbus 3 (range 0.2 0.8 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 $ "jazz*4"
# midiG' "^78" 0 2
d2 $ gF1 $ ply "4 <4!3 2 4!3 2 [4 <8!3 2>]!4 [4 <8!3 [16 8]>]!4>" $ "~ electro1" # gain 0.8
......
do
setcps (135/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k*4")
$ midiOn "^42" (<| "k k")
......@@ -28,7 +25,6 @@ once $ "ikedaBass" # note "e6"
-- # orbit 1
# gain 0.5
once
$ note "b'min'3" # "organDonor"
# gain 0.99
do
setcps (130/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k lk k <k k*2>")
$ midiOn "^42" (<| "k k")
......
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
setcps (160/60/4)
d1 $ gMute
-- $ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
......
......@@ -4,8 +4,6 @@
do
-- resetCycles
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1
$ "808bd:2/2"
# midiG' "^78" 0 1.1
......
......@@ -7,14 +7,8 @@ resetCycles
do
setcps (72/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex"
d1 $ gF1 $ gM -- Kick
$ midiOn "^42" (struct "t . ~ t ~ <~!7 t>")
......@@ -65,7 +59,6 @@ d4 $ gF2
-- # cut 4
# midiG' "^81" 0 1
-- TODO: Add the bass gimmick on 7/8th bars
resetCycles
......@@ -81,7 +74,6 @@ resetCycles
-- Chorus 12
-- # cut 4
do
-- Chorus
-- Alternate 2xMain 2xAlt chords for 8 bars
......@@ -107,9 +99,6 @@ g
-- FIXME: Adapt or remove former copy-pasted content
do
setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......@@ -175,8 +164,6 @@ d6 $ gM $ gF1
# room 0 # dry 0
# midiG' "^83" 0 1.6
d7
$ midiOff "^91" (mask "f")
$ note ("c" -7)
......@@ -198,8 +185,6 @@ d8 $ gM $ gF1
# cut 8
# midiG' "^84" 0 1
-- Graveyard: other break
d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# pan 0.28
......
-- TODO: Scratch intro? :lol:
once $ splice 2 "0" $ "scratch_short:12" # cut 1 # gain 0.8
do
setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......@@ -72,8 +68,6 @@ d6 $ gM $ gF1
# room 0 # dry 0
# midiG' "^83" 0 1.6
d7
$ midiOff "^91" (mask "f")
$ note ("c" -7)
......@@ -95,8 +89,6 @@ d8 $ gM $ gF1
# cut 8
# midiG' "^84" 0 1
-- Graveyard: other break
d8 $ struct "t([5 <<5 5 3 5> <10 5 10 16>>], 16)" $ chop 16 $ "break:1" # cut 2
# pan 0.28
......
do
-- resetCycles
setcps (100/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let modIndex = pF "modIndex"
let gF = gF1 . gF2
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
......@@ -76,5 +70,4 @@ once $ "ho:5"
once $ "jungle_breaks:27" # cut 1
once $ note "a3" # "superpiano"
......@@ -2,9 +2,6 @@
do
setcps (93/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = midiOn "^73" (mask "f f f t")
d1 $ gF1
$ gMask
$ fix (|* gain 0.9) "jazz"
......@@ -54,6 +51,5 @@ d9
-- # room "<0.2!3 0.8>"
# dry 1.8
once $ arpeggiate $ note "a'maj'4" # "superpiano"
# gain 1
......@@ -6,8 +6,6 @@
do
setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gMask = whenmod 8 6 (mask "<t <[t f] f>> . f f f t")
d1 $ gF1
$ fix (# hpf 2000) "909"
......@@ -36,8 +34,6 @@ d3 $ gF2
# "[drum:2,808oh]"
# midiG' "^80" 0 1.6
d5 $ gF2 -- filler
-- FIXME On different chorus
-- f fs gs as c cs ds
......
......@@ -2,16 +2,6 @@
do
-- resetCycles
setcps (90/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
-- Modified blues to add a seventh with bflat
let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "bf", "c"]
......@@ -89,7 +79,6 @@ d10 $ gF3 $ gM3
# gain 0.75
# lpf 300
-- TODO Recover this guitar and make it midi-agnostic
d5 $ gF3 $ note (
"<0 [0, [~@3 <2 0 0 2>@3 0@2]] [0@4 0@2] 0([1 3],8)>"
......@@ -105,5 +94,4 @@ d5 $ gF3 $ note (
# "come_guitar:0"
# midiG' "^82" 0 1.7
once $ "cpluck:3"
do
setcps (92/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k k k k*<1 2>" )
......
......@@ -5,15 +5,8 @@ once $ "dr"
do
setcps (90/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......
......@@ -2,13 +2,6 @@
do
setcps (60/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^42" (<| "k . k(3,8)")
......@@ -62,5 +55,4 @@ d8 $ gF1 $ gM1
# cut 8 # gain 1.2
# midiG' "^84" 0 1.5
once $ "blip"
......@@ -2,13 +2,6 @@
do
setcps (138/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
......
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF
$ midiOn "^42" (<| "k k k k")
$ "jazz"
......
do
setcps (165/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMute
let gM2 = gMute2
let gO = (# octerbus 4 (range 0 2 "^29"))
let modIndex = pF "modIndex"
d1
......@@ -46,7 +41,6 @@ d3 $ gF $ gM -- Breaks du Marathon
# speed (range 0 2 "^52")
# midiG' "^80" 0 1.5
d4 -- BASSLINE BRULANTE
$ gF
$ midiOn "^53" (-- Trigger: DATA BURN
......
......@@ -2,14 +2,9 @@ once $ "jazz"
do
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMute
let gM2 = gMute2
let gO = (# octerbus 4 (range 0 2 "^29"))
d1 $ gM $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
......
......@@ -2,13 +2,6 @@ do
-- resetCycles
setcps (118/60/4)
let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k")
......
do
setcps (98/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)")
......
once $ "dr"
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (120/60/4)
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 2>")
......@@ -48,9 +40,6 @@ once
$ "<c a d e>" # "giorgio_syn"
# gain 0.4
once $ "90s_synatm" # gain 2
d1 $ "k ~ ~ ~" # "kick"
......@@ -26,12 +26,10 @@
|________|/ |________|/
-- Thanks dew & PORTFO for the ASCII art <3
do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k")
......@@ -55,5 +48,4 @@ d8 $ gF1 $ gM2
scaleList
once $ arp "down " "fs'minPent"
......@@ -3,7 +3,6 @@ Profondeur
Entrainant, dansant plus que ambiant
Melancolie
once
$ note ("[g, c, e5, f5]")
# "superpiano"
......@@ -22,7 +21,6 @@ fs ef fs
once $ "giorgio_syn:"
-- Pas commencer avec piano trop aigu, trop Filtered
-- basse bienvenue plus tot?
......@@ -39,13 +37,6 @@ once $ "giorgio_syn:"
do
-- resetCycles
setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ whenmod 128 64 (# silence)
-- $ superimpose ((# lpf 500))
......
......@@ -46,13 +46,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick, le pas du train qui démarre
......
......@@ -5,16 +5,6 @@ once $ "paroles:2" # gain 1.2 # cut 2 # lpf 2000
do
-- resetCycles
setcps (115/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz"
......
......@@ -5,13 +5,6 @@
do
resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
-- $ mask "t t t f"
......
-- TOXIQUE
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>")
......
-- SPACIAL
do
setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ "k ~ ~ k ~ ~ k k*<2 1 2 2>"
# "[jazz,techno:1]"
......
......@@ -2,14 +2,7 @@ do
setcps (125/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ "k*4" # "jazz"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 [<2 4> 2]>"
......
......@@ -2,14 +2,7 @@ do
setcps (125/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
......@@ -64,7 +57,6 @@ d8 $ gF1 $ gM1 $ chop 8
# hpf 500
# gain 1.3
-- d4 $ gF2 $ gM2
-- $ midiOn "^57" (
-- (|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)"))
......@@ -134,5 +126,4 @@ d8 $ gF1 $ gM1 $ chop 8
-- # room 0.2
-- # freezebus 121 (range 0 1 "^31")
once $ "nujazz_keys120:20"
......@@ -2,14 +2,7 @@ do
setcps (125/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
......@@ -217,5 +210,4 @@ d12 $ gF3 $ ""
-- # room 0.2
-- # freezebus 121 (range 0 1 "^31")
once $ "nujazz_keys120:20"
......@@ -2,16 +2,6 @@
-- Original by Leifur James :pray:
do
setcps(140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
......
do
-- resetCycles
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......@@ -65,16 +60,10 @@ once $ "synth_gameboy"
once $ "meth_bass" # cut 6
once $ "[kick:5,kick:4,808bd:8]"
# lpf 200
# gain 0.8
d7 $ gF3 $ gM2 -- High Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ note (
......
......@@ -2,13 +2,6 @@ resetCycles
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
......
......@@ -2,14 +2,7 @@
do
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- DARK NOIR CHORDS (matching the A->E->D pad progression)
let chords1 = "<Am9 Em7 [Dm9 Dm9]>" -- Section 1: D held 2x
let chords2 = "<Am11 Em9 [Dm11 Dm11]>" -- Section 2: Richer voicings
......
......@@ -3,14 +3,7 @@ do
-- resetCycles
setcps (112/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ 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")
......@@ -87,7 +80,6 @@ d9 $ gF3 $ gM3
# legato 2 # att 0.01 # rel 2
# cut 9
d4
$ arp "up" $ slow 4 $ note (scale "indian" (run 8))
# "cricri:3" # gain 1.3 # cut 4
......
do
setcps (114/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick
$ midiOff "^78" (# silence)
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
......
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.2 0.8 "^50"))
let gM = midiOn "^73" (mask "f*16")
d1 $ gF $ gM
$ (|* midiG' "^78" 0 1.4)
......
do
setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ "k . ~ k ~ <k k*[4 2]>"
# "[808bd:2,jazz,techno]" -- Doux
......
do
setcps (120/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t [[f <f t>] <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^42" (<| "<k <~ [~!7 k]>>")
......@@ -86,7 +78,6 @@ d8 $ gF1 $ gM1
$ "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")
......
......@@ -6,16 +6,6 @@
do
setcps (114/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gM2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......@@ -80,13 +70,6 @@ d9 $ gF2 -- Pads atmospheriques
# pan 0.2
# room 0.4
once
$ note "c@2 e@2 d@1 b4@3"
-- $ note "c e d b4"
......@@ -106,9 +89,6 @@ once
-- # room 0.1
-- # dry 0.9
-- Fundamental C
-- First loops on B
-- Eventually resolved in A
......
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (120/60/4)
d1 $ gF $ "jazz*4"
d2 $ gF $ "~ cp"
......
do
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (140/60/4)
d1 $ gM2 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick
......
......@@ -2,13 +2,6 @@
do
setcps (104/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
......
......@@ -2,13 +2,6 @@
do
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gMute2
......@@ -78,10 +71,8 @@ d8 $ gF1 $ gM1
# octersub 0.5
# gain 1.2
d1 $ fast 2 $ degradeBy 0.2 $ "hh" # gain 1.4
-- # att 0.05
once $ arp"up"
$ "FMRhodes1" # note "[c4'min]" # gain 1.8
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......
......@@ -3,16 +3,6 @@
do
-- resetCycles
setcps(124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
......
......@@ -3,13 +3,6 @@
do
-- resetCycles
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ "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>>]"
......
......@@ -3,13 +3,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ "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>>]"
......@@ -112,8 +105,6 @@ d12 $ gF3 $ gM3
# room 0.4
# gain 1.5
d4 $ gF2 $ gM3
$ "jungle_bass:15"
# cut 4
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (165/60/4)
-- d1 $ gF1 $ gM2
d1
......@@ -60,8 +49,6 @@ d5 $ gF2 $ gM2
d8 $ gF1 $ gM1 $ loopAt 2
$ chop 8 $ "jungle_breaks:74" # cut 8
d4 $ gF2 $ gM3
-- $ midiOn "^57" (
-- superimpose (("e" ~>) .(|+ note 12) . (# cut 41)))
......@@ -111,7 +98,4 @@ d9 $ gF3 $ gM3
# room 0.4
# gain 1.4
once $ "rampleS21:0"
......@@ -2,13 +2,6 @@ do
-- resetCycles
setcps (142/60/4)
let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (166/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
......@@ -84,7 +73,6 @@ d9 $ gF3 $ gM3
# room 0.4
# gain 1.4
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
......@@ -93,14 +81,11 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
do
setcps (120/60/4)
d1 $ "k k k k*<1 2>" # "jazz"
d2 $ "~ cp"
90s_matrix:0
d8 $ "jungle_breaks"
......@@ -2,13 +2,6 @@
do
resetCycles
setcps (70/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let endSong = (someCyclesBy "<0!48 1!999>" (# silence))
d1 $ gF1 $ gM2 $ endSong
$ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)"
......
-- do
-- resetCycles
setcps (110/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
-- $ midiOn "^30" (# "hardkick_rha")
......@@ -90,10 +83,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
# cut 8
# gain 1.4
once $ arp "up" $ note "a3'maj'4" # "superpiano"
once $ "h:6"
do
......@@ -104,8 +95,6 @@ d1 $ "k k k k*<1 2>"
d2 $ "~ h ~ h" # "h:6" # squiz 4
d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05
d7 $ gF3 $ gM3
-- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3))
$ chop 8
......@@ -117,7 +106,6 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1
$ (0.125 ~>)
$ slow 2
......@@ -172,8 +160,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
......
do
-- resetCycles
setcps (80/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
-- $ midiOn "^30" (# "hardkick_rha")
......@@ -88,10 +81,8 @@ d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
# cut 8
# gain 1.4
once $ arp "up" $ note "a3'maj'4" # "superpiano"
once $ "h:6"
do
......@@ -102,8 +93,6 @@ d1 $ "k k k k*<1 2>"
d2 $ "~ h ~ h" # "h:6" # squiz 4
d3 $ "[~ h:6]*8" # hpf 5000 # end 0.05
d7 $ gF3 $ gM3
-- $ superimpose ((|* gain (slow 16 $ range 0.5 1 saw)) . (# n 15) . (# pan 0.3))
$ chop 8
......@@ -115,7 +104,6 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1
$ (0.125 ~>)
$ slow 2
......@@ -170,8 +158,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
......
do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
......
......@@ -2,16 +2,6 @@
do
resetCycles
setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
......
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (105/60/4)
do
-- d1 $ gF1 $ gM1 $ "kick:5"
......@@ -48,7 +37,6 @@ d10 $ gF3 $ note "f/4" -- Anges des intertubes
# pan 0.7
# cut 10
d4 $ gF2 $ gM1 -- Bass electrique
$ note (scale "aeolian" (
"3"
......
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ fast 2
$ midiOn "^42" (<| "k*4")
......
do
setcps (128/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^42" (<| "k . ~ k")
......
do
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......@@ -51,5 +44,4 @@ d8 $ gF1 $ gM1
$ "jungle_breaks:22"
# gain 0.9 # cut 8
gs a - b c - e f - f fs
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide
-- $ fast 2
......@@ -98,15 +88,8 @@ d9 $ gF3 -- Pads atmospheriques
-- trance_bass:5
-- TRAVAUX
d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
......
do
-- resetCycles
setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ superimpose ((# cut 11) -- Rumble
......
do
setcps (120/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM2
$ "[jazz,kick:5]*4"
......
......@@ -32,8 +32,12 @@ d3 $ gF1 $ gM1 -- OH/CY: Subtle offbeat hats, ^44 morphs to cymbal shimmer
$ "~ h ~ h ~ h ~ <h!3 h*2>" -- offbeat pattern with flourish
# "h2ogmhh"
# n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- varying openness per hit
-- FIXME(#54) d3 3rd+ effect: the grid gives d3 B3 only (C is a gF filter). Fold ^52 in via gSel rather than borrowing a column.
# legato (range 0.2 0.9 "^52") -- ^52: tightness
-- FIXME(#54) d3 wants two knob-effects but the grid gives it ONE (B3 = ^31, already
-- used above; C3 is gF3, a family filter). ^52 is d4's C-column, so this was borrowing.
-- Parked as a static value at the knob's centre so the sound is unchanged-ish; restore
-- as a knob once gSel lands (then ^31 selects roll-probability vs tightness).
-- # legato (range 0.2 0.9 "^52") -- ^52: tightness
# legato 0.55
# cut "~ 3 ~ 3 ~ 3 ~ <3!3 [3 0]>" -- last hit: cut 0 = rings over bar boundary
# room (slow 32 $ range 0.2 0.45 saw) -- 32-bar: space grows (NOT dry!)
# sz (slow 32 $ range 0.1 0.3 saw) -- 32-bar: tail lengthens
......@@ -82,10 +86,9 @@ d7 $ gF3 $ gM3 -- Voices
$ fix ((1/8) ~>) (n 9)
$ fix ((5/8) <~) (n "[11,12]")
$ slow 2
-- FIXME(#54) BEHAVIOUR CHANGE, needs PLN's ear: ^19 used to drive BOTH this NANANA
-- and d9's gain swell above. d9 moved to ^17 (its own A5 knob), so the two are no
-- longer one gesture. If that link was deliberate, say so and we restore it.
-- d7 also stacks ^91/^35/^59 — consolidate this lot into B7 (^35) via gSel.
-- FIXME(#54) the one-knob link is gone: ^19 used to drive this NANANA *and* d9's gain
-- swell together. d9 now has its own A5 (^17), so they are two gestures. Parked, not
-- lost — if the linked swell was the point, gSel or a shared knob restores it.
$ midiOn "^35" (>| n "<11 12>") -- NANANA | B7 = d7's primary effect
$ midiOn "^55" (>| n "<10 ~>") -- FREE FROM DESIRE
$ midiOn ("^59" - "^55") ( -- Refrain
......
do
setcps (160/60/4)
-- resetCycles
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Main Bbm/F vamp with Db/Ebm variation at the end
let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
......
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
......
do
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4")
-- $ midiOff "^42" (<| "k . ~ k")
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 4 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF4 $ gMute2
$ superimpose (
(# "hardkick_rha") .
......@@ -113,5 +106,4 @@ d10 $ gM3 $ gF3
# gain 1.3
# cut 101
-- rhadamanthe_divers:143 -- bien sifllement
......@@ -2,7 +2,6 @@
do
setcps (85/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF
$ superimpose ((# "kick:5") . (|* gain 0.8))
$ midiOn "^42" (struct "t*<1!3 2> . t(3,8)")
......@@ -63,7 +62,6 @@ d9 $ gF2 -- La trompette
d8 $ loopAt 2 $ "break:1" # cut 8
# midiG' "^84" 0 2
once $ "dr*4"
once
......@@ -73,11 +71,9 @@ once
# pan 0.1
# gain 0.9
once $ "han:2"
# gain 1
# cut 3
# gain 1.4
# cut 4
do
setcps (180/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = id
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable
$ midiOn "^41" (
# "hardkick:2" -- Kick GABBER
......@@ -90,9 +84,6 @@ once $ "c c " "phazer"
# gain 0.8
# cut 3
d6 $ gM2 $ gF3
$ chop 4
-- $ slice 4 "<0 1 2 3>"
......
......@@ -23,13 +23,6 @@ d4 $ note "e fs g a b d" # s "cs80leadMH" |- note 12
do
-- resetCycles
setcps (205/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
$ midiOn "^30" (# "hardkick_rha")
......@@ -106,8 +99,6 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
......@@ -141,7 +130,6 @@ d8 $ gF1 $ gM1
# octersub 0.5
# gain 1.4
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
......@@ -150,11 +138,6 @@ once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
90s_matrix:0
d8 $ "jungle_breaks"
do
-- resetCycles
setcps (99/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......
do
setcps (102/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ fast 2
$ midiOn "^42" (<| "k k k k*<1 2>")
......@@ -69,12 +62,3 @@ d12 $ gF3 $ gM3 -- GUITARS OF LOVE
# crushbus 111 (range 16 2.8 "^16")
# pan 0.9
resetCycles
do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let fundamental = slow 4 $ "<gb3'maj db3'maj bb2'min bb2'maj>"
setcps (160/60/4)
......
do
setcps (120/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gM $ gF1 $ mask "<t f!3 t!28>"
$ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ fix (|* gain 0.8) "kick"
......@@ -40,7 +36,6 @@ d8 $ gM $ gF1
$ "jungle_breaks:6"
# midiG' "^84" 0 1.4
d1 $ "d@6 d@4 d@4 d@2"
# note "c3 ef3 g3" # "superpiano"
......
-- Nouvelle vague; NOUVEAU PUNK
do
setcps (155/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~")
......
do
setcps (150/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
......
do
-- resetCycles
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~!3 k> k]>")
$ midiOff "^42" (<| "k . <[~ k] k(<3 5>,8)>")
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~. k ~ ~ ")
......@@ -25,5 +18,4 @@ d6 $ "playa" # cut 6
d8 $ slice 32 0 $ "playa" # cut 8
d9 $ "playa/4" # begin 0 # end 0.18 # cut 9 # lpf 1200 # room 0.4
once
do
-- resetCycles
setcps (170/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k k*<1!3 2>")
......
do
-- resetCycles
setcps (160/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
......
......@@ -7,10 +7,7 @@ once $ "voices_reggae" # cut 2
do
-- setcps (180/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gCPS = (# cpsbus 4 ((range 60 180 "^13")/60/4))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gCPS $ gF $ gMute
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ "k k k <k k*2 k [~ k*<1 1 <1 2> <2 4>>]>"
# "hardkick_rha" # n "<14!3 15 <14 15>>" -- SALE
......
......@@ -23,17 +23,9 @@
-- 22. kill scats
-- 23. Fade out on choir
do
resetCycles
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ mask "<f!8 t!56>" -- Mask regulier
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
......
do
-- resetCycles
setcps (90/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>")
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ whenmod 8 6 (mask "f")
$ midiOn "^42" (<| "k k k k*<1!3 2>")
......
do
setcps (133/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (90/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
......@@ -38,8 +27,6 @@ d8 $ gF1 $ gM1 $ loopAt 2
-- $ midiOn
$ "jungle_breaks:20" # cut 8
d2 $ gF1 $ gM1
$ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
$ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
......
......@@ -7,16 +7,6 @@ resetCycles
do
setcps(140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......
......@@ -2,13 +2,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*2>")
......
do
setcps (100/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF2
......
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (120/60/4)
d1 $ gF1 $ gMute2
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
......
......@@ -42,8 +42,6 @@ once
do
setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF
......
......@@ -2,12 +2,7 @@
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
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 $ gMute1
......
......@@ -2,9 +2,7 @@ do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let prog = "<a3'min'4 c3'maj'4 f3'maj'4 [d3'min'4 e3'min'4]>"
setcps (120/60/4)
d1 $ g $ gMute -- BOUNCE THAT KICK
......@@ -72,7 +70,6 @@ do
once $ "cbow:7"
# gain 0.8 # cut 5
once $ "giorgio_syn:1" # cut 4
-- GARAGE
......
......@@ -2,13 +2,6 @@ do
-- resetCycles
setcps (140/60/4)
let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- d3 $ gF1 $ gM1 -- Drumroll fantome
-- $ mask "<f!16 f!11 [f t] t!4>"
-- $ whenmod 32 24 (juxBy 0.4 rev)
......
......@@ -6,14 +6,8 @@
do
setcps (120/60/4)
let width = pF "width"
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
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)")
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps (85/60/4)
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ mask "<f!16 t!48>"
$ "k*<1!4 2 1!3> ~ . ~ k ~ <~ k ~ <~ k>>"
......
......@@ -4,7 +4,6 @@ once $ "dr"
do
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f1l = (# djfbus 3 (range 0.45 0.55 "^49"))
......
-- Quand les aigus arrivent, il manque qqch qui vient apres
-- Quand les djf baissent, il manque un drop au retour
do
resetCycles
setcps (90/60/4)
let whenPont it = (someCyclesBy "<0!32 1!8 0!32>" it)
let gMask = mask "t!3 <t!7 f>"
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gMask = mask "t!3 <t!7 f>"
let gDJFDown = ((someCyclesBy "<f!24 t!8>" (# djfbus 1 (range 0.5 0.1 saw))))
let gDJFUp = ((someCyclesBy "<f!32 t!16 f!16>" (# djfbus 2 (range 0.15 0.85 saw))))
let g = gDJFDown . gDJFUp
......
......@@ -4,12 +4,17 @@ resetCycles
do
setcps (60/60/4)
let modIndex = pF "modIndex"
let gF1 = (someCyclesBy "<f!10 t!6 f!112>" (# djfbus 1 (slow 6 $ range 0.5 0.1 saw))) -- Intro DJF
let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gF1 = (someCyclesBy "<f!10 t!6 f!112>" (# djfbus 1 (slow 6 $ range 0.5 0.1 saw))) -- Intro DJF
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF
let gF = gF1 . gF2 -- Global filter
let gM1 = (whenmod 16 8 (whenmod 8 7 (mask "t(<3 [3 4]>,4)")))
let gM2 = (whenmod 32 16 (whenmod 16 12 (mask "t t <f t> <f f t f>")))
let gM3 = ((someCyclesBy "<f!32 t!8>" (mask "<f f t t> <f t t t> <f t> <f f t f>")))
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gM1 = (whenmod 16 8 (whenmod 8 7 (mask "t(<3 [3 4]>,4)")))
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gM2 = (whenmod 32 16 (whenmod 16 12 (mask "t t <f t> <f f t f>")))
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gM3 = ((someCyclesBy "<f!32 t!8>" (mask "<f f t t> <f t t t> <f t> <f f t f>")))
let gM = gM1 . gM2 . gM3 -- Global mask
let fadeOut = (whenmod 128 120 (|* gain (slow 8 $ range 1 0.5 saw)))
-- d11 $ slow 8 $ n (run 8) # "numbers" # gain 0.35
......
......@@ -25,7 +25,8 @@ let rMask = (mask "t!6 <t!4 t?!3 f> <t t t <t? f>>")
let rLPF = (someCyclesBy "<0!32 1!8 0!16 1!8>" (# lpf (slow 8 $ range 5000 200 saw)))
let gLPF = (someCyclesBy "<0!48 1!16>" (# lpf (slow 16 $ range 6000 100 saw)))
let gR = (rMask . rLPF)
let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 t f t t>]"
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 t f t t>]"
let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]"
let g = (gLPF . gMask)
let gB = (gLPF . gMaskB)
......@@ -124,7 +125,6 @@ d10
# room 0.2
# cut 10
-- once $ "fx_commodore:1"
-- # gain 0.6
-- # cut 11
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
-- $ midiOn "^42" (<| "k*2 k k <k <k*2 [~ k*<1 [4 2]>]>>") -- PERMANENCE
......@@ -45,14 +35,6 @@ d8 $ gM1 $ gF1
$ loopAt 4
$ "jungle_breaks:45"
d1 $ gM2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......@@ -195,6 +177,5 @@ once $ "weird_dialogs:39"
# end 1
# cut 11
d2
$ "~ cp"
......@@ -52,7 +52,6 @@ let _seedNow = concat [ [ (show n, 0) | n <- [13..20] ++ [29..36] ++ [52..56]
:}
-- then: mapM_ (\(k,v) -> setF k (pure v)) _seedNow
-- =====================================================================
-- #13 — DEFAULT-XFADE track launches. Every dN now crossfades in over
-- 4 cycles AND keeps its orbit (the old `xfade N` lost the orbit → sound
......@@ -89,7 +88,6 @@ let d1 = xfade 1 . (|< orbit 0)
-- 4 cycles (not instant). That's fine for launches; if you're iterating fast on
-- one line, re-eval the plain BootTidal defs (or use p N $ … for an instant set).
-- =====================================================================
-- PANIC CHORD — kills the tedium of composing/testing. Hold LCXL push
-- buttons 73+74+91+92 TOGETHER; the SC bridge (start_and_midi.scd) detects
......@@ -100,7 +98,6 @@ let d1 = xfade 1 . (|< orbit 0)
-- streams it should mute) — try on whichever you're actively composing:
-- =====================================================================
:{
let gPanic = (# gain (range 1 0 "^93")) -- ^93=0 normal, ^93=1 silent (gain 0)
:}
-- try: d1 $ gPanic $ gF1 $ gMute2 $ sound "bd*4"
-- hold 73+74+91+92 -> instant silence + LEDs light; hold again -> back, LEDs off.
......
......@@ -2,12 +2,6 @@
do
setcps (80/60/4)
-- resetCycles
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMute
let gM2 = gMute2
let gM3 = gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let rq = pF "rq"
......
......@@ -4,13 +4,6 @@
do
setcps (135/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let curve = pF "curve"
-- 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,
......@@ -125,5 +118,4 @@ d8 $ gF1 $ gM1
# lpf 5000
# gain 1.7
once $ "reeseBass"
do
-- resetCycles
setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k*<1 1 2 1> k*<2!3 [4 2]>")
......
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
let prog1 = "<b3 fs3 a3 e3>"
let prog2 = "<b2 d3 e3 <cf3 a2 cf3 <f3 fs3>>>"
-- DEBUG: Prog avec un copier coller sale
......
......@@ -3,12 +3,10 @@ do
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let f3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1 $ f1 $ gMute2
......@@ -115,5 +113,4 @@ d10 $ f1 -- RANDOM FOREST NOISES
once $ "fx_gameboy:3" # gain 0.8 # cut 10
once $ "bassWarsaw" # freq 82 # gain 1.2 # cut 3
......@@ -12,13 +12,7 @@ do
-- let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF)
-- let gPont1 = (whenmod 32 24 gLPF)
let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (110/60/4)
d1 $ gF1 $ gM2 $ gMute -- Kick
$ midiOn "^42" (<| "k k k <k k*2>")
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2 -- 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>>")
......
......@@ -3,10 +3,6 @@ once $
do
setcps (110/60/4)
let d = drumFrom "rolandtr808"
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.01 0.99 "^29"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^13"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM
......@@ -47,9 +43,6 @@ d7
# cut 7
# midiG' "^84" 0 0.6
d6 $ gF3
$ arp "up"
$ d "cb:1"
......
......@@ -2,14 +2,8 @@
-- Prestance
do
setcps (134/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
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>")
......
......@@ -3,13 +3,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*2>")
......
-- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif"
once $ "ai_welcome:12" # cut 9 # orbit 8
# gain 1.6
-- Feature
once $ "ai_raise:5"
# gain 1.8
......@@ -33,7 +30,6 @@ once
$ slice 2 "1" "ai_raise:2" -- UNDERHYPed
# gain 2 # cut 9 # orbit 8
d9
$ struct "t(8,16)"
$ chop 8 $ "ai_raise:1"
......@@ -66,17 +62,9 @@ d1
$ whenmod 4 3 (slice 4 "<0(3,8) 1>")
$ "ai_welcome:3/2" # cut 1 # gain 1.4
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF $ gMute
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
......@@ -45,7 +38,6 @@ d8 $ gF $ gMask
# pan 0.7
# midiG' "^84" 0 1.2
d2 $ gF $ gM -- Snare FOU
$ superimpose (# lpf 5300) -- Double bass
$ midiOn "^75" (<| "[<~!3 s> s]*<4!3 8>")
......
do
setcps (90/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1
$ "k [~!3 k] <~!2 k ~> <~!8 [~ <~ <k k*2>>]!24>" -- Swing Groove
-- $ "k ~ k ~" -- Classic Boom-Bap
......@@ -55,7 +52,6 @@ d9 $ gF3
# midiG' "^19" 0 1.8
|* gain (0.8 + (range 0 0.28 saw))
c g show
cs gs
......@@ -2,16 +2,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......@@ -134,7 +124,6 @@ d11
-- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
# gain (1.1 * (slow 8 $ range 0.75 1 saw))
once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
# gain 1
......@@ -156,6 +145,5 @@ once $ "weird_dialogs:39"
# end 1
# cut 11
d2
$ "~ cp"
do
setcps (90/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" (fast 1 . (<| "k k k <k [k*2 <k [~ k]>]>"))
$ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)")
......@@ -120,9 +112,6 @@ d10
once $ "fx_commodore"
once $ note "g4" # "superfork"
# orbit 4
# accelerate 2
do
-- resetCycles
setcps (165/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gDJF = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.01 0.45 saw)))
let gDJF = id
d1 $ gDJF $ gM2 $ gF1 -- KICK SOUTENANT
......
......@@ -3,16 +3,6 @@ resetCycles
do
setcps (117/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k k k <k!3 [<~ k> k]>")
$ "[hardkick_rha:60,jazz]"
......
do
setcps (80/60/4)
resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]"
-- # "[rampleM8:0,rampleM12:0]"
......
do
-- resetCycles
setcps (92/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ mask "<f!8 t!56>"
$ fix (# lpf 400) "gtkick"
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 1 1 2>")
$ midiOff "^42" ((<| "<k(3,8) [k k k k ~]>") . superimpose (# "kick:5"))
......@@ -74,5 +64,4 @@ d8 $ gF1 $ gM1 -- BREAK THIS FLOOR
$ "nujazz_beats120:2"
# pan "0.3 0.7 0.3 0.7"
-- FIXME GRAVEYARDDD
......@@ -4,17 +4,7 @@
do
-- resetCycles
setcps (93/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
......@@ -77,7 +67,6 @@ d8 $ gF1 $ gM1
)
$ "break:8" # cut 8
C ASH
R ULES
E VERYTHING
......
......@@ -22,16 +22,6 @@ once $ "leon:19" -- Encore <3
do
-- resetCycles -- TODO UNCOMMENT
setcps (90/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.01 0.99 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ fix (# n 0) "jazz"
$ midiOff "^42" (>| n "0 . ~ [~ <~!2 0!2>]")
......
do
setcps (140/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]"
-- # "[rampleM8:0,rampleM12:0]"
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k [~ k*<1 2>]>")
$ midiOff "^42" (<| "k ~ . ~ k ~ ~")
......
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ 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>>")
......
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k <k!6 ~ ~> k*<<1!3 <0 1>> <2 [4 <4 2 2 4> 2 <4 [8 4]>]>>"))
$ midiOff "^42" (<| "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]")
......
do
-- resetCycles
setcps (92/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ mask "<f!8 t!56>"
$ fix (# lpf 400) "gtkick"
......
do
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (93/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k(<1 [3 1] 3 [3 8]>,8)")
......
do
setcps (100/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ 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?
......@@ -83,9 +76,6 @@ d8 $ gF $ gM
# gain 1.6
# pan 0.3
d9 $ never (# silence)
$ slow 4 $ n "~ <8 10 14 8>"
# "fx_commodore"
......
......@@ -3,16 +3,6 @@
do
-- resetCycles
setcps (128/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gO = (# octersubbus 5 (range 0 1 "^29")) . (# octerbus 6 (range 0 0.52 "^29"))
d1 $ gF1 $ gM2 -- Kick FIXME PLUS PUISSANT!!1!
-- $ superimpose ((# crush 5) . (# lpf 2000) . (# gain 2))
......
do
setcps (165/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.01 0.99 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let progAlt = "<[c,e,g,b] [c,e,gf,a4] [c,ef,g,bf5] [c,e,g,d5]>"
......
......@@ -2,8 +2,6 @@ resetCycles
do
setcps (80/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 -- THIS TIME IT'S GONNA BE SLOW
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOff "^41" (<| "k k k k")
$ midiOn "^41" (<| "k k k k*<1 1 1 2>")
......@@ -28,5 +21,4 @@ d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8
$ midiOn "^60" (splice 8 "1 4 3 7 4 5*2 [6 7] 7*2")
$ "jungle_breaks:45"
d1 $ "FMRhodes1" # note "e3"
......@@ -5,16 +5,8 @@
-- E C E G C
-- CODESECRET
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (93/60/4)
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k k")
......
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
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 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
......
......@@ -43,16 +43,6 @@ aonce
do
resetCycles
setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gMute2 $ 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?
......@@ -134,10 +124,6 @@ d10 -- Ready playerm two
# crushbus 101 (slow 32 $ range 1.8 0.61 saw)
# gain 0.8
--
-- SANDBOX
--
......@@ -154,7 +140,6 @@ d7 $ gM -- Break from the past
# dry 1
# midiG' "^84" 0 1.8
d6 $ gF2 -- BASIC BUS: Terminus
$ midiOn "^59" (striate 2)
$ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
......
......@@ -3,14 +3,7 @@ do
setcps (130/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k?]>")
$ midiOff "^42" (<| "k . k" )
......@@ -37,8 +30,6 @@ once$ "rhadamanthe_melo:20"
# end 0.85
# cut 5
movie_haunted : "HM PlayingGod", "HM LittleDevil", "HM Midnight"
movie_search : "TS Devil"
movie_telescope : "TE Devil"
......
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
......
......@@ -2,13 +2,7 @@
do
setcps (138/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
......
do
setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
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]>>"))
......
......@@ -5,7 +5,6 @@
do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
......
......@@ -2,13 +2,6 @@
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k k*2"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
......
-- Monday fairy
do
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let maskDrum = "t(5,8) . t(9,16)"
let maskDrumI = "f(5,8) . f(9,16)"
d1 $ gF1 $ gMute2
......
......@@ -4,16 +4,6 @@ resetCycles
do
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])])
-- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2
d1 $ gM2 $ gF1
......@@ -116,5 +106,4 @@ d8 $ gM1 $ gF1
# cut 8
# gain 0.9
once $ note "d%'maj" # "harpsichord2"
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (110/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
......
......@@ -2,13 +2,6 @@
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ 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]>")
......
......@@ -23,19 +23,9 @@
-- 22. kill scats
-- 23. Fade out on choir
do
-- resetCycles
setcps (99/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ midiOn "^42" (<| "k*<1!12 2 1 1 2> <~!4 [~ k]!4> . ~ k ~ <~ k>")
$ midiOn "^42" (<| "k k k k*<1 2>")
......
......@@ -6,13 +6,7 @@
-- Bro, you got a friend in blue
do
setcps (60/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gMute2
$ fast 2 -- 120BPM!!!
$ fix (
......@@ -68,17 +62,12 @@ d8 -- TODO: Validate or replace ;)
$ "fbreak80:10"
# midiG' "^84" 0 0.8
once $"fx_:9"# gain 0.8
once
$ "fguitar:39"
# gain 0.7 # cut 5 # pan 0.9
d9 -- Nappe de fond??
$ "90s_megafx:189"
# gain "^20"
......@@ -89,6 +78,5 @@ d9 -- Nappe de fond??
# sz 0.8
# cut 9
once $ "tek_kick:4"
# room 0
......@@ -3,13 +3,6 @@ resetCycles
-- Alerte Verte
do
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
d1 $ gF1 $ gMute2 -- KICK
$ mask "t t <t!14 f f> <t!12 f t f f>"
......@@ -190,5 +183,4 @@ d6 $ "seawolf:0/4"
once $ "rhadamanthe_vocal:5" # cut 1
once $ "movie_giant:13" # orbit 8 -- Jungle
......@@ -5,7 +5,6 @@ do
setcps (165/60/4)
let modIndex = pF "modIndex"
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gM = (midiOn "^42" (mask "t <t!3 <[f t]!2 f [f t!3]>>"))
d1
$ gF
......
do
-- resetCycles
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
$ gF1 $ gM2
-- $ midiOn "^42" (off "e" (# "jazz:0"))
......
do
-- resetCycles
setcps (74/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ fast 2
$ gF1 $ gM2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
......
......@@ -2,13 +2,6 @@
do
-- resetCycles
setcps (125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
$ gF1 $ gMute2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
......
do
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......@@ -100,13 +94,8 @@ d10
fs gs a x3 fs gs c fs gs g
-- GRAVEYARD FROM STOLEN BITS OF SUNS OF GOOOOOLD
d11 $ gF3 -- Angels of deception
$ slow 2
-- $ mask "<[f f t] t!3>"
......
do
setcps (83/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- 4 SOLID wheels
$ "jazz*4"
# midiG' "^78" 0 1.4
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" ((<| "k k k <k <[~ k] k*<2 [4 2]>>>") . (# legato 0.5))
$ midiOff "^42" ((<| "<k ~> . ~ [~ k ~] ~ <~!3 k>") . (# legato 0.5))
......
ydo
-- resetCycles
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (y# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gF1 = (y# djfbus 1 (range 0.05 0.95 "^49"))
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......
......@@ -2,13 +2,6 @@
do
-- resetCycles
setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
let width = pF "width"
......
......@@ -3,13 +3,6 @@ resetCycles
do
-- setcps(144/60/4)
setcps(166/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- gF1/gF2/gF3 deliberately NOT redefined here: use BootTidal's safe-at-centre
-- gDJF. The old local form (# djfbus N (range 0.05 0.95 "^NN")) is the #21/#48
-- footgun -- djf 0.05 is a ~26 Hz low-pass, i.e. total silence, and that is
......
do
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k [<~ k?> k]>")
$ midiOff "^42" (<| "k . ~ k ~ <~!7 k>")
......
once $ "xplosive" -- RIFF
-- # cut 6
# orbit 4
......@@ -16,7 +9,6 @@ once $ "xplosive" -- RIFF
# hpf 500 # lpf 3000 # gain 0.6
# delayfb 0.9 # delay 0.89 # delayt 0.25
once $ "xplosive:3" -- HOES
# gain 0.9 # orbit 4
......@@ -29,19 +21,9 @@ once $ "d d"
# end "0.28 0.5"
# gain 0.8
do
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (81/60/4)
d1 $ gF1 $ gM2 -- YRVHTECHNO KICK TO DNB
$ fast 2
......
do
-- resetCycles
setcps (160/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
......@@ -110,5 +100,4 @@ d10
$ mask"<f!7 t>"
$ "h2ogmcy:3"
once $ note "c5" # "superpiano"
do
setcps (85/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- 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
......
do
setcps (133/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
......
......@@ -8,7 +8,8 @@ do
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = mask "t t <t <t f> t <f [f t]>>"
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gMask = mask "t t <t <t f> t <f [f t]>>"
let g1 = (gDJF1 . gMask)
let g2 = (gDJF2 . gMask)
setcps (86/60/4)
......
do
setcps (100/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 2>" )
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
......
do
setcps (70/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
-- resetCycles
d1 $ gM2 $ gF1
-- $ mask "<f!8 t!24 f!16 t!16>"
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ "[techno:0,kick:4]"
......
......@@ -11,8 +11,6 @@
do
setcps (160/60/4)
let mMask = midiOn "^73" (# silence) -- Take your time
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF1 $ mMask
$ midiOn "^42" (struct "t <t t*2 t [~ t]>") -- We push
$ midiOff "^42" (struct "t . ~ <~!4 t!4> ~ ~") -- We pull
......
......@@ -2,13 +2,6 @@
do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k k*2"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
......
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4)
d1 $ gF1 $ gM2
......@@ -125,7 +115,6 @@ d10 $ gF3
# gain 0.6
# pan 0.4
once $ "dr"
# gain 2.5 # cut 1
......@@ -2,13 +2,6 @@ once $ note ("c e g" + "24" - 6) # "jungbass:2" # cut 1
do
setcps (82/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4"
d2 $ gF1 $ gM1 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>" -- TODO SNARES <#
d3 $ gF1 $ gM1 $ "hh*[8 16]"
......
......@@ -7,13 +7,6 @@
do
-- resetCycles
setcps (108/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
......
do
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t!7 f"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let giantA = jchord "<Bmaj7 D7 Gmaj7 Bb7 Ebmaj7 [Am7 D7] Gmaj7 [Bb7 Ebmaj7] [F#7 Bmaj7] [Fm7 Bb7] Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7]>"
let giantB = jchord "<Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7] Ebmaj7 [C#m7 F#7] Bmaj7>"
let giantSimple = jchord "<Bmaj7 Gmaj7 Ebmaj7 Bmaj7>"
......
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......@@ -59,6 +57,4 @@ d6 $ gF
# cut 6
# midiG' "^84" 0 0.85
once $ "shiloh:5"
-- Lendemain Divin
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (95/60/4)
d1 $ gMute2 $ gF1
$ fix (|* gain 0.9) "kick:6"
......
......@@ -4,14 +4,7 @@ do
setcps (60/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t f t <t f>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ 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)"))
......
resetCycles
do
setcps(125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let prog = "<c g f c>"
d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
......@@ -89,11 +78,6 @@ d8 $ gM1 $ gF1
# pan "<0.3!16 0.7!16>"
# gain 0.78
d5 $ gM3 $ gF3
$ chop 8
$ loopAt 2
......
......@@ -2,9 +2,6 @@
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
......
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.01 0.99 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let progAlt = "<[c,e,g,b] [c,e,gf,a4] [c,ef,g,bf5] [c,e,g,d5]>"
......
do
setcps (65/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k k"))
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
......@@ -71,9 +64,6 @@ once $ "law_adri" # cut 1 # n 21
-- # lpf 2000
-- # octer 0.
d8 $ gF1 $ gM1
$ loopAt 1 $ chop 8
$ "jungle_breaks:45"
......
......@@ -3,15 +3,8 @@
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......
do
-- resetCycles
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
......
......@@ -3,13 +3,6 @@ resetCycles
do
setcps (93/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- Bm A G D
-- vi V IV I
let prog = "<[d,fs,b4] [cs,e,a4] [d,g,b4] <[d,fs,a4] [d,a4,fs5]>>"
......
resetCycles
-- Invoque l'été
-- Il ne viendra pas tout seul ;)
do
setcps (115/60/4)
let gMask = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^42" (<| "k*2")
......@@ -109,7 +101,6 @@ d9 $ gF3 $ gMute3 -- Angels of moogland
# fshift "<0!4 1!4>"
# fshiftnote "-5"
-- Sandbox
-- TODO Manual scratcher? FIXME Too manual?
......
......@@ -3,14 +3,7 @@ do
setcps (91/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k ~>")
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (125/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
......
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ fix (# lpf 2000) "kick"
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
......
......@@ -7,14 +7,7 @@ do
-- resetCycles
setcps (123/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k [~ <~!7 k*4>]>")
......
do
-- resetCycles
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
......
......@@ -5,13 +5,7 @@ fs ds
do
setcps (94/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>")
......
do
-- resetCycles
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- let gF1 = id
-- let gF2 = id
-- let gF3 = id
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
-- $ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
......
......@@ -2,16 +2,6 @@
do
-- resetCycles
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
-- $ midiOn "^42" (<| "k k sk <k <k*2 [k k k ~]>>")
......
resetCycles
do
setcps(125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k <k ~> k ~]>>")
......
......@@ -4,13 +4,6 @@
do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
......
......@@ -4,14 +4,7 @@ do
setcps (60/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ fast 2
$ midiOn "^42" (<| "k k k k")
......
......@@ -2,16 +2,6 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
......
once $ "menthe:0" # cut 4 -- INTRO VOIX
# room 0.5
# sz 0.9
......@@ -10,16 +9,6 @@ once $ "menthe:1" # cut 4 -- LONGUE MULTIPLE
do
resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let double = (midiOn "^29" $ fast 2)
setcps (80/60/4)
d1 $ gF1 $ gM2 $ double
......
......@@ -3,17 +3,7 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t f f [<f t> t]"))
let gMask1 = (midiOn ("^41" -"^42")(mask "t f f [<f t> t]"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMask1 . gMute2
-- $ fix ((# hpf 150) . (|* gain 1.05)) "jazz"
$ fix ((# lpf 1250) . (|* gain 1.3)) "kick:5"
......
......@@ -7,16 +7,6 @@ resetCycles
do
setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMute2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
......
do
let midiGGlobal = "^77" * 1.5
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let midiGGlobal = "^77" * 1.5
let _gainG ch = (gain (midiGGlobal * ch)) -- gain Global
let midiG' ch l h = _gainG (range l h ch) -- midiGain control
let midiG ch = midiG' ch 0 1 -- let midiG ch val = (gGain (ch * val))
......
do
setcps (105/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 2 (range 0.05 0.95 "^51"))
d1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t*2")
......
do
let midiGGlobal = "^77" * 1.5
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let midiGGlobal = "^77" * 1.5
let _gainG ch = (gain (midiGGlobal * ch)) -- gain Global
let midiG' ch l h = _gainG (range l h ch) -- midiGain control
let midiG ch = midiG' ch 0 1 -- let midiG ch val = (gGain (ch * val))
......@@ -9,7 +9,6 @@ let midiOn ch pat = someCyclesBy ch pat
let midiOff ch pat = someCyclesBy (1 - ch) pat
let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49"))
let gLPQ = (# lpqbus 4 (range 0 0.5 "^13"))
let gHPQ = (# hpqbus 5 (range 0 0.5 "^14"))
let gRoom = (# roombus 6 (range 0 0.5 "^14"))
......@@ -78,7 +77,6 @@ d7 $ g
# midiG' "^84" 0 1.5
# cut 7
d6 $ g
$ midiOn "^58" (superimpose (
struct "t . t(3,8)"
......@@ -129,7 +127,6 @@ d8 $ g
# pan "<0.3!7 0.7>"
# midiG' "^84" 0 1
do
-- resetCycles
setcps (92/60/4)
......@@ -162,7 +159,6 @@ d8 $ g
# cut 6
# hpf 400
d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
$ sometimesBy (slow 4 saw) (ply 2)
......
......@@ -2,7 +2,6 @@ do
setcps (110/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......@@ -70,5 +69,4 @@ d7 $ gMask $ g2 -- Everyone <3
# orbit 5
# midiG' "^84" 0 1
d2 $ slow "<2!8 1!8>" $ "~ cp" # gain 1.2 # lpf 2000
......@@ -2,14 +2,8 @@
-- The Punk Bass
do
setcps (82/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let lineTeng = "cs d d d cs d d d cs d d d g ~ fs ~"
d1 $ gF1 $ gM
$ midiOn "^42" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
......
resetCycles
do
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let width = pF "width"
let fundamental = slow 4 $ "<gb3'maj db3'maj bb2'min bb2'maj>"
setcps (128/60/4)
......@@ -173,10 +165,6 @@ d12
# lpf 5000 # hpf 800 -- shimmer zone
# delay 0.6 # delaytime "0.375" # delayfb 0.5
-- Layered periodicities - 4 bar chords + 3 bar melody = phasing
d1 $ note ((slow 4 "<gb4 db4 bb3 bb3>")
+ (slow 3 "<[0 2] [3 5] [7 5]>"))
......@@ -215,5 +203,4 @@ d1 $ note ((slow 4 "<gb4 db4 bb3 bb3>") -- fundamental
# lpf (slow 6 $ range 2800 4200 sine)
# room 0.4 # sz (slow 4 $ range 0.6 0.9 sine)
once $ "perfect"
-- Around the Bass
do
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let lineGoodLife = "b3 ~ ~ b3 ~ ~ b3 ~ ~ fs3 ~ ~ fs3 ~ ~ a3 ~ a3 ~ a3 ~ ~ e3 ~ ~ e3 ~ e3 b3 ~ b3 ~"
let lineAround0 = "~ ~ ~ ~ a4 ~ ~ ~ a4 ~ ~ ~ a4 ~ b4 c5"
let lineAround1 = "~ ~ ~ ~ c5 ~ ~ ~ c5 ~ ~ ~ c5 ~ d5 e5"
......
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ fix (|* gain (0.9 * "^30")) "clubkick"
$ "k k k k*<1 <2 [4 2]>>"
......
......@@ -3,13 +3,6 @@
do
-- resetCycles
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn ("^41"-"^42") ((<| "k(3,8) ~"))
$ midiOff ("^42"+"^41") (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
......
......@@ -3,16 +3,6 @@ once $ "coffee" # cut 1
do
-- resetCycles
setcps(140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
......
......@@ -3,16 +3,8 @@
do
-- resetCycles
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
......
......@@ -4,18 +4,8 @@ do
setcps (120/60/4)
-- resetCycles
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = id
let gF2 = id
let gF3 = id
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......@@ -141,7 +131,4 @@ d9 $ gF3 -- Nano-angels chorus of machines
# cut 10
# gain 1.5
bf g bf <bf a>
do
setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^13" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let position = pF "position"
let decaycoeff = pF "decaycoeff"
let slope = pF "slope"
......
do
setcps (100/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM2
$ fast 2 $ "k . ~ k ~ ~"
......
......@@ -30,17 +30,11 @@ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$AsciiArt$by$Gilo94$$$
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . [f <t f>] t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gM2
-- $ midiOn "^75" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") -- 4F
......
......@@ -2,16 +2,8 @@
do
setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
......
......@@ -20,16 +20,6 @@
do
resetCycles
setcps (128/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......@@ -153,5 +143,4 @@ d11 $ gF3 $ gM3
# cut 11
# pan 0.4
once $ "russia:0"
......@@ -3,13 +3,6 @@
do
-- resetCycles
setcps (104/60/4)
let gMask = (midiOn "^41" (mask "<t f>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
......@@ -153,10 +146,8 @@ d12 $ gF2 $ gM3
# "FMRhodes1"
-- # cut 12
once $ "orage:45" # cut 13
-- Absolutely! Here’s how you can express the core "Riders on the Storm" elements in TidalCycles using named notes instead of MIDI numbers.
-- ## **Bass Line (E Dorian)**
-- A classic modal bass pattern, alternating E and A, with passing notes for groove:
......
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4" # gain 1.4 # lpf 300
d2 $ gF1 $ gM1 $ "~ rampleM9:6"
# note "<0!7 -2>"
......
......@@ -2,14 +2,7 @@
-- The Good Bass
do
setcps (120/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let lineGoodLife = "b3 ~ ~ b3 ~ ~ b3 ~ ~ fs3 ~ ~ fs3 ~ ~ a3 ~ a3 ~ a3 ~ ~ e3 ~ ~ e3 ~ e3 b3 ~ b3 ~"
d1 $ gF1
$ "[techno,jazz,kick:5]*4"
......
do
setcps (123/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
-- $ someCyclesBy
$ midiOn "^42" (<| "t*4")
......@@ -67,8 +59,6 @@ d9 $ gF3 $ gM3 -- Harpe magique intro
# room 0.4 # sz 0.9 # dry 1
-- # midiG' "^83" 0 1.5
d4 -- BassBubbles
$ midiOn "^89" (chop 16)
$ loopAt 4
......
......@@ -16,17 +16,8 @@ once $ "dr"
-- Sois comme l'eau, mon ami
-- Sois comme l'eau, mon ami
do
setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ superimpose ((|* gain (1.3 * "^30")) . (# "hardkick:2"))
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
......
......@@ -4,13 +4,6 @@ do
setcps (90/60/4)
let scale = getScale (scaleTable ++ [("blues",[0, 3, 5, 6, 7, 10])])
let modIndex = pF "modIndex"
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gMute2 $ gF1 -- Le pouvoir de voler
$ midiOn "^42" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
......@@ -89,7 +82,6 @@ once
$ note (fastcat )
# "FMRhodes1"
once $ "90s_weird" # cut 4
once $ "90s_matrix:3" # cut 1
......@@ -6,7 +6,6 @@ do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
......@@ -74,9 +73,7 @@ do
once $ note (scale "aeolian" ("-2")) # "strings" # gain 0.8 # cut 9
-- $ note "36"
$ "strings" # gain 0.8
once $ "moogBass"
......@@ -19,7 +19,6 @@ do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
......
......@@ -40,14 +40,8 @@ d4
do
setcps (82/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF1 $ gM
$ midiOn "^42" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
$ midiOff "^42" (<| "k . <~!4 k!4 k(3,8)!8>")
......@@ -73,7 +67,6 @@ d8 $ gF1
$ "jungle_breaks:33"
# midiG' "^84" 0 1.5
d2 $ gF1
$ whenmod 32 24 (fast "<2!3 [<2 4> 4]>")
$ "~ [cp,snare:24]"
......
-- Study: Ableton Learning Music
-- https://learningmusic.ableton.com/chords/1-5-6-4.html
-- 1-5-6-4
let majPop = "<[d4,fs4,a4] [a3,cs4,e4] [b3,d4,fs4] [g3,b3,d4]>"
-- MAJOR POP!
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let majPop = "<[d4,fs4,a4] [a3,cs4,e4] [b3,d4,fs4] [g3,b3,d4]>"
setcps (80/60/4)
d1 $ gF1 $ gM2
......
......@@ -17,14 +17,8 @@ let praxis = "<[~ d5 d4 e4 g4 a4 b4 d4] [e4 g4 a4 b4 <e4 g4>@4]>"
-- Prestance
do
setcps (134/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
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")
......
do
setcps (125/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . [k*<1 2 <1 2> <1 <4 [4 2]>>>] ~")
......
......@@ -2,7 +2,6 @@ do
setcps (85/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
......
#!/usr/bin/env python3
"""Remove local `let gMask/gM*/gMute*/gF*/gPanic` shadows so BootTidal.hs is the
ONLY definition of the global helpers.
WHY THIS EXISTS
---------------
For years every track opened with a copy-pasted stanza:
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
A local `let` SHADOWS the boot definition, so every fix made centrally in
BootTidal.hs stopped at the door of 254 files. Two live consequences, both real:
* `gMask` was "retired" in BootTidal on 2026-07-29 (`gMask = id`) — and still
chopped an eighth out of every bar on the 237 tracks that redefined it. PLN
caught it by loading bombe_dj and seeing ^41 still masking.
* `gF1/2/3` were rewritten to the two-sided `gDJF` (centre = bypass, left =
lpf, right = hpf). 336 local defs kept the OLD one-directional
`(# djfbus N (range 0.05 0.95 "^49"))`, so the fix was invisible in
performance. See memory reference_djf_bypass_is_centre.
CLASSIFICATION — the safety property
------------------------------------
A local def is deleted ONLY if its body positively matches a known boilerplate
pattern (BOILERPLATE below). Anything unrecognised is COMMENTED OUT with a
marker instead of deleted — so an unknown body can never be silently lost, and
the failure mode of a bad regex is "left a comment", not "deleted PLN's music".
Some of those bodies ARE music, not boilerplate:
let gF2 = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.2 saw))) -- Parts DJF
let gF1 = (someCyclesBy "<f!10 t!6 f!112>" (# djfbus 1 ...)) -- Intro DJF
Those keep working today only because they shadow. Commenting them out is a
deliberate behaviour change (they become the global filter) with the original
one line above, re-enableable by deleting two dashes.
NOT TOUCHED
-----------
* `gDJF` — local is `let gDJF = …` (0 args); BootTidal's is `gDJF ch` (1 arg).
Removing the shadow is a TYPE ERROR, not a global. 65 files. Own pass (#96).
* `gMute`, `gM`, `gF`, `gM'`, `gDJF1/2`, `gMaskEnd16`, … — names BootTidal does
not define at all. Deleting them breaks the build. Left alone; a leftover
unused `let` is harmless.
* Anything already inside a comment.
* Definitions that take arguments, when boot's arity differs.
USAGE
python3 tools/deshadow-helpers.py --plan # corpus-wide report
python3 tools/deshadow-helpers.py --plan --set # OPAL setlist only
python3 tools/deshadow-helpers.py --apply
"""
from __future__ import annotations
import argparse
import pathlib
import re
import sys
from collections import Counter
ROOT = pathlib.Path(__file__).resolve().parent.parent
SETLIST = ROOT / "armada" / "setlist_opal2026.txt"
NAME = r"[a-zA-Z_][A-Za-z0-9_']*"
# Zero-arg helpers BootTidal defines and that a track may therefore shadow.
# gDJF is deliberately ABSENT: boot's takes a channel argument (see docstring).
SHADOWABLE = {
"gMask",
"gM1", "gM2", "gM3",
"gMute1", "gMute2", "gMute3",
"gF1", "gF2", "gF3",
"gPanic",
"midiGGlobal",
}
LET = re.compile(rf"^(\s*)let\s+({NAME})\s*=(?!=)\s*(.*?)\s*$")
# --- BOILERPLATE: the copy-pasted stanza, safe to delete outright -------------
# Each entry is (helper-name regex, body regex). Bodies are matched against the
# code only -- a trailing `--` comment is stripped first.
BOILERPLATE: list[tuple[re.Pattern, re.Pattern]] = [
# gMask = (midiOn "^NN" (mask "<anything>")) -- the retired global
(re.compile(r"^gMask$"),
re.compile(r'^\(?\s*midiOn\s+"\^\d+"\s+\(mask\s+"[^"]*"\)\s*\)?$')),
# gMute<N> = (midiOn "^7N" (mask "f*16"))
(re.compile(r"^gMute[123]$"),
re.compile(r'^\(?\s*midiOn\s+"\^\d+"\s+\(mask\s+"f\*16"\)\s*\)?$')),
# gM<N> = gMask . gMute / gMute<N> / gMute<N> (gMask is `id` now)
(re.compile(r"^gM[123]$"),
re.compile(r"^(gMask\s*\.\s*)?gMute[123]?$")),
# gM<N> = (midiOn "^7N" (mask "f*16")) -- inlined mute
(re.compile(r"^gM[123]$"),
re.compile(r'^\(?\s*midiOn\s+"\^\d+"\s+\(mask\s+"f\*16"\)\s*\)?$')),
# gF<N> = (# djfbus N (range a b "^NN")) -- the OLD one-directional filter
(re.compile(r"^gF[123]$"),
re.compile(r'^\(?\s*#\s*djfbus\s+\d+\s+\(range\s+[\d.]+\s+[\d.]+\s+"\^\d+"\)\s*\)?$')),
# a plain passthrough of any helper
(re.compile(r"^(gMask|gM[123]|gMute[123]|gF[123]|gPanic)$"),
re.compile(r"^id$")),
# gPanic / midiGGlobal restated exactly as boot has them
(re.compile(r"^gPanic$"),
re.compile(r'^\(?\s*#\s*gain\s+\(range\s+1\s+0\s+.*\)\s*\)?$')),
(re.compile(r"^midiGGlobal$"),
re.compile(r"^[\d.]+$")),
]
MARKER = "-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music"
def strip_comment(body: str) -> str:
"""Drop a trailing Haskell `--` comment. Never inside a string literal."""
out, in_str = [], False
i = 0
while i < len(body):
c = body[i]
if c == '"' and (i == 0 or body[i - 1] != "\\"):
in_str = not in_str
if not in_str and body.startswith("--", i):
break
out.append(c)
i += 1
return "".join(out).strip()
def classify(name: str, body: str) -> str:
"""'delete' | 'comment' | 'skip'."""
if name not in SHADOWABLE:
return "skip"
code = strip_comment(body)
if not code:
return "skip"
for npat, bpat in BOILERPLATE:
if npat.match(name) and bpat.match(code):
return "delete"
return "comment"
HELPERISH = re.compile(r"^(gM|gF|gDJ|gPanic|gMask|gMute|midiG|gSel)")
def orphans(lines: list[str], skip: set[int]) -> list[tuple[int, str, str, str]]:
"""Local helper defs that nothing in the file references any more.
Pass 1 deletes `let gM1 = gMask . gMute`, which is often the ONLY user of a
track-local `let gMute = …`. BootTidal has no `gMute`, so pass 1 cannot touch
it — but leaving it behind is half a stanza and reads like it still does
something. A def referenced nowhere else in the file is dead by definition,
so deleting it cannot change a single event.
"""
out = []
defs: dict[str, int] = {}
for i, line in enumerate(lines):
if i in skip or line.lstrip().startswith("--"):
continue
m = LET.match(line)
if m and HELPERISH.match(m.group(2)): # group 1 is the indent, not the name
defs[m.group(2)] = i
for name, di in defs.items():
pat = re.compile(rf"(?<![A-Za-z0-9_']){re.escape(name)}(?![A-Za-z0-9_'])")
used = any(
pat.search(strip_comment(ln))
for j, ln in enumerate(lines)
if j != di and j not in skip and not ln.lstrip().startswith("--")
)
if not used:
out.append((di, "delete-orphan", name, lines[di]))
return out
def plan_file(path: pathlib.Path) -> list[tuple[int, str, str, str]]:
"""-> [(line_index, action, name, original_line)] for one file."""
out = []
lines = path.read_text(errors="replace").splitlines()
for i, line in enumerate(lines):
if line.lstrip().startswith("--"):
continue
m = LET.match(line)
if not m:
continue
_indent, name, body = m.groups()
action = classify(name, body)
if action != "skip":
out.append((i, action, name, line))
# Pass 2 runs against the file AS IF pass 1 had landed: a def is only an
# orphan once its pass-1 users are gone.
gone = {i for i, act, _n, _l in out if act == "delete"}
out.extend(orphans(lines, gone))
return sorted(out)
def rewrite(path: pathlib.Path, actions: list[tuple[int, str, str, str]]) -> None:
lines = path.read_text(errors="replace").splitlines(keepends=True)
by_index = {i: (act, name) for i, act, name, _ in actions}
out: list[str] = []
for i, line in enumerate(lines):
if i not in by_index:
out.append(line)
continue
act, _name = by_index[i]
if act in ("delete", "delete-orphan"):
continue # the whole point: boot's definition takes over
nl = "\n" if line.endswith("\n") else ""
stripped = line.rstrip("\n")
indent = stripped[: len(stripped) - len(stripped.lstrip())]
out.append(f"{indent}{MARKER}{nl}")
out.append(f"{indent}-- {stripped.lstrip()}{nl}")
# Never leave a run of blank lines where a whole stanza was removed: a blank
# line is Tidal's BLOCK SEPARATOR (reference_boot_block_seam), so doubling
# them changes how Pulsar chunks the file.
collapsed: list[str] = []
for line in out:
if not line.strip() and collapsed and not collapsed[-1].strip():
continue
collapsed.append(line)
path.write_text("".join(collapsed))
def targets(only_set: bool) -> list[pathlib.Path]:
if only_set:
names = [l.split("#")[0].strip() for l in SETLIST.read_text().splitlines()]
return [ROOT / n for n in names if n]
return sorted(p for p in ROOT.rglob("*.tidal") if ".git" not in p.parts)
def main() -> int:
ap = argparse.ArgumentParser()
ap.add_argument("--plan", action="store_true")
ap.add_argument("--apply", action="store_true")
ap.add_argument("--set", action="store_true", help="OPAL setlist only")
ap.add_argument("--verbose", action="store_true")
args = ap.parse_args()
if not (args.plan or args.apply):
ap.error("need --plan or --apply")
files = targets(args.set)
buckets = {"delete": Counter(), "delete-orphan": Counter(), "comment": Counter()}
touched: list[tuple[pathlib.Path, list]] = []
for p in files:
acts = plan_file(p)
if not acts:
continue
touched.append((p, acts))
for _i, act, name, line in acts:
buckets[act][name] += 1
if act == "comment" and args.verbose:
print(f" COMMENT {p.relative_to(ROOT)}: {line.strip()[:110]}")
print(f"scanned {len(files)} .tidal file(s); {len(touched)} carry a local shadow")
for act, title in (
("delete", "DELETE — exact boilerplate, boot's definition takes over"),
("delete-orphan", "DELETE — orphaned by pass 1, referenced nowhere (0 events change)"),
("comment", "COMMENT OUT — body not recognised as boilerplate, so preserved"),
):
c = buckets[act]
print(f"\n{title} total {sum(c.values())}")
for n, k in c.most_common():
print(f" {k:5d} {n}")
if not args.verbose and buckets["comment"]:
print(" (re-run with --verbose to see each one)")
if args.apply:
for p, acts in touched:
rewrite(p, acts)
print(f"\napplied to {len(touched)} file(s)")
else:
print("\n(plan only — nothing written)")
return 0
if __name__ == "__main__":
sys.exit(main())
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