Commit 3827b629 by PLN (Algolia)

fix(surface): every track on its own columns — the remap finished, 148 files

PLN: "lets do the migration tbh i want to trust all tracks, lets indeed make
that proper."

The #94 remap had only ever been run against a setlist, so conformance was a
property of having been listed, not of being a track. 685 moves across 148
files, one simultaneous permutation per file, zero clashes.

Button conformance, measured by tools/button-column-audit.py before and after:
**2154/2729 on the orbit's own column (78.9%) -> 2544/2726 (93.3%)**. The
remaining 182 are overflow — an orbit with more controls than the grid gives it,
left in place under a FIXME pointing at gSel, because moving them would put two
orbits on one physical control.

VERIFIED, and this is the part that matters for trusting 703 files:

  * silent-eval --seeded re-run over the WHOLE corpus, 703/703, and diffed
    per-file against the pre-migration baseline in
    docs/2026-09-22-catalog-playability.tsv: **zero verdict changes**. Same 597
    playable, same 85 compile-fail, same 21 silent-orbit, and not one file
    swapped sides. Run at nice 19 / ionice -c3 so it could not preempt the live
    rig mid-rehearsal.
  * re-plan over all 703: 0 moves left.
  * not one CC reference landed in a protected range — 378 refs gained, none of
    them in the Ardour-learned faders (77-84), the A1-A4 level knobs (13-16), or
    the gF1-3 family filters (49-51). Checked as a multiset diff of every CC in
    every changed line, not by reading the tool's promise.
  * every effect BUS slot is byte-identical before and after (`crushbus 41` and
    friends): the tool rewrites quoted `"^NN"` refs only. So the 37 corpus
    pvlint errors, 36 of them PV011 bus-slot sharing, are untouched by this and
    were there before it.

AND THE TOOL STOPPED VANDALISING COMMENTS. The overflow pass expands a hit to
the whole chain segment, so the closing parens of a multi-line step are not left
dangling — and that expansion swallowed comments inside the step. First corpus
run: 18 lines grew a second `--`, three grew a third, and two of the tool's own
FIXME warnings were commented out by the tool that wrote them. A warning the
tool hides on its next run is worse than no warning. Fixed, the corpus reverted,
and re-applied: the two diffs now differ in exactly those lines and nothing else.
parent 87a1f28a
......@@ -7,7 +7,7 @@ d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (fast "<2!3 <4 [4 8]>>")
$ midiOn "^42" (fast "<2!3 <4 [4 8]>>")
$ "~ snare" # n "[22,26]"
# midiG' "^79" 0 1.5
# room 0.8 # dry 1
......@@ -18,7 +18,7 @@ d3 $ gF $ n (stack [
# "amencutup"
# midiG' "^80" 0 1.2
d4 $ gF2
$ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)")
$ midiOn "^44" (mask "t(<4!4 8!4 12!4 16!4>,16)")
$ chop 16
$ whenmod 32 24 (iter "1 4")
-- $ superimpose ((|+ note 12) . (# cut 41))
......@@ -27,17 +27,17 @@ d4 $ gF2
$ chop 8
$ "bass_commodore:6" # cut 4
# midiG' "^81" 0 1.2
# crushbus 41 (range 16 1.2 "^53")
# crushbus 41 (range 16 1.2 "^32")
d7 $ gF2 -- ACID BUS
$ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
$ midiOff "^58" (slice 8 "<0 1 2 3>")
$ midiOn "^91" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
$ midiOff "^91" (slice 8 "<0 1 2 3>")
$ loopAt 8 $ "synth_commodore:0"
# midiG' "^82" 0 1.2
# cut 7
d8 $ gF
$ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^55")))
$ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^36")))
$ "90s_synatm:1" # lpf 2000
# lpq (slow 32 $ range 0 0.4 saw)
# cut 8 # midiG' "^83" 0 1
# room 0.2
# crushbus 82 (range 16 1.2 "^35")
# crushbus 82 (range 16 1.2 "^56")
......@@ -19,8 +19,8 @@ d4 $ gF2 $ gM3
$ note "d2"
# "bassWarsaw"
# legato 2
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
d5 $ note (
scale "indian" (
"c e g e c" -- notes within scale
......
......@@ -7,12 +7,14 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^73" (fast 2)
$ midiBoth "^41" "^42" (struct "t t t <t <[~ t] t*2>>")
$ midiOn "^42" (struct "t*2")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiBoth "^41" "^41" (struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (struct "t*2")
$ "jazz"
# midiG' "^78" 0 1
d2 $ g
$ midiOn "^43" (superimpose (const
$ midiOn "^42" (superimpose (const
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^41" (fast 2)
$ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp"
# note "-4!7 -2"
......@@ -31,23 +33,23 @@ d3 $ g
d4 $ g
$ "90s_glassatm:3/4"
# cut 4
# crushbus 41 (range 16 3.5 "^55")
# crushbus 41 (range 16 3.5 "^32")
# midiG' "^83" 0 1
d5 $ g
$ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05))
$ "90s_matrix:0/2"
# midiG' "^84" 0 1
# crushbus 51 (range 10 1.5 "^56")
# crushbus 51 (range 10 1.5 "^33")
# pan 0.7
d6 $ g
-- $ slow 2
$ fix (|* gain 0.93) (note "c6")
$ midiOn "^89" (fast 4)
$ midiOn "^90" (fast 4)
-- $ note ("<c ef f fs c ef f c ef f fs f ef f ef c>") -- 1&2'
-- $ note ("<c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 3&4
$ note ("<c ef f fs c ef f c ef f fs f ef f ef c c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 1&2&3&4
# octave 2
# "supersaw"
# voice 0.01
# crushbus 61 (range 16 1.5 "^53")
# crushbus 61 (range 16 1.5 "^34")
# midiG' "^81" 0 1.3
......@@ -11,6 +11,7 @@ let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF1 $ gMute -- la Conviction
$ midiOn "^41" (<| "k k k <k!3 k*2>")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^42" - "^41") (<| "<k k(<3!3 [3 5]>,8)>")
$ midiOff ("^41" + "^42") (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
......@@ -23,7 +24,8 @@ d2 $ gF1 $ gM2 -- Snare décalé
# midiG' "^79" 0 1.2
# pan 0.4
d3 $ gF1 $ gM -- La Pluie
$ midiOn "^44" (striate "2 <2 16> . 4 <8 <16 [2 1]>>")
$ midiOn "^43" (striate "2 <2 16> . 4 <8 <16 [2 1]>>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply "<2 4>")
$ chop 16
$ loopAt 2
......@@ -39,7 +41,7 @@ d5 $ gF2 -- La Basse intention
# note (slow 2 "<gs f g c gs f g c gs f g c c g f gs>")
# cut 5
# panbus 52 (slow 16 $ range 0.6 0.95 saw)
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# midiG' "^81" 0 1.2
d6 $ gF3 -- La Basse Réputation
$ sometimesBy "^13" (# note "c")
......@@ -48,7 +50,7 @@ d6 $ gF3 -- La Basse Réputation
$ "bassWarsaw"
# octave 2
# chorus 0
# crushbus 61 (range 16 2.5 "^54")
# crushbus 61 (range 16 2.5 "^34")
# midiG' "^82" 0 1.2
# pan 0.3
# cut 6
......@@ -66,7 +68,7 @@ d7 $ gF3 -- Les anges arpèges
# midiG' "^83" 0 0.8
# legato 1.25
d8 $ gF1 $ gM2 -- La Course
$ sometimesBy "^56" (iter 4)
$ sometimesBy "^36" (iter 4)
$ midiOn "^92" ((ply "<2 [2|4]>") . chop "<8!3 16>")
$ midiOn "^60" (chop 4 . (# "jungle_breaks:17"))
$ midiOff "^60" (
......
......@@ -22,15 +22,16 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e"
# pan 0.4
# midiG' "^79" 0 1.2
d3 $ g
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ mask "<f!4 t!12 f!4 t!12 f!8 t!8 f!12 t!4>"
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (ply "<1 2> <2 2 [2 4] 1>")
-- $ whenVerse (mask "t <t!3 f>")
-- $ whenVerse (mask "t <t!3 f>")
$ "[~ h]*4" # "[electro1,hh]"
# midiG' "^80" 0 1
d4 $ g
$ midiOn "^58" (# "lady_fx")
$ midiOn "^44" (# "lady_fx")
$ whenIntro (# n "0") -- INTRO: AAAA`
$ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC
$ whenChorus (
......@@ -39,9 +40,9 @@ d4 $ g
$ "lady"
# cut 4 # gain 0.8
# pan 0.7
# ringbus 44 (range 0 1 "^17") # ringf 0.5
# relbus 42 (range 10 1 "^33") # sz 0.6 -- Room on low release
# roombus 43 (range 0 0.4 "^33") # sz 0.6 -- Room on low release
# ringbus 44 (range 0 1 "^32") # ringf 0.5
# relbus 42 (range 10 1 "^52") # sz 0.6 -- Room on low release
# roombus 43 (range 0 0.4 "^52") # sz 0.6 -- Room on low release
# midiG' "^81" 0 0.8
d10 $ g
$ mask "<f!7 t>" -- DEBUG CUE every 8 -> Chorus<>VERSE
......
......@@ -6,7 +6,7 @@ d1 $ gF1 $ "jazz*4"
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
# midiG' "^79" 0 1.2
d3 $ gF2
$ superimpose (# crushbus 31 (range 16 4 "^53"))
$ superimpose (# crushbus 31 (range 16 4 "^31"))
$ note (slow 2 $
-- FIX TUNE https://musescore.com/user/1858001/scores/6283390
"c3 c3 c4 c4 ef4 ef4 c4 c4 . af3!3 c4 f3!3 g3"
......
......@@ -24,30 +24,30 @@ d2 $ g
# "[snare:10,drum:2]"
-- # midiG' "^79" 0 1
d3 $ g
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- $ mask "<f!16 t!16>"
$ "hh*[8 8 8 <8!3 [16 8]>]"
# att 0.01 # rel 0.5 # cut 3 # hpf 5000
-- # midiG' "^80" 0 1.3
d4 $ gDJF
$ midiOn "^92" (ply 2)
$ midiOn "^76" (ply 2)
$ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
# "bassWarsaw"
# legato 0.9
# room 0.1
# sz 0.1
# cut 7
# crushbus 71 (range 16 1.5 "^53")
# crushbus 71 (range 16 1.5 "^32")
-- # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^92" (mask "<f!7 t>")
$ midiOn "^60" (rev)
$ midiOff "^60" (mask "<f!7 t>")
$ midiOn "^92" (rev)
$ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
# "FMRhodes1"
# legato 4
# room "0!15 0.4"
# attack 0.05
# modIndex "^55"
# modIndex "^36"
# rel 2
# sz 0.5
# pan 0.9
......
......@@ -10,11 +10,11 @@ d1 $ g
$ "[drum]"
# midiG' "^78" 0 0.7
d2 $ g
$ midiOn "^43" (fast "<2!7 <4 8>>")
$ midiOn "^42" (fast "<2!7 <4 8>>")
$ "~ snare:20"
# midiG' "^79" 0 0.6
d3 $ g -- Drumroll
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
$ "drum:2*<8!3 <16 [16 <8 32>]>>"
# midiG' "^80" 0 0.8
d4 $ g -- BASS/Guitar
......@@ -25,7 +25,7 @@ d4 $ g -- BASS/Guitar
# room 0.5
# sz 0.8
# dry 1.2
# crushbus 2 (range 16 4.5 "^53")
# crushbus 2 (range 16 4.5 "^32")
# midiG' "^81" 0 0.8
d9 $ g -- Choirs
$ midiOn "^60" (|- note 12)
......@@ -71,11 +71,11 @@ d2 $ g
# "bass3:4" |- note 1
# midiG' "^80" 0 0.8
# room 0.3
# crushbus 2 (range 16 2.5 "^52")
# crushbus 2 (range 16 2.5 "^30")
d5 $ g
$ midiOff "^60" (loopAt 2)
$ midiOn "^60" (loopAt 1)
$ midiOn "^92" (ply 4)
$ midiOff "^89" (loopAt 2)
$ midiOn "^89" (loopAt 1)
$ midiOn "^57" (ply 4)
$ slice 4 "0 1 2 3*<1 2 4>"
$ "breaks165"
# midiG' "^84" 0 0.7
......@@ -107,6 +107,7 @@ d1 $ g
$ midiOn "^73" (mask "[t f t f]*2")
$ midiOn "^74" (mask "[t f f f]*2")
$ midiOn "^75" (mask "[t f f t]*2")
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^76" (mask "[t f f f]*2")
$ chop 16 $ loopAt 4 $ "algorythm:2"
# cut 1
......
......@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k*4")
$ midiOn "^42" (<| "k k")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k")
$ midiOff "^41" (<| "k")
-- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[jazz,cpu]"
# midiG' "^78" 0 1.7
......@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]"
# midiG' "^79" 0 1
d3 $ gF
-- $ midiOn ("^44" - "^76") (off "0.33" id)
$ midiOn ("^76" - "^44") (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" - "^44") (ply 2)
$ midiOn "^44" (<| "~ h*2 [~ <~ h>] <~!3 h> h*2 [~ <~ h>]")
$ midiOff "^44" (<| "h*4")
$ drumFrom "rolandtr808" "[hh:1]"
......
......@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k lk k <k k*2>")
$ midiOn "^42" (<| "k k")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k")
$ midiOff "^41" (<| "k")
-- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[jazz,cpu]"
# midiG' "^78" 0 1.7
......@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]"
# midiG' "^79" 0 1
d3 $ gF
-- $ midiOn ("^44" - "^76") (off "0.33" id)
$ midiOn ("^76" - "^44") (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn ("^43" - "^44") (ply 2)
$ midiOn "^44" (<| "~ h*2 [~ <~ h>] <~!3 h> h*2 [~ <~ h>]")
$ midiOff "^44" (<| "h*4")
$ drumFrom "rolandtr808" "[hh:1]"
......
......@@ -11,7 +11,8 @@ d2 $ gF2 $ "<~ snare:30>"
# midiG' "^79" 0 1.1
# hpf 3000
d3 $ gF2
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (fast 2)
$ "drum:2*3"
# midiG' "^80" 0 1.1
......@@ -19,7 +19,8 @@ d2 $ gF1 $ gMask -- snare cassant
# midiG' "^79" 0 1.4
# pan 0.7
d3 $ gF1 $ gMask
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (ply 2)
$ "[~ drum:2]*4"
# pan 0.4
......
......@@ -11,7 +11,7 @@ d1 $ g
# att 0.03 # rel 0.99
# midiG' "^78" 0 1.52
d2 $ g
$ midiOn "^43" (<| "c*<2!3 4 4 [4 2] [4 8] 16>")
$ midiOn "^42" (<| "c*<2!3 4 4 [4 2] [4 8] 16>")
$ fix (# note "-2") (("glitch:2"))
$ superimpose ((# "[glitch:2,glitch:5]"))
$ "~ clap"
......@@ -26,11 +26,12 @@ d3 $ g $ m
$ "hh*4"
# midiG' "^80" 0 1.8
# lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32")
# leslie (range 0 2 "^52")
# lrate (range 0.8 6.8 "^31")
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d3's own control.
-- # leslie (range 0 2 "^52")
d4 $ g $ m -- BREAK
$ midiOn ("^57" - "^89") (ply 2)
$ midiOn "^89" (striate "<4!3 [8 4]>")
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate "<4!3 [8 4]>")
$ loopAt 1
-- $ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>")
......@@ -45,7 +46,7 @@ d6 -- Runny Maracas
$ fix ((# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55")
# note (range "-12" 12 "^34")
# midiG' "^83" 0.25 2.5
d7 $ g $ m -- new breakbeats
$ loopAt 1
......@@ -80,7 +81,7 @@ d4 $ g -- c pure harmony
# octave 4
# pan 0.2
# "bassWarsaw"
# crushbus 4 (range 10 4.5 ("^53" + 0.5 * perlin))
# crushbus 4 (range 10 4.5 ("^32" + 0.5 * perlin))
# midiG' "^81" 0 1.5
d5 $ g
$ mask "<[f t]!4 t!12>"
......@@ -88,6 +89,6 @@ d5 $ g
"<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>"
)
# "cbow:1"
# crushbus 5 (range 10 3.5 "^54")
# crushbus 5 (range 10 3.5 "^33")
# cut 5
# midiG' "^82" 0 1.5
......@@ -2,8 +2,8 @@ do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^41" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
$ "[jazz,808bd:3,kick:4]"
-- $ "[808bd:4]"
# gain 1.5
......@@ -13,7 +13,8 @@ d2 $ gF1 $ gM2
# "rampleM1:10"
# gain 1.5
d3 $ gF1 $ gM2
$ midiOn "^44" (slow 4)
$ midiOn "^43" (slow 4)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ "dr*[8 <8 16 24 [8 <4 8 16 <4 8>>]>]"
# gain 1.2
......
do
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k k k k*<1 2>" )
$ midiOn "^41" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^41" (<| "k k k k*<1 2>" )
$ "jazz"
d2
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ s*<1 1 2 [4 2]>"
# "vec1_snare:20"
d3 $ "hh(3,8) hh(5,8)"
......@@ -20,8 +20,8 @@ d8 $ gF1 $ gM2
d4 $ gF2 $ gM3 $ note "<cs2 ef2 cs2 <cs2 gs3>>/2"
# "bassWarsaw"
# room 0.2
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 2.5 "^52")
d5 $ note (
"[cs cs ef cs]" + 12) # "moog:3" # cut 5
......@@ -3,8 +3,8 @@ do
setcps (60/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^41" (<| "k . k(3,8)")
-- $ "[techno:0,808bd:2,909,kick:4]"
$ "jazz"
# midiG' "^78" 0 1.5
......@@ -14,7 +14,8 @@ d2 $ gF1 $ gM2
# "snare:24"
# midiG' "^79" 0 1.5
d3 $ gF1 $ gM2
$ midiOn "^76" (fast "<2 2 2 4>")
$ midiOn "^43" (fast "<2 2 2 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^42" (fast 2)
$ "hh(3,8)"
# midiG' "^80" 0 2
......@@ -23,18 +24,18 @@ d4 $ gF2 $ gM3
$ note ("<e4 [e4@7 g4] [e4@7 ef4] <[e4@3 [g4 f4]] [e4 g4 a4 g4]>>" - 12)
# "bassWarsaw"
# midiG' "^81" 0 1.5
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
# cut 4
# room 0.4 # sz 0.7
d5 $ gF2 $ gM3
$ midiOn "^57" (chop 8)
$ midiOn "^89" (chop 8)
$ midiOn "^57" (chop 8)
$ "blues_guitar_bluesky_60:6/2"
# gain 0.76 # cut 4
# midiG' "^80" 0 1.5
# crushbus 51 (range 16 2.5 "^54")
# octersubbus 52 (range 0 2.5 "^34")
# crushbus 51 (range 16 2.5 "^33")
# octersubbus 52 (range 0 2.5 "^53")
d7 $ gF1 $ gM3
$ loopAt 2
-- $ chop 16
......
......@@ -3,13 +3,13 @@ do
setcps (138/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "jazz"
d2 $ gM2 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ midiOn "^42" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^42" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.2
......
......@@ -3,12 +3,12 @@ setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF
$ midiOn "^42" (<| "k k k k")
$ midiOn "^41" (<| "k k k k")
$ "jazz"
# midiG' "^78" 0 1.9
d3 $ gF
$ midiOn "^42" (<| "~ k ~ k*<1 2>")
$ midiOff "^42" (<| "~ k")
$ midiOn "^43" (<| "~ k ~ k*<1 2>")
$ midiOff "^43" (<| "~ k")
$ "hh"
# midiG' "^79" 0 1.9
d5 $ gF2 $ mask "<t t t f>"
......@@ -16,7 +16,7 @@ d5 $ gF2 $ mask "<t t t f>"
# room 0.4
# cut 5
# midiG' "^81" 0 1
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# pan 0.35
# room (range 0.2 0.8 (slow 8 saw))
d6 $ gF3
......@@ -31,8 +31,8 @@ d7 $ gF3
# "FMRhodes2"
# midiG' "^83" 0 1.9
d8 $ gF $ chop 8
$ midiOn "^60" (loopAt 1)
$ midiOff "^60" (loopAt 2)
$ midiOn "^92" (loopAt 1)
$ midiOff "^92" (loopAt 2)
-- $ loopAt 2
$ "fbreak80"
# midiG' "^84" 0 1.9
......
......@@ -17,7 +17,7 @@ d1 $ g
$ "reverbkick" # gM' 0 1.4 "^78"
d2 $ (|- lpf 2000) $ g
-- $ whenmod 8 6 (degradeBy "<0.25 0.75>" . stut 4 0.9 "e")
$ novaOn "^41" (|- note 24)
$ novaOn "^42" (|- note 24)
$ fast 2 $ "~ [cp,drum:2]"
# gM' 0 1.5 "^79"
# lpq "^51"
......@@ -25,15 +25,15 @@ d2 $ (|- lpf 2000) $ g
# room 0.2 # dry 0.99
d3 $ g
$ loopAt 1
$ novaOn "^76" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>"))
$ novaOff "^76" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>")
$ novaOn "^43" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>"))
$ novaOff "^43" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>")
$ "breaks165"
# lpq "^52"
# lpq "^31"
# room 0.5
# gM' 0 2 "^80"
d4 $ g
-- $ someCycles (swingBy 2)
$ novaOn "^89" (chop 16)
$ novaOn "^44" (chop 16)
-- $ novaOn "^58" (+ note (slow 4 "<0 12>"))
$ note (scale "aeolian"
("<c!4 f!4> <c!4 f!4> <c!4 f!4> [c <ds!3 f>]"
......@@ -42,14 +42,14 @@ d4 $ g
-- # detune 1.005
# octave 3
# "bassWarsaw"
# voice (range 0.1 2 "^33")
# voice (range 0.1 2 "^32")
# gM' 0.4 1.5 "^81"
# room 0.6 # sz 0.7
# crush (range 10 3.1 "^53")
# crush (range 10 3.1 "^52")
# pan 0.4
d5 $ g
$ inside 4 (someCyclesBy "^34" (ply 2))
$ sometimesBy "^54" (swingBy "q" 4)
$ inside 4 (someCyclesBy "^33" (ply 2))
$ sometimesBy "^53" (swingBy "q" 4)
$ note (scale "aeolian" (
"<0 9 7 2>" -- progression
+ "[0 2 4 <0 6>]*4" -- arpegiateur
......@@ -89,19 +89,20 @@ d2 $ (|- lpf 100) $ g
# lpq (range 0 0.45 "^51")
# gM' 0 1.5 "^79"
d3 $ g
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^60 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^60 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ novaOn "^60" (fast 2)
$ "~ clap"
# gM' 0 1.2 "^84"
d4 $ g
$ novaOn "^89" (chop 4)
$ novaOn "^44" (chop 4)
$ off "q" (|+ note 12)
$ note (scale "aeolian" (prog
+ "[0,4,9]"
+ "[0 <7 <-7 -14>>]" -- spread
- 21))
# "FMRhodes1"
# mix (range 0 20 "^33")
# modIndex (range 0.2 100 "^53")
# mix (range 0 20 "^32")
# modIndex (range 0.2 100 "^52")
# gM' 0 1.2 "^81"
# room 0.5 # sz 0.6
d5 $ g
......@@ -111,7 +112,7 @@ d5 $ g
- 28
)
)
# crush (range 10 3.5 "^54")
# crush (range 10 3.5 "^53")
# "bassWarsaw" # gM' 0 1.3 "^82"
# room 0.3
d6 $ g
......
......@@ -25,8 +25,9 @@ d3 $ g
# hpf (slow 8 $ range 5000 1000 perlin)
-- # gain 1.5
# lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32")
# leslie (range 0 2 "^52")
# lrate (range 0.8 6.8 "^31")
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d3's own control.
-- # leslie (range 0 2 "^52")
# midiG' "^80" 0 1.52
d6 -- Runny Maracas
$ g
......@@ -36,5 +37,5 @@ d6 -- Runny Maracas
$ fix ((# release 0.8)) (n 9)
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55")
# note (range "-12" 12 "^34")
# midiG' "^83" 0 1.2
......@@ -9,12 +9,12 @@ d1 $ g1 $ mDeg
$ (# midiG' "^78" 0 1.5)
-- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4)
-- $ midiOn "^42" (<| "k <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK
$ midiOn "^42" (<| "k . k(5,8)") -- BREAK
$ midiOff "^42" (<| "k k k <k k*2 k [~ k]>") -- 4F!
$ midiOn "^41" (<| "k . k(5,8)") -- BREAK
$ midiOff "^41" (<| "k k k <k k*2 k [~ k]>") -- 4F!
$ "[808bd:2]"
d2 $ g1 $ mDeg
$ whenmod 4 3 (off "<q e>" id)
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ a"
# note (-4)
# "[amencutup:5, snare:40]"
......@@ -33,10 +33,10 @@ d5 $ g1 $ mDeg
# pan (slow 16 $ range 0.33 0.66 sine)
# pan 0.7
# midiG' "^81" 0 0.9
# crushbus 51 (range 16 3 "^53")
# crushbus 51 (range 16 3 "^33")
d6 $ g1 $ mDeg
$ midiOn "^60" (sometimesBy "0 1" rev)
$ midiOn "^92" (ply 2)
$ midiOn "^58" (sometimesBy "0 1" rev)
$ midiOn "^90" (ply 2)
$ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>")
$ loopAt 2
$ "break:19"
......
......@@ -7,13 +7,13 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMute
let gO = (# octerbus 4 (range 0 2 "^29"))
d1 $ gM $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 4>)")
$ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^41" (<| "k . k(<3!3 5>,8,<0!3 4>)")
$ "[jazz,rampleA0:2]"
# midiG' "^78" 0 1.6
d2 $ gM $ gF2
$ midiOn "^75" (fast 2)
$ midiOff "^43" (slow 2)
$ midiOff "^42" (slow 2)
$ fix (# note "-2") "cp"
$ fix (|* gain 0.8) "rampleR6"
$ "~ cp ~ cp"
......@@ -27,9 +27,9 @@ d3 $ gM $ gO $ gF3
d8 $ gF3 $ gM
$ midiOn "^60" (iter "1 4")
$ midiOn "^92" (ply "2 <2!3 <4 8>>")
$ midiOn "^56" (splice 4 "0 1*2 <2 ~> 3(3,8)")
$ midiOn "^56" ((# "break:2"))
$ midiOn "^36" ((# "jungle_breaks:20"))
$ midiOn "^36" (splice 4 "0 1*2 <2 ~> 3(3,8)")
$ midiOn "^36" ((# "break:2"))
$ midiOn "^56" ((# "jungle_breaks:20"))
$ loopAt 2
$ chop 16
$ "jungle_breaks:47"
......
......@@ -21,16 +21,16 @@ d2 $ g $ gDeg
d3 $ g $ gDeg
$ juxBy "52" rev
$ whenmod 16 8 (often (slow "<4!3 2>"))
$ midiOn "^44" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)"))
$ midiOn "^43" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)"))
$ loopAt 2
$ "break"
# midiG' "^80" 0 1.8
# cut 3
d4 $ g $ gDeg
$ midiOn "^41" (fast 2)
$ midiOn "^76" (fast 2)
$ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]"
# midiG' "^81" 0 1.8
# note (range "-12" "12" "^53")
# note (range "-12" "12" "^32")
d5
$ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>")
......
......@@ -2,8 +2,8 @@ do
setcps (98/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . k(3,8)")
$ "kick:5"
d2 $ gF1 $ gM2
-- $ midiOn "^78"
......
......@@ -2,8 +2,8 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . ~ k")
$ fix (# lpf 500) "kick"
$ "[jazz,kick:5]" # lpf 2000
d2 $ gF1 $ gM2
......@@ -14,7 +14,7 @@ d3 $ gF1 $ gM2
$ "dr*[8 <8 [16 <16 4>]>]"
d4 $ gF2 $ gM3
$ superimpose (
# crushbus 41 (range 15 2.5 "^53")
# crushbus 41 (range 15 2.5 "^32")
)
$ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,<5 7>(3,8)]")
# "bassWarsaw"
......@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3
$ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
# "FMRhodes1"
# gain 1.4
# modIndex (range 0 4 "^54")
# modIndex (range 0 4 "^33")
d5 $ gF3 $ gM3
-- $ superimpose (
-- # crushbus 41 (range 15 2.5 "^53")
......@@ -36,13 +36,13 @@ d5 $ gF3 $ gM3
$ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
# "FMRhodes1"
# gain 1.4
# modIndex (range 0 4 "^54")
# modIndex (range 0 4 "^33")
d7 $ gF1 $ gM3 $ loopAt 1 $ chop 16 $ "jungle_breaks:100" # cut 7 # gain 1.3
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,f)" . chop 8)
$ chop 8
$ loopAt 1
$ midiOn "^56" (# "jungle_breaks:45")
$ midiOn "^36" (# "jungle_breaks:45")
$ "jungle_breaks:20"
# gain 1.2
......
......@@ -66,7 +66,7 @@ d3 $ gF1 $ gM2
$ whenmod 128 64 (# silence)
$ mask "<t!7 f>" -- Mask permanent
-- Orchestration
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ fix (|* gain 0.9) (n 10)
$ "~ h(3,8)"
# "808oh:1" # "rampleS15" # n "<9!3 [9 . 9 10]>"
......@@ -79,9 +79,9 @@ d3 $ gF1 $ gM2
# gain 0.9
d4 $ gF2 $ gM3
$ whenmod 128 64 (# silence)
$ midiOn "^89" (ply 2)
$ midiOn "^76" (ply 2)
$ superimpose (
(# crushbus 41 (range 16 5 "^53")) . (# hpf 500) . (|* gain 0.8)
(# crushbus 41 (range 16 5 "^32")) . (# hpf 500) . (|* gain 0.8)
)
$ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
(|+| note ("<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>")) -- v3
......@@ -108,7 +108,7 @@ d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp
-- (|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation v2
-- $ note ("0"- 12)
# "FMRhodes1"
# modIndex (range 0 3 "^54")
# modIndex (range 0 3 "^33")
# gain 1.1
# legato 4
# att 0.1
......
......@@ -5,7 +5,8 @@ d1
$ midiOff "^41" (<| "k . k(3,8)")
$ "[jazz,kick:4]"
d2 $ gF1 $ gM1
$ midiOn "^41" (<| "~ c ~ c")
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^42" (<| "~ c ~ c")
$ midiOff "^42" (<| "k . k(3,8)")
$ "cp"
# lpf 400
......@@ -42,7 +43,7 @@ d4 $ gF2 $ gM3
$ "gfunk_bass:3"
# cut 4
# gain 1.4
# crushbus 41 (range 16 3.5 "^52")
# crushbus 41 (range 16 3.5 "^32")
# pan 0.3 # room 0.3 # dry 0.7
d5 $ gF3 $ gM3
-- $ slow 2
......@@ -57,7 +58,7 @@ d5 $ gF3 $ gM3
)
# "FMRhodes1"
# gain 1.7
# modIndex (range 0 8 "^53")
# modIndex (range 0 8 "^33")
# room 0.8 # dry 0.9 # sz 0.5
# pan 0.6
d8 $ gF1 $ gM1
......
......@@ -11,8 +11,8 @@ setcps (120/60/4)
-- TODO: Suggestion gM1/2/3 filtres partiels
-- let gM3 =
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t . t(3,8)")
$ midiOn "^41" (struct "t t t t")
$ midiOff "^41" (struct "t . t(3,8)")
$ "jazz"
# gain 1.5
d2 $ gF1 $ gM2
......@@ -26,15 +26,15 @@ d4 $ gF2 $ gM3
$ note (scale "dorian" ("0 0 4 <2 1 2 7>") + "fs2") # "bassWarsaw"
# cut 4
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 2.5 "^32")
d5 $ gF3 $ gM3
-- $ degradeBy 0.4
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:5"
# cut 5
# gain 1.7
# octersubbus 51 (range 0 2.5 "^54")
# octersubbus 51 (range 0 2.5 "^33")
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !!
$ chop 8
......
......@@ -8,12 +8,12 @@ once $ "gfunk_lead:5"
do
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t*4" )
$ midiOff "^42" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)")
$ midiOn "^41" (struct "t*4" )
$ midiOff "^41" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)")
$ "jazz" # lpf 300
d2 $ gF1 $ gM2
$ midiOn "^43" (struct "~ t ~ <t t*2 [t!3 ~] t*[4 2]>")
$ midiOff "^43" (struct "~ t")
$ midiOn "^42" (struct "~ t ~ <t t*2 [t!3 ~] t*[4 2]>")
$ midiOff "^42" (struct "~ t")
$ "vec1_snare:25"
-- # hpf 500
d3 $ gF1 $ gM2 $ "hh([<8 12> <8 12 8? 16>],16)" # "h2ogmhh:3"
......@@ -27,8 +27,8 @@ d5 $ gF3 $ gM3
# cut 5
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# n 19)
$ midiOn "^36" (# n 74)
$ midiOn "^36" (# n 19)
$ midiOn "^56" (# n 74)
$ chop 8 $ loopAt 2
$ "jungle_breaks:45"
# cut 8
......
......@@ -7,11 +7,11 @@ d1 $ gF $ gM
$ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8))
$ fix (|* gain 0.9) "jazz"
$ fix (|* gain 1.2) "kick:5"
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k ~ [~ k] <~!3 k>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k ~ [~ k] <~!3 k>")
$ "[kick:5,jazz]"
d2 $ gF $ gM
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ s ~ s"
-- $ "~ ~ s ~"
-- $ "~ ~ ~ ~ s ~ ~ ~"
......@@ -20,28 +20,28 @@ d2 $ gF $ gM
d3 $ gF $ gM
$ ply "2!3 1"
$ "dr*8"
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^31")
# midiG' "^80" 0 1.5
d5 $ gF2 $ gM
$ chop 8
$ "90s_matrix:3"
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# sz 0.9
# room 0.3
# cut 5
# midiG' "^81" 0 1.2
d7 $ gF2
$ midiOn "^57" (off "e" (mask "t!7 f"))
$ midiOn "^59" (off "e" (mask "t!7 f"))
-- $ struct "t*4"
$ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>")
-- $ note (arp "<up up>" $ "<>")
# "bassWarsaw"
# crushbus 71 (range 16 2.5 "^54")
# crushbus 71 (range 16 2.5 "^35")
# midiG' "^82" 0 1.8
d6 $ gF2 $ gM
$ midiOn "^57" (ply "4 8")
$ midiOn "^90" (ply "4 8")
$ "90s_matrix:0"
# crushbus 61 (range 16 2.5 "^55")
# crushbus 61 (range 16 2.5 "^34")
# sz 0.9
# cut 6
# midiG' "^83" 0 2
......@@ -51,7 +51,7 @@ d8 $ gF2
$ arp "up"
$ note ("a3'min'4" + "[0,<12!3 24>]")
# "acidOto3092"
# crushbus 81 (range 16 3.5 "^56")
# crushbus 81 (range 16 3.5 "^36")
# rel 2
# midiG' "^84" 0 2
d9 $ gF -- Breaks silence pesant.
......
......@@ -49,8 +49,8 @@ d5 $ g2
$ note (arp "up" "<c'min'4!3 g'min'4>"
- "[12,24]")
# "bassWarsaw"
# gMaster (range 0 1.4 "^17")
# crushbus 41 (range 16 4.5 "^18")
# gMaster (range 0 1.4 "^33")
# crushbus 41 (range 16 4.5 "^53")
d6
$ g2
-- $ striate 4
......@@ -63,7 +63,7 @@ d6
# room 0.4
# dry 0.99
# sz 0.8
# modIndex (range 0 25 "^19")
# modIndex (range 0 25 "^34")
-- # hpf (range 0 5000 "^19")
# gMaster 0.7
......
......@@ -11,8 +11,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
d3 $ gF1 $ gM2 $ "d(3,8) d(<3!3 5>,8)"
# "drum:2" # "h2ogmhh:1" # gain 1.2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3 -- Jane's Piano
$ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
$ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ midiOn "^89" (ply "<4 2 1 2> <2 [1 8]>")
$ midiOn "^57" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2
$ n "<0!8 1!3 0 1!3 1*4>" -- TODO: I'd like to let her develop more
-- $ n "<0 ~>"
......@@ -21,8 +21,8 @@ d5 $ gF3 $ gM3 -- Jane's Piano
# pan (slow 16 $ range 0.6 0.45 saw)
# gain 1.5
d4 $ gF2 $ gM3 -- Cello bass
$ midiOn "^89" (|+| note "[0 12 0]")
$ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ midiOn "^44" (|+| note "[0 12 0]")
$ midiOn "^76" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ juxBy 0.6 (|+| note ("7([3 1],8)"))
$ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
|* gain "<[1@7 0.9] 1 1 1>"
......@@ -44,7 +44,7 @@ d11 $ gM3 $ gF3
# gain 1.2
d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 13)
$ midiOn "^35" (# n 13)
$ midiOn "^59"(# n 15)
$ chop 16
$ loopAt 4
......
......@@ -5,7 +5,7 @@ d1 $ gM1 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick
(# "vec2_bass_ob:190")
. (# att 0.2) . (# rel 1))
$ midiOff "^42" (mask "t f f t")
$ midiOff "^41" (mask "t f f t")
$ fix ((|* gain 1.2) . (# lpf 300)) "clubkick:2"
$ fix ((|* gain 1) . (# hpf 300)) "hardkick_rha"
$ speed "1 1 1 [1,[~ -4]]"
......@@ -19,7 +19,7 @@ d4 $ gF2 $ gM3
$ freq "102 108 110 ~ 105 130 52 33"
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d4 $ gF2 $ gM3
$ note ("<[cs ~!3 . gs] [c ~!3 . < g [g@3 c6]>]>" - 24)
# "bassWarsaw"
......
......@@ -4,8 +4,8 @@ do
setcps (104/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^41" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -33,7 +33,7 @@ d3 $ gF1 $ gM2
d4 $ gF2 $ gM3
$ note ("<bf af ef@2>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# room 0.4 # sz 0.5 # dry 1.4
d5 $ gF3 $ gM3
$ mask "<f t f f>"
......
......@@ -5,8 +5,8 @@ setcps (124/60/4)
let modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^41" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -42,7 +42,7 @@ d4 $ gF2 $ gM3
$ jchord chord
# "bassWarsaw"
# octave 2
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# lpfbus 41 (range 40 260 (fast 32 $ ((0.2 ~>) $ sine)))
-- # lpf 340
# lpq 0.3
......@@ -57,7 +57,7 @@ d5 $ gF3 $ gM3
# gain 1.3
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
......@@ -34,25 +34,25 @@ d3 $ gF1 $ gM2 -- Highest hats
# room 0.2 # dry 0.99 # sz 0.25
d4 $ gF2 $ gM3 -- BASSLINE VIOLENTE PAR VALENTIN <3
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
(# crushbus 41 (range 16 3.5 "^32"))
. (# hpf 500)
)
$ midiOn "^89" (ply "2 <2 <4 8>>")
$ midiOn "^76" (ply "2 <2 <4 8>>")
$ fast (4/3) -- Le fameux
$ midiOff "^57" -- L'attente
$ midiOff "^44" -- L'attente
(sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)"))
$ ("e" ~>) -- Decalage
$ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>")
# "bassWarsaw" |- note 24
# pan 0.4
# octersubbus 42 (range 0 2 "^33")
# octerbus 43 (range 0 0.52 "^33")
# octersubbus 42 (range 0 2 "^52")
# octerbus 43 (range 0 0.52 "^52")
# gain 2
# legato "[0.8 0.5]*4"
d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
$ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
$ midiOn "^89" (ply "2 <2 <4 8>>")
$ midiOn "^57" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
$ midiOff "^57" (slice 8 "<0 1 2 3 4 5 6 7>")
$ "suns_keys" # n "<0 <1 2> 3 3>"
# pan 0.8
# room 0.8 # sz 0.5
......@@ -63,14 +63,14 @@ d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
# gain 1.2
d7 $ gM3 $ gF3 -- Suns of Gold Guitars, sampled and cut
$ superimpose ((# cut 71) .
(# crushbus 73 (range 16 2.9 "^55")) -- CRASH THIS GUITAR
(# crushbus 73 (range 16 2.9 "^35")) -- CRASH THIS GUITAR
)
$ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
$ slice 8 "0 0 0 <0 <1 2>>"
$ "suns_guitar:0/2"
# cut 7
# octersubbus 71 (range 0 1.9 "^35") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^35")
# octersubbus 71 (range 0 1.9 "^55") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^55")
# pan 0.2
# gain 1.1
d8 $ gF1 $ gM2
......
......@@ -5,15 +5,15 @@ setcps (165/60/4)
d1
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "popkick:2"
-- # lpf 300 -- TODO Sound design this kick <3
-- # cut 1
# gain 2
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ midiOff "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0]"
-- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -42,7 +42,7 @@ d5 $ gF2 $ gM3
+ (arp "up" "c'maj'4 c'maj'4")
)
# "FMRhodes1"
# modIndex (range 0 16 "^54")
# modIndex (range 0 16 "^33")
# gain 1.3
# cut 5
# room 0.3
......@@ -57,7 +57,7 @@ d4 $ gF2 $ gM3
)
-- # "moog:1"
# "bassWarsaw" |- note 36
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# pan 0.4
# cut 4
# gain 1.5
......@@ -68,14 +68,14 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:13" # cut 4
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# pan 0.9
# room 0.3
d7 $ gF3 $ gM3 $ "trance_amb:0/2" # cut 7
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
......@@ -16,19 +16,19 @@ d2 $ gM2 $ gF1 $ endSong -- Snare le fantome de la plage
# rel 2
# gain 1.5
d3 $ gF1 $ gM2 $ endSong
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ whenmod 8 6 (juxBy 0.8 rev)
$ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]"
# "drum:2"
# delay 0.5
# delayt 0.15
d4 $ gF2 $ gM3 -- Dubesque bass
$ superimpose ((# crushbus 41 (range 16 5 "^53")) . (# lpf 500))
$ superimpose ((# crushbus 41 (range 16 5 "^32")) . (# lpf 500))
$ note ("g2 <g2 [<g2 a2> <a2 g2>]>") -- Melodie
+ "0(<3 3 5 3>,8) 0(<3!3 <1 [2 1] 5 8>>,8)" -- Structure
# "bassWarsaw"
# gain 1.1
# squizbus 42 (range 0 8 "^33")
# squizbus 42 (range 0 8 "^52")
# room 0.3 # sz 0.8 # dry 1.1
# pan 0.4
d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace
......
do
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
$ "kick:4"
d2 $ gF1 $ gM2 $ "~ cp ~ cp" # note "-4"
d3 $ gF1 $ gM2 $ "~ s ~ s ~ s ~ s*2"
......@@ -11,9 +11,9 @@ d4 $ gF2 $ note (
"<a4 c5 a4 b4>" + "[0(3,8) <0!4 7!3 12>(3,8)]"
)
# "vec1_acid:26"
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.95 "^33")
# octersubsubbus 43 (range 0 1.95 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 1.95 "^52")
# octersubsubbus 43 (range 0 1.95 "^52")
d5 $ gF3
$ note (
"<a5 c6 a5 b5>*2" + "0(5,8)" - 12
......
......@@ -6,7 +6,7 @@ do
-- d1 $ gF1 $ gM1 $ "kick:5"
-- d1 $ gF1 $ gM1 $ "kick:5"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k> k*<1 4>]>")
$ midiOn "^41" (<| "k k k <k [<~ k> k*<1 4>]>")
-- $ midiOn "^42" (<| "k k(<3 [3 5]>,8)")
$ "kick:5"
d2 $ gF1 $ gM2
......@@ -46,6 +46,6 @@ d4 $ gF2 $ gM3 -- Bass electrique
# att 0.2
# rel 2
# room 0.4 # dry 1.2 # sz 0.5
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.3 "^53")
# octersubbus 42 (range 0 4 "^32")
# crushbus 41 (range 16 2.3 "^52")
# cut 4
do
setcps (160/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[cpu,kick:5]"
# gain 0.8
# lpf 2000
d2 $ gF1 $ gM2 $ "~ sn ~ sn*<1!3 2>" # "snare:30" # lpf 4000
d3 $ gF1 $ gM2 $ "[~ hh]*4" # "h2ogmhh" # gain 0.8
d4 $ gF2 $ gM3
$ midiOn "^57" (struct "t(4,8)")
$ midiOn "^89" (off "e" id)
$ midiOn "^44" (struct "t(4,8)")
$ midiOn "^76" (off "e" id)
-- TODO Vary bassline, pas juste l'attente
$ note "<a*2 ~> ~ <~ <<d6!4 c5!4>*<2 1>>> <~ <c6!4 bs5!4>>"
# "bassWarsaw" |- note 36
# crushbus 41 (range 11 2.8 "^53")
# roombus 42 (range 0 0.8 "^53") # sz 0.8 # dry 1.1 # lpf 5000
# crushbus 41 (range 11 2.8 "^32")
# roombus 42 (range 0 0.8 "^32") # sz 0.8 # dry 1.1 # lpf 5000
# legato 2
d5 $ gF3 $ gM3
$ whenmod 16 8 (juxBy 0.5 (("e" ~>) . (|+ note 12) . (# cut 51)))
......@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3
+ 24 -- Octave
)
# "giorgio_syn:28"
# octerbus 51 (range 0 1.5 "^54")
# octerbus 51 (range 0 1.5 "^33")
# gain 1.5
# pan "<0.2!4 0.8!4>"
# cut 5
......@@ -38,7 +38,7 @@ d8 $ gF1 $ gM2
$ loopAt 2
$ chop 8
$ midiOff ("^60" + "^92") (mask "f(8,16)" . chop 8)
$ midiOn "^56" (# n 23)
$ midiOn "^36" (# n 23)
$ midiOn "^92" (loopAt 0.5 . (# "breaks165"))
$ slice 4 "<0!3 2> <1!3 3> 2 3"
$ "jungle_breaks:22"
......
......@@ -3,8 +3,8 @@ 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"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]"
# lpf 5000
d2 $ gF1 $ gM2
......@@ -12,12 +12,12 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8")
$ midiOn "^44" (struct "t*8")
-- $ superimpose (ma) . (# cut 41))
$ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1)
# "bass3:2"
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d5 $ gF3 $ gM3
$ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6))
$ slice 16 ("0")
......@@ -26,7 +26,7 @@ d5 $ gF3 $ gM3
# room 0.4 # dry 1.2
# cut 5
d8 $ gF1 $ gMute
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8))
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:45") . (|* gain 0.8))
$ midiOn "^92" (ply "<2!3 4>")
$ loopAt 4
$ chop 16
......
......@@ -6,8 +6,8 @@ let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g1 = (gDJF1)
let g2 = (gDJF2)
d1 $ g1
$ midiOn "^42" (<| "k . k(<<3 1> 1 3 5>,8)")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k . k(<<3 1> 1 3 5>,8)")
$ midiOff "^41" (<| "k")
$ "[jazz,909]"
# midiG' "^78" 0 1.2
d2 $ g2 $ "~ snare:42"
......@@ -21,8 +21,8 @@ d4 $ g1
$ "break:1"
# cut 4
# midiG' "^80" 0 1
# octerbus 40 (range 0 1.2 "^52")
# octersubbus 41 (range 0 5 "^32")
# octerbus 40 (range 0 1.2 "^32")
# octersubbus 41 (range 0 5 "^52")
# octersubsubbus 42 (range 0 5 "^16")
d5
$ g2
......@@ -44,7 +44,7 @@ d6 $ g2
# lpf 3000
# voice 0.1
# midiG' "^81" 0 1
# crushbus 61 (range 16 3.2 "^53")
# crushbus 61 (range 16 3.2 "^34")
# room 0.4
-- La pub c'est le mitard
......
......@@ -7,7 +7,7 @@ d1 $ gF4 $ gM1
(# "hardkick_rha") .
-- (# n "<14!3 15 <14 15>>")
(# n 14)
. (|* gain (range 0 1 "^30"))
. (|* gain (range 0 1 "^29"))
) -- SALE
$ "k k*2 k <k k*2 k*<4 2 4 1> [~ k*<1 1 <1 <2 [4 2]>> <2 4>>]>"
# "[jazz,hardkick_rha:5]"
......@@ -26,18 +26,18 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (loopAt 0.5 . (>| "breaks165"))
$ midiOn "^36" (loopAt 0.5 . (>| "breaks165"))
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
# gain 1.5
d4 $ gF2 $ gM3 -- Incroyable melodie mega chargee explosive
$ midiOn "^89" (ply 4)
$ midiOn "^57" (mask "t([<2!4 4!4 8!4 16!4> 2],16)"
$ midiOn "^76" (ply 4)
$ midiOn "^44" (mask "t([<2!4 4!4 8!4 16!4> 2],16)"
. (# room 0.4) . (# dry 0.9))
-- $ midiOn "^57" (fast 4)
$ chop 64
$ superimpose (# crushbus 41 (range 16 4 "^33"))
$ superimpose (# crushbus 41 (range 16 4 "^32"))
$ slice 4 (slow 4 "<0 1 2 3>")
$ "rhadamanthe_melo:15"
# gain 1.2
......@@ -46,8 +46,8 @@ d5 -- Descente inexorable
"<[e4 c4 b3 a3] [e4 c4 b3 a3] [f4 d4 c4 b3] [f4 d4 c4 b3]>"
)
# "FMRhodes1"
# crushbus 51 (range 16 4 "^54")
# modIndex (range 0 4 "^34")
# crushbus 51 (range 16 4 "^33")
# modIndex (range 0 4 "^53")
# gain 1.4
# room 0.2
d6 $ gF3 $ gM3 -- Gros effet basse tremolo
......
......@@ -4,23 +4,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM1 -- Kick variable
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn "^41" (
# "hardkick:2" -- Kick GABBER
)
$ midiOn "^75" (fast 2)
$ midiOn "^42" (struct "t t <t!3 [t t*2]> <t [t t] t [t t*2]>") -- FIXME GABBER DOUBLE
$ midiOn "^41" (struct "t t <t!3 [t t*2]> <t [t t] t [t t*2]>") -- FIXME GABBER DOUBLE
-- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ midiOff "^42" (struct "t ~")
$ midiOff "^41" (struct "t ~")
-- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
$ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
# "[techno:0,jazz]" -- Kick dnb
# midiG' "^78" 0 1
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "c c c*<1!6 2 2> c*<1 2>")
$ midiOff "^43" (<| "~ c")
$ midiOn "^42" (<| "c c c*<1!6 2 2> c*<1 2>")
$ midiOff "^42" (<| "~ c")
$ drumFrom "[linnlm1]" "cp"
# lpf 1200
# distortbus 21 (range 0 2 "^31")
# distortbus 21 (range 0 2 "^30")
# midiG' "^79" 0 1
d3 $ gF $ gMute -- Chapeau!
$ "~ h ~ h*<1!3 2> ~ h*<1!7 2> ~ h*<1 <2 4>>"
......@@ -33,7 +34,7 @@ d4 $ gF3
"c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
- 24)
# "bassWarsaw"
# crushbus 41 (range 16 3.93 "^53")
# crushbus 41 (range 16 3.93 "^32")
# cut 4
# pan 0.3
# legato 0.75
......@@ -42,7 +43,7 @@ d6 $ gF3
-- $ slow 2
$ note "c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
# "harpsichord1"
# crushbus 61 (range 16 3.93 "^54")
# crushbus 61 (range 16 3.93 "^34")
# cut 6
# pan 0.3
# legato 0.5
......@@ -59,7 +60,7 @@ d7 $ gF2
$ midiOn "^91" (arp "up")
$ note ("<[c4 <f4 gs4> <gs4 <c5 b4>>@6]>")
# "phazer"
# crushbus 61 (range 16 3.93 "^54")
# crushbus 61 (range 16 3.93 "^35")
-- # cut 7
# pan 0.3
# legato 0.5
......@@ -92,7 +93,7 @@ d6 $ gM3 $ gF3
# room 0.8 # dry 1
# sz 0.64
# midiG' "^82" 0 1
# crushbus 61 (range 16 3.93 "^54")
# crushbus 61 (range 16 3.93 "^34")
# legato 2
# cut 6
......
......@@ -8,10 +8,10 @@ let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.25 0.75 "^29"))
let f3 = (# djfbus 3 (range 0.15 0.85 "^13"))
d1 $ f1
$ midiOn "^42" (
$ midiOn "^41" (
(<| "k . ~ k ~ ~" )
)
$ midiOff "^42" (<| "k*<1 1 2 <1 2>> . k(3,8)" )
$ midiOff "^41" (<| "k*<1 1 2 <1 2>> . k(3,8)" )
$ "[kick:5,jazz,reverbkick]"
# end 0.25
# midiG' "^78" 0 0.8
......@@ -25,20 +25,20 @@ d3 $ f2
# midiG' "^80" 0 0.8
# cut 3
d4 $ f3
$ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>"))
$ midiOn "^76" (slice 4 ("0 0 0 <0 1 2>"))
$ loopAt 4
$ "tek_loop:1"
# cut 4
# gain 0.7
# midiG' "^82" 0 0.8
# pan 0.7
# crushbus 4 (range 12 1.5 "^54")
# crushbus 4 (range 12 1.5 "^32")
d5 $ f1
$ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7")
$ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]")
# "tek_bass"
# pan 0.3
# crushbus 5 (range 10 3.5 "^53")
# crushbus 5 (range 10 3.5 "^33")
# midiG' "^81" 0 1.2
d7 $ f3
$ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0)
......
......@@ -4,7 +4,7 @@ setcps (120/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gM $ gF1 $ mask "<t f!3 t!28>"
$ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ midiOn "^41" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ fix (|* gain 0.8) "kick"
$ "[jazz,808bd:4,kick:4]"
# midiG' "^78" 0 1.2
......@@ -18,7 +18,7 @@ d3 $ gM $ gF1 $ "drum:2*<[8 4] 8 8 [8 16]>" -- [8 8 8 8] 32
d4 $ slow 4
$ contrast
(gF2 . (# midiG' "^81" 0 2) . (# crush 16)) -- Graves
(gF3 . (# midiG' "^82" 0 1.4) . (midiOn "^58" rev) . (# pan 0.8) . (fix (|+| note (arp "<up <up down> down>" "<c'maj'2!3 c'maj'4>")) "FMRhodes1")
(gF3 . (# midiG' "^82" 0 1.4) . (midiOn "^44" rev) . (# pan 0.8) . (fix (|+| note (arp "<up <up down> down>" "<c'maj'2!3 c'maj'4>")) "FMRhodes1")
. (# sustain "e e e e e e q") . (|+ note 12) . (# "[FMRhodes1,FMRhodes2]")) -- Aigus
(note (scale "aeolian" "[0,1,2,3,4,5,6,7]" - 28))
-- $ fix (# pan 0.8) (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" + 7 - 28))
......@@ -27,7 +27,7 @@ d4 $ slow 4
) - 28)
# "bassWarsaw"
# pan 0.2
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d8 $ gM $ gF1
$ midiOn "^92" (ply "2")
$ midiOn "^60" (ply "1 2 . <2!3 4>")
......
......@@ -36,22 +36,22 @@ d2 $ g1 $ "~ cp" # lpf 2000 # room 0.5 # dry 1
d3 $ g2 $ "[hh <hh!3 <~!3 hh*<1 2>>>]*8"
# midiG' "^80" 0 1.2
d4 $ g2
$ midiOn "^90" (juxBy 0.8 (rev .
$ midiOn "^44" (juxBy 0.8 (rev .
(# cut 12) .
chop 8 .
(|* gain 0.8))
)
$ midiOn "^58" (slice 4 ("0 1 <2!3 [~ 2]> 3*<4 2 [4 2] 4>"))
$ midiOn "^76" (slice 4 ("0 1 <2!3 [~ 2]> 3*<4 2 [4 2] 4>"))
$ "raph_jardin" # n "<4!3 <5 4> 4 4 3 2>"
# cut 11
# lpf 2000
# midiG' "^82" 0 1.2
# crushbus 41 (range 12 2.5 "^54")
# crushbus 41 (range 12 2.5 "^32")
d5 $ g1
$ midiOn "^89" (striate "2 <2!3 4>" . chop 8)
$ "fbass:3"
# cut 5
# crushbus 51 (range 12 2.5 "^53")
# crushbus 51 (range 12 2.5 "^33")
# midiG' "^81" 0 1.2
......
......@@ -18,7 +18,7 @@ d2 $ g1 $ m -- Snare 90s hip-hop
-- $ mask "<f!8 t!54>"
-- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
-- $ fast "<2 <2!8 [4!3 2]!8>>"
$ midiOff "^43" (mask "f t")
$ midiOff "^42" (mask "f t")
$ "~ s ~ s" # "[snare:8]"
# midiG' "^79" 0 1.2
d3 $ g1 $ m -- Drumroll offert
......@@ -44,11 +44,12 @@ d5 $ g2 -- BASSLINE
# cut 4
# pan 0.3
# midiG' "^81" 0 0.57
# lesliebus 41 (range "-1" 1 "^17")
# lesliebus 41 (range "-1" 1 "^33")
# lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
# lpf 5000
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # lsizebus 42 (range 1.9 6.7 "^53")
-- # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2
d6
$ midiOn "^58" (iter "1 4")
......
......@@ -2,16 +2,16 @@ do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~. k ~ ~ ")
$ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^41" (<| "k . ~. k ~ ~ ")
$ "[kick:4]"
# gain 1.2
# lpf 400
-- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s")
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ midiOn "^42" (<| "~ s ~ s")
$ midiOn "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
d5 $ slow 2 $ "playa" # begin "<0.1!4 0.2!4 0.3!4 0.4!4>" # cut 5
......
......@@ -21,7 +21,9 @@ d3 $ gF1 $ gM2
-- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
$ fix (|* gain (range 1 0.5 ("^17" + "^35"))) "vec1_acid:11"
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^32 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^32 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ fix (|* gain (range 1 0.5 ("^32" + "^52"))) "vec1_acid:11"
$ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ superimpose ((|* gain "^16") . (# n 10) . (# legato 0.8))
$ superimpose ((|* gain "^32") . (# n 12)
......@@ -36,14 +38,14 @@ d4 $ gF2 $ gM3
-- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3
$ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>")
. (# crushbus 51 (range 16 3 "^54"))
. (# crushbus 51 (range 16 3 "^33"))
)
$ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
# "cpluck:1"
# room 0.3
# octerbus 52 (range 0 0.8 "^34")
# octersubbus 53 (range 0 0 "^34")
# octersubsubbus 54 (range 0 0 "^34")
# octerbus 52 (range 0 0.8 "^53")
# octersubbus 53 (range 0 0 "^53")
# octersubsubbus 54 (range 0 0 "^53")
d6
$ loopAt 2
$ slice 2 "<0 1>"
......@@ -72,8 +74,8 @@ d8 $ gF1 $ gM2
. (# room 0)
)
$ midiOn "^60" (mask "f(8,16)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:7")
$ midiOn "^36" (# "jungle_breaks:37")
$ midiOn "^36" (# "jungle_breaks:7")
$ midiOn "^56" (# "jungle_breaks:37")
$ chop 16 $ "jungle_breaks:101"
# cut 8
d9 $ gF3 $ gM3
......
......@@ -4,7 +4,7 @@ setcps (160/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^41" (<| "k . ~ k ~ ~ ")
$ "[bskick,jazz]"
# gain 1.2
# gain 1.4
......
......@@ -3,8 +3,8 @@ do
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^41" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
......@@ -17,8 +17,8 @@ d1 $ gF1 $ gM1
-- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM
# cps ((range 75 165 "^29")/60/4)
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^42" (<| "~ s")
$ "[snare:24]"
# gain 1.4
d3 $ gF1 $ gM2
......@@ -30,8 +30,8 @@ d4 $ gF2 $ gM3 $ loopAt 4
# bandf 400
# lpf 1200
# gain 2
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 1.5 "^52")
d5 $ gF3 $ gM3
$ note ("a4" - "[0,12]" + (scale "aeolian"
-- "<0!3 [0 1 2 <3 [3 4]>]>" -- Exploration
......@@ -39,8 +39,8 @@ d5 $ gF3 $ gM3
+ "<0!8 12!8 24!8 -12!8>"
))
# "FMRhodes1"
# roombus 51 (range 0 2 "^34")
# modIndex (range 0 32 "^54")
# roombus 51 (range 0 2 "^33")
# modIndex (range 0 32 "^53")
# gain 1.7
# delay 0.4 # delayfb 0.5 # delayt 0.125
d7 $ gM3 $ gF1
......@@ -49,9 +49,9 @@ d7 $ gM3 $ gF1
-- $ loopAt 4
$ "trance_loops:2" # cut 8
# speed (range "-8" 8
"^55")
"^35")
# gain 1.5
# squizbus 71 (range 0 4 "^35")
# squizbus 71 (range 0 4 "^55")
# room 0.4
d8 $ gF1 $ gM2
$ chop 4 $ loopAt 2
......
......@@ -14,10 +14,10 @@ d3
# "h2ogmsn"
# gain 2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3
$ superimpose (# tremdpbus 51 (range 0 4 "^54"))
$ superimpose (# tremrbus 52 (range 0 4 "^34"))
$ superimpose (# tremdpbus 51 (range 0 4 "^33"))
$ superimpose (# tremrbus 52 (range 0 4 "^53"))
-- $ superimpose (# crushbus 51 (range 16 4 "^54"))
$ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
$ midiOn "^89" (ply "<4 2 1 2> <2 [1 8]>")
-- $ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2
-- $ n "<0!8 1!3 0 1!3 1*4>"
......@@ -51,7 +51,7 @@ d12 $ gM3 $ gF3
# gain 1.2
d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 15)
$ midiOn "^35" (# n 15)
$ midiOn "^59" (# n 15)
$ chop 16
$ loopAt 4
......@@ -63,7 +63,7 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
$ midiOn "^56" (>| "jungle_breaks:10")
$ midiOn "^36" (>| "jungle_breaks:10")
$ "jungle_breaks:11"
# cut 8
# room 0.4 # dry 1.1
......
......@@ -28,9 +28,9 @@ resetCycles
setcps (140/60/4)
d1 $ gF1 $ gM1
-- $ mask "<f!8 t!56>" -- Mask regulier
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (# "hardkick_rha:1")
$ midiOn "^41" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^41" (# "hardkick_rha:1")
$ "[808bd:4,808bd:2]"
# gain 1.3
# lpf 2000
......@@ -48,7 +48,7 @@ d2 $ gF1 $ gM2
-- # gain "1 1 0.93 1"
d3 $ gF1 $ gM2
-- $ whenmod 8 15 (mask "t t t f")
$ midiOn "^42" (mask "t(4,8,1)")-- Le snare s'est fait... kick?!
$ midiOn "^43" (mask "t(4,8,1)")-- Le snare s'est fait... kick?!
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d8 $ gF1 $ gM2
......@@ -72,10 +72,10 @@ d4 $ gF2 $ gM3
# gain 1.2
# crush 6
d5 $ gF3 $ gM3
$ fix ((|* gain (range 1 0 ("^34" + "^54"))) . (# "FMRhodes1")) "a"
$ fix ((|* gain (range 0 0.8 "^54")) . (|* gain 1.1) . (# "vec1_acid:28")) "b"
$ fix ((|* gain (range 0 0.8 "^34")) . (|* gain 1.1) . (# "vec1_acid:34")) "c"
$ midiOn "^58" (slice 4 "0 1 0 0*4")
$ fix ((|* gain (range 1 0 ("^33" + "^53"))) . (# "FMRhodes1")) "a"
$ fix ((|* gain (range 0 0.8 "^53")) . (|* gain 1.1) . (# "vec1_acid:28")) "b"
$ fix ((|* gain (range 0 0.8 "^33")) . (|* gain 1.1) . (# "vec1_acid:34")) "c"
$ midiOn "^89" (slice 4 "0 1 0 0*4")
$ superimpose ((|* gain (slow 16 $ range 0 1 saw)) . (|+ note 12) . (|+ pan 0.2))
$ note (
"<[f4@3 a4 b4@4] [f4 a4 b4 e5 d5@2 b4 c5] [b4 g4 e4@4 ~ d4] [e4 g4 e4@5 ~] >"
......
......@@ -11,28 +11,28 @@ d2 $ g1
# "bass:0" # lpf 4500 # att 0.005 # rel 1
# midiG' "^79" 0 0.9
d3 $ g1
$ midiOn "^76" (ply 2)
$ midiOn "^43" (ply 2)
$ mask "<t!3 [t . <t [f t]> f <f t>]>"
$ "h*8" # n "0 0 1 <0 2>" # "h2ogmhh"
# midiG' "^80" 0 1
d4 $ g2 -- AIGLE DE LA MATRICE
$ "90s_matrix:2/4"
# crushbus 41 (range 16 2.4 "^53")
# crushbus 41 (range 16 2.4 "^32")
# midiG' "^81" 0 0.6
# cut 4
d5 $ g2
$ slice 4 "<[0 1] [2 3] [0 1] [2 3*2]>"
$ loopAt 2
$ midiOn "^58" (# n 5)
$ midiOn "^57" (# n 5)
$ "fbass:0" # cut 5
# midiG' "^82" 0 0.9
# crushbus 51 (range 16 2.4 "^54")
# crushbus 51 (range 16 2.4 "^33")
# pan 0.8
-- Abandon
d5
$ midiOn "^90" (off "1/16" (id))
$ midiOn "^89" (off "1/16" (id))
$ slice 16 (slow 4 $ run 16)
$ loopAt 16
$ "synth_nes:1"
......
......@@ -3,8 +3,8 @@ do
setcps (120/60/4)
d1 $ gM1 $ gF1
$ whenmod 8 6 (mask "f")
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k ~ ~ <~ [~ k]>" )
$ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^41" (<| "k ~ ~ <~ [~ k]>" )
$ "[808bd:1,jazz,kick:4]"
# gain (1.45 * "1!7 0.9")
d2 $ gM2 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>"
......@@ -17,16 +17,16 @@ d3 $ gM2 $ gF1
$ "<~ h> h ~ h ~ h*<1 2 2 <1 [4 2]>> ~ h"
# "h2ogmhh:4" # gain 1.5
d4 $ gM3 $ gF2
$ midiOn "^89" (ply "<2!3 [2 4]>")
$ midiOn "^57" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>")
$ midiOn "^33" (slow 2)
$ midiOn "^76" (ply "<2!3 [2 4]>")
$ midiOn "^44" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>")
$ midiOn "^32" (slow 2)
$ n "<10 <10!3 8> <10!3 6> <8!3 5>>"
# "blues_guitar_hoochie_60"
# cut 4
# room (slow 32 $ range 0 0.6 saw)
# sz 0.8
# dry 1.3
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^52")
# gain 1.4
# octersub 0.5
d5 $ gM3 $ gF3
......
......@@ -7,7 +7,7 @@ let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let m = mBreak
let modIndex = pF "modIndex"
d1 $ f1
$ midiOn "^42" (fast 2)
$ midiOn "^41" (fast 2)
$ "[cpu,jazz]*2"
# midiG' "^78" 0 1.8
d2 $ f1 $ mask "<t!16 f!8 t!8>"
......@@ -29,7 +29,7 @@ d4 $ f1
)))
$ note (scale "aeolian" "<0 3 5 7>")
# "moog"
# crushbus 4 (range 16 2 "^53")
# crushbus 4 (range 16 2 "^32")
# cut 4
# pan 0.2
# midiG' "^81" 0 1
......@@ -40,7 +40,7 @@ d5 $ f2
)))
$ note (scale "aeolian" "<0 3 5 7>")
# "FMRhodes1"
# modIndex (range 0 100 "^54")
# modIndex (range 0 100 "^33")
# cut 5
# room 0.4
# dry 1.5
......
......@@ -19,7 +19,7 @@ d3 $ gF1 $ gM2
$ "dr*[8 <8 <16 [16 32]>>]" # gain 0.8
d4 $ gM3 $ gF2
$ "giorgio_syn:2/2"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# cut 4
# gain 0.8
d8 $ gF1 $ gM2 $ loopAt 2
......@@ -35,7 +35,7 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.8"
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^31")
d9 -- Bogdan the Grime sample provider
$ whenmod 16 12 ( -- I'm from Cardiff!
(# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
......@@ -76,17 +76,17 @@ d4 $ gF2 $ gM3 -- Bassline aqualgorithmique
# pan 0.3
# room 0.4
# octersubsub 0
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 2 "^33")
# crushbus 41 (range 16 3.5 "^32")
# octersubsubbus 42 (range 0 2 "^52")
# gain 0.7
d5 $ gM3 $ gF3 -- Marimba fondamental
$ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ midiOff "^57" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ juxBy 0.4 rev
$ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
# "marimba1"
# att (range 0.8 0.2 "^34")
# att (range 0.8 0.2 "^33")
# rel 1
# squizbus 51 (range 0 2.5 "^54")
# squizbus 51 (range 0 2.5 "^53")
-- # delay 0 # delayfb 0.8 # delayt 0.25
# pan 0.9
# gain 3
......@@ -109,9 +109,9 @@ d10 $ gF2 $ gM3 -- Menace
# cut 9
d7 $ gM3 $ gF2
-- $ ply 2
$ midiOn "^59" (# speed "-0.25")
$ midiOn "^91" (struct "t*<8!3 [8 4]>")
$ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
$ midiOn "^91" (# speed "-0.25")
$ midiOn "^59" (struct "t*<8!3 [8 4]>")
$ someCyclesBy "^35" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
$ chop 16
$ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- # octersubsubbus 73 (range 0 8 "^19")
......
......@@ -8,13 +8,13 @@ resetCycles
do
setcps(140/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]"
d2 $ gF1 $ gM2 $ "~ ~ ~ <~ s> . s" # "snare:4"
d3 $ gF1 $ gM2 $ "d(<3!12 2!4>,8) d(<3!3 5>,8)" # "ho" # gain 0.8 # att 0.1 # rel 2
d4 $ gF2 $ gM3 $ note "<b2 d3 cs3 fs3>" # "bassWarsaw"
# crushbus 41 (range 16 3.6 "^53")
# crushbus 41 (range 16 3.6 "^32")
d8 $ gF1 $ gM2 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
-- $ slice 4 "0 1*<1 2 4> 2? 3*<1!3 2>"
......
......@@ -4,11 +4,11 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF2
$ midiOn "^42" (<| "k*4")
$ midiOn "^41" (<| "k*4")
-- $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 1>)")
-- $ midiOff "^42" ((off "") . ("k k k k"))
$ "[kick:5,kick:8]"
# delaybus 11 (range 0 0.4 "^30")
# delaybus 11 (range 0 0.4 "^29")
# delay "e"
# delayfb 0
# midiG' "^78" 0 1.3
......@@ -28,7 +28,7 @@ d5 $ gF2
$ note (fast (4/3) $ "g4(<4 [4 8]>,8, 1)" + "<0 [0 0 7] 0 [0 12]>")
# "cpluck:2"
# legato 2
# crushbus 51 (range 16 2.5 "^54")
# crushbus 51 (range 16 2.5 "^33")
# cut 5
# room 0.9
# dry 1
......@@ -37,13 +37,13 @@ d5 $ gF2
-- # midiG' "^82" 0 1.5
d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4)
$ midiOn "^90" (ply 8)
$ midiOn "^58" (ply "1 <1!3 2>")
$ midiOff "^58" (slow 4)
$ slice 8 (run "<8!7 16>")
$ "[~ break:4]"
# cut 6
# speed (range 0 2 "^55")
# speed (range 0 2 "^34")
# midiG' "^83" 0 1.5
once $ ""
......@@ -42,8 +42,8 @@ d3
(s "drum:2")
# midiG' "^79" 0 1.2
d4
$ midiOn "^44" (fast 0.5)
$ midiOn "^76" (ply 2)
$ midiOn "^76" (fast 0.5)
$ midiOn "^44" (ply 2)
$ midiRot "52"
$ noVoid $ midiEuclid
(round <$> pasInscrit "16" "32")
......@@ -51,8 +51,8 @@ d4
(s "hh")
# midiG' "^80" 0 1.2
d5
$ midiOn "^57" (fast 0.5)
$ midiOn "^89" (ply 2)
$ midiOn "^89" (fast 0.5)
$ midiOn "^57" (ply 2)
$ midiRot "53"
$ noVoid $ midiEuclid
(round <$> pasInscrit "17" "33")
......@@ -60,8 +60,8 @@ d5
(s "hh")
# midiG' "^81" 0 1.5
d6
$ midiOn "^58" (fast 0.5)
$ midiOn "^90" (ply 2)
$ midiOn "^90" (fast 0.5)
$ midiOn "^58" (ply 2)
$ midiRot "54"
$ noVoid $ midiEuclid
(round <$> pasInscrit "18" "34")
......@@ -83,8 +83,8 @@ d7
# sz (slow 32 $ range 0 0.7 saw)
# midiG' "^83" 0 1.2
d8
$ midiOn "^60" (fast 0.5)
$ midiOn "^92" (ply 2)
$ midiOn "^92" (fast 0.5)
$ midiOn "^60" (ply 2)
$ midiRot "56"
$ noVoid $ midiEuclid
(round <$> pasInscrit "20" "36")
......
......@@ -3,8 +3,8 @@ resetCycles
do
setcps (120/60/4)
d1 $ gF1 $ gM1
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^42" (<| "k k <k!3 [k*2 ~]> k")
$ midiOff "^41" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^41" (<| "k k <k!3 [k*2 ~]> k")
$ "kick:5"
-- # room 0.2 # dry 1.1
-- # gain "<1 0.8>"
......@@ -18,7 +18,7 @@ d2 $ gF1 $ gM2
-- d3 $ gF1 $ gM1 $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
-- # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.6 # legato 0.25
d3
$ midiOn "^44" (stut 4 "0.8" "e")
$ midiOn "^43" (stut 4 "0.8" "e")
$ n ("~ 1 ~ 2 ~ 2 ~ <1!3 2>") # "rampleS24" # cut 3
d4 $ gF2 $ gM3 $ note (
"b4(<3 5 3 [3 5]>,8) <a5 <ef5 a4>>(<1!3 3>,8,<0 1>)"
......@@ -38,7 +38,7 @@ d4 $ gF2 $ gM3 -- BASSE SIMPLE
-- # crushbus 42 (range 16 2 "^33")
# cut 4
d7 $ gF2
$ midiOn "^89" (ply "<1 2> <2!3 4 4!3 8>")
$ midiOn "^91" (ply "<1 2> <2!3 4 4!3 8>")
$ slice 8 ("[0 1 2 3]*2" + "<0!4 3!4>")
-- $ loopAt 8
$ n "<3!3 4>"
......@@ -72,9 +72,9 @@ d5 -- ARPEGIATEUR
-- # gain 1.2
d8 $ gF1 $ gM2 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt (2/3) . (# n "<74>"))
$ midiOn "^36" (loopAt (2/3) . (# n "<74>"))
$ midiOn "^92" (ply 4)
$ midiOn "^36" (loopAt (2/3) . (# n "19")) -- Pure COMEON!
$ midiOn "^56" (loopAt (2/3) . (# n "19")) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
......
......@@ -45,7 +45,7 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF
$ midiOn "^42" (<| "k k k k*2")
$ midiOn "^41" (<| "k k k k*2")
$ (<| "k")
$ "jazz"
# midiG' "^78" 0 1.2
......
......@@ -10,7 +10,7 @@ d1 $ g
$ "[rootsDrums,jazz]"
# midiG' "^78" 0 1.8
d2 $ g
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ superimpose ((# "cp") . (# room 0))
$ n "[~ 4]*<2!6 4 [4 2]>"
# "rootsDrums"
......@@ -27,22 +27,22 @@ d6
$ n "<2!4 2 3 3 ~>"
# "rootsBass"
# midiG' "^81" 0 1.5
# crushbus 62 (range 16 1.4 "^53")
# crushbus 62 (range 16 1.4 "^34")
# cut 6
# pan 0.15
d4 $ g
$ midiOn "^58" (slice 4 ("<[0 1] [2 3]>"))
$ midiOn "^76" (slice 4 ("<[0 1] [2 3]>"))
-- $ "<g g g/2 [~ <~ g ~ g*2>] g ~ g ~ g ~ ~ [~ g*4]>"
$ "g/4"
# s "rootsGuitar"
# lesliebus 42 (range 0 16 "^54")
# lratebus 41 ("^34")
# lesliebus 42 (range 0 16 "^32")
# lratebus 41 ("^52")
# midiG' "^82" 0 1.5
# cut 4
# pan 0.3
d5
$ g
$ degradeBy "^56"
$ degradeBy "^33"
$ slice 16 (run 16)
$ loopAt 2
$ "rootsMix:1"
......@@ -72,5 +72,5 @@ d7 $ g
|+| "0 <7 <7 12>>"
)
# "FMRhodes2"
# crushbus 72 (range 16 4.3 "^36")
# midiG' "^20" 0 1.4
# crushbus 72 (range 16 4.3 "^35")
# midiG' "^55" 0 1.4
......@@ -40,14 +40,14 @@ d4 -- Bassline classique
$ slice 4 "1"
$ loopAt 4
$ "rootsBass:2"
# lsize (range 0 2 "^33")
# lesliebus 41 (range 0 1 "^53")
# lsize (range 0 2 "^32")
# lesliebus 41 (range 0 1 "^52")
# lrate 6.8
# cut 4
# pan 0.2
# midiG' "^81" 0 1.8
d5 $ f2
$ midiOn "^90" (stutWith 4 "e" (
$ midiOn "^57" (stutWith 4 "e" (
(|+ cut 1) . (|* gain 0.9) . (# legato 2)
))
$ off "h" id
......@@ -60,9 +60,9 @@ d6 $ f2 -- Piano contretemps delayed crushed
-- $ note "d6"
# "superpiano"
# velocity 0.4
# delayfb (range 0.5 1.1 "^55") -- 1D: fb / size controlled with single knob
# crushbus 61 (range 16 5 "^19") -- Weird interferences with delay
# delayfb (range 0.5 1.1 "^34") -- 1D: fb / size controlled with single knob
# crushbus 61 (range 16 5 "^54") -- Weird interferences with delay
# delayt "h"
# delay (range 0 1.01 "^55")
# delay (range 0 1.01 "^34")
# room 0.3
# midiG' "^83" 0 1.8
......@@ -21,7 +21,7 @@ d1 $ g -- Kick ;)
$ fix (|* gain (range 0.5 1.2 "^50")) "808bd:3"
$ fix (|* gain 1.15) "808bd:5"
$ fix (
(|* gain (range 0.5 1.2 "^30"))
(|* gain (range 0.5 1.2 "^29"))
. (# att 0.01) . (# rel 2)
) "909"
$ "kick"
......@@ -34,17 +34,17 @@ d2 $ g -- CP/Snare Contretemps
# lpf (slow 16 $ range 4000 200 saw)
# midiG' "^79" 0 0.9
d4 $ g -- ELECTRIC bass
$ midiOn "^89" (chop 4)
$ midiOn "^57" ((sometimesBy "f t" rev) . chop 8)
$ midiOn "^76" (chop 4)
$ midiOn "^44" ((sometimesBy "f t" rev) . chop 8)
$ "90s_matrix:3"
# cut 4
# midiG' "^81" 0 0.65
# pan 0.666
# crushbus 41 (range 16 1.5 "^53")
# crushbus 41 (range 16 1.5 "^32")
d5 $ g
$ mask "<f!32 t!32>"
$ superimpose ((# cut 51)
. (# crushbus 51 (range 16 1.5 "^54")))
. (# crushbus 51 (range 16 1.5 "^33")))
$ "90s_glassatm:3"
# cut 5
# midiG' "^82" 0 0.5
......
......@@ -3,8 +3,8 @@ let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])])
setcps (65/60/4)
let mFast = midiOn "^41" (fast 2)
d1 $ mFast
$ midiOn "^42" ((<| "k k k <k [~ k]>"))
$ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
$ midiOn "^41" ((<| "k k k <k [~ k]>"))
$ midiOff "^41" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
$ "jazz"
# midiG' "^78" 0 1.8
d2
......@@ -30,7 +30,7 @@ d4
# room 0.42 # sz 0.8 # dry 1
d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12)
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# crushbus 51 (range 16 2.5 "^33")
# midiG' "^81" 0 2
d6
$ note (scale "latin" (arp "up" "1*<1 1 2 1 2 1!3> ~ . <[1 3 2 3 <5 6 6 7>] [1 3 <5 6>]>")
......
......@@ -45,7 +45,7 @@ d4
$ arp "up!3 <converge <down downup>>"
$ note (chordsMin - 24)
# "bassWarsaw"
# crushbus 41 (range 14 8 "^53")
# crushbus 41 (range 14 8 "^32")
# pan 0.3
# room 0.2
# gain 0.6
......@@ -54,7 +54,7 @@ d5 $ g
$ note (chords - 24)
# "FMRhodes1"
# att 1 # rel 2
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^33")
# room 0.8
# dry 1
# sz 0.2
......
......@@ -17,7 +17,7 @@ d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>"
# "[sn:20,snare:8]"
# midiG' ("^79" * "~ . 1 0.9") 0 0.9
d3 $ g1
$ midiOn "^44" (fast 2)
$ midiOn "^43" (fast 2)
$ sometimesBy 0.1 (fast 2)
$ "d*[8 <8 <4 [4 16]>>]"
# "drum:2"
......@@ -44,11 +44,11 @@ d5 $ g2
- 24)
# "bassWarsaw"
# midiG' "^81" 0 1.3
# crushbus 51 (range 16 4.6 "^53")
# crushbus 51 (range 16 4.6 "^33")
# pan 0.3
d6
$ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>")
$ "break:18"
# midiG' "^84" 0 1.3
# speed (range 0 2 "^56")
# speed (range 0 2 "^34")
# cut 6
......@@ -18,9 +18,9 @@ let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF
setcps (100/60/4)
d1 $ gDJF $ g
$ midiOff "^42" (mask "<f f [t f] t t!28>")
$ midiOn "^42" (<| "k k k <k!3 k*2>")
$ midiOff "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k k k <k!3 k*2>")
$ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,bd]"
# midiG' "^78" 0 1.1
d2 $ gDJF $ g -- Snare prog
......@@ -28,10 +28,10 @@ d2 $ gDJF $ g -- Snare prog
# "h2ogmsn:6"
# midiG' "^79" 0 1.1
d5 $ g -- Breakbeat
$ midiOn "^76" (ply "<2!3 [4 <4 1>]>")
$ midiOn "^44" (slow "<4 2>")
$ sometimesBy "^32" (ply "<4 [4|2] 2 <1!3 4>>")
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ midiOn "^89" (ply "<2!3 [4 <4 1>]>")
$ midiOn "^57" (slow "<4 2>")
$ sometimesBy "^33" (ply "<4 [4|2] 2 <1!3 4>>")
$ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ chop 8
-- $ slice 4 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 1
......@@ -41,7 +41,8 @@ d5 $ g -- Breakbeat
d3 $ g -- Bass bows
$ gDJF
$ gLeslie
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ midiOn "^43" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^89 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^89 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^89" (chop 16)
$ slow 4
$ note (
......@@ -52,10 +53,10 @@ d3 $ g -- Bass bows
-- # room 0.6
# sz 0.5
# midiG' "^81" 0 0.86
# crushbus 31 (range 10 2 "^53")
# crushbus 31 (range 10 2 "^31")
d4 $ g -- Higher bows
$ midiOn "^90" (off "e" (|+ note "<7!3 12>"))
$ midiOn "^58" gLeslie
$ midiOn "^44" (off "e" (|+ note "<7!3 12>"))
$ midiOn "^76" gLeslie
-- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4")
$ slow 2
......@@ -67,17 +68,17 @@ d4 $ g -- Higher bows
# cut 4
# room 0.2
# pan 0.6
# crushbus 41 (range 10 2 "^54")
# crushbus 41 (range 10 2 "^32")
# midiG' "^82" 0 1.05
d8 $ g -- Angels
$ midiOn "^59" ( -- Crowd of thoughts
$ midiOn "^60" ( -- Crowd of thoughts
off "<s!16 e!16>"
(|+ note "7 12") . (# cut 81) . (|* gain 0.86))
$ note "<[<c!4 d!2 c!2 g4!4> . ~!3 <~ <d g4>>] a4>"
# "cbow:3"
# cut 8
# pan 0.86
# crushbus 81 (range 10 2 "^55")
# crushbus 81 (range 10 2 "^36")
# midiG' "^83" 0 1.4
d9
$ midiOn "^92" (ply "2 <1 <4 [4 8]>>")
......
......@@ -37,23 +37,24 @@ d1 $ g
# gM' 0 1 "^78"
d2 $ g
$ sometimesBy ("^51") (jux rev)
$ sometimesBy ("^31") (ply 2)
$ sometimesBy ("^30") (ply 2)
$ whenmod 4 3 (mask "t . t t f t")
$ "[gretsch:4,drum:2]*[4 8]"
# gM' 0.5 1.4 "^79"
# pan 0.6
# lpf 4000
d3 $ g
$ novaOn ("^76") (rev . slice 4 (run 4))
$ novaOn ("^43") (rev . slice 4 (run 4))
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ novaOn ("^44") (striate 16)
$ someCyclesBy ("^52") (
$ someCyclesBy ("^31") (
slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak120:9"
# gM' 0.5 1.3 "^80"
# lpf 5000
# cut 3
d4 $ g
$ midiOn "^57" (superimpose (
$ midiOn "^76" (superimpose (
(|+ note 24)
. chop (slow 4 "<1 2 4 8>")
. arp "updown"
......@@ -62,10 +63,10 @@ d4 $ g
$ note prog
# "bassWarsaw"
# gM' 0 1.3 "^81"
# lpq "^33"
# lpq "^32"
# room 0.5
# octave 3
# crush (range 10 4.2 "^53")
# crush (range 10 4.2 "^52")
# sz 0.8
d7 $ g
$ whenmod 16 8 (fast 2)
......@@ -86,7 +87,8 @@ d8 $ g -- CHOIRS
# "moogBass"
# octave 3
-- # amp 0.5
# crush (range 10 5.5 "^20")
# hpf (range 0 10000 "^36")
# cutoff (range 120 10000 "^56")
# crush (range 10 5.5 "^36")
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d8's own control.
-- # hpf (range 0 10000 "^56")
-- # cutoff (range 120 10000 "^56")
# gM' 0.45 1.2 "^84"
......@@ -39,7 +39,7 @@ d1 $ gF
d2 $ gF
$ whenPont1 (fast "4!3 <4!3 2 4 2>")
$ sometimesBy ("^51") (jux rev)
$ sometimesBy ("^31") (ply 2)
$ sometimesBy ("^30") (ply 2)
$ fast "[8 <8 16>]"
$ "[dr,drum:2]"
# pan ("^16")
......@@ -47,7 +47,8 @@ d2 $ gF
# gM "^79"
d3 $ gF
$ whenPont1 (mask "t(<4!3 6 4 2>,16)")
$ someCyclesBy ("^32") (striate 16)
$ someCyclesBy ("^31") (striate 16)
-- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ someCyclesBy ("^52") (
slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak80"
......@@ -56,11 +57,11 @@ d3 $ gF
# cut 3
d4 $ gF
$ jux (|+ room 0.1)
$ sometimesBy ("^53") (rev . chop 8)
$ sometimesBy ("^32") (rev . chop 8)
$ loopAt 2
$ "fguitar:8"
# gM "^81"
# pan (0.5 + (perlin * "^17"))
# pan (0.5 + (perlin * "^52"))
# cut 3
d5
-- $ gF
......@@ -72,7 +73,7 @@ d5
-- # lpq ("^34")
-- # lpf (range 10000 0 "^54")
# gM' 0.25 1.1 "^82"
# pan (0.5 + (perlin * "^18"))
# pan (0.5 + (perlin * "^33"))
d6
$ "[~ s]*<2!4 4!3 [4 8]>"
......
......@@ -10,7 +10,7 @@ setcps (120/60/4)
d1
$ g
$ every' 8 6 (# silence)
$ sometimesBy "^42" (slow 2)
$ sometimesBy "^41" (slow 2)
$ fast 4
$ "[jazz,tech:5]"
# gM' 0 1.2 "^78"
......@@ -22,7 +22,7 @@ d2
$ "hh*8"
# gM' 0 1.3 "^79"
d3 $ g
$ sometimesBy "^57" ( -- OFF ARP!
$ sometimesBy "^43" ( -- OFF ARP!
off "q" id . (arpeggiate . (# legato 1))
)
$ note "<e'min7 f'maj7 d'sus4 a4'min7>"
......@@ -30,7 +30,7 @@ d3 $ g
# "bassWarsaw"
# gM' 0 1.1 "^81"
# room 0.5 # sz 0.5
# crush (range 16 5.2 "^53")
# crush (range 16 5.2 "^31")
d4
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8)))
......
......@@ -19,8 +19,8 @@ let g = (gDJF)
d1 $ g -- KICK
-- $ whenmod 8 6 (# silence)
$ novaOn "^74" (mask "t(11,12)" . fast "<2!6 4 2>") -- Folie
$ novaOn "^42" (<| "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)") -- L'annonce
$ novaOff "^42" (<| "k(<1 [1|2|5]>,8) . k(<3 5>,8)") -- Le classique
$ novaOn "^41" (<| "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)") -- L'annonce
$ novaOff "^41" (<| "k(<1 [1|2|5]>,8) . k(<3 5>,8)") -- Le classique
$ "reverbkick"
# room 0.2
# pan 0.4
......@@ -30,7 +30,7 @@ d4 $ g -- BREAKBEAT
(slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy
(slice 8 "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)")
$ someCyclesBy "^76" -- Fulltime!
$ someCyclesBy "^44" -- Fulltime!
(slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ loopAt 1 $ slice 8 (run 8)
$ "break:1"
......@@ -38,7 +38,7 @@ d4 $ g -- BREAKBEAT
# speedbus 41 (range 0 2 "^51")
# cut 4
d2 $ g -- Snares gretscha
$ someCyclesBy "^44" (
$ someCyclesBy "^42" (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw))
. hurry 2
. (|* gain 1.1)
......@@ -50,18 +50,18 @@ d2 $ g -- Snares gretscha
# pan 0.3
# gM' 0.2 1.4 "^80"
d3 $ g -- Metal drumroll
$ someCyclesBy "^60" (fast "1 . 2 4")
$ someCyclesBy "^43" (fast "1 . 2 4")
$ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]"
# note ("<-2 -4 -2 0>")
# gM' 0 0.9 "^84"
d5 -- Fragments of Wiley
$ (# lpf (range 5000 200 "^54"))
$ (# lpf (range 5000 200 "^33"))
$ g
$ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>")
$ novaOn "^58" (slow 16)
$ novaOff "^58" (slow 4)
$ novaOn "^57" (segment "<2 [2 4] [4 8] [16 32]>")
$ novaOn "^89" (slow 16)
$ novaOff "^89" (slow 4)
$ "pray"
# crush (range 10 2.5 "^54")
# crush (range 10 2.5 "^33")
# n "<0!4 1!8>"
# cut 5
# pan 0.8
......@@ -70,7 +70,7 @@ d6 -- TODO Rework
$ superimpose (arp "<up!2 down up>" . fast 2 . (|- note 12))
$ note ("[e3,<~ gs4!2 b4>,e4] [fs3,fs4]")
# "FMRhodes1"
# rel (range 0.2 1 "^53")
# rel (range 0.2 1 "^34")
# amp (range 0.4 0.8 "^81")
# gM' 0.8 1.6 "^81"
d7 $ g
......@@ -78,5 +78,5 @@ d7 $ g
$ midiOn "^59" (fast 2)
$ s "~ clap"
# room 0.5 # size 0.4 # dry 0.95
# note (range "-6" 6 "^55")
# note (range "-6" 6 "^35")
# gM' 0 1.6 "^83"
......@@ -52,7 +52,7 @@ d1 -- Kick 4/4
$ midiOn "^41" (<| "k <<k!8 ~ k!7> k!3 ~ k!3> k <k <k*2 [~ k]>>")
$ midiOff "^41" (<| "k <k!2 <k k?> ~>")
$ "[jazz,kick:5]*4"
# midiG' ("^77" * "^55") 0 1
# midiG' ("^77" * "^29") 0 1
d2 -- Hats contretemps
$ ply "1 1 <1 <[2|1] 2>> 1"
$ mask "<f!12 t!24>"
......@@ -60,33 +60,41 @@ d2 -- Hats contretemps
$ "[~ hh]*4"
# n "<8!7 [8!3 10]>"
# release (slow 16 (range 1 0.05 saw))
# gain (1.4 * (slow 4 $ range 1 1.48 saw) * "^77" * "^56")
# gain (1.4 * (slow 4 $ range 1 1.48 saw) * "^77" * "^30")
# pan (slow 4 $ range 0.98 0.5 saw)
d3 $ g -- Running Hats
$ mask "<f!4 t!12>"
$ midiOn "^41" (fast 2)
$ midiOn "^43" (fast 2)
$ fast ("<1!4 2!4 4!24>" * "<1!8 2!8>" * "1 1 1 <1 [1 2] [2 1] 2>")
$ "hh"
# pan (slow 16 $ range 0.2 0.8 saw)
# gain (1.7 * "^77" * "^56")
# gain (1.7 * "^77" * "^31")
d5 $ g
$ off "h" id
$ midiOn "^42" (scramble 4 . ply 2 . often (chop "<2!3 4 2 [2 4] 2 4>"))
$ midiOn "^43" (off "q" ((# room 0.2) . (|* gain 0.8)))
$ midiOn "^89" (scramble 4 . ply 2 . often (chop "<2!3 4 2 [2 4] 2 4>"))
$ midiOn "^57" (off "q" ((# room 0.2) . (|* gain 0.8)))
$ degradeBy ("<0 0.5> 1!7" * "^50")
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ midiOn "^44" (degradeBy "0 1!5 0.5 0.25")
$ note mel
# s "superfm"
# midiG' "^78" 0 1.3
# crushbus 51 (range 10 2.65 "^29")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # crushbus 51 (range 10 2.65 "^33")
# pan "[<0.2 0.8> <0.8 0.2>]"
# octave (3 + "^59" + "^60")
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^60 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^59 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # octave (3 + "^59" + "^60")
# fmfeedback "^79"
# fmamps ["^15", "^16", "^17", 0, 0, 0]
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # fmamps ["^15", "^16", "^53", 0, 0, 0]
# fmratios [1, 4, (slow 8 $ "<0.126 0.26 [0.51 0.52]>"), 0, 0, 0]
# fmdetunes ["^51", 1 - "^52", "^53", 0, 0, 0]
# fmmod 1 1 ("<0 1.25>" + "^31")
# fmmod 1 2 (range 0 2 "^32")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # fmdetunes ["^51", 1 - "^52", "^53", 0, 0, 0]
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^31 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # fmmod 1 1 ("<0 1.25>" + "^31")
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^32 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # fmmod 1 2 (range 0 2 "^32")
# fmmod 1 3 (range 0 4 "^33")
-- # fmmod 3 2 (range 0 3 (slow 4 sine + "^52"))
# envlevel 1 [1, 0.5, 0, 0, 0, 0]
......
......@@ -44,9 +44,23 @@ d1
))
# gain (range 0 1.8 "^77")
# fmfeedback (range 0 2 "^78")
# fmamps ["^15", "^16", "^17", "^18", "^19", "^20"]
# fmratios ["^31", "^32", "^33", "^34", "^35", "^36"]
# fmdetunes ["^51", "^52", "^53", "^54", "^55", "^56"]
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^20 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^19 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmamps ["^15", "^16", "^29", "^18", "^19", "^20"]
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^36 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^35 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^32 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^31 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmratios ["^31", "^32", "^33", "^34", "^35", "^36"]
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^55 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmdetunes ["^51", "^52", "^53", "^54", "^55", "^56"]
# fmmod 1 1 1
# fmmod 1 2 0
# fmmod 2 3 0
......@@ -107,7 +121,9 @@ let midiOff ch pat = someCyclesBy (1 - ch) pat
d1 $ "jazz*<2!16 4!16>" # lpf 2000 # gain (1 - (0.5 * (1 - "^77")))
d2
$ midiOn "^42" (off "q" ((# room 0.2) . (|* gain 0.8)))
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^43" (degradeBy "0 1!5 0.5 0.25")
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^41" rev
$ s "superfm"
|+| note (scale "aeolian" (
......@@ -123,17 +139,27 @@ d2
# lfofreq (range 500 1000 "^79")
# lfodepth (range 0 1 "^80")
-- # fmamps ["^15", "^17", "^19"]
# fmratios [range 0 100 "^31", range 0 100 "^33", range 0 100 "^35"]
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^35 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmratios [range 0 100 "^30", range 0 100 "^33", range 0 100 "^35"]
-- # fmdetunes ["^32", "^53", "^55"]
# fmmod 1 1 (range 0 4 "^16")
# fmmod 1 2 (range 0 4 "^32")
# fmmod 1 3 (range 0 4 "^52")
# fmmod 2 1 "^18"
# fmmod 2 2 "^34"
# fmmod 2 3 "^54"
# fmmod 3 1 "^20"
# fmmod 3 2 "^36"
# fmmod 3 3 "^56"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^32 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 1 2 (range 0 4 "^32")
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 1 3 (range 0 4 "^52")
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 2 1 "^18"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 2 2 "^34"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 2 3 "^54"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^20 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 1 "^20"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^36 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 2 "^36"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 3 "^56"
# fmmod 3 4 1
# fmmod 4 5 1
# fmmod 5 6 1
......
......@@ -15,8 +15,8 @@ d12 $ gM3 $ gF3 -- PIANO DE DEBUGGING
-- # room 0.3 # sz ("0.2 0.4 0.6")
d1 $ gF1 $ gM1 -- KICK PLEIN
-- $ fix ((# att 0.05) . (# lpf 4500) . (# gain 0.9)) "rampleR1:0"
$ midiOn "^42" (<| "k k k <k!3 <k*2 [k*2 k] [k ~ k] [k*4]>>")
$ midiOff "^42" (<| "k <~!4 k ~ ~ k*2> . ~ ~ [~ <~ k>] k")
$ midiOn "^41" (<| "k k k <k!3 <k*2 [k*2 k] [k ~ k] [k*4]>>")
$ midiOff "^41" (<| "k <~!4 k ~ ~ k*2> . ~ ~ [~ <~ k>] k")
$ "[rampleR1:0]"
# gain 1.4
d2 $ gF1 $ gM2
......@@ -39,19 +39,19 @@ d4 $ gF2 $ gM3 -- La gravite, inevitable
+ 0
)
# "bassWarsaw"
# octersubbus 41 (range 0 3 "^53")
# octersubbus 41 (range 0 3 "^32")
# cut 4
# pan 0.3
# gain 1.7
d5 $ gF3 $ gM3 -- La lumiere, partout
$ midiOn "^58" (chop 8)
$ midiOff "^58" (chop 2)
$ midiOn "^90" (ply "2 <2 4>")
$ midiOn "^89" (chop 8)
$ midiOff "^89" (chop 2)
$ midiOn "^57" (ply "2 <2 4>")
$ note prog
# "90s_glassatm:0"
# cut 5
# pan 0.8
# octerbus 51 (range 0.01 1.99 "^54")
# octerbus 51 (range 0.01 1.99 "^33")
d7 $ gF1 $ gM3 -- Les inevitables trolls
$ fix ((|* gain 0.8) . (|- note 4) . (# "rampleR0:3")) "r0bd1"
$ fix (# "rampleR0:2") "r0bd"
......@@ -60,9 +60,9 @@ d7 $ gF1 $ gM3 -- Les inevitables trolls
# gain 0.8
d8 $ gF1 $ gM2
-- $ ply "1 2"
$ midiOn "^56" (# n "4")
$ midiOn "^60" (slice 16 (run "<[8!3 4]!3 <4 [4 <8 16>]>>"))
$ midiOn "^92" (ply 2)
$ midiOn "^36" (# n "4")
$ midiOn "^92" (slice 16 (run "<[8!3 4]!3 <4 [4 <8 16>]>>"))
$ midiOn "^60" (ply 2)
$ chop 16
$ loopAt 2
$ "jungle_breaks:30"
......
......@@ -7,8 +7,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM
$ superimpose ((# "jazz:0") . (|* gain 0.9))
$ midiOff "^42" (<| "k . <~ <[~ k] k(<3 [<1 <3 5>> 5]>,8)>>")
$ midiOn "^42" (<| "k k k <k [<k ~> k]>")
$ midiOff "^41" (<| "k . <~ <[~ k] k(<3 [<1 <3 5>> 5]>,8)>>")
$ midiOn "^41" (<| "k k k <k [<k ~> k]>")
$ d "bd:1"
# midiG' "^78" 0 1.3
d2 $ gF1 $ superimpose ((# "snare:13") . (|*gain 0.8)) $ d "~ [sd:5]"
......@@ -20,8 +20,8 @@ d4 $ gF2 $ slow 2 -- Intro dark bass rample
$ "rampleO7"
# n "<0 1 2 3>"
# cut 4
# crushbus 41 (range 16 2 "^53")
# roombus 42 (range 0 0.52 "^33")
# crushbus 41 (range 16 2 "^32")
# roombus 42 (range 0 0.52 "^52")
# midiG' "^81" 0 1.3
d5 $ silence -- TODO SECONDE BASS GROOVY
d6
......
......@@ -32,7 +32,7 @@ d4 $ gF2
# room 0.4
# sz 0.5
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1
d10 $ gF3
$ slice 4 "<0!4 ~!12> ~ <~ <2 2?>> <~!32 3*<[1]!8 1 2 2 4 4 2 4 4>!32>"
......
......@@ -6,7 +6,7 @@ let gM = gMask . gMute
let gDJF = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.01 0.45 saw)))
let gDJF = id
d1 $ gDJF $ gM1 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k . ~ k ~ ~")
$ fix ((# drumFrom "rolandtr909" "bd:3")) "909bd"
$ "[jazz,909bd]"
# midiG' "^78" 0 1.9
......@@ -22,19 +22,19 @@ d2 $ gDJF $ gF1 $ gM -- FIXME Meilleure dialectique kick/snare
# pan 0.8
# midiG' "^79" 0 1.9
d3 $ gDJF $ gM $ gF1
$ midiOn "^76" (mask "t(16,32)" . ply 2 . off "e" id)
$ midiOn "^43" (mask "t(16,32)" . ply 2 . off "e" id)
$ "~ h ~ h*<1!3 2> ~ h ~ h"
# "h2ogmhh"
# attbus 31 (range 0.2 0.05 "^52")
# attbus 31 (range 0.2 0.05 "^31")
# midiG' "^80" 0 1.9
|* gain (range 0.85 1 (fast 2 perlin))
d4 $ gF2
$ superimpose (# crushbus 41 (range 16 3 "^53"))
$ superimpose (# crushbus 41 (range 16 3 "^32"))
$ note "<d4 e4 a3@2>"
# "90s_matrix:3"
# cut 4
# pan 0.2
# triodebus 42 (range 0 4 "^33")
# triodebus 42 (range 0 4 "^52")
# midiG' "^81" 0 2
d5 $ gDJF $ gF1
$ whenmod 8 7 (# delay 0.6)
......@@ -53,7 +53,7 @@ d6 $ gF3
$ fix (|* gain (slow 32 $ range 0 1 cosine)) "cpluck:5"
$ fix (|* gain (slow 32 $ range 0.5 0 sine)) "cpluck:6"
$ note ("e@2 c@2 e <f g c b4>")
# hbrickbus 61 (range 0 0.4 "^55")
# hbrickbus 61 (range 0 0.4 "^34")
# "[cpluck:4,cpluck:5,cpluck:6]"
# rel 2
# pan 0.2
......@@ -69,7 +69,7 @@ d7 $ gF3
# delayt (1/8)
# delayfb (slow 16 $ range 0.1 0.8 saw)
# cut 7
# crushbus 71 (range 16 2.4 "^55")
# crushbus 71 (range 16 2.4 "^35")
# lpf 4000
# midiG' "^83" 0 1.3
d8 $ gM $ gF1
......
......@@ -12,8 +12,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
# gain 1.4
d3 $ gF1 $ gM2 $ "d(3,8) d(3,8)" # "h2ogmsn" # gain 2 # cut 3 -- Drill that Baby
d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle
$ midiOn "^89" (off "0.25" id)
$ superimpose ((# crushbus 41 (range 16 2.5 "^53"))
$ midiOn "^44" (off "0.25" id)
$ superimpose ((# crushbus 41 (range 16 2.5 "^32"))
. (|* gain 0.8)
. (# hpf 500) . (# lpf 10000)
)
......@@ -29,7 +29,7 @@ d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle
# bandq 1
# gain 1.2
# lpf 500
# octersubbus 42 (range 0 1 "^33")
# octersubbus 42 (range 0 1 "^52")
# tremr 1.4
d8 $ gF1 $ gM2
$ midiOn "^92" (
......@@ -49,11 +49,11 @@ d8 $ gF1 $ gM2
# gain 1.4
d6 $ gF3 $ gM3 $ loopAt 4 $ "meth_bass:4" # gain 1.3
d7 $ gF3 -- Choeurs des temps passés
$ midiOn "^59" ((# pan "[0.4 0.6]*8")
$ midiOn "^91" ((# pan "[0.4 0.6]*8")
. chop "<16!3 32>" . (# rel 0.85)
) -- Pan the chops!
$ midiOn "^91" (ply "4 <4!3 <8 16>>")
$ midiOn "^19" (# freeze "<0.1 0.2 0.4 0.8>")
$ midiOn "^59" (ply "4 <4!3 <8 16>>")
$ midiOn "^35" (# freeze "<0.1 0.2 0.4 0.8>")
-- $ ((# distortbus 71 (range 0 2 "^55"))
-- . (# octerbus 72 (range 0 1.5 "^55"))
-- . (# cut 71)
......@@ -64,7 +64,7 @@ d7 $ gF3 -- Choeurs des temps passés
# cut 7
# room 0.3
# dry 0.92
# tremrbus 72 (range 0 20 "^35")
# tremrbus 72 (range 0 20 "^55")
# tremdp 2
# hpf 2000
# gain 2
......
......@@ -27,9 +27,9 @@ d3 $ gF1 $ gM2 -- Drumroll fantome
# sz 0.8
# pan 0.7
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 2")
$ midiOn "^76" (ply "4 2")
$ superimpose (
(# crushbus 41 (range 16 2.8 ("^53" + 0.25 * perlin)))
(# crushbus 41 (range 16 2.8 ("^32" + 0.25 * perlin)))
. (# hpf 200)
. (# lpf 10000)
. (|* gain 1))
......@@ -56,7 +56,7 @@ d8 $ gF1 $ gM2
$ midiOn "^60" (mask "f(<4!3 [2 8]>,8)")
$ chop 16
$ loopAt 1
$ midiOn "^56" ((>| "jungle_breaks:109") . (|* gain 0.95))
$ midiOn "^36" ((>| "jungle_breaks:109") . (|* gain 0.95))
$ "jungle_breaks:110"
# cut 8
# hpf 400
......
......@@ -13,7 +13,7 @@ d3 $ gF1 $ gM2
$ "dr*[8@3 <8!3 16>]"
# delay 0.2 # delayt "s" # delayfb 0.4
d5 $ gF3 $ gM3
$ midiOn "^90" (struct "t*8")
$ midiOn "^57" (struct "t*8")
$ slow 2 $ slice 8 "<0 0 [1 2] 3 4!4 5!4 6 6 7 7>"
$ "latin"
# cut 5
......
......@@ -2,8 +2,8 @@ do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k*<1 2>]>")
$ midiOff "^42" (<| "k ~ . ~ k ~ ~")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k*<1 2>]>")
$ midiOff "^41" (<| "k ~ . ~ k ~ ~")
$ "[jazz,808bd:3]"
-- $ "[808bd:4]"
# gain 1.4
......@@ -24,14 +24,14 @@ d3 $ gF1 $ gM2
# delay 0.15
# delayfb (slow 16 $ range 0.2 0.75 perlin)
d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3
$ midiOn "^57" (|- note 12)
$ midiOn "^89" (ply "1 . <8 <12!3 24>>")
$ midiOn "^44" (|- note 12)
$ midiOn "^76" (ply "1 . <8 <12!3 24>>")
$ whenmod 128 64 ( -- Echoes of triplets
off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93)))
$ whenmod 64 48 (>| note "<d4 f4 a3 g3 d4 a3 <g3!0 [g3@3 [g3 a3]]> d3>")
$ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>"
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# gain 1.5
d5 $ gF3 $ gM3
$ someCyclesBy "<1!32 0!32>" (someCyclesBy (slow 16 $ range 0.99 0.1 saw) (degradeBy "~ 0 ~ <1!3 1?>")) -- La pluie
......@@ -42,8 +42,8 @@ d5 $ gF3 $ gM3
# octave 6
# bandf 200
# bandfrecv 10
# octerbus 51 (range 0 0.95 "^54") -- ETOILES
# octersubbus 52 (range 0 5 "^34") -- ETOILES
# octerbus 51 (range 0 0.95 "^33") -- ETOILES
# octersubbus 52 (range 0 5 "^53") -- ETOILES
# gain 1.5
# room 0.5
# sz 0.8
......
......@@ -2,8 +2,8 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ 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>>]")
$ midiOn "^41" (fast 2 . (<| "k k <k!6 ~ ~> k*<<1!3 <0 1>> <2 [4 <4 2 2 4> 2 <4 [8 4]>]>>"))
$ midiOff "^41" (<| "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]")
$ "[rampleM8:0,jazz,808bd:3]"
# gain 1.4
# room 0.1 # sz 0.5 # dry 0.9
......@@ -24,13 +24,13 @@ d4 $ gF2 $ gM3
# "bass3"
|+ note "ds"
# gain 2
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3
$ note ("c!15 <cs ef f bf4>" + "[0,12]")
# "FMRhodes1"
# chorus 0.5
# modIndex (range 0 4 "^34")
# crushbus 51 (range 16 5 "^54")
# modIndex (range 0 4 "^33")
# crushbus 51 (range 16 5 "^53")
# gain 1.4
# legato 0.125
# delay 0.8 # delayt (1/32) # delayfb (slow 16 $ range 0 0.7 saw)
......@@ -53,6 +53,6 @@ d7 $ gF3 $ gM3 -- PUNK TIMER
d8 $ gF1 $ gM2
$ whenmod 8 6 (mask "t([16 <16 8> . <8 4>],16)")
$ chop 16
$ midiOn "^56" (loopAt 1 . (>| "jungle_breaks:108"))
$ midiOn "^36" (loopAt 1 . (>| "jungle_breaks:108"))
$ loopAt 1 $ "jungle_breaks:107"
# cut 8
......@@ -42,8 +42,8 @@ d4 $ g2 -- Broken Saloon
-- . (|+ note 12)
-- . (# cut 51)
-- )
$ midiOn "^58" (iter 16)
$ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>")
$ midiOn "^44" (iter 16)
$ sometimesBy "^32" (striate 4 . ply "1 <1 <2 [2 4]>>")
$ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>"))
$ loopAt 2
$ "fpiano:8"
......
......@@ -35,10 +35,10 @@ d4 $ gF2 $ gM3 -- MEDIEVAL DARK BASSLINE <3
"<0 [0 <12 [12 0]>]>" +
"0(3,8) 0(3,8)" +"0 0 0 <7>"
+ 12
)) . (# cut 41) . (|* ampbus 43 "^33")
)) . (# cut 41) . (|* ampbus 43 "^32")
)
$ midiOn "^89" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41))
$ superimpose ((# crushbus 41 (range 16 2.8 "^53"))
$ midiOn "^76" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41))
$ superimpose ((# crushbus 41 (range 16 2.8 "^52"))
. (# hpf 300)
. (# lpf 10000)
. (|* gain 1.5))
......@@ -100,7 +100,7 @@ d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs
# cut 10
d6 $ gF2 $ gM3 $ "meth_bass:3"
# note "-9"
# crushbus 61 (range 16 2.5 "^30")
# crushbus 61 (range 16 2.5 "^34")
# cut 6 # gain 1
-- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4
......
......@@ -30,5 +30,5 @@ d1
# room 0.6 # size 0.5 # dry 1
# cut 1
d3
$ novaOn "^44" (fast "2 <2 [4 2]>")
$ novaOn "^43" (fast "2 <2 [4 2]>")
$ "dr*8"# gM' 0 1 "^80"
......@@ -27,7 +27,7 @@ d1 $ g
# gM' 0 1.1 "^78"
d2 $ g
$ (# gM' 0.35 0.9 "^79")
$ novaOn "^43" (slow 2)
$ novaOn "^42" (slow 2)
$ novaOn "^75" (const $ loopAt 1
$ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3")
$ "breaks165")
......@@ -46,13 +46,13 @@ d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4"
# cut 4
# gM' 0 0.8 "^81"
d5 $ g
$ novaOn "^58" (chop (4 + ("12" * "^90")))
$ novaOn "^57" (chop (4 + ("12" * "^89")))
$ whenmod 4 2 (stutWith 4 "e" (# legato 0.25))
$ note chords
# "moogBass"
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^54"))
# crushbus 51 (range 10 1 "^34")
# chorus (range 0 4 "^54") -- 0.7
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^33"))
# crushbus 51 (range 10 1 "^53")
# chorus (range 0 4 "^33") -- 0.7
......
......@@ -12,7 +12,7 @@ d1 $ g1
# midiG' "^78" 0 1.4
d2 $ g1
$ midiOn "^75" (>| "breaks165")
$ splice 4 (run (4 + ("^43" * 2)))
$ splice 4 (run (4 + ("^42" * 2)))
$ loopAt 2
$ "break:4"
# midiG' "^79" 0 1.3
......@@ -21,7 +21,7 @@ d4 $ g2
$ note ("<c3!3 [bf2@6 ~ g2]>")
# "bassWarsaw"
# midiG' "^81" 0 1.3
# crushbus 41 (range 16 4 "^53")
# crushbus 41 (range 16 4 "^32")
# room 0.2
# cut 4
......
......@@ -8,9 +8,9 @@ let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
d1
$ gF $ gMute
$ midiOn "^74" (fast 2)
$ midiOn "^42" (-- Run
$ midiOn "^41" (-- Run
slow 2 . (<| "k k k k"))
$ midiOff "^42" (<| "k . ~ k ~ ~") -- L'attente
$ midiOff "^41" (<| "k . ~ k ~ ~") -- L'attente
$ "[meth_1902:2,kick:8]" # note "-2"
# midiG' "^78" 0 1.3
d2 $ gF $ gM -- Snare glitch high
......@@ -28,7 +28,8 @@ d2 $ gF $ gM -- Snare glitch high
-- # n "<0 1 2 3>"
-- # midiG' "^80" 0 1.2
d3 $ gF $ gM $ loopAt 2
$ midiOff "^44" (slow 2)
$ midiOff "^43" (slow 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ chop 16
$ "jungle_breaks:6"
......@@ -43,11 +44,11 @@ d5 $ gF2
# "bassWarsaw"
# legato 2
# cut 5
# crushbus 51 (range 16 2 "^53")
# crushbus 51 (range 16 2 "^33")
# midiG' "^81" 0 1.5
# room 0.2 # sz 0.2
d4 $ gF3
$ midiOn "^58" (
$ midiOn "^44" (
-- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9))))
-- . (off ("h" + "s") id . arp "up")
-- .
......@@ -56,7 +57,7 @@ d4 $ gF3
$ whenmod 64 32 (# note (progAlt - 12))
$ note (prog - 12)
# "FMRhodes2"
# modIndex (range 0 16 "^54")
# modIndex (range 0 16 "^32")
# pan 0.8
# midiG' "^82" 0 1.3
d7 $ gF3
......@@ -65,7 +66,7 @@ d7 $ gF3
$ "shiloh:2"
# pan 0.2
# cut 7
# midiG' ("^83" * (1 - 0.5 * "^19")) 0 1.5
# midiG' ("^83" * (1 - 0.5 * "^35")) 0 1.5
# delaybus 61 (range 0 1 "^55")
# delayfb 0.5
# delaytime 0.375
......@@ -84,8 +85,9 @@ d8 $ gF $ gM
$ midiOn "^92" (ply "2 <2 4>")
$ loopAt 1
$ chop 8
$ someCyclesBy "^20" ((# n 20))
$ someCyclesBy "^36" (loopAt 2 . (# n 81))
$ someCyclesBy "^36" ((# n 20))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ someCyclesBy "^56" (loopAt 2 . (# n 81))
$ sometimesBy "^56" ((iter "1 4"))
$ "jungle_breaks:13"
# room 0.2 # dry 1.05 # sz 0.4
......
......@@ -13,9 +13,9 @@ d1 -- Snare
# "[jazz,cpu]"
# midiG' "^78" 0 0.9
d2 -- Snare
$ midiOn "^41" (fast 4)
$ midiOn "^42" (fast 4)
$ g
$ midiOff "^41" (slow "<2!16 1!16>" )
$ midiOff "^42" (slow "<2!16 1!16>" )
$ "~ [snare:20,clap]"
# midiG "^79"
# room 0.8 # sz 0.8 # dry 0.99
......@@ -44,13 +44,13 @@ d5 -- Bassline
+ "0(5,8)" |+ "0 [7 12]"
-- + 12
))
. (# crushbus 51 (range 12 1.85 "^53"))
. (# crushbus 51 (range 12 1.85 "^33"))
)
)
$ note ("d . ~ <c(3,8)!4 [c(2,3),d(2,4,1)]!4>")
# octave 3
# "bassWarsaw"
# crushbus 5 (range 10 5 "^53")
# crushbus 5 (range 10 5 "^33")
# room 0.5
# sz 0.4
-- # pan 0.21
......@@ -61,7 +61,7 @@ d6 $ g
# octave 3
# modIndex "[0,5]"
# "FMRhodes1"
# crush (range 10 4.8 "^54")
# crush (range 10 4.8 "^34")
# midiG' "^82" 0 1.4
d7 $ g
-- $ slice 8 ("7*4")
......@@ -75,6 +75,6 @@ d8 $ g -- Da Bogdan MOFO
# lpqbus 8 (range 0 0.5 sine)
# crush (slow 16 $ range 16 2.5 perlin)
# cut 8
# gain "^56"
# gain "^36"
once $ "dr" # gain 1
......@@ -3,8 +3,8 @@ resetCycles
do
setcps (80/60/4)
d1 $ gF1 -- THIS TIME IT'S GONNA BE SLOW
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (
$ midiOn "^41" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^41" (
(someCyclesBy (slow 16 $ range 0 0.8 saw)( -- Hackish run
superimpose ((0.5 ~>) . mask "t(1,8)")
)
......@@ -48,8 +48,8 @@ d4 $ gF1 -- Drumroll au retard orchestre
# pan 0.55
# midiG' "^84" 0 1
d6 $ gF2 -- Programmatic bass
$ midiOn "^89" (slice 4 "1*<2 4>" . (# cut 6))
$ midiOn "^57" (
$ midiOn "^90" (slice 4 "1*<2 4>" . (# cut 6))
$ midiOn "^58" (
someCyclesBy "<f!24 t!8>" (slice "<16 8 4 2>" (run 16))
. someCyclesBy "<f!16 t!8 f!8>" (slice 8 "[0 .. 4] . [7 .. 5]")
. someCyclesBy "<f!8 t!8 f!16>" (slice 8 (run 4))
......@@ -60,7 +60,7 @@ d6 $ gF2 -- Programmatic bass
# gain 0.6
# room 0.4
# midiG' "^81" 0 1.3
# crushbus 61 (range 16 4 "^53")
# crushbus 61 (range 16 4 "^34")
# room "<0.35!3 0.7>"
d5 $ gF2 -- Le rythme de la rentree
-- $ mask "<f!7 t f!7 t f!14 t!2 t!16>"
......
......@@ -8,12 +8,12 @@ d1 $ gF1 $ gM1
d2 $ gF1 $ gM2 $ "~ cp ~ cp*<1!3 2>" # "snare:24" # gain 1.4
d3 $ gF1 $ gM2 $ "hh([12 <12 16 12 6>],16)" # "h2ogmhh"
d4 $ gF2 $ gM3
$ midiOn "^57" (mask "t(<4!3 <6 8>>,8,1)")
$ midiOn "^44" (mask "t(<4!3 <6 8>>,8,1)")
$ fast 2
$ note ("<[e3 b3 g3 b3] [e3 a3 cs4 a3]>" - "[0,12]")
# "bassWarsaw"
# crushbus 42 (range 16 2 "^33")
# octersubbus 41 (range 0 2 "^53")
# crushbus 42 (range 16 2 "^32")
# octersubbus 41 (range 0 2 "^52")
# room 0.4 # sz 0.8
d5 $ gF3 $ gM3 $ note ("<e!3 cs>@7 [<d d g d>]" - 12) # "FMRhodes1"
d7 $ gF3 $ gM3 $ note "<e3!3 cs2>@7 [d]" # "FMRhodes2"
......
......@@ -9,8 +9,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (93/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>")
$ midiOn "^41" (<| "k k k k")
$ midiOff "^41" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>")
$ fix ((# att 0.1) . (# rel 10)) "wobble"
$ "[jazz,808bd:4,wobble]"
-- # midiG' "^78" 0 1.5
......@@ -28,12 +28,12 @@ d4 $ gF2 $ gM3
# "moogBass"
# chorus 0
# pan 0.1
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
d10
$ note ("<b4 c4 cs4 c4>" + 12)
# "moogBass"
d5 $ gF3
$ midiOn "^58" (ply "<[4 2] 4 [4 8] [4 <[8 4] <16 [16 4]>>]>")
$ midiOn "^89" (ply "<[4 2] 4 [4 8] [4 <[8 4] <16 [16 4]>>]>")
-- $ arpeggiate
$ note ( -- TODO ADD CLIMB?
"<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>"
......@@ -41,16 +41,16 @@ d5 $ gF3
+ (slow 4 "<0 <12 24>>")
+ "12"
)
# modIndex (range 0 4.5 "^34")
# crushbus 51 (range 16 4.5 "^54")
# modIndex (range 0 4.5 "^33")
# crushbus 51 (range 16 4.5 "^53")
# "marimba1"
# pan 0.8
# gain 1.2
d8 $ gM $ gF1
$ midiOn "^92" (ply 4)
$ midiOff "^56" (slice 4 "0 1 2 3*<1 2 4 8>")
$ midiOff "^36" (slice 4 "0 1 2 3*<1 2 4 8>")
$ loopAt 4 $ chop 16
$ midiOn "^56" (loopAt 0.25 . (>| "breaks165"))
$ midiOn "^36" (loopAt 0.25 . (>| "breaks165"))
$ "trance_loops:0"
# cut 8
-- # midiG' "^84" 0 1.8
......@@ -5,8 +5,8 @@ setcps (130/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k?]>")
$ midiOff "^42" (<| "k . k" )
$ midiOn "^41" (<| "k k k <k k*2 k [~ k?]>")
$ midiOff "^41" (<| "k . k" )
$ "[kick:5,808bd:5]"
# gain 1.4
d2 $ "~ s ~ s" # "vec1_snare:30"
......@@ -16,11 +16,11 @@ d3
# gain 1.4
d5 $ gF3 $ gM3
$ superimpose ((# cut 51) . (jux (# cut 52)) .
(midiOn "^90" (ply 4)) .
(midiOn "^89" (ply 4)) .
(# begin 0.79) . (# end 0.85) . (# pan 0.8) . (# hpf 3000)
. (# gain "^54")
. (# gain "^33")
)
$ midiOn "^58" (slow 2)
$ midiOn "^57" (slow 2)
$ "rhadamanthe_melo:20/4"
# cut 5
-- # pan 0.3
......
......@@ -3,8 +3,8 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k k*2"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ midiOn "^41" (fast 2 . (<| "k k k k*2"))
$ midiOff "^41" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ fix (# lpf 1200) "kick"
$ "[jazz, kick:3]"
-- # room 0.2 # sz 0.3 # dry 1.4
......@@ -23,11 +23,11 @@ d4 $ gF2 $ gM3
# "moog:1"
# room 0.2
# sz 0.4
# crushbus 41 (range 12 3 "^53")
# octersubbus 42 (range 0 2 "^33")
# crushbus 41 (range 12 3 "^32")
# octersubbus 42 (range 0 2 "^52")
d5 $ gF2 $ gM3
$ superimpose ((|* gain (range 0 1.5 "^34")) . (# n 5) . (|+ note 12))
$ midiOn "^58" (fast 2)
$ superimpose ((|* gain (range 0 1.5 "^33")) . (# n 5) . (|+ note 12))
$ midiOn "^89" (fast 2)
$ fast 2
$ note ("d4 a3*<1!12 2!4> d4 <a3!3 <b3 f3>>" + 3)
# n "4"
......@@ -38,7 +38,7 @@ d8 $ gF1 $ gM2
$ midiOn "^60" (splice 4 "0*2 1*<2 8 2 <4 3 5 8>> 2(3,8) 4*<1 2 1 8>")
$ chop 8
$ loopAt 2
$ midiOn "^56" (|> "jungle_breaks:10")
$ midiOn "^36" (|> "jungle_breaks:10")
$ "jungle_breaks:1"
# cut 8
-- d7 $ gF1 $ gM1
......@@ -88,5 +88,5 @@ d7 $ gF3 $ gM3 -- TEMPTATION VOICES
# end "<0.8!8 1!8>"
# "temptation"
# cut 9
# roombus 91 "^19"
# delaybus 92 (range 0 1.5 "^18") # delayt 0.5 # delayfb ("^75" * 0.7)
# roombus 91 "^35"
# delaybus 92 (range 0 1.5 "^55") # delayt 0.5 # delayfb ("^75" * 0.7)
......@@ -9,8 +9,8 @@ let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1.9
......@@ -20,17 +20,18 @@ d3 $ g1 $ m -- Clap contretemps stable
# room 0.8 # sz 0.6 # dry 0.9
# midiG' "^79" 0 1.0
d2 $ g1 $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42" - "^76") (ply 2)
$ midiOn "^76" (striate 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break" # n "<13!12 14!4 15!16>"
# midiG' "^80" 0 2
# speed (range 0 2 "^52")
# speed (range 0 2 "^30")
# cut 2
d4 $ g2 $ m -- Basse avec du repondant
$ midiOn "^57" (chop "8 1")
$ midiOn "^76" (chop "8 1")
-- $ superimpose ((# cut 41)
-- . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
-- )
......@@ -44,7 +45,7 @@ d4 $ g2 $ m -- Basse avec du repondant
- 24
)
# "bassWarsaw"
# crushbus 4 (range 16 1.5 "^53")
# crushbus 4 (range 16 1.5 "^32")
# cut 4
# pan 0.2
# midiG' "^81" 0 1.7
......@@ -60,12 +61,12 @@ d6 $ g2 $ m -- Rhodes piano questionnant
)
# "FMRhodes1"
# midiG' "^82" 0 2
# modIndex (range 0.1 32 "^54")
# modIndex (range 0.1 32 "^34")
# cut 5
# pan 0.8
d5 -- NES arps
$ (# crush 4)
$ midiOn "^59" (struct "t . t(3,8)")
$ midiOn "^57" (struct "t . t(3,8)")
$ g2
$ slow 2
$ chop "<8!8 4!8 2!8 1!8>"
......@@ -113,8 +114,8 @@ let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]"
d2 $ "~ cp"
# gain 0.9
......
......@@ -41,9 +41,9 @@ d4 $ gF2 $ gM3
# legato 2
# gain 1.4
# room 0.4 # cut 4
# crushbus 41 (range 16 2.5 "^52")
# octerbus 42 (range 0 0.95 "^32")
# octersubbus 43 (range 0 1.5 "^32")
# crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 0.95 "^52")
# octersubbus 43 (range 0 1.5 "^52")
d5 $ gF3 $ gM3 -- Ton son est rose
$ midiOn "^89" (ply "4 4 4 <4 8>")
$ slow 2
......@@ -58,8 +58,8 @@ d5 $ gF3 $ gM3 -- Ton son est rose
# pan 0.3
d6 $ gF3 $ gM3 -- Jorja too, she wants _you_
$ midiOff "^58" (mask "<f f f t>")
$ midiOn "^54" (>| n "<40 41>")
$ midiOff "^54" (>| n (slow 2 $ ply 2 $ "<40 40 40 41 42 43 43 44 45 ~ 45 ~>"))
$ midiOn "^34" (>| n "<40 41>")
$ midiOff "^34" (>| n (slow 2 $ ply 2 $ "<40 40 40 41 42 43 43 44 45 ~ 45 ~>"))
$ "rose"
# room 0.4
# cut 6 # gain 1.4
......
......@@ -4,14 +4,14 @@ setcps (110/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "jazz"
# gain 1.4
# cut 1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ midiOff "^42" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -23,11 +23,11 @@ d3 $ gF1 $ gM2
-- $ "h(3,8) h(3,8)"
# pan "0.2 0.8"
# "h2ogmhh:2"
# att (range 0.02 0.5 "^32")
# att (range 0.02 0.5 "^31")
# rel 1
# gain 1.7
# att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
# legato (range 0.05 0.9 "^31")
-- d4 $ gF2 $ gM3
-- $ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c")
-- -- # "moog:1"
......@@ -50,7 +50,7 @@ d7 $ gF3 $ gM3
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
......@@ -33,14 +33,15 @@ d2 -- Snare tchak!
# midiG' "^79" 0 1.2
d3 -- Running Hats
$ g
$ midiOn "^76" --BOUTON NASSIM
$ midiOn "^43" --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125")
. (|* gain 0.9)
)
-- $ degradeBy ("1 0 0 1!13" - "^52")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ midiOn "^43" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
......@@ -51,7 +52,7 @@ d3 -- Running Hats
# cut 3
d4 -- Resolute Bass
$ g
$ midiOn "^57" ( -- Glitch vary end
$ midiOn "^44" ( -- Glitch vary end
rev
)
$ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>")
......@@ -60,7 +61,7 @@ d4 -- Resolute Bass
$ "fbass:43"
# pan 0.15
# room 0.25 # sz 0.1
# crushbus 41 (range 16 1.25 "^53")
# crushbus 41 (range 16 1.25 "^32")
# midiG' "^81" 0 1.6
# cut 4
d6 -- Opiniatre guitare
......@@ -68,7 +69,7 @@ d6 -- Opiniatre guitare
-- $ someCyclesBy "<t!16 f!16>" (segment "<8 <4 2>>")
$ midiOn "^90" (slice 2 (run "<4 <2 8>>"))
$ "fguitar:40/2"
# crushbus 51 (range 10 3.5 "^54")
# crushbus 51 (range 10 3.5 "^34")
# midiG' "^82" 0 1.2
# cut 6
d7
......
......@@ -27,8 +27,8 @@ let dMask = (whenmod 8 7 (mask "t t <t f> f"))
setcps (81/60/4)
d1 $ gF1 $ gM1 -- YRVHTECHNO KICK TO DNB
$ fast 2
$ midiOn "^42" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^42" (<|"k . ~ k ~ <~ k>" )
$ midiOn "^41" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^41" (<|"k . ~ k ~ <~ k>" )
$ "[808bd:13,jazz,kicklinn]"
# gain 1.8
d2 $ gF1 $ gM2 $ fast 2
......@@ -43,16 +43,16 @@ d4 $ gF2 $ gM3
-- $ arp "up"
-- $ ply 2
-- $ note "<[f3,gs3,c4] [c3,ds3,g3]>"
$ midiOn "^57" (>| note (
$ midiOn "^44" (>| note (
"[0,0(3,8) <0([3 2],8) ~>]"
+ "<[f3 gs3 f3 c4] [c3 ds3 c3 g3]>"))
$ midiOff "^57" (>| note (
$ midiOff "^44" (>| note (
"[0]"
|+| "<[f3, [gs3 f3 <c4 c5>]] [c3, [ds3 c3 <g3 g4>]]>"))
$ "bassWarsaw"
# gain 1
# crushbus 41 (range 12 3.8 "^53")
# octersubbus 42 (range 0 1.8 "^33")
# crushbus 41 (range 12 3.8 "^32")
# octersubbus 42 (range 0 1.8 "^52")
# room 0.4
# lpf 1400
d5 $ gF3 $ gM3-- RIFFs <3
......
......@@ -38,9 +38,10 @@ d1 $ g
# "[jazz,tech:5]"
# gM' 0 2 "^78"
d2 $ g -- Snare
$ novaOn "^41" (mask "<f!24 t!104>")
$ novaOn "^42" (mask "<f!24 t!104>")
-- $ mask "f"
-- $ fast 2
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ novaOn ("^43") --BOUTON NASSIM
(slice 8 (run 8) . (loopAt 1)
. novaOn "^75" ((|* gain 0.9) . (>| "fbreak120:1"))
......@@ -52,33 +53,34 @@ d2 $ g -- Snare
# gM' 0 1.8 "^79"
# pan 0.6
d5 $ g -- Hats
$ novaOn "^41" (mask "<f!16 t!16>")
$ novaOn "^44" (fast 2)
$ novaOn "^57" (mask "<f!16 t!16>")
$ novaOn "^89" (fast 2)
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ novaOn "^76" (slow 2)
$ slow 2
$ "hh*<8!3 [16 8]>"
# pan 0.6
# gM' 0 2.5 "^80"
d3 $ g -- BASSLINE
$ novaOn "^41" (mask "<f!8 t!120>")
$ novaOn "^43" (mask "<f!8 t!120>")
$ loopAt 2
$ note (scale "aeolian" $ mel)
# "bassWarsaw"
# pan 0.2
# octave 2
# cut 3
# crush (range 16 5 "^53")
# crush (range 16 5 "^31")
# gM' 0.8 1.8 "^81"
d4 $ g
$ whenmod 16 8 (fast 2 . rev)
$ note (scale "aeolian" $ mel + (slow 4 "<c c'maj c'min c'maj>"))
# "FMRhodes1"
# pan 0.8
# modIndex (range 0 100 "^54")
# gM' 0 1.8 ("^82" * (range 1 0.9 "^54"))
# modIndex (range 0 100 "^32")
# gM' 0 1.8 ("^82" * (range 1 0.9 "^32"))
d6 $ g -- ABS BASS!
-- $ mask "<f!16 t!16>"
$ novaOn "^41" (mask "t*4 . <[t f t f] <f [f t]>>")
$ novaOn "^58" (mask "t*4 . <[t f t f] <f [f t]>>")
$ "abstract:1" # cut 6
# gain (range 0.2 0.95 "^84")
d7 -- TODO: Retravaille guitare
......
......@@ -27,9 +27,10 @@ d2 $ g
. (# gM' 0.35 1 "^79")
)
(n 7) -- Hats fantomes
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ fix (
(# note "<2!3 <4 6>>")
. (# lpq "^32")
. (# lpq "^30")
. (# lpf (range 200 1000 "^52"))
. (|* gM' 0.5 1.65 "^80")
) (n 12)
......@@ -50,14 +51,15 @@ d3 $ g -- BASSLINE
# octave 4
# gM' 0 1.2 "^81"
d4 $ g
$ fix (|- gM' 0 0.5 "^54") ("FMRhodes1")
$ fix (|- gM' 0.5 0 "^54") ("FMRhodes2")
$ fix (|- gM' 0 0.5 "^32") ("FMRhodes1")
$ fix (|- gM' 0.5 0 "^32") ("FMRhodes2")
$ "~ . p*2"
# "[FMRhodes1,FMRhodes2]"
# delay 0.25
# sz (range 0.4 0.8 "^18")
# room (range 0 0.5 "^18")
# delayfb (range "s" "h" "^34")
# sz (range 0.4 0.8 "^52")
# room (range 0 0.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # delayfb (range "s" "h" "^34")
-- # note (whenmod 64 32 (>| melNWNC) melTosh)
# note (cat melUB)
# legato 2
......
......@@ -3,8 +3,8 @@ let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
$ midiOn "^74" (fast 2)
$ midiOn "^42" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k . <k!3 [~ k] k k ~ [~ <~ k>]>")
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^41" (<| "k . <k!3 [~ k] k k ~ [~ <~ k>]>")
$ "kick:5"
# midiG' "^78" 0 1.3
d2 $ "~ s" # "sn:1"
......@@ -14,11 +14,11 @@ d3 $ g2
$ "~ h ~ h ~ h*<1 2> ~ [h*<1!8 2 1!7> <~!3 h*2>]" # "hh"
# midiG' "^80" 0 1
d4 $ g2
$ midiOn "^57" (chop 4)
$ midiOn "^89" (chop 4)
$ midiOn "^76" (chop 4)
$ midiOn "^44" (chop 4)
$ note ("<c g af f>" + "3")
# "rootsBass"
# crushbus 40 (range 16 1.8 "^53")
# crushbus 40 (range 16 1.8 "^32")
# room 0.4 # sz 0.3
# midiG' "^81" 0 1
# cut 4
......
do
setcps (100/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 2>" )
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
$ midiOn "^41" (<| "k k k k*<1 2>" )
$ midiOff "^41" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
$ "[jazz]"
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ ~ ~ sn")
$ midiOn "^43" (<| "~ s ~ s")
$ midiOff "^42" (<| "~ ~ ~ sn")
$ midiOn "^42" (<| "~ s ~ s")
$ "[snare:21]"
# gain 0.7
d3 $ gF1 $ gM2 $ "dr*[8 8 8 <4 4 8 16>]"
......@@ -30,7 +30,7 @@ d5 $ gM3 $ gF3
# pan 0.6
# room 0.8 # sz (slow 16 $ range 0.8 0.2 saw)
# legato 0.5
# octerbus 51 (range 0 0.8 "^54")
# octerbus 51 (range 0 0.8 "^33")
-- # velocity 0.8
d8 $ gF3 $ gM2
$ chop 16
......
......@@ -10,7 +10,7 @@ d1 $ f1
# lpf 2000
# midiG' "^78" 0 1.5
d2 $ f1
$ midiOn "^43" (fast 2)
$ midiOn "^42" (fast 2)
$ "~ snare:20"
# lpf 2400 # att 0.01 # rel 10
# midiG' "^79" 0 1.5
......@@ -21,13 +21,13 @@ d3 $ f1 -- tio toc break clock
# cut 3
# midiG' "^80" 0 1.2
d6 $ f2 -- Not even honest work bassline
$ midiOn "^89" (chop 4 . (# cut 6))
$ midiOn "^90" (chop 4 . (# cut 6))
$ sometimes (off 0.5 (jux (|* gain 0.93))) -- ECH0ES
$ note ("<cs <cs@2 d@2> [~ <cs <e d [cs d] e>>]>" - 12)
# "bassWarsaw"
# room 0.3 # dry 1 # sz 0.9
# midiG' "^81" 0 1
# crushbus 61 (range 16 2 "^53")
# crushbus 61 (range 16 2 "^34")
# pan 0.8
d4 $ f2 -- Clochettes du depart
$ note ("d . d(<1!3 3>,4,1)" |+ "<c f>")
......@@ -46,10 +46,10 @@ d5 $ f1 -- Tambourins du destin
# delayt 0.25
# delayfb 0.2
# room 0.5 # dry 1 # sz 0.2
# pan (slow 1 $ range (range 0.5 0.9 "^20") (range 0.5 0.1 "^19") (saw + perlin))
# pan (slow 1 $ range (range 0.5 0.9 "^33") (range 0.5 0.1 "^53") (saw + perlin))
# midiG' "^84" 0 1.5
d7 $ f2 --
$ midiOn "^58" (superimpose ( -- Crystal rain
$ midiOn "^91" (superimpose ( -- Crystal rain
(|+ note 12)
. (# pan 0.9)
. (|* gain 0.9)
......
......@@ -13,7 +13,7 @@ d2 $ gM2 $ gF1
d3 $ gM2 $ gF1
-- $ mask "t . <t!3 f>"
-- $ someCyclesBy "<1!4 0!28>" (ply 2)
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- $ mask "<t!4 t(4,8,1)!8 t!4>"
$ "h*8"
# "hh"
......@@ -22,8 +22,8 @@ d3 $ gM2 $ gF1
# rel 0.4
# att 0.4
d4 $ gM3 $ gF2
$ midiOn "^89" (chop "4 <[4 8] [8 <16 32>]>")
$ superimpose ((# hpf 500) . (# crushbus 41 (range 16 2.5 "^53")))
$ midiOn "^76" (chop "4 <[4 8] [8 <16 32>]>")
$ superimpose ((# hpf 500) . (# crushbus 41 (range 16 2.5 "^32")))
$ note ("<d4 a3 c3 g3>")
# "bassWarsaw"
# octersub 0.9
......@@ -64,7 +64,7 @@ d7 $ gM3 $ gF3 -- CHOIR
# rel 4
# att 0.01
# gain (slow 32 $ range 0.5 0.8 saw)
# crushbus 71 (range 14 2.4 "^55")
# crushbus 71 (range 14 2.4 "^35")
# pan 0.38
# room 0.4
# dry 1
......
......@@ -17,7 +17,7 @@ d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]"
# midiG "^79"
d3 $ g $ gPont
$ midiOn "^76" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
$ midiOn "^43" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
-- $ mask "<f!8 t!24>"
$ (
mask "t . t t(2,4)"
......@@ -30,7 +30,7 @@ d4 $ g
$ note patFunk
# "bass3"
# pan 0.2
# crush (range 16 2.5 "^53")
# crush (range 16 2.5 "^32")
# midiG' "^81" 0 1.3
d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
......@@ -39,7 +39,7 @@ d5 $ g
# "pluck"
# room 0.6
# sz 0.8
# crush (range 16 2.5 "^54")
# crush (range 16 2.5 "^33")
# midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita
$ slice 16 "0 . 1 <~ 1 2>"
......@@ -49,7 +49,7 @@ d6 $ g -- Final guitare rita
# cut 6
# hpf 400
d7 $ g -- Bonus breaks
$ midiOff "^76" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>")
$ midiOff "^59" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>")
$ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
$ "breaks165"
# pan 0.75
......@@ -59,7 +59,7 @@ d7 $ g -- Bonus breaks
# hpf 100
d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
$ midiOn "^59" (sometimesBy (slow 4 saw) (ply 2))
$ midiOn "^60" (sometimesBy (slow 4 saw) (ply 2))
$ chop 4
$ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
-- $ mask "<f!32 t!32>"
......
......@@ -20,12 +20,13 @@ d3 $ g
)
# "bassWarsaw"
# pan 0.3
# crush (range 10 1.5 "^53")
# crush (range 10 1.5 "^31")
# midiG' "^81" 0 1.5
d4
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ midiOn "^41" (<| "k*4")
$ loopAt 1
$ slice 8 ("0 1 2 3 4 5 6 7"
......@@ -36,8 +37,8 @@ d4
# midiG "^80"
d5
$ g
$ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)")
$ midiOn "^58" ( -- Arps
$ midiOff "^57" (mask "t(<2 4 8 <8 16>>,16)")
$ midiOn "^89" ( -- Arps
superimpose (
struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
arp "up . <up up down speedupdown>"
......@@ -54,12 +55,12 @@ d5
# modIndex 5
# midiG "^82"
# room 0.5 # sz 0.8
# hpq (range 0 0.5 "^34")
# crush (range 10 4.5 "^54")
# hpq (range 0 0.5 "^33")
# crush (range 10 4.5 "^53")
d8 -- Hold on?
$ g
$ fix (# pan 0.62) (cut 81)
$ whenmod 16 12 (midiOn "^59" $ scramble 4)
$ whenmod 16 12 (midiOn "^60" $ scramble 4)
$ whenmod 64 16 (chop 16)
$ mask "<t f!3 t f!3 t f!3 t!4>"
$ "daft"
......@@ -67,7 +68,7 @@ d8 -- Hold on?
# room 0.7
# midiG "^83"
# pan 0.8
# crush (range 10 4.5 "^55")
# crush (range 10 4.5 "^36")
# hpq 0.5
# sz 0.7
......
......@@ -3,6 +3,6 @@ do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k k*2"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ midiOn "^41" (fast 2 . (<| "k k k k*2"))
$ midiOff "^41" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ "[jazz]"
......@@ -6,8 +6,8 @@ d1 $ gF1 $ gM1 $ "jazz*4"
d2 $ gF1 $ gM2 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>" -- TODO SNARES <#
d3 $ gF1 $ gM2 $ "hh*[8 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^57" (superimpose (
$ midiOn "^76" (ply 4)
$ midiOn "^44" (superimpose (
struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)"
. arp "up" . (|+| note "c'minor'3")))
$ ("q" <~)
......@@ -16,12 +16,12 @@ d4 $ gF2 $ gM3
-- # "jungbass:2" |- note 6 -- TODO sound design
# cut 4
# pan 0.8
# squizbus 41 (range 0 8 "^53")
# octersubbus 42 (range 0 1 "^33")
# squizbus 41 (range 0 8 "^32")
# octersubbus 42 (range 0 1 "^52")
# legato 2 # lpf 4000
# gain 1.4
d5 $ gF3 $ gM3
$ midiOn "^58" (|+ note "12")
$ midiOn "^57" (|+ note "12")
$ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>")
$ note "<b fs b <g fs5>>"
-- |+ note "0 <4 0 3 2>"
......
......@@ -37,8 +37,8 @@ let prog = "<f'maj7 g'sus4 a4'min7 e'min7>"
setcps (110/60/4)
d1 $ g
-- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
$ novaOff "^42" (<|"k . ~ k ~ ~")
$ novaOn "^42" (<| "k k k <k!3 k*2>")
$ novaOff "^41" (<|"k . ~ k ~ ~")
$ novaOn "^41" (<| "k k k <k!3 k*2>")
$ "[jazz,cpu2]"
# lpf 4000
# gM' 0 0.9 "^78"
......@@ -53,11 +53,11 @@ d2 $ g
# lpf 2000
# gM' 0.2 0.9 "^79"
d3 $ g
$ novaOn ("^76") --BOUTON NASSIM
$ novaOn ("^43") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125") . (|* gain 1.35)
)
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
$ novaOff "^43" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]"
# gM' 0 0.75 "^80"
......@@ -104,12 +104,12 @@ d7 $ g
# gM' 0 0.8 "^83"
# room 0.2
d8 $ g
$ novaOn "^90" (chop 16)
$ novaOn "^58" (+ note (slow 4 "<0 12>"))
$ novaOn "^60" (chop 16)
$ novaOn "^92" (+ note (slow 4 "<0 12>"))
$ note (pkey)
# "bassWarsaw"
# octave 3
# voice (range 0.1 2 "^34")
# voice (range 0.1 2 "^36")
# room 0.6 # sz 0.2
# gM' 0.4 1 "^82"
# crush (range 10 3.6 "^54")
# crush (range 10 3.6 "^56")
......@@ -45,8 +45,8 @@ d3 $ gA
# pan 0.35
# gain (range 0.45 0.85 "^83")
d4 $ gA
$ novaOff "^60" (# silence)
$ novaOn "^92" (fast 2)
$ novaOff "^44" (# silence)
$ novaOn "^76" (fast 2)
$ "~ clap"
# lpf 2000
# gain (range 0 0.75 "^84")
......
......@@ -42,19 +42,21 @@ d3 $ g -- nass
# cut 3
# gR 0 2 "^79"
d4 $ g -- plastic visseuse
$ novaOn "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8")
$ novaOff "^76" (chop "[4|5] <1 2>")
$ novaOn "^44" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8")
$ novaOff "^44" (chop "[4|5] <1 2>")
$ "[dr:3,dr:4]"
# speed (segment 16 $ range 0.4 1.5 "^52")
# attack (segment 16 $ range 0.01 0.5 "^32")
# speed (segment 16 $ range 0.4 1.5 "^32")
# attack (segment 16 $ range 0.01 0.5 "^52")
# gR 0 2 "^80"
# pan 0.6
d5 $ g
$ sometimesBy "^54" (slow 2)
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ sometimesBy "^33" (slow 2)
$ sometimesBy "^53" (fast 2)
$ fast "4 <8 4 8 16>"
$ "jazz:6" -- Bot
# speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw)
-- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw)
# gR 0 1.4 "^81"
# pan 0.7
d11 $ gAcc
......
......@@ -24,7 +24,7 @@ d1 $ g -- Kick
# midiG' "^78" 0 1.2
d2 $ g -- Contretemps snare
-- $ whenBrkLPF
$ midiOn "^43" (fast "<2 2 4 2>")
$ midiOn "^42" (fast "<2 2 4 2>")
$ whenmod 16 8 (fast 2)
$ whenmod 8 6 (mask "<f [f t]>")
$ superimpose (# hpf 500)
......@@ -32,7 +32,8 @@ d2 $ g -- Contretemps snare
# "snare:20"
# midiG' "^79" 0 1.2
d3 $ g -- Drumroll fantôme
$ midiOn "^76" (fast "<2!3 4>")
$ midiOn "^43" (fast "<2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (fast "2")
$ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
......@@ -45,7 +46,7 @@ d5 $ g -- Bassline {hypno,aqua}tique
$ struct "t*<[1 0] 2 4 [12 . 8]>"
$ note ("fs a" - 24)
# "bassWarsaw"
# crushbus 51 (range 10 5.2 "^53")
# crushbus 51 (range 10 5.2 "^33")
# midiG' "^81" 0 1.5
d6 $ g -- FMRhodes Arps <3
-- $ midiOff
......@@ -56,7 +57,7 @@ d6 $ g -- FMRhodes Arps <3
)
# "FMRhodes1"
# modIndex (range 0 15 "^34")
# crushbus 51 (range 10 5.2 "^53")
# crushbus 51 (range 10 5.2 "^54")
# midiG' "^82" 0 1.3
d10
$ "~ clap:1"
......
......@@ -5,17 +5,18 @@ let gM = gMask . gMute
let modIndex = pF "modIndex"
setcps (62/60/4)
d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t [<t ~> t t ~]")
$ midiOff "^42" (struct "t . t(3,8)")
$ midiOn "^41" (struct "t t t [<t ~> t t ~]")
$ midiOff "^41" (struct "t . t(3,8)")
$ "[808bd:2,jazz]"
# midiG' "^78" 0 1.2
d2 $ gF $ gM
$ "~ snare:40" # hpf 5000
# midiG' "^79" 0 1.1
d3 $ gF $ gM
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[8 16]")
$ midiOff "^44" (struct "[~ t]*4")
$ midiOn "^43" (struct "t*[8 16]")
$ midiOff "^43" (struct "[~ t]*4")
$ "dr"
# pan 0.8
# midiG' "^80" 0 0.85
......@@ -28,8 +29,8 @@ d4 $ gF2
# room 0.2
# pan (slow 16 $ range 0.5 0.8 saw)
# midiG' "^82" 0 0.85
# roombus 41 (range 0.2 0.9 "^34")
# drybus 42 (range "-2" 2 "^54")
# roombus 41 (range 0.2 0.9 "^32")
# drybus 42 (range "-2" 2 "^52")
# size 0.8
d5
$ never (superimpose (
......@@ -52,7 +53,7 @@ d5
d6 $ gF
$ gM
$ loopAt 1
$ midiOn "^92" (chop 8 . ply 2)
$ midiOn "^90" (chop 8 . ply 2)
$ "breaks125"
# cut 6
# midiG' "^84" 0 0.85
......
......@@ -5,7 +5,7 @@ let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1
$ midiOn "^41" (fast 2 . (<| "k k k k"))
$ midiOff "^41" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
$ "[jazz,kick:5,808bd:3]"
$ "jazz"
# room 0.3 # sz 0.9 # dry 1
d2 $ gF1 $ gM2 $ dMask
-- $ fix (
......
......@@ -22,15 +22,16 @@ d1 $ g
-- $ mask "<t!16 f!4 t!12>" -- First break
-- $ mask "<t!32 f!8 t!24>" -- Post-filter break
-- $ mask "<f!6 t f t!24>" -- Intro mask
$ midiOn "^42" (<| "k k k [k ~ <k ~> <~!3 k>]")
$ midiOff "^42" (<| "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]")
$ midiOn "^41" (<| "k k k [k ~ <k ~> <~!3 k>]")
$ midiOff "^41" (<| "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]")
$ "[bd:2,kick:5]"
# midiG' "^78" 0 1.45
# legato 2
# att 0.1
# rel 0.8
d2 $ g -- Aerian snare
$ midiOn ("^44" - "^76") (ply 2)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
-- $ mask "<t!16 f!3 t t!12>" -- First break
-- $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask
......@@ -49,7 +50,7 @@ d3 $ g2
d5 $ g -- BREAKBEAT BUDDY
-- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
-- $ mask "<f!8 t!14 f f t!16>"
$ midiOn "^91" (mask "t(8,16)" . fast 2)
$ midiOn "^57" (mask "t(8,16)" . fast 2)
$ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]"))
......@@ -59,8 +60,8 @@ d5 $ g -- BREAKBEAT BUDDY
# pan 0.65
# midiG' "^83" 0 1.6
d4 $ g -- Bassline
$ midiOn "^89" (chop 8)
$ midiOff "^57" (mask "<f!8 t!8 f!4 t!12>")
$ midiOn "^76" (chop 8)
$ midiOff "^44" (mask "<f!8 t!8 f!4 t!12>")
-- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin
......@@ -69,7 +70,7 @@ d4 $ g -- Bassline
# "bassWarsaw"
# pan 0.3
# hpf (range 0 500 perlin)
# crushbus 41 (range 10 3.6 "^53")
# crushbus 41 (range 10 3.6 "^32")
# midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine)
# room 0.4
d6 $ g2-- Rhodes chords
......@@ -80,7 +81,7 @@ d6 $ g2-- Rhodes chords
- 24
)
# "FMRhodes1"
# modIndex (range 0 2 "^54")
# modIndex (range 0 2 "^34")
# midiG' "^82" 0 (slow 32 $ range 1.2 1.6 saw)
# sz 0.9
# att 0.93
......
......@@ -7,8 +7,8 @@ let width = pF "width"
let lagTime = pF "lagTime"
let filterRange = pF "filterRange"
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ midiOn "^41" (<| "k k k k*2")
$ midiOff "^41" (<| "k")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]"
......@@ -30,17 +30,17 @@ d3 $ gF1 $ gM -- Hats closed legers
# note "3"
|* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8")
d6 $ gF1 $ gM -- Hats closed legers
$ midiOff "^44" (mask "t(4,8,1)")
$ midiOff "^58" (mask "t(4,8,1)")
$ "h2ogmhh:5*8"
# legato 0.5
# note "<2!2 -1!2>"
# room 0.3 # sz 0.13 # dry 1.1
# gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM3
$ midiOn "^57" (chop 4)
$ midiOn "^89" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ midiOn "^76" (chop 4)
$ midiOn "^44" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
(# crushbus 41 (range 16 3.5 "^32"))
. (# lpf 2500) . (# room 0.2)
)
$ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
......@@ -50,7 +50,7 @@ d4 $ gF2 $ gM3
# gain 1.3
# att 0.02 # rel 4
# room 0.3 # sz 0.5
# octerbus 42 (range 0 0.95 "^33")
# octerbus 42 (range 0 0.95 "^52")
d7 $ gF3 $ gM3
-- $ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
$ note ("fs fs a <~!8 fs!8> <~!8 fs!8> <a!3 <b cs>>")
......@@ -68,10 +68,10 @@ d5 $ gF1 $ gM3
. (|- note 12)
. (ply 2)
. (# pan 0.8)
. (# modIndex (range 0 3 "^54"))
. (# modIndex (range 0 3 "^33"))
. (|* gain 1.1)
. (# cut 51)) ("FMRhodes1")
$ fix ((|* gain (range 1 0.3 "^34")) . (# cut 52)) "90s_synatm"
$ fix ((|* gain (range 1 0.3 "^53")) . (# cut 52)) "90s_synatm"
$ note ("<cs5 <a4 <d5 [d5@5 cs5 d5 cs5]>>>" + 12)
# "[FMRhodes1,90s_synatm:3]/4"
# cut 5
......
......@@ -22,7 +22,7 @@ d2 $ g
# midiG' "^79" 0 1.7
d6 --
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^58" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
......@@ -32,17 +32,17 @@ d6 --
)
# midiG' "^80" 0 1.6
d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ midiOn "^89" (fast "<2!3 4>")
$ midiOff "^57" (slow "<4 2>")
$ sometimesBy "^33" rev
$ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass
$ midiOn "^57" (mask "t(<2 2 3 <4 5 6 8>>,8)")
$ midiOn "^43" (mask "t(<2 2 3 <4 5 6 8>>,8)")
-- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
-- $ ("0.125" ~>)
$ superimpose (mask "t f" . (# cut 31) . (|- note 12))
......@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass
# sz 0.5
# midiG' "^81" 0 0.9
# room 0.5 # sz 0.5
# crushbus 31 (range 10 2 "^53")
# crushbus 31 (range 10 2 "^31")
d4 $ g -- Lead vangelis' synth
$ juxBy 0.8 (
struct "<t [t . t*2]>" . arp "up" . (|+ note (12
......
......@@ -25,7 +25,7 @@ d2 $ gDJF $ g
# midiG' "^79" 0 1.7
d6 --
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^58" (slow 2)
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
......@@ -33,10 +33,10 @@ d6 --
)
# midiG' "^80" 0 1.3
d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ midiOn "^89" (fast "<2!3 4>")
$ midiOff "^57" (slow "<4 2>")
$ sometimesBy "^33" rev
$ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
......@@ -44,7 +44,7 @@ d5 $ g -- Breakbeat
# midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass
$ gDJF
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ midiOn "^43" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ ("0.125" ~>)
$ slow 4
$ note (
......@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass
# room 0.6
# sz 0.5
# midiG' "^81" 0 0.9
# crushbus 31 (range 10 2 "^53")
# crushbus 31 (range 10 2 "^31")
d4 $ g -- Lead aigus
$ mask "<f!8 t!24 t!8 f!8 t!16>"
-- $ whenmod 8 7 (ply "1 4")
......@@ -68,8 +68,8 @@ d4 $ g -- Lead aigus
# cut 4
# room 0.2
# midiG' "^82" 0 1.25
# lesliebus 41 (range 0 2 "^54")
# lsizebus 42 (range 0.2 6.2 "^34")
# lesliebus 41 (range 0 2 "^32")
# lsizebus 42 (range 0.2 6.2 "^52")
d8 $ g -- Angels
$ juxBy 0.8 (sometimesBy "0 1" rev)
-- $ midiOff "^59" (mask "<f!32 t!32>")
......
......@@ -42,13 +42,13 @@ d4 $ g -- bassine
$ "loop" # n "<0!4 1!4>"
# midiG' "^81" 0 0.8
# pan 0.2
# crushbus 41 (range 10 1.5 "^53")
# crushbus 41 (range 10 1.5 "^32")
d5 $ g -- Looped Rhodes
$ "loop" # n "<3!3 4 3 4 4 5>"
# pan 0.8
# midiG' "^82" 0 1
# pan 0.75
# ampbus 101 (range 0.5 1.5 "^54")
# ampbus 101 (range 0.5 1.5 "^33")
# room 0.6 # dry 0.8
d6 $ g --
$ "hello"
......
......@@ -5,8 +5,8 @@ setcps (91/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k ~>")
$ midiOn "^41" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^41" (<| "<k ~>")
$ fix (|* gain 0.6) "jazz"
$ "[808bd:13,jazz]"
# gain 1.8
......@@ -22,13 +22,13 @@ d4 $ gF2 $ gM3
"<g3 d4 g3 bf3 g3 a3 g3 d3>" + (fast 4 $ arp "up" "<c'min'4!7 c'maj'4>")
)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# gain 1.4
d5 $ gF3 $ gM3 -- Handmade grinder piano
$ slow 2
$ note ("<[~ d5@2 c5@2 <bf4 bf4 f5 f5>@2 <c5 c5 ef4 ef5> <a4 <ef5 d5>>@8]>" )
# "FMRhodes2"
# modIndex (range 0 12 "^54")
# modIndex (range 0 12 "^33")
# gain 1.5
d12 $ gF3 $ "gfunk_lead:19/4" # cut 12 # room 0.4 # panbus 120 (slow 16 $ range 0.2 0.8 sine) # octersub 2.5
d10 $ gF3 $ "gfunk_lead:17/2" # cut 10 # pan 0.2 # gain 1.2
......@@ -43,7 +43,7 @@ d8 $ gF1 $ gM2
)
$ midiOff ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ chop 16
$ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ midiOn "^36" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
......
......@@ -64,7 +64,7 @@ d6 $ g -- Hello Parov! Piano
# cut 6
# midiG' "^81" 0.5 1.5
d7 $ g -- Hello Parov! Piano2
$ midiOn "^58" (|+| n ("0*<1!4 2!3 4 4 4 8 16>"
$ midiOn "^59" (|+| n ("0*<1!4 2!3 4 4 4 8 16>"
))
$ "mojo" # n "<6 7>"
# cut 7
......
......@@ -3,8 +3,8 @@ do
setcps (120/60/4)
d1 $ gF1 $ gM1
$ fix (# lpf 2000) "kick"
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" ((<| "k . ~ k ~ <~!3 k>") . fix (# silence) "kick")
$ midiOn "^41" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^41" ((<| "k . ~ k ~ <~!3 k>") . fix (# silence) "kick")
$ "[808bd:4,808bd:2,kick:4]"
# gain 1.51
# lpf 2000
......@@ -22,15 +22,16 @@ d3 $ gF1 $ gM2
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]")
$ midiOn "^44" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id
-- $ midiOn "^"
$ loopAt 4 $ chop 8
$ "sunny_bass" # n "<3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!15 4!16 5!16 6!16 3>"
# cut 4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# bandf 400
# gain 1.5
-- # gain 1.3
......
......@@ -39,14 +39,14 @@ d1 $ g
d2 $ g
$ mask "<f!8 t!8> <f!4 t!4> . t"
$ novaOn "^75" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
$ sometimesBy ("^43") (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ sometimesBy ("^42") (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2"
# s "snare:20"
# gM' 0 1.2 "^79"
# pan 0.3
d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
$ novaOn "^41" ( -- TECHNO bells!
$ novaOn "^43" ( -- TECHNO bells!
whenmod 4 3 (
sometimesBy "0!15 <0!4 1!4>" (# silence) .
sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) .
......@@ -54,10 +54,11 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
(|* gain 0.75) .
(>| "ho*8")
)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
$ novaOn "^44" (fast "<16!3 [16 8]> [8 <8!3 16>]") -- Running roll
$ s "drum:8"
# pan (slow 8 $ range 0.1 0.9 (sine + "^52"))
# pan (slow 8 $ range 0.1 0.9 (sine + "^31"))
# gM' 0 1 "^80"
# cut 3
d6 $ g -- Hit roll opposé drumroll
......@@ -75,7 +76,7 @@ d4 $ g
often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>")
. (|+ note 36)
. (# velocity (range 0.35 0.75 ("^34" + (fast 4 perlin/8))))
. (# velocity (range 0.35 0.75 ("^32" + (fast 4 perlin/8))))
. (|* velocity 1.1)
. (# room 0.2)
. (/ sustain 2)
......@@ -85,8 +86,9 @@ d4 $ g
$ note (melody)
# s "superpiano"
# gM' 0 1.1 "^82"
# velocity (range 0.35 0.60 ("^54" + (fast 4 perlin/8)))
# sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18"))
# velocity (range 0.35 0.60 ("^52" + (fast 4 perlin/8)))
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18"))
# room 0.4 # size 0.2
# pan 0.5
d5 $ g -- Basse + Sirene
......@@ -100,12 +102,12 @@ d5 $ g -- Basse + Sirene
. (-| note 12) -- 24 when crushed
. (# gM' 0.2 0.8 ((
"^81" -- gain bass
* (range 0.7 0.9 "^53") -- Modulated 5C
* (range 0.7 0.9 "^33") -- Modulated 5C
)
- (0.125 * "^57") -- When TECHNOPHILE
))
. (# crush (range 10 3
"^33"))
"^53"))
. (# room 0.5)
. (# size 0.8)
)
......@@ -115,21 +117,21 @@ d5 $ g -- Basse + Sirene
)
# s "supersaw"
# voice 0.15
# crush (range 10 2 "^33")
# gM' 0.2 0.8 ("^81" * (range 1 0.45 "^53")) -- Modulated 5C
# crush (range 10 2 "^53")
# gM' 0.2 0.8 ("^81" * (range 1 0.45 "^33")) -- Modulated 5C
# pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantome
$ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s")
$ sometimesBy (range 0 0.25 "^35") (stut 4 0.9 "s")
$ s "~ . cp*<1 1 2 1 1!3 2> ~"
# room 0.2
# sz (range 0.5 0.9 perlin)
# dry 1.05
# speed (range 0.125 1.25 "^35")
# speed (range 0.125 1.25 "^55")
# gM' 0 1 "^83"
# lpf 2000
# pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire
$ sometimesBy "^20" (
$ sometimesBy "^36" (
superimpose (const -- pistolets
$ someCyclesBy 0.25 ( -- réplique
off 0.5 (|+ gain 0.1)
......@@ -137,8 +139,9 @@ d8 $ g -- Gunfire
)
$ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho
$ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3)))
# gM' 0 1 "^56"
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d8's own control.
-- # speed (range 0.4 1 ("^56" + (slow 4 $ perlin/3)))
-- # gM' 0 1 "^56"
# cut 80
# dry 1.02
# pan (range 0.2 0.8 perlin)
......@@ -149,6 +152,7 @@ d8 $ g -- Gunfire
# begin (slow 4 "<0 0.2 0.5>")
# cut 8
# room 0.6 # size 0.4
# speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4))
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^19 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d8's own control.
-- # speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4))
# gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8
......@@ -19,7 +19,7 @@ d2 $ gF1 $ gM2
# pan 0.5
-- # lpf 4650
d3 $ gF1 $ gM2 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- $ midiOn "^76" ((ply 2) . (# pan "0.2 0.8 0.2 0.8"))
$ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
# "h2ogmsn:12"
......@@ -30,14 +30,14 @@ d3 $ gF1 $ gM2 -- Highest hats
-- # pan "<0.7!16 0.3!16>"
-- # pan 0.8
d4 $ gM3 $ gF2
$ midiOn "^57" (slice 4 "<0 1 2 3>*4")
$ midiOn "^89" (ply "2 <4 8>")
$ midiOn "^76" (slice 4 "<0 1 2 3>*4")
$ midiOn "^44" (ply "2 <4 8>")
$ chop 8 $ loopAt 4
$ "nujazz_bass125:1"
# cut 4
# pan 0.55
# room 0.3
# crushbus 41 (range 12 4.5 "^52")
# crushbus 41 (range 12 4.5 "^32")
# gain 1.4
d5 $ gM3 $ gF3
$ chop 8
......@@ -52,7 +52,7 @@ d7 $ gM3 $ gF3
$ loopAt 2
$ "nujazz_keys125" # n "<66!4 67!4>"
# cut 7
# octerbus 71 (range 0 0.5 "^55")
# octerbus 71 (range 0 0.5 "^35")
# pan 0.1
# gain 1.4
d11 $ gM3 $ gF3
......
......@@ -20,8 +20,8 @@ d2 $ gF1 $ gM2 $ double $ "~ s ~ s*<1!3 2>"
d3 $ gF1 $ gM2 $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h h? h*<1!3 2>"
# "ho:1" # gain 0.5 # cut 3
d4 $ gF2 $ gM3
$ midiOn "^89" (loopAt "<0.5!7 0.25>")
$ midiOn "^57" (# n "<3!8 4!8>")
$ midiOn "^76" (loopAt "<0.5!7 0.25>")
$ midiOn "^44" (# n "<3!8 4!8>")
$ chop 8
$ loopAt 2
$ "menthe" # n "<2!16 5!16>"
......
......@@ -88,13 +88,13 @@ d4 $ g -- bassine
$ "loop" # n "<0!4 1!4>"
# midiG' "^81" 0 0.8
# pan 0.2
# crushbus 41 (range 10 1.5 "^53")
# crushbus 41 (range 10 1.5 "^32")
d5 $ g -- Looped Rhodes
$ "loop" # n "<3!3 4 3 4 4 5>"
# pan 0.8
# midiG' "^82" 0 1
# pan 0.75
# ampbus 101 (range 0.5 1.5 "^54")
# ampbus 101 (range 0.5 1.5 "^33")
# room 0.6 # dry 0.8
d6 $ g --
$ "hello"
......
......@@ -41,18 +41,18 @@ d4 $ f2
(# cut 4)
. (|+| note ("12 <7!3 9>" - 12))
)
$ midiOn "^57" (chop 8)
$ midiOn "^76" (chop 8)
$ note "<d4 d4 e4 f4 d4 d4 g4 f4>"
# "supersaw"
# octave 4
# voice 0.05
# crushbus 4 (range 16 2 "^53")
# crushbus 4 (range 16 2 "^32")
# midiG' "^81" 0 1.3
d5 $ f2
$ note "<d'min d'min d'7sus2 d'min d'min d'min d'7sus2 d'min d'7sus2 d'7sus2 d'min d'7sus2 d'min d'min d'7sus2 d'min>"
# "FMRhodes1"
# modIndex (range 0.1 32 "^54")
# crushbus 5 (range 10 2 "^34")
# modIndex (range 0.1 32 "^33")
# crushbus 5 (range 10 2 "^53")
# midiG' "^82" 0 1.8
# pan 0.8
......
......@@ -6,18 +6,18 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ g1 $ gM
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k> . <~!16 k!16> <~!8 k!8> <~ k ~ k> <~ k>")
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^41" (<| "k ~ ~ <~!3 k> . <~!16 k!16> <~!8 k!8> <~ k ~ k> <~ k>")
$ "[jazz,tech]"
# pan 0.4
# midiG' "^78" 0 1.9
d2 $ g1 $ gM
$ midiOn "^43" (id
$ midiOn "^42" (id
. (midiOn "^75" (ply 4 . chop 4 . (# cut 21)))
. loopAt 2
. (# "breaks165")
. struct "t")
$ midiOff "^43" (
$ midiOff "^42" (
mask "t(<32 16 [32 16] 8 16 8 [8 4] [16 32]>,32)"
. chop 32
. loopAt 1
......@@ -32,7 +32,7 @@ d4 $ g2 $ gMask
$ chop 4
$ loopAt 4
$ "bass_atari:2"
# crushbus 41 (range 16 2.4 "^53")
# crushbus 41 (range 16 2.4 "^32")
# lpf 2000
# cut 4
# midiG' "^81" 0 1.3
......@@ -44,7 +44,7 @@ d5 $ g2 -- ACID RAIN
$ "synth_commodore:1"
# pan 0.2
# cut 5
# crushbus 51 (range 16 4 "^54")
# crushbus 51 (range 16 4 "^33")
# midiG' "^82" 0 1.5
d6 $ g2 -- Good news
$ slice 8 (slow 8 $ run 8)
......@@ -63,7 +63,7 @@ d7 $ gMask $ g2 -- Everyone <3
# legato 2
# room 0.85 # dry 1
# sz 0.8
# squizbus 71 (range 0 8 "^56")
# squizbus 71 (range 0 8 "^35")
# delay 0.8 # delayfb 0.25 # delayt 0.5
# pan 0.99
# orbit 5
......
......@@ -24,7 +24,7 @@ d1 $ g
# gM' 0 1.4 "^78"
d2
$ g
$ midiOn "^41" (fast 2)
$ midiOn "^42" (fast 2)
$ "hh27*8" # n "[1|4]*8"
# room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin)
# gM' 0.5 1.5 "^79"
......@@ -52,16 +52,17 @@ d6 $ g -- Guitar riffs
$ note 2 -- correction
# "punk"
# cut 6
# lpq (range 0 0.125 "^17")
# attack (range 0.5 1 "^33")
# crush (range 12 1.75 "^53")
# lpq (range 0 0.125 "^34")
# attack (range 0.5 1 "^54")
-- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d6's own control.
-- # crush (range 12 1.75 "^53")
# pan 0.9
# room 0.3
# sz 0.9
# gM' 0.4 1.5 "^81"
d4 -- Rhodes base + chords
$ g
$ midiOn "^58" (superimpose ( -- ARPS <3
$ midiOn "^76" (superimpose ( -- ARPS <3
(|+ note 12)
. sometimesBy "0 0.5!7" rev
. fast "1 2"
......@@ -78,7 +79,7 @@ d4 -- Rhodes base + chords
# "FMRhodes1"
# modIndex "[0,5,10]"
# pan 0.6
# crush (range 10 4 "^54")
# crush (range 10 4 "^32")
# gM' 0.3 1.9 "^82"
d5 $ g -- Choirs + arps
$ juxBy "-0.7" (
......@@ -90,20 +91,20 @@ d5 $ g -- Choirs + arps
$ "moogBass"
# note (prog + "[0,24]")
# octave 3
# gM' 0.3 1.5 "^56"
# gM' 0.3 1.5 "^33"
# pan 0.2
# chorus 0.6
d8 $ g -- Electrified laggy moog
$ midiOn "^91" (ply 2)
$ midiOn "^59" (
$ midiOn "^92" (ply 2)
$ midiOn "^60" (
(# lpf 2000)
. (# lpq (slow 16 $ range 0 0.15 perlin))
)
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ midiOn "^92" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 12")
# "moog"
# cut 8
# crush (range 16 4 "^55")
# crush (range 16 4 "^36")
# gM' 0 1.8 "^83"
# release 100
d9 $ g
......
......@@ -9,8 +9,8 @@ let slowdown = (midiOff "^41" (slow 2))
let g = gDJF
d1 $ g
$ slowdown
$ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL
$ midiOff "^42" (<| "k . ~ k ~ ~") -- Attente
$ midiOn "^41" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL
$ midiOff "^41" (<| "k . ~ k ~ ~") -- Attente
$ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition
$ "kick:5"
# midiG "^78"
......@@ -27,7 +27,7 @@ d10
# n "[10,12]"
# midiG "^79"
d3 $ g -- Bassline + arps
$ midiOn "^57" (superimpose (
$ midiOn "^43" (superimpose (
(|+| note (
"0 [12 <12 7>]*<2!4 2 4 4 8>" +
"12" -- Base
......@@ -41,12 +41,12 @@ d3 $ g -- Bassline + arps
# cut 3
# pan 0.2
# room 0.13
# crushbus 31 (range 10 1.5 "^53")
# crushbus 31 (range 10 1.5 "^31")
d4 $ g -- Synth disto baseline
$ "poesieSynth/2"
# n (slow 4 "<0 1>")
# midiG' "^82" 0 0.95
# crushbus 41 (range 10 3.5 "^54")
# crushbus 41 (range 10 3.5 "^32")
# cut 4
# pan 0.8
# room 0.4
......@@ -62,7 +62,7 @@ d5 $ g -- Riff guitaresque
$ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>")
# "poesieBass:1"
# cut 4
# crushbus 51 (range 10 1.5 "^55")
# crushbus 51 (range 10 1.5 "^33")
# pan 0.7
# midiG "^83"
d8 -- Voices
......@@ -81,8 +81,8 @@ d8 -- Voices
$ loopAt 4
$ "poesieVoice:1"
# midiG' "^84" 0 0.75
# crushbus 81 (range 5 1.5 "^56")
# distortbus 82 (range 1 2 "^36")
# crushbus 81 (range 5 1.5 "^36")
# distortbus 82 (range 1 2 "^56")
# pan "0.25 0.75"
# room 0.4
# cut 8
......@@ -6,8 +6,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
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]"))
$ midiOff "^42" (<| "k . <~!4 k!4 k(3,8)!8>")
$ midiOn "^41" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
$ midiOff "^41" (<| "k . <~!4 k!4 k(3,8)!8>")
$ "[rootsDrums:0,rootsDrums:4]"
-- $ "[techno,jazz,kick:5]*4"
# midiG' "^78" 0 1.5
......@@ -15,10 +15,10 @@ d3 $ gF1 $ gM
$ "[~ drum:2]*8"
# midiG' "^80" 0 1.5
d4 $ gF2 $ gM3
$ midiOff "^57" ((slow 2) . ( # room 0.5))
$ midiOff "^44" ((slow 2) . ( # room 0.5))
$ note (lineTeng)
# "rootsBass"
# crushbus 41 (range 16 2.5 "^53")
# crushbus 41 (range 16 2.5 "^32")
# end 0.35 # room 0.3
# legato 2 # gain 1.9 # cut 1
# midiG' "^81" 0 1.5
......@@ -26,6 +26,6 @@ d8 $ gF1
$ midiOn "^92" (ply "1 2")
$ midiOn "^60" (slice 16 (run "<16!8 [16 8]!7 [8 16]> <16!3 <32 [8 32]>>") )
$ chop 8
$ (someCyclesBy "^20" (# n "21"))
$ (someCyclesBy "^36" (# n "21"))
$ "jungle_breaks:33"
# midiG' "^84" 0 1.5
......@@ -24,26 +24,26 @@ d3 $ gF1 $ gM
# pan (0.4 + 0.2 * (slow 4 perlin))
d4 $ gF2 $ gM
-- $ note (slow 2 $ lineGoodLife) # "bassWarsaw"
$ midiOn "^89" (|+ note "c'minPent'2")
$ midiOn "^57" (<| note lineAround3)
$ midiOff "^57" (<| note (cat [lineAround0, lineAround1, lineAround2, lineAround3]))
$ midiOn "^44" (|+ note "c'minPent'2")
$ midiOn "^76" (<| note lineAround3)
$ midiOff "^76" (<| note (cat [lineAround0, lineAround1, lineAround2, lineAround3]))
$ "bassWarsaw"
# octave 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
# room 0.4
-- # delayfb 0.8 # delayt 0.25
# gain 0.7
# pan 0.3
d5
$ midiOn "^90" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ midiOn "^89" (sometimesBy "0 1" rev)
$ midiOn "^57" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "FMRhodes1" # modIndex 2.85
# pan 0.7
d8 $ gF3
$ midiOn "^20" (# n "20")
$ midiOn "^92" ((# pan 0.4) . (# n "19"))
$ midiOn "^36" (# n "20")
$ midiOn "^60" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
-- $ whenmod 4 3 (slice 4 ("0 1 2 3*4"))
$ loopAt 2 $ chop 8
......
......@@ -3,16 +3,16 @@ setcps (105/60/4)
d1
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "popkick:2"
# lpf 300
-- # cut 1
# gain 2
-- # cps ((quantise 1 (range 60 180 "^29"))/60/4)
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ midiOff "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0]"
-- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
......@@ -54,7 +54,7 @@ d5 $ gF2 $ gM3
+ (arp "up" "c'maj'4 c'maj'4")
)
# "FMRhodes1"
# modIndex (range 0 16 "^54")
# modIndex (range 0 16 "^33")
# gain 1.3
# cut 5
# room 0.3
......@@ -71,7 +71,7 @@ d4 $ gF2 $ gM3
)
-- # "moog:1"
# "bassWarsaw" |- note 36
# crushbus 41 (range 16 3.5 "^53")
# crushbus 41 (range 16 3.5 "^32")
# pan 0.4
# cut 4
# gain 1.5
......@@ -82,14 +82,14 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:13" # cut 4
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# crushbus 51 (range 16 3.5 "^33")
# pan 0.9
# room 0.3
d7 $ gF3 $ gM3 $ "trance_amb:0/2" # cut 7
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
......
......@@ -46,7 +46,7 @@ d5 $ gF3 $ gM3
# room 0.4 # sz 0.6 # dry 1.1
# octersub 1.4
d7 $ gF3 $ gM3
$ midiOn "^57" (>| n "<~ ~ 8 ~>")
$ midiOn "^59" (>| n "<~ ~ 8 ~>")
$ n "<<3 4 5 <6 7>> ~ <3 ~> ~>"
# "superfreak"
# cut 7
......
......@@ -11,8 +11,8 @@ d1 $ gM1 $ gF1 $ "k k k <k!3 <k*2 [~ k]>>"
# midiG' "^78" 0 1
d2 $ gM $ gF1 -- Snare be there
-- $ mask "<f!16 t!48>"
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~!3 [~ c]> . c" )
$ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^42" (<| "~ <~!3 [~ c]> . c" )
$ "[cp,h2ogmsn:1]"
# lpf 4000 # note "-2"
# room 0.4 # sz 0.3 # dry 1.0
......@@ -23,9 +23,9 @@ d3 $ gM $ gF1 -- Runnin' ones
# midiG' "^80" 0 1.4
# pan 0.43
d4 $ gF2 $ gM3 -- SICK BURN
$ midiOn "^89" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4))
$ midiOn "^44" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4))
$ superimpose (
(# crushbus 42 (range 16 2 "^53"))
(# crushbus 42 (range 16 2 "^32"))
. (# cut 41)
)
$ loopAt 2 $ slice 2 "<0 1>"
......@@ -41,7 +41,7 @@ d5 $ gM $ gF3
# pan 0.97
# room 0.2
-- # cru
# midiG' "^20" 0 1.4
# midiG' "^33" 0 1.4
d7 $ gF3 -- Marimba à la mode
$ note "<[gs ~ ef gs gs ~ ef gs ~ ef gs ~ ef@2 ~ e] [<~ <gs5 gs4>>]>"
# "modalMarimba"
......@@ -49,10 +49,10 @@ d7 $ gF3 -- Marimba à la mode
# pan 0.9
# att 0.5
# rel 2
# position (range 0.96 0.414 "^54") -- 0.414
# decaycoeff (range 0 4 "^34")
# position (range 0.96 0.414 "^35") -- 0.414
# decaycoeff (range 0 4 "^55")
# midiG' "^82" 0 1.4
# amp (range 0 1.3 ("^82" - 0.2 * "^54"))
# amp (range 0 1.3 ("^82" - 0.2 * "^35"))
d8 $ gF1 $ gM -- Break the dance || Dance the break
$ midiOn "^92" (ply "<2!3 <4 8>>")
$ whenmod 8 7 (striate "1!3 [4 8]")
......
......@@ -25,24 +25,24 @@ d4 $ gF2 $ gM3
$ midiOn "^76" (ply "4 4 8 <8 [8 16]>")
$ "<low_love ~>" # "love_parade:2"
# room 0.4 # gain 1.3 # octersub 1.2
# crushbus 41 (range 16 2.5 "^52")
# crushbus 41 (range 16 2.5 "^32")
d5 $ gF3 $ gM3 -- L'AMOUR se PARADE
$ midiOn "^57" (ply 2 . slice 4 "<0 1 2 3>")
$ midiOn "^89" (ply "<2 2 4 <4 8>>")
$ midiOn "^89" (ply 2 . slice 4 "<0 1 2 3>")
$ midiOn "^57" (ply "<2 2 4 <4 8>>")
$ loopAt 2
$ n "<<0 1>>" # "love_parade"
# cut 5
# octerbus 51 (range 0 0.95 "^53")
# octersubbus 52 (range 0 1.95 "^33")
# octerbus 51 (range 0 0.95 "^33")
# octersubbus 52 (range 0 1.95 "^53")
# pan 0.7
d6 $ gF3 $ gM3 -- Double Amour
$ midiOn "^58" (ply 4 . chop "8 4")
$ midiOn "^90" (ply "<2 2 4 <4 8>>")
$ midiOn "^90" (ply 4 . chop "8 4")
$ midiOn "^58" (ply "<2 2 4 <4 8>>")
$ loopAt 2
$ n "<<3 4>>" # "love_parade"
# cut 6
# octerbus 61 (range 0 0.95 "^54")
# octersubbus 62 (range 0 1.95 "^34")
# octerbus 61 (range 0 0.95 "^34")
# octersubbus 62 (range 0 1.95 "^54")
# pan 0.3
# gain 1.5
d8 $ gF1 $ gM2 -- The Right Breaks :tm:
......
......@@ -7,9 +7,9 @@ d2 $ gF1 $ gM2 $ "~ rampleM9:6"
-- # lpf 3000
d3 $ gF1 $ gM2 $ "dr*<8 <12 12 [12 6] [12 <8 16>]>>"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ midiOn "^76" (ply 8)
$ superimpose (
(# crushbus 41 (range 16 3.6 "^53"))
(# crushbus 41 (range 16 3.6 "^32"))
. (|- note 12)
. (|* gain 1.2)
. (# hpf 500)
......@@ -18,11 +18,11 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# room 0.4 # sz 0.4 # dry 0.4
# delayt "e" # delay 0.5 # delayfb 0.3
# octersubbus 42 (range 0 0.8 "^33")
# octersubsubbus 43 (range 0 1.2 "^33")
# octersubbus 42 (range 0 0.8 "^52")
# octersubsubbus 43 (range 0 1.2 "^52")
d5 $ gF3 $ gM3
$ whenmod 32 16 (iter (slow 4 "<1 4 [1 4] [4 1]>"))
$ midiOn "^58" (striate 16)
$ midiOn "^89" (striate 16)
$ "medieval:210"
# cut 4
# room 0.4 # sz 0.8 # dry 0.1
......
......@@ -18,23 +18,23 @@ d3 $ gF1
# room 0.2 # dry 1
# pan (0.4 + 0.2 * (slow 4 perlin))
d4 $ gF2
$ midiOn "^89" (|+ note "c'minPent'2")
$ midiOn "^44" (|+ note "c'minPent'2")
$ note (slow 2 $ lineGoodLife) # "bassWarsaw"
# octave 4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^52")
-- # delayfb 0.8 # delayt 0.25
# gain 0.9
# pan 0.3
d5 -- FIXME WORKS WITH AROUND NOT GOOD
$ midiOn "^90" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ midiOn "^89" (sometimesBy "0 1" rev)
$ midiOn "^57" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "moogBass"
-- # midiG' "^82" 0 1.6
d8 $ gF3
$ midiOn "^92" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
$ midiOn "^60" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^36" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
-- $ whenmod 4 3 (slice 4 ("0 1 2 3*4"))
$ loopAt 2 $ chop 8
$ n "20" # "jungle_breaks"
......
......@@ -27,8 +27,8 @@ let keyboard = "FMRhodes1"
setcps (110/60/4)
d1 $ g
-- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
$ novaOff "^42" (<|"k . ~ k ~ ~")
$ novaOn "^42" (<| "k k k <k!3 k*2>")
$ novaOff "^41" (<|"k . ~ k ~ ~")
$ novaOn "^41" (<| "k k k <k!3 k*2>")
$ "[jazz,cpu2,kick:5]"
-- # gM' 0 1.2 "^78"
d2 $ g
......@@ -42,12 +42,12 @@ d2 $ g
# lpf 2000
-- # gM' 0.2 0.9 "^79"
d3 $ g
$ novaOn ("^76") --BOUTON NASSIM
$ novaOn ("^43") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125")
. (|* gain 0.9)
)
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw))
$ novaOff "^43" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]"
-- # gM' 0 1.25 "^80"
......@@ -93,14 +93,14 @@ d7 $ g
-- # gM' 0 1.1 "^83"
# room 0.2
d8 $ g
$ novaOn "^90" (superimpose (chop 16))
$ novaOn "^58" (+ note (slow 4 "<0 12>"))
$ novaOn "^60" (superimpose (chop 16))
$ novaOn "^92" (+ note (slow 4 "<0 12>"))
$ note ("<c3 c3 g3 gs3>")
# "bassWarsaw"
# voice (range 0.1 2 "^34")
# voice (range 0.1 2 "^36")
# room 0.6 # sz 0.2
-- # gM' 0.4 1 "^82"
# crush (range 12 3.6 "^54")
# crush (range 12 3.6 "^56")
......
......@@ -9,8 +9,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF1 -- . gFilter
let g2 = gDJF2 -- . gFilter2
d1 $ g
$ midiOn "^42" (<| "k k k <k!3 [<k ~> k]>" )
$ midiOff "^42" (<| "k <~!4 k!4>")
$ midiOn "^41" (<| "k k k <k!3 [<k ~> k]>" )
$ midiOff "^41" (<| "k <~!4 k!4>")
$ "[909,bd:2]"
# lpf 2500
# midiG' "^78" 0 1.3
......@@ -28,7 +28,7 @@ d4 $ g
$ struct "t . t(3,8)"
$ note ("d3 bf2 c3 <g2!3 f3>")
# "bassWarsaw"
# crushbus 41 (range 5 3.6 "^53")
# crushbus 41 (range 5 3.6 "^32")
# midiG' "^81" 0 1.45
# lpf 4000
# room 0.4 # sz 0.8
......@@ -37,7 +37,7 @@ d5 $ g
(# room (slow 16 $ range 0 0.8 saw))
. (# legato (slow 16 $ range 1 "s" saw))
)
$ degradeBy ("0 0.15!15 0" * "^54")
$ degradeBy ("0 0.15!15 0" * "^33")
$ note (
"d3*[1|2] bf2*<1 <0 2>> c3 <g2!3 f3>"
+ (fast 4 $ arp "up" "<c'maj'4!32 c'maj'4!24 c'maj'8!8>")
......@@ -57,7 +57,7 @@ d6
)
# "laserbeam"
# room 0.4 # sz 0.8
# crushbus 41 (range 16 3.6 "^55")
# crushbus 41 (range 16 3.6 "^34")
# midiG' "^83" 0.2 1.45
d7
$ g
......@@ -116,6 +116,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF1 -- . gFilter
let g2 = gDJF2 -- . gFilter2
d1 $ g
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
-- $ mask "<t!16 f!4 t!12>" -- First break
......@@ -153,8 +155,8 @@ d5 $ g -- BREAKBEAT BUDDY
# pan 0.65
# midiG' "^83" 0 1.6
d4 $ g -- Bassline
$ midiOn "^89" (chop 8)
$ midiOff "^57" (mask "<f!8 t!8 f!4 t!12>")
$ midiOn "^76" (chop 8)
$ midiOff "^44" (mask "<f!8 t!8 f!4 t!12>")
-- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin
......@@ -163,7 +165,7 @@ d4 $ g -- Bassline
# "bassWarsaw"
# pan 0.3
# hpf (range 0 500 perlin)
# crushbus 41 (range 10 3.6 "^53")
# crushbus 41 (range 10 3.6 "^32")
# midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine)
# room 0.4
d6 $ g2-- Rhodes chords
......
......@@ -10,8 +10,8 @@ let g2 = (gDJF2)
let m = mBreak . mBreakManual
d1 $ g1
$ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8))))
$ midiOn "^42" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
$ midiOff "^42" ((<| "k . ~ k ~ ~") . m)
$ midiOn "^41" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
$ midiOff "^41" ((<| "k . ~ k ~ ~") . m)
$ "[jazz,cpu]"
# midiG' "^78" 0 1
d2 $ g1 $ m
......@@ -23,7 +23,7 @@ d3 $ g2 $ m
# midiG' "^51" 0 0.9
# pan 0.8
d4 $ g2 $ m
$ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52"))
$ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^32"))
$ midiOn "^76" rev
$ whenmod 8 7 rev
$ slice 8 ("0 1 2 3" + "<0!3 4>")
......@@ -34,14 +34,14 @@ d5 $ g2 $ m
# "moog"
# cut 5
# pan 0.2
# crushbus 50 (range 10 2.1 "^53")
# crushbus 50 (range 10 2.1 "^33")
# midiG' "^81" 0 1.4
d6 $ g2 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# "pluck:5"
# cut 6
# att 0
# rel (0.25 + 0.1 * perlin)
# crushbus 60 (range 10 1.9 "^54")
# crushbus 60 (range 10 1.9 "^34")
# pan 0.8
# room 0.4
# midiG' "^82" 0 0.8
......
......@@ -19,14 +19,14 @@ once $ "dr"
do
setcps (80/60/4)
d1 $ gF1 $ gM1
$ superimpose ((|* gain (1.3 * "^30")) . (# "hardkick:2"))
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ superimpose ((|* gain (1.3 * "^29")) . (# "hardkick:2"))
$ midiOn "^41" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "kick:5"
# lpf 200
d2 $ gF1 $ gM2
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s")
$ midiOn "^42" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^42" (<| "~ s")
$ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
$ "[snare:2,snare:10]"
# octer 0.1
......@@ -45,9 +45,10 @@ d4 $ gF2 $ gM3 $ note (
- 24
)
# "bassWarsaw"
# octerbus 43 (range 0 1.5 "^17")
# squizbus 42 (range 0 2.5 "^33")
# crushbus 41 (range 16 3.5 "^53")
# octerbus 43 (range 0 1.5 "^32")
# squizbus 42 (range 0 2.5 "^52")
-- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 3.5 "^53")
# room 0.3 # sz 0.6 # dry 0.5
d5 $ gF3 $ gM3
$ note (
......@@ -57,16 +58,17 @@ d5 $ gF3 $ gM3
)
# "giorgio_syn:24"
# legato 2
# squizbus 51 (slow 16 $ range 0 (range 0 4 "^54") saw)
# squizbus 51 (slow 16 $ range 0 (range 0 4 "^33") saw)
# crushbus 52 (range 16 2.5 "^53")
# gain 0.8
# pan (slow 8 $ range 0.8 0.6 saw)
# cut 5
d8 $ gF1 $ gM2
$ chop 16
$ midiOn "^20" (loopAt 4)
$ midiOff "^20" (loopAt 1)
$ midiOn "^36" (# "jungle_breaks:14")
$ midiOn "^36" (loopAt 4)
$ midiOff "^36" (loopAt 1)
-- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (# "jungle_breaks:14")
$ midiOn "^56" (# "jungle_breaks:15")
$ midiOn "^92" (ply "<2!3 [4!3 8]>")
$ loopAt 2
......
......@@ -5,8 +5,8 @@ let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (83/60/4)
d1 $ g
$ fix (|* gain 0.8) "jazz"
$ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
$ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
$ midiOn "^41" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
$ midiOff "^41" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
$ "[808bd:4,jazz]"
# room 0 # sz 0
# midiG' "^78" 0 1.2
......@@ -17,7 +17,8 @@ d2 $ g -- Snare contretemps
# "snare:42"
# midiG' "^79" 0 1.3
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2)
$ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>"
$ "[amencutup]*8"
......@@ -31,7 +32,7 @@ d4 $ g2
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
)
# "FMRhodes1"
# modIndex (range 0 32 "^54")
# modIndex (range 0 32 "^32")
# pan 0.8
# midiG' "^82" 0 1.8
d5 $ g2 -- Programmatic bass robot
......@@ -47,7 +48,7 @@ d5 $ g2 -- Programmatic bass robot
)
# "bassWarsaw"
# pan 0.2
# crushbus 51 (range 16 4 "^53")
# crushbus 51 (range 16 4 "^33")
# room 0.6 # dry 1 # sz 0.83
# legato 8 # cut 5
# midiG' "^81" 0 0.98
......
......@@ -29,11 +29,12 @@ d3 $ g -- Snare contretemps rushé
$ "~ snare"
# room 0.2
# dry 1
# speed (range 0.5 1.5 "^52")
# speed (range 0.5 1.5 "^31")
# n "[11,25]"
# midiG' "^79" 0 1.4
d2 $ g -- BREAK
$ midiOn "^44" (sometimesBy "0 1!7" rev)
$ midiOn "^42" (sometimesBy "0 1!7" rev)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^76" (ply 4)
$ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
$ slice 8 (
......@@ -48,15 +49,15 @@ d2 $ g -- BREAK
# cut 2
d7 $ g -- Hello PWM!
$ (|* gain "<1!15 0.8>")
$ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^89" (superimpose $ segment 16)
$ midiOn "^91" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^59" (superimpose $ segment 16)
$ note (mel - 12)
# "superpwm"
# semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
# accelerate "<0!7 <6 12>>"
# rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53")
# crushbus 71 (range 10 3 "^35")
# midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes
$ note (
......@@ -67,8 +68,8 @@ d6 $ g -- Nappes Rhodes
# "FMRhodes1"
# pan 0.7
# room 0.5
# modIndex (range 0 100 "^54")
# crushbus 61 (range 16 4.85 "^34")
# modIndex (range 0 100 "^34")
# crushbus 61 (range 16 4.85 "^54")
# midiG' "^82" 0 1.5
d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>")
......
......@@ -501,6 +501,16 @@ def rewrite(path: Path, res: dict) -> tuple[int, list[str]]:
for anchor, fixme, hits, note in sorted(edits, key=lambda e: e[0], reverse=True):
for i in sorted(hits, reverse=True):
stripped = lines[i - 1].rstrip("\n")
# NEVER comment a comment. `hits` filters commented lines, but
# `segment()` then EXPANDS to the whole chain so the closing parens
# of a multi-line step are not left dangling — and that expansion
# swallows any comment inside the step, including this tool's own
# FIXME from the last run. Result on the corpus pass: 18 lines grew
# a second `--`, three grew a third, and two FIXME warnings were
# commented out by the tool that wrote them. A warning the tool
# hides on its next run is worse than no warning.
if stripped.lstrip().startswith("--"):
continue
indent = stripped[: len(stripped) - len(stripped.lstrip())]
nl = "\n" if lines[i - 1].endswith("\n") else ""
lines[i - 1] = f"{indent}-- {stripped.lstrip()}{nl}"
......
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