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 ...@@ -7,7 +7,7 @@ d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]" $ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
d2 $ gF d2 $ gF
$ midiOn "^43" (fast "<2!3 <4 [4 8]>>") $ midiOn "^42" (fast "<2!3 <4 [4 8]>>")
$ "~ snare" # n "[22,26]" $ "~ snare" # n "[22,26]"
# midiG' "^79" 0 1.5 # midiG' "^79" 0 1.5
# room 0.8 # dry 1 # room 0.8 # dry 1
...@@ -18,7 +18,7 @@ d3 $ gF $ n (stack [ ...@@ -18,7 +18,7 @@ d3 $ gF $ n (stack [
# "amencutup" # "amencutup"
# midiG' "^80" 0 1.2 # midiG' "^80" 0 1.2
d4 $ gF2 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 $ chop 16
$ whenmod 32 24 (iter "1 4") $ whenmod 32 24 (iter "1 4")
-- $ superimpose ((|+ note 12) . (# cut 41)) -- $ superimpose ((|+ note 12) . (# cut 41))
...@@ -27,17 +27,17 @@ d4 $ gF2 ...@@ -27,17 +27,17 @@ d4 $ gF2
$ chop 8 $ chop 8
$ "bass_commodore:6" # cut 4 $ "bass_commodore:6" # cut 4
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.2
# crushbus 41 (range 16 1.2 "^53") # crushbus 41 (range 16 1.2 "^32")
d7 $ gF2 -- ACID BUS 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")) $ midiOn "^91" (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>") $ midiOff "^91" (slice 8 "<0 1 2 3>")
$ loopAt 8 $ "synth_commodore:0" $ loopAt 8 $ "synth_commodore:0"
# midiG' "^82" 0 1.2 # midiG' "^82" 0 1.2
# cut 7 # cut 7
d8 $ gF 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 $ "90s_synatm:1" # lpf 2000
# lpq (slow 32 $ range 0 0.4 saw) # lpq (slow 32 $ range 0 0.4 saw)
# cut 8 # midiG' "^83" 0 1 # cut 8 # midiG' "^83" 0 1
# room 0.2 # room 0.2
# crushbus 82 (range 16 1.2 "^35") # crushbus 82 (range 16 1.2 "^56")
...@@ -19,8 +19,8 @@ d4 $ gF2 $ gM3 ...@@ -19,8 +19,8 @@ d4 $ gF2 $ gM3
$ note "d2" $ note "d2"
# "bassWarsaw" # "bassWarsaw"
# legato 2 # legato 2
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^52")
d5 $ note ( d5 $ note (
scale "indian" ( scale "indian" (
"c e g e c" -- notes within scale "c e g e c" -- notes within scale
......
...@@ -7,12 +7,14 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -7,12 +7,14 @@ let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF let g = gDJF
d1 $ g d1 $ g
$ midiOn "^73" (fast 2) $ midiOn "^73" (fast 2)
$ midiBoth "^41" "^42" (struct "t t t <t <[~ t] 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.
$ midiOn "^42" (struct "t*2") $ midiBoth "^41" "^41" (struct "t t t <t <[~ t] t*2>>")
$ midiOn "^41" (struct "t*2")
$ "jazz" $ "jazz"
# midiG' "^78" 0 1 # midiG' "^78" 0 1
d2 $ g 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) $ midiOn "^41" (fast 2)
$ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp" $ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp"
# note "-4!7 -2" # note "-4!7 -2"
...@@ -31,23 +33,23 @@ d3 $ g ...@@ -31,23 +33,23 @@ d3 $ g
d4 $ g d4 $ g
$ "90s_glassatm:3/4" $ "90s_glassatm:3/4"
# cut 4 # cut 4
# crushbus 41 (range 16 3.5 "^55") # crushbus 41 (range 16 3.5 "^32")
# midiG' "^83" 0 1 # midiG' "^83" 0 1
d5 $ g d5 $ g
$ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05)) $ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05))
$ "90s_matrix:0/2" $ "90s_matrix:0/2"
# midiG' "^84" 0 1 # midiG' "^84" 0 1
# crushbus 51 (range 10 1.5 "^56") # crushbus 51 (range 10 1.5 "^33")
# pan 0.7 # pan 0.7
d6 $ g d6 $ g
-- $ slow 2 -- $ slow 2
$ fix (|* gain 0.93) (note "c6") $ 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 ("<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 ("<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 $ 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 # octave 2
# "supersaw" # "supersaw"
# voice 0.01 # voice 0.01
# crushbus 61 (range 16 1.5 "^53") # crushbus 61 (range 16 1.5 "^34")
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
...@@ -11,6 +11,7 @@ let sus = pF "sus" ...@@ -11,6 +11,7 @@ let sus = pF "sus"
let cutoff = pF "cutoff" let cutoff = pF "cutoff"
d1 $ gF1 $ gMute -- la Conviction d1 $ gF1 $ gMute -- la Conviction
$ midiOn "^41" (<| "k k k <k!3 k*2>") $ 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)>") $ midiOn ("^42" - "^41") (<| "<k k(<3!3 [3 5]>,8)>")
$ midiOff ("^41" + "^42") (<| "<k ~>") $ midiOff ("^41" + "^42") (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]" $ "[techno:0,808bd:2,909,kick:4]"
...@@ -23,7 +24,8 @@ d2 $ gF1 $ gM2 -- Snare décalé ...@@ -23,7 +24,8 @@ d2 $ gF1 $ gM2 -- Snare décalé
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
# pan 0.4 # pan 0.4
d3 $ gF1 $ gM -- La Pluie 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>") $ midiOn "^76" (ply "<2 4>")
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
...@@ -39,7 +41,7 @@ d5 $ gF2 -- La Basse intention ...@@ -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>") # note (slow 2 "<gs f g c gs f g c gs f g c c g f gs>")
# cut 5 # cut 5
# panbus 52 (slow 16 $ range 0.6 0.95 saw) # 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 # midiG' "^81" 0 1.2
d6 $ gF3 -- La Basse Réputation d6 $ gF3 -- La Basse Réputation
$ sometimesBy "^13" (# note "c") $ sometimesBy "^13" (# note "c")
...@@ -48,7 +50,7 @@ d6 $ gF3 -- La Basse Réputation ...@@ -48,7 +50,7 @@ d6 $ gF3 -- La Basse Réputation
$ "bassWarsaw" $ "bassWarsaw"
# octave 2 # octave 2
# chorus 0 # chorus 0
# crushbus 61 (range 16 2.5 "^54") # crushbus 61 (range 16 2.5 "^34")
# midiG' "^82" 0 1.2 # midiG' "^82" 0 1.2
# pan 0.3 # pan 0.3
# cut 6 # cut 6
...@@ -66,7 +68,7 @@ d7 $ gF3 -- Les anges arpèges ...@@ -66,7 +68,7 @@ d7 $ gF3 -- Les anges arpèges
# midiG' "^83" 0 0.8 # midiG' "^83" 0 0.8
# legato 1.25 # legato 1.25
d8 $ gF1 $ gM2 -- La Course d8 $ gF1 $ gM2 -- La Course
$ sometimesBy "^56" (iter 4) $ sometimesBy "^36" (iter 4)
$ midiOn "^92" ((ply "<2 [2|4]>") . chop "<8!3 16>") $ midiOn "^92" ((ply "<2 [2|4]>") . chop "<8!3 16>")
$ midiOn "^60" (chop 4 . (# "jungle_breaks:17")) $ midiOn "^60" (chop 4 . (# "jungle_breaks:17"))
$ midiOff "^60" ( $ midiOff "^60" (
......
...@@ -22,15 +22,16 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e" ...@@ -22,15 +22,16 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e"
# pan 0.4 # pan 0.4
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 $ g 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>" -- $ 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>") $ midiOn "^44" (ply "<1 2> <2 2 [2 4] 1>")
-- $ whenVerse (mask "t <t!3 f>") -- $ whenVerse (mask "t <t!3 f>")
-- $ whenVerse (mask "t <t!3 f>") -- $ whenVerse (mask "t <t!3 f>")
$ "[~ h]*4" # "[electro1,hh]" $ "[~ h]*4" # "[electro1,hh]"
# midiG' "^80" 0 1 # midiG' "^80" 0 1
d4 $ g d4 $ g
$ midiOn "^58" (# "lady_fx") $ midiOn "^44" (# "lady_fx")
$ whenIntro (# n "0") -- INTRO: AAAA` $ whenIntro (# n "0") -- INTRO: AAAA`
$ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC $ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC
$ whenChorus ( $ whenChorus (
...@@ -39,9 +40,9 @@ d4 $ g ...@@ -39,9 +40,9 @@ d4 $ g
$ "lady" $ "lady"
# cut 4 # gain 0.8 # cut 4 # gain 0.8
# pan 0.7 # pan 0.7
# ringbus 44 (range 0 1 "^17") # ringf 0.5 # ringbus 44 (range 0 1 "^32") # ringf 0.5
# relbus 42 (range 10 1 "^33") # sz 0.6 -- Room on low release # relbus 42 (range 10 1 "^52") # sz 0.6 -- Room on low release
# roombus 43 (range 0 0.4 "^33") # 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 # midiG' "^81" 0 0.8
d10 $ g d10 $ g
$ mask "<f!7 t>" -- DEBUG CUE every 8 -> Chorus<>VERSE $ mask "<f!7 t>" -- DEBUG CUE every 8 -> Chorus<>VERSE
......
...@@ -6,7 +6,7 @@ d1 $ gF1 $ "jazz*4" ...@@ -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 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 # midiG' "^79" 0 1.2
d3 $ gF2 d3 $ gF2
$ superimpose (# crushbus 31 (range 16 4 "^53")) $ superimpose (# crushbus 31 (range 16 4 "^31"))
$ note (slow 2 $ $ note (slow 2 $
-- FIX TUNE https://musescore.com/user/1858001/scores/6283390 -- FIX TUNE https://musescore.com/user/1858001/scores/6283390
"c3 c3 c4 c4 ef4 ef4 c4 c4 . af3!3 c4 f3!3 g3" "c3 c3 c4 c4 ef4 ef4 c4 c4 . af3!3 c4 f3!3 g3"
......
...@@ -24,30 +24,30 @@ d2 $ g ...@@ -24,30 +24,30 @@ d2 $ g
# "[snare:10,drum:2]" # "[snare:10,drum:2]"
-- # midiG' "^79" 0 1 -- # midiG' "^79" 0 1
d3 $ g d3 $ g
$ midiOn "^76" (ply 2) $ midiOn "^43" (ply 2)
-- $ mask "<f!16 t!16>" -- $ mask "<f!16 t!16>"
$ "hh*[8 8 8 <8!3 [16 8]>]" $ "hh*[8 8 8 <8!3 [16 8]>]"
# att 0.01 # rel 0.5 # cut 3 # hpf 5000 # att 0.01 # rel 0.5 # cut 3 # hpf 5000
-- # midiG' "^80" 0 1.3 -- # midiG' "^80" 0 1.3
d4 $ gDJF d4 $ gDJF
$ midiOn "^92" (ply 2) $ midiOn "^76" (ply 2)
$ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff $ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
# "bassWarsaw" # "bassWarsaw"
# legato 0.9 # legato 0.9
# room 0.1 # room 0.1
# sz 0.1 # sz 0.1
# cut 7 # cut 7
# crushbus 71 (range 16 1.5 "^53") # crushbus 71 (range 16 1.5 "^32")
-- # midiG' "^81" 0 1 -- # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme d8 $ gDJF -- CUE Toxic Theme
$ midiOff "^92" (mask "<f!7 t>") $ midiOff "^60" (mask "<f!7 t>")
$ midiOn "^60" (rev) $ midiOn "^92" (rev)
$ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24) $ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
# "FMRhodes1" # "FMRhodes1"
# legato 4 # legato 4
# room "0!15 0.4" # room "0!15 0.4"
# attack 0.05 # attack 0.05
# modIndex "^55" # modIndex "^36"
# rel 2 # rel 2
# sz 0.5 # sz 0.5
# pan 0.9 # pan 0.9
......
...@@ -10,11 +10,11 @@ d1 $ g ...@@ -10,11 +10,11 @@ d1 $ g
$ "[drum]" $ "[drum]"
# midiG' "^78" 0 0.7 # midiG' "^78" 0 0.7
d2 $ g d2 $ g
$ midiOn "^43" (fast "<2!7 <4 8>>") $ midiOn "^42" (fast "<2!7 <4 8>>")
$ "~ snare:20" $ "~ snare:20"
# midiG' "^79" 0 0.6 # midiG' "^79" 0 0.6
d3 $ g -- Drumroll d3 $ g -- Drumroll
$ midiOn "^44" (fast 2) $ midiOn "^43" (fast 2)
$ "drum:2*<8!3 <16 [16 <8 32>]>>" $ "drum:2*<8!3 <16 [16 <8 32>]>>"
# midiG' "^80" 0 0.8 # midiG' "^80" 0 0.8
d4 $ g -- BASS/Guitar d4 $ g -- BASS/Guitar
...@@ -25,7 +25,7 @@ d4 $ g -- BASS/Guitar ...@@ -25,7 +25,7 @@ d4 $ g -- BASS/Guitar
# room 0.5 # room 0.5
# sz 0.8 # sz 0.8
# dry 1.2 # dry 1.2
# crushbus 2 (range 16 4.5 "^53") # crushbus 2 (range 16 4.5 "^32")
# midiG' "^81" 0 0.8 # midiG' "^81" 0 0.8
d9 $ g -- Choirs d9 $ g -- Choirs
$ midiOn "^60" (|- note 12) $ midiOn "^60" (|- note 12)
...@@ -71,11 +71,11 @@ d2 $ g ...@@ -71,11 +71,11 @@ d2 $ g
# "bass3:4" |- note 1 # "bass3:4" |- note 1
# midiG' "^80" 0 0.8 # midiG' "^80" 0 0.8
# room 0.3 # room 0.3
# crushbus 2 (range 16 2.5 "^52") # crushbus 2 (range 16 2.5 "^30")
d5 $ g d5 $ g
$ midiOff "^60" (loopAt 2) $ midiOff "^89" (loopAt 2)
$ midiOn "^60" (loopAt 1) $ midiOn "^89" (loopAt 1)
$ midiOn "^92" (ply 4) $ midiOn "^57" (ply 4)
$ slice 4 "0 1 2 3*<1 2 4>" $ slice 4 "0 1 2 3*<1 2 4>"
$ "breaks165" $ "breaks165"
# midiG' "^84" 0 0.7 # midiG' "^84" 0 0.7
...@@ -107,6 +107,7 @@ d1 $ g ...@@ -107,6 +107,7 @@ d1 $ g
$ midiOn "^73" (mask "[t f t f]*2") $ midiOn "^73" (mask "[t f t f]*2")
$ midiOn "^74" (mask "[t f f f]*2") $ midiOn "^74" (mask "[t f f f]*2")
$ midiOn "^75" (mask "[t f f t]*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") $ midiOn "^76" (mask "[t f f f]*2")
$ chop 16 $ loopAt 4 $ "algorythm:2" $ chop 16 $ loopAt 4 $ "algorythm:2"
# cut 1 # cut 1
......
...@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k*4") $ midiOn "^74" (<| "k*4")
$ midiOn "^42" (<| "k k") $ midiOn "^41" (<| "k k")
$ midiOff "^42" (<| "k") $ midiOff "^41" (<| "k")
-- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not? -- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[jazz,cpu]" $ "[jazz,cpu]"
# midiG' "^78" 0 1.7 # midiG' "^78" 0 1.7
...@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]" ...@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]"
# midiG' "^79" 0 1 # midiG' "^79" 0 1
d3 $ gF d3 $ gF
-- $ midiOn ("^44" - "^76") (off "0.33" id) -- $ 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>]") $ midiOn "^44" (<| "~ h*2 [~ <~ h>] <~!3 h> h*2 [~ <~ h>]")
$ midiOff "^44" (<| "h*4") $ midiOff "^44" (<| "h*4")
$ drumFrom "rolandtr808" "[hh:1]" $ drumFrom "rolandtr808" "[hh:1]"
......
...@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -4,8 +4,8 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r... d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^74" (<| "k lk k <k k*2>") $ midiOn "^74" (<| "k lk k <k k*2>")
$ midiOn "^42" (<| "k k") $ midiOn "^41" (<| "k k")
$ midiOff "^42" (<| "k") $ midiOff "^41" (<| "k")
-- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not? -- $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[jazz,cpu]" $ "[jazz,cpu]"
# midiG' "^78" 0 1.7 # midiG' "^78" 0 1.7
...@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]" ...@@ -13,7 +13,8 @@ d2 $ gF $ "~ . <s!3 s> " # "[snare:21,snare:29]"
# midiG' "^79" 0 1 # midiG' "^79" 0 1
d3 $ gF d3 $ gF
-- $ midiOn ("^44" - "^76") (off "0.33" id) -- $ 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>]") $ midiOn "^44" (<| "~ h*2 [~ <~ h>] <~!3 h> h*2 [~ <~ h>]")
$ midiOff "^44" (<| "h*4") $ midiOff "^44" (<| "h*4")
$ drumFrom "rolandtr808" "[hh:1]" $ drumFrom "rolandtr808" "[hh:1]"
......
...@@ -11,7 +11,8 @@ d2 $ gF2 $ "<~ snare:30>" ...@@ -11,7 +11,8 @@ d2 $ gF2 $ "<~ snare:30>"
# midiG' "^79" 0 1.1 # midiG' "^79" 0 1.1
# hpf 3000 # hpf 3000
d3 $ gF2 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) $ midiOn "^44" (fast 2)
$ "drum:2*3" $ "drum:2*3"
# midiG' "^80" 0 1.1 # midiG' "^80" 0 1.1
...@@ -19,7 +19,8 @@ d2 $ gF1 $ gMask -- snare cassant ...@@ -19,7 +19,8 @@ d2 $ gF1 $ gMask -- snare cassant
# midiG' "^79" 0 1.4 # midiG' "^79" 0 1.4
# pan 0.7 # pan 0.7
d3 $ gF1 $ gMask 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) $ midiOn "^44" (ply 2)
$ "[~ drum:2]*4" $ "[~ drum:2]*4"
# pan 0.4 # pan 0.4
......
...@@ -11,7 +11,7 @@ d1 $ g ...@@ -11,7 +11,7 @@ d1 $ g
# att 0.03 # rel 0.99 # att 0.03 # rel 0.99
# midiG' "^78" 0 1.52 # midiG' "^78" 0 1.52
d2 $ g 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")) $ fix (# note "-2") (("glitch:2"))
$ superimpose ((# "[glitch:2,glitch:5]")) $ superimpose ((# "[glitch:2,glitch:5]"))
$ "~ clap" $ "~ clap"
...@@ -26,11 +26,12 @@ d3 $ g $ m ...@@ -26,11 +26,12 @@ d3 $ g $ m
$ "hh*4" $ "hh*4"
# midiG' "^80" 0 1.8 # midiG' "^80" 0 1.8
# lsize (range 0 8 "^16") # lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32") # lrate (range 0.8 6.8 "^31")
# leslie (range 0 2 "^52") -- 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 d4 $ g $ m -- BREAK
$ midiOn ("^57" - "^89") (ply 2) $ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^89" (striate "<4!3 [8 4]>") $ midiOn "^76" (striate "<4!3 [8 4]>")
$ loopAt 1 $ loopAt 1
-- $ whenmod 8 6 (off "h" id . mask "t . f") -- $ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>") $ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>")
...@@ -45,7 +46,7 @@ d6 -- Runny Maracas ...@@ -45,7 +46,7 @@ d6 -- Runny Maracas
$ fix ((# release 0.8)) (n 9) $ fix ((# release 0.8)) (n 9)
$ "hh27*8" $ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>" # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55") # note (range "-12" 12 "^34")
# midiG' "^83" 0.25 2.5 # midiG' "^83" 0.25 2.5
d7 $ g $ m -- new breakbeats d7 $ g $ m -- new breakbeats
$ loopAt 1 $ loopAt 1
...@@ -80,7 +81,7 @@ d4 $ g -- c pure harmony ...@@ -80,7 +81,7 @@ d4 $ g -- c pure harmony
# octave 4 # octave 4
# pan 0.2 # pan 0.2
# "bassWarsaw" # "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 # midiG' "^81" 0 1.5
d5 $ g d5 $ g
$ mask "<[f t]!4 t!12>" $ mask "<[f t]!4 t!12>"
...@@ -88,6 +89,6 @@ d5 $ g ...@@ -88,6 +89,6 @@ d5 $ g
"<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>" "<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>"
) )
# "cbow:1" # "cbow:1"
# crushbus 5 (range 10 3.5 "^54") # crushbus 5 (range 10 3.5 "^33")
# cut 5 # cut 5
# midiG' "^82" 0 1.5 # midiG' "^82" 0 1.5
...@@ -2,8 +2,8 @@ do ...@@ -2,8 +2,8 @@ do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>") $ midiOn "^41" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~") $ midiOff "^41" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
$ "[jazz,808bd:3,kick:4]" $ "[jazz,808bd:3,kick:4]"
-- $ "[808bd:4]" -- $ "[808bd:4]"
# gain 1.5 # gain 1.5
...@@ -13,7 +13,8 @@ d2 $ gF1 $ gM2 ...@@ -13,7 +13,8 @@ d2 $ gF1 $ gM2
# "rampleM1:10" # "rampleM1:10"
# gain 1.5 # gain 1.5
d3 $ gF1 $ gM2 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) $ midiOn "^76" (ply 2)
$ "dr*[8 <8 16 24 [8 <4 8 16 <4 8>>]>]" $ "dr*[8 <8 16 24 [8 <4 8 16 <4 8>>]>]"
# gain 1.2 # gain 1.2
......
do do
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>")) $ midiOn "^41" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k k k k*<1 2>" ) $ midiOff "^41" (<| "k k k k*<1 2>" )
$ "jazz" $ "jazz"
d2 d2
$ midiOn "^43" (fast 2) $ midiOn "^42" (fast 2)
$ "~ s ~ s*<1 1 2 [4 2]>" $ "~ s ~ s*<1 1 2 [4 2]>"
# "vec1_snare:20" # "vec1_snare:20"
d3 $ "hh(3,8) hh(5,8)" d3 $ "hh(3,8) hh(5,8)"
...@@ -20,8 +20,8 @@ d8 $ gF1 $ gM2 ...@@ -20,8 +20,8 @@ d8 $ gF1 $ gM2
d4 $ gF2 $ gM3 $ note "<cs2 ef2 cs2 <cs2 gs3>>/2" d4 $ gF2 $ gM3 $ note "<cs2 ef2 cs2 <cs2 gs3>>/2"
# "bassWarsaw" # "bassWarsaw"
# room 0.2 # room 0.2
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 2.5 "^33") # octerbus 42 (range 0 2.5 "^52")
d5 $ note ( d5 $ note (
"[cs cs ef cs]" + 12) # "moog:3" # cut 5 "[cs cs ef cs]" + 12) # "moog:3" # cut 5
...@@ -3,8 +3,8 @@ do ...@@ -3,8 +3,8 @@ do
setcps (60/60/4) setcps (60/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>")) $ midiOn "^41" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^42" (<| "k . k(3,8)") $ midiOff "^41" (<| "k . k(3,8)")
-- $ "[techno:0,808bd:2,909,kick:4]" -- $ "[techno:0,808bd:2,909,kick:4]"
$ "jazz" $ "jazz"
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.5
...@@ -14,7 +14,8 @@ d2 $ gF1 $ gM2 ...@@ -14,7 +14,8 @@ d2 $ gF1 $ gM2
# "snare:24" # "snare:24"
# midiG' "^79" 0 1.5 # midiG' "^79" 0 1.5
d3 $ gF1 $ gM2 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) $ midiOn "^42" (fast 2)
$ "hh(3,8)" $ "hh(3,8)"
# midiG' "^80" 0 2 # midiG' "^80" 0 2
...@@ -23,18 +24,18 @@ d4 $ gF2 $ gM3 ...@@ -23,18 +24,18 @@ d4 $ gF2 $ gM3
$ note ("<e4 [e4@7 g4] [e4@7 ef4] <[e4@3 [g4 f4]] [e4 g4 a4 g4]>>" - 12) $ note ("<e4 [e4@7 g4] [e4@7 ef4] <[e4@3 [g4 f4]] [e4 g4 a4 g4]>>" - 12)
# "bassWarsaw" # "bassWarsaw"
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^52")
# cut 4 # cut 4
# room 0.4 # sz 0.7 # room 0.4 # sz 0.7
d5 $ gF2 $ gM3 d5 $ gF2 $ gM3
$ midiOn "^57" (chop 8)
$ midiOn "^89" (chop 8) $ midiOn "^89" (chop 8)
$ midiOn "^57" (chop 8)
$ "blues_guitar_bluesky_60:6/2" $ "blues_guitar_bluesky_60:6/2"
# gain 0.76 # cut 4 # gain 0.76 # cut 4
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
# crushbus 51 (range 16 2.5 "^54") # crushbus 51 (range 16 2.5 "^33")
# octersubbus 52 (range 0 2.5 "^34") # octersubbus 52 (range 0 2.5 "^53")
d7 $ gF1 $ gM3 d7 $ gF1 $ gM3
$ loopAt 2 $ loopAt 2
-- $ chop 16 -- $ chop 16
......
...@@ -3,13 +3,13 @@ do ...@@ -3,13 +3,13 @@ do
setcps (138/60/4) setcps (138/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k") $ midiOn "^41" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)") $ midiOff "^41" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ "[techno:0,808bd:2,909,kick:4]" $ "[techno:0,808bd:2,909,kick:4]"
-- $ "jazz" -- $ "jazz"
d2 $ gM2 -- Clap timer d2 $ gM2 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c")) $ midiOn "^42" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>")) $ midiOff "^42" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp" $ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000 # lpf 2000
# gain 1.2 # gain 1.2
......
...@@ -3,12 +3,12 @@ setcps (80/60/4) ...@@ -3,12 +3,12 @@ setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF d1 $ gF
$ midiOn "^42" (<| "k k k k") $ midiOn "^41" (<| "k k k k")
$ "jazz" $ "jazz"
# midiG' "^78" 0 1.9 # midiG' "^78" 0 1.9
d3 $ gF d3 $ gF
$ midiOn "^42" (<| "~ k ~ k*<1 2>") $ midiOn "^43" (<| "~ k ~ k*<1 2>")
$ midiOff "^42" (<| "~ k") $ midiOff "^43" (<| "~ k")
$ "hh" $ "hh"
# midiG' "^79" 0 1.9 # midiG' "^79" 0 1.9
d5 $ gF2 $ mask "<t t t f>" d5 $ gF2 $ mask "<t t t f>"
...@@ -16,7 +16,7 @@ d5 $ gF2 $ mask "<t t t f>" ...@@ -16,7 +16,7 @@ d5 $ gF2 $ mask "<t t t f>"
# room 0.4 # room 0.4
# cut 5 # cut 5
# midiG' "^81" 0 1 # midiG' "^81" 0 1
# crushbus 51 (range 16 2.5 "^53") # crushbus 51 (range 16 2.5 "^33")
# pan 0.35 # pan 0.35
# room (range 0.2 0.8 (slow 8 saw)) # room (range 0.2 0.8 (slow 8 saw))
d6 $ gF3 d6 $ gF3
...@@ -31,8 +31,8 @@ d7 $ gF3 ...@@ -31,8 +31,8 @@ d7 $ gF3
# "FMRhodes2" # "FMRhodes2"
# midiG' "^83" 0 1.9 # midiG' "^83" 0 1.9
d8 $ gF $ chop 8 d8 $ gF $ chop 8
$ midiOn "^60" (loopAt 1) $ midiOn "^92" (loopAt 1)
$ midiOff "^60" (loopAt 2) $ midiOff "^92" (loopAt 2)
-- $ loopAt 2 -- $ loopAt 2
$ "fbreak80" $ "fbreak80"
# midiG' "^84" 0 1.9 # midiG' "^84" 0 1.9
......
...@@ -17,7 +17,7 @@ d1 $ g ...@@ -17,7 +17,7 @@ d1 $ g
$ "reverbkick" # gM' 0 1.4 "^78" $ "reverbkick" # gM' 0 1.4 "^78"
d2 $ (|- lpf 2000) $ g d2 $ (|- lpf 2000) $ g
-- $ whenmod 8 6 (degradeBy "<0.25 0.75>" . stut 4 0.9 "e") -- $ 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]" $ fast 2 $ "~ [cp,drum:2]"
# gM' 0 1.5 "^79" # gM' 0 1.5 "^79"
# lpq "^51" # lpq "^51"
...@@ -25,15 +25,15 @@ d2 $ (|- lpf 2000) $ g ...@@ -25,15 +25,15 @@ d2 $ (|- lpf 2000) $ g
# room 0.2 # dry 0.99 # room 0.2 # dry 0.99
d3 $ g d3 $ g
$ loopAt 1 $ loopAt 1
$ novaOn "^76" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>")) $ novaOn "^43" (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>") $ novaOff "^43" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>")
$ "breaks165" $ "breaks165"
# lpq "^52" # lpq "^31"
# room 0.5 # room 0.5
# gM' 0 2 "^80" # gM' 0 2 "^80"
d4 $ g d4 $ g
-- $ someCycles (swingBy 2) -- $ someCycles (swingBy 2)
$ novaOn "^89" (chop 16) $ novaOn "^44" (chop 16)
-- $ novaOn "^58" (+ note (slow 4 "<0 12>")) -- $ novaOn "^58" (+ note (slow 4 "<0 12>"))
$ note (scale "aeolian" $ note (scale "aeolian"
("<c!4 f!4> <c!4 f!4> <c!4 f!4> [c <ds!3 f>]" ("<c!4 f!4> <c!4 f!4> <c!4 f!4> [c <ds!3 f>]"
...@@ -42,14 +42,14 @@ d4 $ g ...@@ -42,14 +42,14 @@ d4 $ g
-- # detune 1.005 -- # detune 1.005
# octave 3 # octave 3
# "bassWarsaw" # "bassWarsaw"
# voice (range 0.1 2 "^33") # voice (range 0.1 2 "^32")
# gM' 0.4 1.5 "^81" # gM' 0.4 1.5 "^81"
# room 0.6 # sz 0.7 # room 0.6 # sz 0.7
# crush (range 10 3.1 "^53") # crush (range 10 3.1 "^52")
# pan 0.4 # pan 0.4
d5 $ g d5 $ g
$ inside 4 (someCyclesBy "^34" (ply 2)) $ inside 4 (someCyclesBy "^33" (ply 2))
$ sometimesBy "^54" (swingBy "q" 4) $ sometimesBy "^53" (swingBy "q" 4)
$ note (scale "aeolian" ( $ note (scale "aeolian" (
"<0 9 7 2>" -- progression "<0 9 7 2>" -- progression
+ "[0 2 4 <0 6>]*4" -- arpegiateur + "[0 2 4 <0 6>]*4" -- arpegiateur
...@@ -89,19 +89,20 @@ d2 $ (|- lpf 100) $ g ...@@ -89,19 +89,20 @@ d2 $ (|- lpf 100) $ g
# lpq (range 0 0.45 "^51") # lpq (range 0 0.45 "^51")
# gM' 0 1.5 "^79" # gM' 0 1.5 "^79"
d3 $ g 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) $ novaOn "^60" (fast 2)
$ "~ clap" $ "~ clap"
# gM' 0 1.2 "^84" # gM' 0 1.2 "^84"
d4 $ g d4 $ g
$ novaOn "^89" (chop 4) $ novaOn "^44" (chop 4)
$ off "q" (|+ note 12) $ off "q" (|+ note 12)
$ note (scale "aeolian" (prog $ note (scale "aeolian" (prog
+ "[0,4,9]" + "[0,4,9]"
+ "[0 <7 <-7 -14>>]" -- spread + "[0 <7 <-7 -14>>]" -- spread
- 21)) - 21))
# "FMRhodes1" # "FMRhodes1"
# mix (range 0 20 "^33") # mix (range 0 20 "^32")
# modIndex (range 0.2 100 "^53") # modIndex (range 0.2 100 "^52")
# gM' 0 1.2 "^81" # gM' 0 1.2 "^81"
# room 0.5 # sz 0.6 # room 0.5 # sz 0.6
d5 $ g d5 $ g
...@@ -111,7 +112,7 @@ d5 $ g ...@@ -111,7 +112,7 @@ d5 $ g
- 28 - 28
) )
) )
# crush (range 10 3.5 "^54") # crush (range 10 3.5 "^53")
# "bassWarsaw" # gM' 0 1.3 "^82" # "bassWarsaw" # gM' 0 1.3 "^82"
# room 0.3 # room 0.3
d6 $ g d6 $ g
......
...@@ -25,8 +25,9 @@ d3 $ g ...@@ -25,8 +25,9 @@ d3 $ g
# hpf (slow 8 $ range 5000 1000 perlin) # hpf (slow 8 $ range 5000 1000 perlin)
-- # gain 1.5 -- # gain 1.5
# lsize (range 0 8 "^16") # lsize (range 0 8 "^16")
# lrate (range 0.8 6.8 "^32") # lrate (range 0.8 6.8 "^31")
# leslie (range 0 2 "^52") -- 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 # midiG' "^80" 0 1.52
d6 -- Runny Maracas d6 -- Runny Maracas
$ g $ g
...@@ -36,5 +37,5 @@ d6 -- Runny Maracas ...@@ -36,5 +37,5 @@ d6 -- Runny Maracas
$ fix ((# release 0.8)) (n 9) $ fix ((# release 0.8)) (n 9)
$ "hh27*8" $ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>" # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# note (range "-12" 12 "^55") # note (range "-12" 12 "^34")
# midiG' "^83" 0 1.2 # midiG' "^83" 0 1.2
...@@ -9,12 +9,12 @@ d1 $ g1 $ mDeg ...@@ -9,12 +9,12 @@ d1 $ g1 $ mDeg
$ (# midiG' "^78" 0 1.5) $ (# midiG' "^78" 0 1.5)
-- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4) -- $ 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 <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK
$ midiOn "^42" (<| "k . k(5,8)") -- BREAK $ midiOn "^41" (<| "k . k(5,8)") -- BREAK
$ midiOff "^42" (<| "k k k <k k*2 k [~ k]>") -- 4F! $ midiOff "^41" (<| "k k k <k k*2 k [~ k]>") -- 4F!
$ "[808bd:2]" $ "[808bd:2]"
d2 $ g1 $ mDeg d2 $ g1 $ mDeg
$ whenmod 4 3 (off "<q e>" id) $ whenmod 4 3 (off "<q e>" id)
$ midiOn "^43" (fast 2) $ midiOn "^42" (fast 2)
$ "~ a" $ "~ a"
# note (-4) # note (-4)
# "[amencutup:5, snare:40]" # "[amencutup:5, snare:40]"
...@@ -33,10 +33,10 @@ d5 $ g1 $ mDeg ...@@ -33,10 +33,10 @@ d5 $ g1 $ mDeg
# pan (slow 16 $ range 0.33 0.66 sine) # pan (slow 16 $ range 0.33 0.66 sine)
# pan 0.7 # pan 0.7
# midiG' "^81" 0 0.9 # midiG' "^81" 0 0.9
# crushbus 51 (range 16 3 "^53") # crushbus 51 (range 16 3 "^33")
d6 $ g1 $ mDeg d6 $ g1 $ mDeg
$ midiOn "^60" (sometimesBy "0 1" rev) $ midiOn "^58" (sometimesBy "0 1" rev)
$ midiOn "^92" (ply 2) $ midiOn "^90" (ply 2)
$ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>") $ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>")
$ loopAt 2 $ loopAt 2
$ "break:19" $ "break:19"
......
...@@ -7,13 +7,13 @@ let gMute = (midiOn "^73" (mask "f*16")) ...@@ -7,13 +7,13 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMute let gM = gMute
let gO = (# octerbus 4 (range 0 2 "^29")) let gO = (# octerbus 4 (range 0 2 "^29"))
d1 $ gM $ gF1 d1 $ gM $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 4>)") $ midiOff "^41" (<| "k . k(<3!3 5>,8,<0!3 4>)")
$ "[jazz,rampleA0:2]" $ "[jazz,rampleA0:2]"
# midiG' "^78" 0 1.6 # midiG' "^78" 0 1.6
d2 $ gM $ gF2 d2 $ gM $ gF2
$ midiOn "^75" (fast 2) $ midiOn "^75" (fast 2)
$ midiOff "^43" (slow 2) $ midiOff "^42" (slow 2)
$ fix (# note "-2") "cp" $ fix (# note "-2") "cp"
$ fix (|* gain 0.8) "rampleR6" $ fix (|* gain 0.8) "rampleR6"
$ "~ cp ~ cp" $ "~ cp ~ cp"
...@@ -27,9 +27,9 @@ d3 $ gM $ gO $ gF3 ...@@ -27,9 +27,9 @@ d3 $ gM $ gO $ gF3
d8 $ gF3 $ gM d8 $ gF3 $ gM
$ midiOn "^60" (iter "1 4") $ midiOn "^60" (iter "1 4")
$ midiOn "^92" (ply "2 <2!3 <4 8>>") $ midiOn "^92" (ply "2 <2!3 <4 8>>")
$ midiOn "^56" (splice 4 "0 1*2 <2 ~> 3(3,8)") $ midiOn "^36" (splice 4 "0 1*2 <2 ~> 3(3,8)")
$ midiOn "^56" ((# "break:2")) $ midiOn "^36" ((# "break:2"))
$ midiOn "^36" ((# "jungle_breaks:20")) $ midiOn "^56" ((# "jungle_breaks:20"))
$ loopAt 2 $ loopAt 2
$ chop 16 $ chop 16
$ "jungle_breaks:47" $ "jungle_breaks:47"
......
...@@ -21,16 +21,16 @@ d2 $ g $ gDeg ...@@ -21,16 +21,16 @@ d2 $ g $ gDeg
d3 $ g $ gDeg d3 $ g $ gDeg
$ juxBy "52" rev $ juxBy "52" rev
$ whenmod 16 8 (often (slow "<4!3 2>")) $ 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 $ loopAt 2
$ "break" $ "break"
# midiG' "^80" 0 1.8 # midiG' "^80" 0 1.8
# cut 3 # cut 3
d4 $ g $ gDeg d4 $ g $ gDeg
$ midiOn "^41" (fast 2) $ midiOn "^76" (fast 2)
$ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]" $ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]"
# midiG' "^81" 0 1.8 # midiG' "^81" 0 1.8
# note (range "-12" "12" "^53") # note (range "-12" "12" "^32")
d5 d5
$ someCyclesBy 0.2 (scramble 4) $ someCyclesBy 0.2 (scramble 4)
$ rarely (ply "2 <4 8>") $ rarely (ply "2 <4 8>")
......
...@@ -2,8 +2,8 @@ do ...@@ -2,8 +2,8 @@ do
setcps (98/60/4) setcps (98/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4") $ midiOn "^41" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)") $ midiOff "^41" (<| "k . k(3,8)")
$ "kick:5" $ "kick:5"
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
-- $ midiOn "^78" -- $ midiOn "^78"
......
...@@ -2,8 +2,8 @@ do ...@@ -2,8 +2,8 @@ do
setcps (80/60/4) setcps (80/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4") $ midiOn "^41" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k") $ midiOff "^41" (<| "k . ~ k")
$ fix (# lpf 500) "kick" $ fix (# lpf 500) "kick"
$ "[jazz,kick:5]" # lpf 2000 $ "[jazz,kick:5]" # lpf 2000
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
...@@ -14,7 +14,7 @@ d3 $ gF1 $ gM2 ...@@ -14,7 +14,7 @@ d3 $ gF1 $ gM2
$ "dr*[8 <8 [16 <16 4>]>]" $ "dr*[8 <8 [16 <16 4>]>]"
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ superimpose ( $ 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)]") $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,<5 7>(3,8)]")
# "bassWarsaw" # "bassWarsaw"
...@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3 ...@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3
$ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]") $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
# "FMRhodes1" # "FMRhodes1"
# gain 1.4 # gain 1.4
# modIndex (range 0 4 "^54") # modIndex (range 0 4 "^33")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
-- $ superimpose ( -- $ superimpose (
-- # crushbus 41 (range 15 2.5 "^53") -- # crushbus 41 (range 15 2.5 "^53")
...@@ -36,13 +36,13 @@ d5 $ gF3 $ gM3 ...@@ -36,13 +36,13 @@ d5 $ gF3 $ gM3
$ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]") $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
# "FMRhodes1" # "FMRhodes1"
# gain 1.4 # 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 d7 $ gF1 $ gM3 $ loopAt 1 $ chop 16 $ "jungle_breaks:100" # cut 7 # gain 1.3
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,f)" . chop 8) $ midiOff "^60" (mask "t(4,8,f)" . chop 8)
$ chop 8 $ chop 8
$ loopAt 1 $ loopAt 1
$ midiOn "^56" (# "jungle_breaks:45") $ midiOn "^36" (# "jungle_breaks:45")
$ "jungle_breaks:20" $ "jungle_breaks:20"
# gain 1.2 # gain 1.2
......
...@@ -66,7 +66,7 @@ d3 $ gF1 $ gM2 ...@@ -66,7 +66,7 @@ d3 $ gF1 $ gM2
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ mask "<t!7 f>" -- Mask permanent $ mask "<t!7 f>" -- Mask permanent
-- Orchestration -- Orchestration
$ midiOn "^76" (ply 2) $ midiOn "^43" (ply 2)
$ fix (|* gain 0.9) (n 10) $ fix (|* gain 0.9) (n 10)
$ "~ h(3,8)" $ "~ h(3,8)"
# "808oh:1" # "rampleS15" # n "<9!3 [9 . 9 10]>" # "808oh:1" # "rampleS15" # n "<9!3 [9 . 9 10]>"
...@@ -79,9 +79,9 @@ d3 $ gF1 $ gM2 ...@@ -79,9 +79,9 @@ d3 $ gF1 $ gM2
# gain 0.9 # gain 0.9
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ whenmod 128 64 (# silence) $ whenmod 128 64 (# silence)
$ midiOn "^89" (ply 2) $ midiOn "^76" (ply 2)
$ superimpose ( $ 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 $ 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 (|+| 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 ...@@ -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 "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation v2
-- $ note ("0"- 12) -- $ note ("0"- 12)
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 3 "^54") # modIndex (range 0 3 "^33")
# gain 1.1 # gain 1.1
# legato 4 # legato 4
# att 0.1 # att 0.1
......
...@@ -5,7 +5,8 @@ d1 ...@@ -5,7 +5,8 @@ d1
$ midiOff "^41" (<| "k . k(3,8)") $ midiOff "^41" (<| "k . k(3,8)")
$ "[jazz,kick:4]" $ "[jazz,kick:4]"
d2 $ gF1 $ gM1 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)") $ midiOff "^42" (<| "k . k(3,8)")
$ "cp" $ "cp"
# lpf 400 # lpf 400
...@@ -42,7 +43,7 @@ d4 $ gF2 $ gM3 ...@@ -42,7 +43,7 @@ d4 $ gF2 $ gM3
$ "gfunk_bass:3" $ "gfunk_bass:3"
# cut 4 # cut 4
# gain 1.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 # pan 0.3 # room 0.3 # dry 0.7
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
-- $ slow 2 -- $ slow 2
...@@ -57,7 +58,7 @@ d5 $ gF3 $ gM3 ...@@ -57,7 +58,7 @@ d5 $ gF3 $ gM3
) )
# "FMRhodes1" # "FMRhodes1"
# gain 1.7 # gain 1.7
# modIndex (range 0 8 "^53") # modIndex (range 0 8 "^33")
# room 0.8 # dry 0.9 # sz 0.5 # room 0.8 # dry 0.9 # sz 0.5
# pan 0.6 # pan 0.6
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
......
...@@ -11,8 +11,8 @@ setcps (120/60/4) ...@@ -11,8 +11,8 @@ setcps (120/60/4)
-- TODO: Suggestion gM1/2/3 filtres partiels -- TODO: Suggestion gM1/2/3 filtres partiels
-- let gM3 = -- let gM3 =
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t t") $ midiOn "^41" (struct "t t t t")
$ midiOff "^42" (struct "t . t(3,8)") $ midiOff "^41" (struct "t . t(3,8)")
$ "jazz" $ "jazz"
# gain 1.5 # gain 1.5
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
...@@ -26,15 +26,15 @@ d4 $ gF2 $ gM3 ...@@ -26,15 +26,15 @@ d4 $ gF2 $ gM3
$ note (scale "dorian" ("0 0 4 <2 1 2 7>") + "fs2") # "bassWarsaw" $ note (scale "dorian" ("0 0 4 <2 1 2 7>") + "fs2") # "bassWarsaw"
# cut 4 # cut 4
# gain 1.3 # gain 1.3
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 2.5 "^53") # octerbus 42 (range 0 2.5 "^32")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
-- $ degradeBy 0.4 -- $ degradeBy 0.4
$ slice 8 "<0 1 2 3 4 5 6 7>" $ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:5" $ "gfunk_lead:5"
# cut 5 # cut 5
# gain 1.7 # gain 1.7
# octersubbus 51 (range 0 2.5 "^54") # octersubbus 51 (range 0 2.5 "^33")
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !! $ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !!
$ chop 8 $ chop 8
......
...@@ -8,12 +8,12 @@ once $ "gfunk_lead:5" ...@@ -8,12 +8,12 @@ once $ "gfunk_lead:5"
do do
setcps (120/60/4) setcps (120/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t*4" ) $ midiOn "^41" (struct "t*4" )
$ midiOff "^42" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)") $ midiOff "^41" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)")
$ "jazz" # lpf 300 $ "jazz" # lpf 300
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOn "^43" (struct "~ t ~ <t t*2 [t!3 ~] t*[4 2]>") $ midiOn "^42" (struct "~ t ~ <t t*2 [t!3 ~] t*[4 2]>")
$ midiOff "^43" (struct "~ t") $ midiOff "^42" (struct "~ t")
$ "vec1_snare:25" $ "vec1_snare:25"
-- # hpf 500 -- # hpf 500
d3 $ gF1 $ gM2 $ "hh([<8 12> <8 12 8? 16>],16)" # "h2ogmhh:3" d3 $ gF1 $ gM2 $ "hh([<8 12> <8 12 8? 16>],16)" # "h2ogmhh:3"
...@@ -27,8 +27,8 @@ d5 $ gF3 $ gM3 ...@@ -27,8 +27,8 @@ d5 $ gF3 $ gM3
# cut 5 # cut 5
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 16) $ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# n 19) $ midiOn "^36" (# n 19)
$ midiOn "^36" (# n 74) $ midiOn "^56" (# n 74)
$ chop 8 $ loopAt 2 $ chop 8 $ loopAt 2
$ "jungle_breaks:45" $ "jungle_breaks:45"
# cut 8 # cut 8
......
...@@ -7,11 +7,11 @@ d1 $ gF $ gM ...@@ -7,11 +7,11 @@ d1 $ gF $ gM
$ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8)) $ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8))
$ fix (|* gain 0.9) "jazz" $ fix (|* gain 0.9) "jazz"
$ fix (|* gain 1.2) "kick:5" $ fix (|* gain 1.2) "kick:5"
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k ~ [~ k] <~!3 k>") $ midiOff "^41" (<| "k ~ [~ k] <~!3 k>")
$ "[kick:5,jazz]" $ "[kick:5,jazz]"
d2 $ gF $ gM d2 $ gF $ gM
$ midiOn "^43" (fast 2) $ midiOn "^42" (fast 2)
$ "~ s ~ s" $ "~ s ~ s"
-- $ "~ ~ s ~" -- $ "~ ~ s ~"
-- $ "~ ~ ~ ~ s ~ ~ ~" -- $ "~ ~ ~ ~ s ~ ~ ~"
...@@ -20,28 +20,28 @@ d2 $ gF $ gM ...@@ -20,28 +20,28 @@ d2 $ gF $ gM
d3 $ gF $ gM d3 $ gF $ gM
$ ply "2!3 1" $ ply "2!3 1"
$ "dr*8" $ "dr*8"
# crushbus 51 (range 16 2.5 "^53") # crushbus 51 (range 16 2.5 "^31")
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
d5 $ gF2 $ gM d5 $ gF2 $ gM
$ chop 8 $ chop 8
$ "90s_matrix:3" $ "90s_matrix:3"
# crushbus 51 (range 16 2.5 "^53") # crushbus 51 (range 16 2.5 "^33")
# sz 0.9 # sz 0.9
# room 0.3 # room 0.3
# cut 5 # cut 5
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.2
d7 $ gF2 d7 $ gF2
$ midiOn "^57" (off "e" (mask "t!7 f")) $ midiOn "^59" (off "e" (mask "t!7 f"))
-- $ struct "t*4" -- $ struct "t*4"
$ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>") $ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>")
-- $ note (arp "<up up>" $ "<>") -- $ note (arp "<up up>" $ "<>")
# "bassWarsaw" # "bassWarsaw"
# crushbus 71 (range 16 2.5 "^54") # crushbus 71 (range 16 2.5 "^35")
# midiG' "^82" 0 1.8 # midiG' "^82" 0 1.8
d6 $ gF2 $ gM d6 $ gF2 $ gM
$ midiOn "^57" (ply "4 8") $ midiOn "^90" (ply "4 8")
$ "90s_matrix:0" $ "90s_matrix:0"
# crushbus 61 (range 16 2.5 "^55") # crushbus 61 (range 16 2.5 "^34")
# sz 0.9 # sz 0.9
# cut 6 # cut 6
# midiG' "^83" 0 2 # midiG' "^83" 0 2
...@@ -51,7 +51,7 @@ d8 $ gF2 ...@@ -51,7 +51,7 @@ d8 $ gF2
$ arp "up" $ arp "up"
$ note ("a3'min'4" + "[0,<12!3 24>]") $ note ("a3'min'4" + "[0,<12!3 24>]")
# "acidOto3092" # "acidOto3092"
# crushbus 81 (range 16 3.5 "^56") # crushbus 81 (range 16 3.5 "^36")
# rel 2 # rel 2
# midiG' "^84" 0 2 # midiG' "^84" 0 2
d9 $ gF -- Breaks silence pesant. d9 $ gF -- Breaks silence pesant.
......
...@@ -49,8 +49,8 @@ d5 $ g2 ...@@ -49,8 +49,8 @@ d5 $ g2
$ note (arp "up" "<c'min'4!3 g'min'4>" $ note (arp "up" "<c'min'4!3 g'min'4>"
- "[12,24]") - "[12,24]")
# "bassWarsaw" # "bassWarsaw"
# gMaster (range 0 1.4 "^17") # gMaster (range 0 1.4 "^33")
# crushbus 41 (range 16 4.5 "^18") # crushbus 41 (range 16 4.5 "^53")
d6 d6
$ g2 $ g2
-- $ striate 4 -- $ striate 4
...@@ -63,7 +63,7 @@ d6 ...@@ -63,7 +63,7 @@ d6
# room 0.4 # room 0.4
# dry 0.99 # dry 0.99
# sz 0.8 # sz 0.8
# modIndex (range 0 25 "^19") # modIndex (range 0 25 "^34")
-- # hpf (range 0 5000 "^19") -- # hpf (range 0 5000 "^19")
# gMaster 0.7 # gMaster 0.7
......
...@@ -11,8 +11,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]" ...@@ -11,8 +11,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
d3 $ gF1 $ gM2 $ "d(3,8) d(<3!3 5>,8)" d3 $ gF1 $ gM2 $ "d(3,8) d(<3!3 5>,8)"
# "drum:2" # "h2ogmhh:1" # gain 1.2 # cut 3 -- Drill that Baby # "drum:2" # "h2ogmhh:1" # gain 1.2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3 -- Jane's Piano d5 $ gF3 $ gM3 -- Jane's Piano
$ 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") $ midiOn "^57" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2 $ gF2 $ gM2
$ n "<0!8 1!3 0 1!3 1*4>" -- TODO: I'd like to let her develop more $ n "<0!8 1!3 0 1!3 1*4>" -- TODO: I'd like to let her develop more
-- $ n "<0 ~>" -- $ n "<0 ~>"
...@@ -21,8 +21,8 @@ d5 $ gF3 $ gM3 -- Jane's Piano ...@@ -21,8 +21,8 @@ d5 $ gF3 $ gM3 -- Jane's Piano
# pan (slow 16 $ range 0.6 0.45 saw) # pan (slow 16 $ range 0.6 0.45 saw)
# gain 1.5 # gain 1.5
d4 $ gF2 $ gM3 -- Cello bass d4 $ gF2 $ gM3 -- Cello bass
$ midiOn "^89" (|+| note "[0 12 0]") $ midiOn "^44" (|+| note "[0 12 0]")
$ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0") $ midiOn "^76" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
$ juxBy 0.6 (|+| note ("7([3 1],8)")) $ juxBy 0.6 (|+| note ("7([3 1],8)"))
$ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>") $ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
|* gain "<[1@7 0.9] 1 1 1>" |* gain "<[1@7 0.9] 1 1 1>"
...@@ -44,7 +44,7 @@ d11 $ gM3 $ gF3 ...@@ -44,7 +44,7 @@ d11 $ gM3 $ gF3
# gain 1.2 # gain 1.2
d7 $ gF1 $ gM3 -- SCRATCH d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>") $ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 13) $ midiOn "^35" (# n 13)
$ midiOn "^59"(# n 15) $ midiOn "^59"(# n 15)
$ chop 16 $ chop 16
$ loopAt 4 $ loopAt 4
......
...@@ -5,7 +5,7 @@ d1 $ gM1 $ gF1 ...@@ -5,7 +5,7 @@ d1 $ gM1 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick $ superimpose ( -- Technique ine*fable : la basse du kick
(# "vec2_bass_ob:190") (# "vec2_bass_ob:190")
. (# att 0.2) . (# rel 1)) . (# 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.2) . (# lpf 300)) "clubkick:2"
$ fix ((|* gain 1) . (# hpf 300)) "hardkick_rha" $ fix ((|* gain 1) . (# hpf 300)) "hardkick_rha"
$ speed "1 1 1 [1,[~ -4]]" $ speed "1 1 1 [1,[~ -4]]"
...@@ -19,7 +19,7 @@ d4 $ gF2 $ gM3 ...@@ -19,7 +19,7 @@ d4 $ gF2 $ gM3
$ freq "102 108 110 ~ 105 130 52 33" $ freq "102 108 110 ~ 105 130 52 33"
# "bassWarsaw" # "bassWarsaw"
# gain 1.3 # gain 1.3
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ note ("<[cs ~!3 . gs] [c ~!3 . < g [g@3 c6]>]>" - 24) $ note ("<[cs ~!3 . gs] [c ~!3 . < g [g@3 c6]>]>" - 24)
# "bassWarsaw" # "bassWarsaw"
......
...@@ -4,8 +4,8 @@ do ...@@ -4,8 +4,8 @@ do
setcps (104/60/4) setcps (104/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4 $ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB $ midiOff "^41" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [ $ stack [
"kick" # lpf 10000 # cut 1, "kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3 "rumble" |* gain 1.3
...@@ -33,7 +33,7 @@ d3 $ gF1 $ gM2 ...@@ -33,7 +33,7 @@ d3 $ gF1 $ gM2
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ note ("<bf af ef@2>" - 24) $ note ("<bf af ef@2>" - 24)
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# room 0.4 # sz 0.5 # dry 1.4 # room 0.4 # sz 0.5 # dry 1.4
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ mask "<f t f f>" $ mask "<f t f f>"
......
...@@ -5,8 +5,8 @@ setcps (124/60/4) ...@@ -5,8 +5,8 @@ setcps (124/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>" let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4 $ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB $ midiOff "^41" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [ $ stack [
"kick" # lpf 10000 # cut 1, "kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3 "rumble" |* gain 1.3
...@@ -42,7 +42,7 @@ d4 $ gF2 $ gM3 ...@@ -42,7 +42,7 @@ d4 $ gF2 $ gM3
$ jchord chord $ jchord chord
# "bassWarsaw" # "bassWarsaw"
# octave 2 # 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))) # lpfbus 41 (range 40 260 (fast 32 $ ((0.2 ~>) $ sine)))
-- # lpf 340 -- # lpf 340
# lpq 0.3 # lpq 0.3
...@@ -57,7 +57,7 @@ d5 $ gF3 $ gM3 ...@@ -57,7 +57,7 @@ d5 $ gF3 $ gM3
# gain 1.3 # gain 1.3
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON! $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3 $ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>" slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165") . loopAt 1 . (# "breaks165")
......
...@@ -34,25 +34,25 @@ d3 $ gF1 $ gM2 -- Highest hats ...@@ -34,25 +34,25 @@ d3 $ gF1 $ gM2 -- Highest hats
# room 0.2 # dry 0.99 # sz 0.25 # room 0.2 # dry 0.99 # sz 0.25
d4 $ gF2 $ gM3 -- BASSLINE VIOLENTE PAR VALENTIN <3 d4 $ gF2 $ gM3 -- BASSLINE VIOLENTE PAR VALENTIN <3
$ superimpose ( $ superimpose (
(# crushbus 41 (range 16 3.5 "^53")) (# crushbus 41 (range 16 3.5 "^32"))
. (# hpf 500) . (# hpf 500)
) )
$ midiOn "^89" (ply "2 <2 <4 8>>") $ midiOn "^76" (ply "2 <2 <4 8>>")
$ fast (4/3) -- Le fameux $ 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)")) (sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)"))
$ ("e" ~>) -- Decalage $ ("e" ~>) -- Decalage
$ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>") $ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>")
# "bassWarsaw" |- note 24 # "bassWarsaw" |- note 24
# pan 0.4 # pan 0.4
# octersubbus 42 (range 0 2 "^33") # octersubbus 42 (range 0 2 "^52")
# octerbus 43 (range 0 0.52 "^33") # octerbus 43 (range 0 0.52 "^52")
# gain 2 # gain 2
# legato "[0.8 0.5]*4" # legato "[0.8 0.5]*4"
d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
$ midiOn "^90" (ply "2 <2 <4 8>>") $ midiOn "^89" (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)") $ midiOn "^57" (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>") $ midiOff "^57" (slice 8 "<0 1 2 3 4 5 6 7>")
$ "suns_keys" # n "<0 <1 2> 3 3>" $ "suns_keys" # n "<0 <1 2> 3 3>"
# pan 0.8 # pan 0.8
# room 0.8 # sz 0.5 # room 0.8 # sz 0.5
...@@ -63,14 +63,14 @@ d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples ...@@ -63,14 +63,14 @@ d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
# gain 1.2 # gain 1.2
d7 $ gM3 $ gF3 -- Suns of Gold Guitars, sampled and cut d7 $ gM3 $ gF3 -- Suns of Gold Guitars, sampled and cut
$ superimpose ((# cut 71) . $ 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>>") $ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
$ slice 8 "0 0 0 <0 <1 2>>" $ slice 8 "0 0 0 <0 <1 2>>"
$ "suns_guitar:0/2" $ "suns_guitar:0/2"
# cut 7 # cut 7
# octersubbus 71 (range 0 1.9 "^35") -- BURN THIS GUITAR # octersubbus 71 (range 0 1.9 "^55") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^35") # lpfbus 72 (range 10000 200 "^55")
# pan 0.2 # pan 0.2
# gain 1.1 # gain 1.1
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
......
...@@ -5,15 +5,15 @@ setcps (165/60/4) ...@@ -5,15 +5,15 @@ setcps (165/60/4)
d1 d1
$ gF1 $ gM1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>") -- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>") $ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "popkick:2" $ "popkick:2"
-- # lpf 300 -- TODO Sound design this kick <3 -- # lpf 300 -- TODO Sound design this kick <3
-- # cut 1 -- # cut 1
# gain 2 # gain 2
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ s*<1!3 2>") $ midiOff "^42" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~") $ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0]" $ "[realclaps:0]"
-- # "h2ogmcp" -- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>") -- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
...@@ -42,7 +42,7 @@ d5 $ gF2 $ gM3 ...@@ -42,7 +42,7 @@ d5 $ gF2 $ gM3
+ (arp "up" "c'maj'4 c'maj'4") + (arp "up" "c'maj'4 c'maj'4")
) )
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 16 "^54") # modIndex (range 0 16 "^33")
# gain 1.3 # gain 1.3
# cut 5 # cut 5
# room 0.3 # room 0.3
...@@ -57,7 +57,7 @@ d4 $ gF2 $ gM3 ...@@ -57,7 +57,7 @@ d4 $ gF2 $ gM3
) )
-- # "moog:1" -- # "moog:1"
# "bassWarsaw" |- note 36 # "bassWarsaw" |- note 36
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# pan 0.4 # pan 0.4
# cut 4 # cut 4
# gain 1.5 # gain 1.5
...@@ -68,14 +68,14 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou ...@@ -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>" $ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:13" # cut 4 $ "gfunk_lead:13" # cut 4
# gain 1.8 # gain 1.8
# crushbus 51 (range 16 3.5 "^54") # crushbus 51 (range 16 3.5 "^33")
# pan 0.9 # pan 0.9
# room 0.3 # room 0.3
d7 $ gF3 $ gM3 $ "trance_amb:0/2" # cut 7 d7 $ gF3 $ gM3 $ "trance_amb:0/2" # cut 7
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON! $ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON! $ midiOn "^36" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3 $ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>" slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165") . loopAt 1 . (# "breaks165")
......
...@@ -16,19 +16,19 @@ d2 $ gM2 $ gF1 $ endSong -- Snare le fantome de la plage ...@@ -16,19 +16,19 @@ d2 $ gM2 $ gF1 $ endSong -- Snare le fantome de la plage
# rel 2 # rel 2
# gain 1.5 # gain 1.5
d3 $ gF1 $ gM2 $ endSong d3 $ gF1 $ gM2 $ endSong
$ midiOn "^76" (ply 2) $ midiOn "^43" (ply 2)
$ whenmod 8 6 (juxBy 0.8 rev) $ whenmod 8 6 (juxBy 0.8 rev)
$ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]" $ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]"
# "drum:2" # "drum:2"
# delay 0.5 # delay 0.5
# delayt 0.15 # delayt 0.15
d4 $ gF2 $ gM3 -- Dubesque bass 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 $ note ("g2 <g2 [<g2 a2> <a2 g2>]>") -- Melodie
+ "0(<3 3 5 3>,8) 0(<3!3 <1 [2 1] 5 8>>,8)" -- Structure + "0(<3 3 5 3>,8) 0(<3!3 <1 [2 1] 5 8>>,8)" -- Structure
# "bassWarsaw" # "bassWarsaw"
# gain 1.1 # gain 1.1
# squizbus 42 (range 0 8 "^33") # squizbus 42 (range 0 8 "^52")
# room 0.3 # sz 0.8 # dry 1.1 # room 0.3 # sz 0.8 # dry 1.1
# pan 0.4 # pan 0.4
d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace
......
do do
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" ) $ midiOff "^41" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
$ "kick:4" $ "kick:4"
d2 $ gF1 $ gM2 $ "~ cp ~ cp" # note "-4" d2 $ gF1 $ gM2 $ "~ cp ~ cp" # note "-4"
d3 $ gF1 $ gM2 $ "~ s ~ s ~ s ~ s*2" d3 $ gF1 $ gM2 $ "~ s ~ s ~ s ~ s*2"
...@@ -11,9 +11,9 @@ d4 $ gF2 $ note ( ...@@ -11,9 +11,9 @@ d4 $ gF2 $ note (
"<a4 c5 a4 b4>" + "[0(3,8) <0!4 7!3 12>(3,8)]" "<a4 c5 a4 b4>" + "[0(3,8) <0!4 7!3 12>(3,8)]"
) )
# "vec1_acid:26" # "vec1_acid:26"
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 1.95 "^33") # octersubbus 42 (range 0 1.95 "^52")
# octersubsubbus 43 (range 0 1.95 "^33") # octersubsubbus 43 (range 0 1.95 "^52")
d5 $ gF3 d5 $ gF3
$ note ( $ note (
"<a5 c6 a5 b5>*2" + "0(5,8)" - 12 "<a5 c6 a5 b5>*2" + "0(5,8)" - 12
......
...@@ -6,7 +6,7 @@ do ...@@ -6,7 +6,7 @@ do
-- d1 $ gF1 $ gM1 $ "kick:5" -- d1 $ gF1 $ gM1 $ "kick:5"
-- d1 $ gF1 $ gM1 $ "kick:5" -- d1 $ gF1 $ gM1 $ "kick:5"
d1 $ gF1 $ gM1 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)") -- $ midiOn "^42" (<| "k k(<3 [3 5]>,8)")
$ "kick:5" $ "kick:5"
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
...@@ -46,6 +46,6 @@ d4 $ gF2 $ gM3 -- Bass electrique ...@@ -46,6 +46,6 @@ d4 $ gF2 $ gM3 -- Bass electrique
# att 0.2 # att 0.2
# rel 2 # rel 2
# room 0.4 # dry 1.2 # sz 0.5 # room 0.4 # dry 1.2 # sz 0.5
# octersubbus 42 (range 0 4 "^33") # octersubbus 42 (range 0 4 "^32")
# crushbus 41 (range 16 2.3 "^53") # crushbus 41 (range 16 2.3 "^52")
# cut 4 # cut 4
do do
setcps (160/60/4) setcps (160/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>") $ midiOn "^41" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[cpu,kick:5]" $ "[cpu,kick:5]"
# gain 0.8 # gain 0.8
# lpf 2000 # lpf 2000
d2 $ gF1 $ gM2 $ "~ sn ~ sn*<1!3 2>" # "snare:30" # lpf 4000 d2 $ gF1 $ gM2 $ "~ sn ~ sn*<1!3 2>" # "snare:30" # lpf 4000
d3 $ gF1 $ gM2 $ "[~ hh]*4" # "h2ogmhh" # gain 0.8 d3 $ gF1 $ gM2 $ "[~ hh]*4" # "h2ogmhh" # gain 0.8
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^57" (struct "t(4,8)") $ midiOn "^44" (struct "t(4,8)")
$ midiOn "^89" (off "e" id) $ midiOn "^76" (off "e" id)
-- TODO Vary bassline, pas juste l'attente -- TODO Vary bassline, pas juste l'attente
$ note "<a*2 ~> ~ <~ <<d6!4 c5!4>*<2 1>>> <~ <c6!4 bs5!4>>" $ note "<a*2 ~> ~ <~ <<d6!4 c5!4>*<2 1>>> <~ <c6!4 bs5!4>>"
# "bassWarsaw" |- note 36 # "bassWarsaw" |- note 36
# crushbus 41 (range 11 2.8 "^53") # crushbus 41 (range 11 2.8 "^32")
# roombus 42 (range 0 0.8 "^53") # sz 0.8 # dry 1.1 # lpf 5000 # roombus 42 (range 0 0.8 "^32") # sz 0.8 # dry 1.1 # lpf 5000
# legato 2 # legato 2
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ whenmod 16 8 (juxBy 0.5 (("e" ~>) . (|+ note 12) . (# cut 51))) $ whenmod 16 8 (juxBy 0.5 (("e" ~>) . (|+ note 12) . (# cut 51)))
...@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3 ...@@ -27,7 +27,7 @@ d5 $ gF3 $ gM3
+ 24 -- Octave + 24 -- Octave
) )
# "giorgio_syn:28" # "giorgio_syn:28"
# octerbus 51 (range 0 1.5 "^54") # octerbus 51 (range 0 1.5 "^33")
# gain 1.5 # gain 1.5
# pan "<0.2!4 0.8!4>" # pan "<0.2!4 0.8!4>"
# cut 5 # cut 5
...@@ -38,7 +38,7 @@ d8 $ gF1 $ gM2 ...@@ -38,7 +38,7 @@ d8 $ gF1 $ gM2
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(8,16)" . 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")) $ midiOn "^92" (loopAt 0.5 . (# "breaks165"))
$ slice 4 "<0!3 2> <1!3 3> 2 3" $ slice 4 "<0!3 2> <1!3 3> 2 3"
$ "jungle_breaks:22" $ "jungle_breaks:22"
......
...@@ -3,8 +3,8 @@ setcps (80/60/4) ...@@ -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 gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>") $ midiOn "^41" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements $ midiOff "^41" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]" $ "[cpu,jazz]"
# lpf 5000 # lpf 5000
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
...@@ -12,12 +12,12 @@ d2 $ gF1 $ gM2 ...@@ -12,12 +12,12 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2 d3 $ gF1 $ gM2
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]" $ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8") $ midiOn "^44" (struct "t*8")
-- $ superimpose (ma) . (# cut 41)) -- $ superimpose (ma) . (# cut 41))
$ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1) $ note ("<c!4 ef ef g g> <c!4 ef ef g g>@3 . ~!7 <~ <b3 d3>>" - 1)
# "bass3:2" # "bass3:2"
# cut 4 # cut 4
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6)) $ (|+| note (arp "up" "~ 0 ~ 0" + (slow 2 "<g4 as4 c4 <d4 ds4>>") + 6))
$ slice 16 ("0") $ slice 16 ("0")
...@@ -26,7 +26,7 @@ d5 $ gF3 $ gM3 ...@@ -26,7 +26,7 @@ d5 $ gF3 $ gM3
# room 0.4 # dry 1.2 # room 0.4 # dry 1.2
# cut 5 # cut 5
d8 $ gF1 $ gMute 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>") $ midiOn "^92" (ply "<2!3 4>")
$ loopAt 4 $ loopAt 4
$ chop 16 $ chop 16
......
...@@ -6,8 +6,8 @@ let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50")) ...@@ -6,8 +6,8 @@ let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g1 = (gDJF1) let g1 = (gDJF1)
let g2 = (gDJF2) let g2 = (gDJF2)
d1 $ g1 d1 $ g1
$ midiOn "^42" (<| "k . k(<<3 1> 1 3 5>,8)") $ midiOn "^41" (<| "k . k(<<3 1> 1 3 5>,8)")
$ midiOff "^42" (<| "k") $ midiOff "^41" (<| "k")
$ "[jazz,909]" $ "[jazz,909]"
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
d2 $ g2 $ "~ snare:42" d2 $ g2 $ "~ snare:42"
...@@ -21,8 +21,8 @@ d4 $ g1 ...@@ -21,8 +21,8 @@ d4 $ g1
$ "break:1" $ "break:1"
# cut 4 # cut 4
# midiG' "^80" 0 1 # midiG' "^80" 0 1
# octerbus 40 (range 0 1.2 "^52") # octerbus 40 (range 0 1.2 "^32")
# octersubbus 41 (range 0 5 "^32") # octersubbus 41 (range 0 5 "^52")
# octersubsubbus 42 (range 0 5 "^16") # octersubsubbus 42 (range 0 5 "^16")
d5 d5
$ g2 $ g2
...@@ -44,7 +44,7 @@ d6 $ g2 ...@@ -44,7 +44,7 @@ d6 $ g2
# lpf 3000 # lpf 3000
# voice 0.1 # voice 0.1
# midiG' "^81" 0 1 # midiG' "^81" 0 1
# crushbus 61 (range 16 3.2 "^53") # crushbus 61 (range 16 3.2 "^34")
# room 0.4 # room 0.4
-- La pub c'est le mitard -- La pub c'est le mitard
......
...@@ -7,7 +7,7 @@ d1 $ gF4 $ gM1 ...@@ -7,7 +7,7 @@ d1 $ gF4 $ gM1
(# "hardkick_rha") . (# "hardkick_rha") .
-- (# n "<14!3 15 <14 15>>") -- (# n "<14!3 15 <14 15>>")
(# n 14) (# n 14)
. (|* gain (range 0 1 "^30")) . (|* gain (range 0 1 "^29"))
) -- SALE ) -- SALE
$ "k k*2 k <k k*2 k*<4 2 4 1> [~ k*<1 1 <1 <2 [4 2]>> <2 4>>]>" $ "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]" # "[jazz,hardkick_rha:5]"
...@@ -26,18 +26,18 @@ d8 $ gF1 $ gM2 ...@@ -26,18 +26,18 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 8
$ midiOn "^56" (loopAt 0.5 . (>| "breaks165")) $ midiOn "^36" (loopAt 0.5 . (>| "breaks165"))
$ "jungle_breaks:11" $ "jungle_breaks:11"
# cut 8 # cut 8
# room 0.4 # dry 1.1 # room 0.4 # dry 1.1
# gain 1.5 # gain 1.5
d4 $ gF2 $ gM3 -- Incroyable melodie mega chargee explosive d4 $ gF2 $ gM3 -- Incroyable melodie mega chargee explosive
$ midiOn "^89" (ply 4) $ midiOn "^76" (ply 4)
$ midiOn "^57" (mask "t([<2!4 4!4 8!4 16!4> 2],16)" $ midiOn "^44" (mask "t([<2!4 4!4 8!4 16!4> 2],16)"
. (# room 0.4) . (# dry 0.9)) . (# room 0.4) . (# dry 0.9))
-- $ midiOn "^57" (fast 4) -- $ midiOn "^57" (fast 4)
$ chop 64 $ chop 64
$ superimpose (# crushbus 41 (range 16 4 "^33")) $ superimpose (# crushbus 41 (range 16 4 "^32"))
$ slice 4 (slow 4 "<0 1 2 3>") $ slice 4 (slow 4 "<0 1 2 3>")
$ "rhadamanthe_melo:15" $ "rhadamanthe_melo:15"
# gain 1.2 # gain 1.2
...@@ -46,8 +46,8 @@ d5 -- Descente inexorable ...@@ -46,8 +46,8 @@ d5 -- Descente inexorable
"<[e4 c4 b3 a3] [e4 c4 b3 a3] [f4 d4 c4 b3] [f4 d4 c4 b3]>" "<[e4 c4 b3 a3] [e4 c4 b3 a3] [f4 d4 c4 b3] [f4 d4 c4 b3]>"
) )
# "FMRhodes1" # "FMRhodes1"
# crushbus 51 (range 16 4 "^54") # crushbus 51 (range 16 4 "^33")
# modIndex (range 0 4 "^34") # modIndex (range 0 4 "^53")
# gain 1.4 # gain 1.4
# room 0.2 # room 0.2
d6 $ gF3 $ gM3 -- Gros effet basse tremolo d6 $ gF3 $ gM3 -- Gros effet basse tremolo
......
...@@ -4,23 +4,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -4,23 +4,24 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gF $ gM1 -- Kick variable 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" ( $ midiOn "^41" (
# "hardkick:2" -- Kick GABBER # "hardkick:2" -- Kick GABBER
) )
$ midiOn "^75" (fast 2) $ 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!3 ~>") -- L'attente
$ midiOff "^42" (struct "t ~") $ midiOff "^41" (struct "t ~")
-- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif! -- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
$ "[techno:0,808bd:2,jazz]" -- Kick raisonnable $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
# "[techno:0,jazz]" -- Kick dnb # "[techno:0,jazz]" -- Kick dnb
# midiG' "^78" 0 1 # midiG' "^78" 0 1
d2 $ gF $ gMute -- Clap timer d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" (<| "c c c*<1!6 2 2> c*<1 2>") $ midiOn "^42" (<| "c c c*<1!6 2 2> c*<1 2>")
$ midiOff "^43" (<| "~ c") $ midiOff "^42" (<| "~ c")
$ drumFrom "[linnlm1]" "cp" $ drumFrom "[linnlm1]" "cp"
# lpf 1200 # lpf 1200
# distortbus 21 (range 0 2 "^31") # distortbus 21 (range 0 2 "^30")
# midiG' "^79" 0 1 # midiG' "^79" 0 1
d3 $ gF $ gMute -- Chapeau! d3 $ gF $ gMute -- Chapeau!
$ "~ h ~ h*<1!3 2> ~ h*<1!7 2> ~ h*<1 <2 4>>" $ "~ h ~ h*<1!3 2> ~ h*<1!7 2> ~ h*<1 <2 4>>"
...@@ -33,7 +34,7 @@ d4 $ gF3 ...@@ -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>]" "c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
- 24) - 24)
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 3.93 "^53") # crushbus 41 (range 16 3.93 "^32")
# cut 4 # cut 4
# pan 0.3 # pan 0.3
# legato 0.75 # legato 0.75
...@@ -42,7 +43,7 @@ d6 $ gF3 ...@@ -42,7 +43,7 @@ d6 $ gF3
-- $ slow 2 -- $ 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>]" $ note "c [c d ef] c [c d ef] c [c d ef] c [c <ef f g gs> <f g gs as>]"
# "harpsichord1" # "harpsichord1"
# crushbus 61 (range 16 3.93 "^54") # crushbus 61 (range 16 3.93 "^34")
# cut 6 # cut 6
# pan 0.3 # pan 0.3
# legato 0.5 # legato 0.5
...@@ -59,7 +60,7 @@ d7 $ gF2 ...@@ -59,7 +60,7 @@ d7 $ gF2
$ midiOn "^91" (arp "up") $ midiOn "^91" (arp "up")
$ note ("<[c4 <f4 gs4> <gs4 <c5 b4>>@6]>") $ note ("<[c4 <f4 gs4> <gs4 <c5 b4>>@6]>")
# "phazer" # "phazer"
# crushbus 61 (range 16 3.93 "^54") # crushbus 61 (range 16 3.93 "^35")
-- # cut 7 -- # cut 7
# pan 0.3 # pan 0.3
# legato 0.5 # legato 0.5
...@@ -92,7 +93,7 @@ d6 $ gM3 $ gF3 ...@@ -92,7 +93,7 @@ d6 $ gM3 $ gF3
# room 0.8 # dry 1 # room 0.8 # dry 1
# sz 0.64 # sz 0.64
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# crushbus 61 (range 16 3.93 "^54") # crushbus 61 (range 16 3.93 "^34")
# legato 2 # legato 2
# cut 6 # cut 6
......
...@@ -8,10 +8,10 @@ let f1 = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -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 f2 = (# djfbus 2 (range 0.25 0.75 "^29"))
let f3 = (# djfbus 3 (range 0.15 0.85 "^13")) let f3 = (# djfbus 3 (range 0.15 0.85 "^13"))
d1 $ f1 d1 $ f1
$ midiOn "^42" ( $ midiOn "^41" (
(<| "k . ~ k ~ ~" ) (<| "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]" $ "[kick:5,jazz,reverbkick]"
# end 0.25 # end 0.25
# midiG' "^78" 0 0.8 # midiG' "^78" 0 0.8
...@@ -25,20 +25,20 @@ d3 $ f2 ...@@ -25,20 +25,20 @@ d3 $ f2
# midiG' "^80" 0 0.8 # midiG' "^80" 0 0.8
# cut 3 # cut 3
d4 $ f3 d4 $ f3
$ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>")) $ midiOn "^76" (slice 4 ("0 0 0 <0 1 2>"))
$ loopAt 4 $ loopAt 4
$ "tek_loop:1" $ "tek_loop:1"
# cut 4 # cut 4
# gain 0.7 # gain 0.7
# midiG' "^82" 0 0.8 # midiG' "^82" 0 0.8
# pan 0.7 # pan 0.7
# crushbus 4 (range 12 1.5 "^54") # crushbus 4 (range 12 1.5 "^32")
d5 $ f1 d5 $ f1
$ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7") $ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7")
$ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]") $ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]")
# "tek_bass" # "tek_bass"
# pan 0.3 # pan 0.3
# crushbus 5 (range 10 3.5 "^53") # crushbus 5 (range 10 3.5 "^33")
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.2
d7 $ f3 d7 $ f3
$ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0) $ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0)
......
...@@ -4,7 +4,7 @@ setcps (120/60/4) ...@@ -4,7 +4,7 @@ setcps (120/60/4)
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gM $ gF1 $ mask "<t f!3 t!28>" 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" $ fix (|* gain 0.8) "kick"
$ "[jazz,808bd:4,kick:4]" $ "[jazz,808bd:4,kick:4]"
# midiG' "^78" 0 1.2 # 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 ...@@ -18,7 +18,7 @@ d3 $ gM $ gF1 $ "drum:2*<[8 4] 8 8 [8 16]>" -- [8 8 8 8] 32
d4 $ slow 4 d4 $ slow 4
$ contrast $ contrast
(gF2 . (# midiG' "^81" 0 2) . (# crush 16)) -- Graves (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 . (# 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)) (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)) -- $ fix (# pan 0.8) (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" + 7 - 28))
...@@ -27,7 +27,7 @@ d4 $ slow 4 ...@@ -27,7 +27,7 @@ d4 $ slow 4
) - 28) ) - 28)
# "bassWarsaw" # "bassWarsaw"
# pan 0.2 # pan 0.2
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
d8 $ gM $ gF1 d8 $ gM $ gF1
$ midiOn "^92" (ply "2") $ midiOn "^92" (ply "2")
$ midiOn "^60" (ply "1 2 . <2!3 4>") $ midiOn "^60" (ply "1 2 . <2!3 4>")
......
...@@ -36,22 +36,22 @@ d2 $ g1 $ "~ cp" # lpf 2000 # room 0.5 # dry 1 ...@@ -36,22 +36,22 @@ d2 $ g1 $ "~ cp" # lpf 2000 # room 0.5 # dry 1
d3 $ g2 $ "[hh <hh!3 <~!3 hh*<1 2>>>]*8" d3 $ g2 $ "[hh <hh!3 <~!3 hh*<1 2>>>]*8"
# midiG' "^80" 0 1.2 # midiG' "^80" 0 1.2
d4 $ g2 d4 $ g2
$ midiOn "^90" (juxBy 0.8 (rev . $ midiOn "^44" (juxBy 0.8 (rev .
(# cut 12) . (# cut 12) .
chop 8 . chop 8 .
(|* gain 0.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>" $ "raph_jardin" # n "<4!3 <5 4> 4 4 3 2>"
# cut 11 # cut 11
# lpf 2000 # lpf 2000
# midiG' "^82" 0 1.2 # midiG' "^82" 0 1.2
# crushbus 41 (range 12 2.5 "^54") # crushbus 41 (range 12 2.5 "^32")
d5 $ g1 d5 $ g1
$ midiOn "^89" (striate "2 <2!3 4>" . chop 8) $ midiOn "^89" (striate "2 <2!3 4>" . chop 8)
$ "fbass:3" $ "fbass:3"
# cut 5 # cut 5
# crushbus 51 (range 12 2.5 "^53") # crushbus 51 (range 12 2.5 "^33")
# midiG' "^81" 0 1.2 # midiG' "^81" 0 1.2
......
...@@ -18,7 +18,7 @@ d2 $ g1 $ m -- Snare 90s hip-hop ...@@ -18,7 +18,7 @@ d2 $ g1 $ m -- Snare 90s hip-hop
-- $ mask "<f!8 t!54>" -- $ mask "<f!8 t!54>"
-- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>") -- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
-- $ fast "<2 <2!8 [4!3 2]!8>>" -- $ fast "<2 <2!8 [4!3 2]!8>>"
$ midiOff "^43" (mask "f t") $ midiOff "^42" (mask "f t")
$ "~ s ~ s" # "[snare:8]" $ "~ s ~ s" # "[snare:8]"
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 $ g1 $ m -- Drumroll offert d3 $ g1 $ m -- Drumroll offert
...@@ -44,11 +44,12 @@ d5 $ g2 -- BASSLINE ...@@ -44,11 +44,12 @@ d5 $ g2 -- BASSLINE
# cut 4 # cut 4
# pan 0.3 # pan 0.3
# midiG' "^81" 0 0.57 # 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>") # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
# lpf 5000 # lpf 5000
# lsizebus 42 (range 1.9 6.7 "^33") -- 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.
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin))) -- # lsizebus 42 (range 1.9 6.7 "^53")
-- # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2 # room 0.2
d6 d6
$ midiOn "^58" (iter "1 4") $ midiOn "^58" (iter "1 4")
......
...@@ -2,16 +2,16 @@ do ...@@ -2,16 +2,16 @@ do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 -- Kick d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>") $ midiOn "^41" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~. k ~ ~ ") $ midiOff "^41" (<| "k . ~. k ~ ~ ")
$ "[kick:4]" $ "[kick:4]"
# gain 1.2 # gain 1.2
# lpf 400 # lpf 400
-- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM -- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM
# cps ((range 60 180 "^29")/60/4) # cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s") $ midiOn "^42" (<| "~ s ~ s")
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" ) $ midiOn "^42" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3 $ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11" 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 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 ...@@ -21,7 +21,9 @@ d3 $ gF1 $ gM2
-- # midiG' "^80" 0 1 -- # midiG' "^80" 0 1
# room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw) # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ 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)") $ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
$ superimpose ((|* gain "^16") . (# n 10) . (# legato 0.8)) $ superimpose ((|* gain "^16") . (# n 10) . (# legato 0.8))
$ superimpose ((|* gain "^32") . (# n 12) $ superimpose ((|* gain "^32") . (# n 12)
...@@ -36,14 +38,14 @@ d4 $ gF2 $ gM3 ...@@ -36,14 +38,14 @@ d4 $ gF2 $ gM3
-- d5 $ gF3 $ gM3 -- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>") $ 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>") $ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
# "cpluck:1" # "cpluck:1"
# room 0.3 # room 0.3
# octerbus 52 (range 0 0.8 "^34") # octerbus 52 (range 0 0.8 "^53")
# octersubbus 53 (range 0 0 "^34") # octersubbus 53 (range 0 0 "^53")
# octersubsubbus 54 (range 0 0 "^34") # octersubsubbus 54 (range 0 0 "^53")
d6 d6
$ loopAt 2 $ loopAt 2
$ slice 2 "<0 1>" $ slice 2 "<0 1>"
...@@ -72,8 +74,8 @@ d8 $ gF1 $ gM2 ...@@ -72,8 +74,8 @@ d8 $ gF1 $ gM2
. (# room 0) . (# room 0)
) )
$ midiOn "^60" (mask "f(8,16)" . chop 16) $ midiOn "^60" (mask "f(8,16)" . chop 16)
$ midiOn "^56" (# "jungle_breaks:7") $ midiOn "^36" (# "jungle_breaks:7")
$ midiOn "^36" (# "jungle_breaks:37") $ midiOn "^56" (# "jungle_breaks:37")
$ chop 16 $ "jungle_breaks:101" $ chop 16 $ "jungle_breaks:101"
# cut 8 # cut 8
d9 $ gF3 $ gM3 d9 $ gF3 $ gM3
......
...@@ -4,7 +4,7 @@ setcps (160/60/4) ...@@ -4,7 +4,7 @@ setcps (160/60/4)
-- let gMute = (midiOn "^73" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k . ~ k ~ ~ ") $ midiOn "^41" (<| "k . ~ k ~ ~ ")
$ "[bskick,jazz]" $ "[bskick,jazz]"
# gain 1.2 # gain 1.2
# gain 1.4 # gain 1.4
......
...@@ -3,8 +3,8 @@ do ...@@ -3,8 +3,8 @@ do
setcps (120/60/4) setcps (120/60/4)
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") $ midiOn "^41" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>") $ midiOff "^41" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [ $ stack [
"kick" # lpf 10000 # cut 1, "kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3 "rumble" |* gain 1.3
...@@ -17,8 +17,8 @@ d1 $ gF1 $ gM1 ...@@ -17,8 +17,8 @@ d1 $ gF1 $ gM1
-- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM -- TODO(tempo): wrap the range in `quantise 1` — 128 CC steps rarely land on a round BPM
# cps ((range 75 165 "^29")/60/4) # cps ((range 75 165 "^29")/60/4)
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>") $ midiOn "^42" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^42" (<| "~ s")
$ "[snare:24]" $ "[snare:24]"
# gain 1.4 # gain 1.4
d3 $ gF1 $ gM2 d3 $ gF1 $ gM2
...@@ -30,8 +30,8 @@ d4 $ gF2 $ gM3 $ loopAt 4 ...@@ -30,8 +30,8 @@ d4 $ gF2 $ gM3 $ loopAt 4
# bandf 400 # bandf 400
# lpf 1200 # lpf 1200
# gain 2 # gain 2
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# octerbus 42 (range 0 1.5 "^33") # octerbus 42 (range 0 1.5 "^52")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ note ("a4" - "[0,12]" + (scale "aeolian" $ note ("a4" - "[0,12]" + (scale "aeolian"
-- "<0!3 [0 1 2 <3 [3 4]>]>" -- Exploration -- "<0!3 [0 1 2 <3 [3 4]>]>" -- Exploration
...@@ -39,8 +39,8 @@ d5 $ gF3 $ gM3 ...@@ -39,8 +39,8 @@ d5 $ gF3 $ gM3
+ "<0!8 12!8 24!8 -12!8>" + "<0!8 12!8 24!8 -12!8>"
)) ))
# "FMRhodes1" # "FMRhodes1"
# roombus 51 (range 0 2 "^34") # roombus 51 (range 0 2 "^33")
# modIndex (range 0 32 "^54") # modIndex (range 0 32 "^53")
# gain 1.7 # gain 1.7
# delay 0.4 # delayfb 0.5 # delayt 0.125 # delay 0.4 # delayfb 0.5 # delayt 0.125
d7 $ gM3 $ gF1 d7 $ gM3 $ gF1
...@@ -49,9 +49,9 @@ d7 $ gM3 $ gF1 ...@@ -49,9 +49,9 @@ d7 $ gM3 $ gF1
-- $ loopAt 4 -- $ loopAt 4
$ "trance_loops:2" # cut 8 $ "trance_loops:2" # cut 8
# speed (range "-8" 8 # speed (range "-8" 8
"^55") "^35")
# gain 1.5 # gain 1.5
# squizbus 71 (range 0 4 "^35") # squizbus 71 (range 0 4 "^55")
# room 0.4 # room 0.4
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ chop 4 $ loopAt 2 $ chop 4 $ loopAt 2
......
...@@ -14,10 +14,10 @@ d3 ...@@ -14,10 +14,10 @@ d3
# "h2ogmsn" # "h2ogmsn"
# gain 2 # cut 3 -- Drill that Baby # gain 2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ superimpose (# tremdpbus 51 (range 0 4 "^54")) $ superimpose (# tremdpbus 51 (range 0 4 "^33"))
$ superimpose (# tremrbus 52 (range 0 4 "^34")) $ superimpose (# tremrbus 52 (range 0 4 "^53"))
-- $ superimpose (# crushbus 51 (range 16 4 "^54")) -- $ 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") -- $ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
$ gF2 $ gM2 $ gF2 $ gM2
-- $ n "<0!8 1!3 0 1!3 1*4>" -- $ n "<0!8 1!3 0 1!3 1*4>"
...@@ -51,7 +51,7 @@ d12 $ gM3 $ gF3 ...@@ -51,7 +51,7 @@ d12 $ gM3 $ gF3
# gain 1.2 # gain 1.2
d7 $ gF1 $ gM3 -- SCRATCH d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>") $ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 15) $ midiOn "^35" (# n 15)
$ midiOn "^59" (# n 15) $ midiOn "^59" (# n 15)
$ chop 16 $ chop 16
$ loopAt 4 $ loopAt 4
...@@ -63,7 +63,7 @@ d8 $ gF1 $ gM2 ...@@ -63,7 +63,7 @@ d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
$ loopAt 2 $ loopAt 2
$ chop 8 $ chop 8
$ midiOn "^56" (>| "jungle_breaks:10") $ midiOn "^36" (>| "jungle_breaks:10")
$ "jungle_breaks:11" $ "jungle_breaks:11"
# cut 8 # cut 8
# room 0.4 # dry 1.1 # room 0.4 # dry 1.1
......
...@@ -28,9 +28,9 @@ resetCycles ...@@ -28,9 +28,9 @@ resetCycles
setcps (140/60/4) setcps (140/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
-- $ mask "<f!8 t!56>" -- Mask regulier -- $ mask "<f!8 t!56>" -- Mask regulier
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>") $ midiOn "^41" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^41" (<| "k . ~ k ~ ~")
$ midiOn "^42" (# "hardkick_rha:1") $ midiOn "^41" (# "hardkick_rha:1")
$ "[808bd:4,808bd:2]" $ "[808bd:4,808bd:2]"
# gain 1.3 # gain 1.3
# lpf 2000 # lpf 2000
...@@ -48,7 +48,7 @@ d2 $ gF1 $ gM2 ...@@ -48,7 +48,7 @@ d2 $ gF1 $ gM2
-- # gain "1 1 0.93 1" -- # gain "1 1 0.93 1"
d3 $ gF1 $ gM2 d3 $ gF1 $ gM2
-- $ whenmod 8 15 (mask "t t t f") -- $ 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>]" $ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1") # "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
...@@ -72,10 +72,10 @@ d4 $ gF2 $ gM3 ...@@ -72,10 +72,10 @@ d4 $ gF2 $ gM3
# gain 1.2 # gain 1.2
# crush 6 # crush 6
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ fix ((|* gain (range 1 0 ("^34" + "^54"))) . (# "FMRhodes1")) "a" $ fix ((|* gain (range 1 0 ("^33" + "^53"))) . (# "FMRhodes1")) "a"
$ fix ((|* gain (range 0 0.8 "^54")) . (|* gain 1.1) . (# "vec1_acid:28")) "b" $ fix ((|* gain (range 0 0.8 "^53")) . (|* gain 1.1) . (# "vec1_acid:28")) "b"
$ fix ((|* gain (range 0 0.8 "^34")) . (|* gain 1.1) . (# "vec1_acid:34")) "c" $ fix ((|* gain (range 0 0.8 "^33")) . (|* gain 1.1) . (# "vec1_acid:34")) "c"
$ midiOn "^58" (slice 4 "0 1 0 0*4") $ midiOn "^89" (slice 4 "0 1 0 0*4")
$ superimpose ((|* gain (slow 16 $ range 0 1 saw)) . (|+ note 12) . (|+ pan 0.2)) $ superimpose ((|* gain (slow 16 $ range 0 1 saw)) . (|+ note 12) . (|+ pan 0.2))
$ note ( $ note (
"<[f4@3 a4 b4@4] [f4 a4 b4 e5 d5@2 b4 c5] [b4 g4 e4@4 ~ d4] [e4 g4 e4@5 ~] >" "<[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 ...@@ -11,28 +11,28 @@ d2 $ g1
# "bass:0" # lpf 4500 # att 0.005 # rel 1 # "bass:0" # lpf 4500 # att 0.005 # rel 1
# midiG' "^79" 0 0.9 # midiG' "^79" 0 0.9
d3 $ g1 d3 $ g1
$ midiOn "^76" (ply 2) $ midiOn "^43" (ply 2)
$ mask "<t!3 [t . <t [f t]> f <f t>]>" $ mask "<t!3 [t . <t [f t]> f <f t>]>"
$ "h*8" # n "0 0 1 <0 2>" # "h2ogmhh" $ "h*8" # n "0 0 1 <0 2>" # "h2ogmhh"
# midiG' "^80" 0 1 # midiG' "^80" 0 1
d4 $ g2 -- AIGLE DE LA MATRICE d4 $ g2 -- AIGLE DE LA MATRICE
$ "90s_matrix:2/4" $ "90s_matrix:2/4"
# crushbus 41 (range 16 2.4 "^53") # crushbus 41 (range 16 2.4 "^32")
# midiG' "^81" 0 0.6 # midiG' "^81" 0 0.6
# cut 4 # cut 4
d5 $ g2 d5 $ g2
$ slice 4 "<[0 1] [2 3] [0 1] [2 3*2]>" $ slice 4 "<[0 1] [2 3] [0 1] [2 3*2]>"
$ loopAt 2 $ loopAt 2
$ midiOn "^58" (# n 5) $ midiOn "^57" (# n 5)
$ "fbass:0" # cut 5 $ "fbass:0" # cut 5
# midiG' "^82" 0 0.9 # midiG' "^82" 0 0.9
# crushbus 51 (range 16 2.4 "^54") # crushbus 51 (range 16 2.4 "^33")
# pan 0.8 # pan 0.8
-- Abandon -- Abandon
d5 d5
$ midiOn "^90" (off "1/16" (id)) $ midiOn "^89" (off "1/16" (id))
$ slice 16 (slow 4 $ run 16) $ slice 16 (slow 4 $ run 16)
$ loopAt 16 $ loopAt 16
$ "synth_nes:1" $ "synth_nes:1"
......
...@@ -3,8 +3,8 @@ do ...@@ -3,8 +3,8 @@ do
setcps (120/60/4) setcps (120/60/4)
d1 $ gM1 $ gF1 d1 $ gM1 $ gF1
$ whenmod 8 6 (mask "f") $ whenmod 8 6 (mask "f")
$ midiOn "^42" (<| "k k k k*<1!3 2>") $ midiOn "^41" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k ~ ~ <~ [~ k]>" ) $ midiOff "^41" (<| "k ~ ~ <~ [~ k]>" )
$ "[808bd:1,jazz,kick:4]" $ "[808bd:1,jazz,kick:4]"
# gain (1.45 * "1!7 0.9") # gain (1.45 * "1!7 0.9")
d2 $ gM2 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>" d2 $ gM2 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>"
...@@ -17,16 +17,16 @@ d3 $ gM2 $ gF1 ...@@ -17,16 +17,16 @@ d3 $ gM2 $ gF1
$ "<~ h> h ~ h ~ h*<1 2 2 <1 [4 2]>> ~ h" $ "<~ h> h ~ h ~ h*<1 2 2 <1 [4 2]>> ~ h"
# "h2ogmhh:4" # gain 1.5 # "h2ogmhh:4" # gain 1.5
d4 $ gM3 $ gF2 d4 $ gM3 $ gF2
$ midiOn "^89" (ply "<2!3 [2 4]>") $ midiOn "^76" (ply "<2!3 [2 4]>")
$ midiOn "^57" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>") $ midiOn "^44" (slice 4 "0 [1 2] 0 3*<1 2 [2 1] 4>")
$ midiOn "^33" (slow 2) $ midiOn "^32" (slow 2)
$ n "<10 <10!3 8> <10!3 6> <8!3 5>>" $ n "<10 <10!3 8> <10!3 6> <8!3 5>>"
# "blues_guitar_hoochie_60" # "blues_guitar_hoochie_60"
# cut 4 # cut 4
# room (slow 32 $ range 0 0.6 saw) # room (slow 32 $ range 0 0.6 saw)
# sz 0.8 # sz 0.8
# dry 1.3 # dry 1.3
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^52")
# gain 1.4 # gain 1.4
# octersub 0.5 # octersub 0.5
d5 $ gM3 $ gF3 d5 $ gM3 $ gF3
......
...@@ -7,7 +7,7 @@ let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t")) ...@@ -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 m = mBreak
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ f1 d1 $ f1
$ midiOn "^42" (fast 2) $ midiOn "^41" (fast 2)
$ "[cpu,jazz]*2" $ "[cpu,jazz]*2"
# midiG' "^78" 0 1.8 # midiG' "^78" 0 1.8
d2 $ f1 $ mask "<t!16 f!8 t!8>" d2 $ f1 $ mask "<t!16 f!8 t!8>"
...@@ -29,7 +29,7 @@ d4 $ f1 ...@@ -29,7 +29,7 @@ d4 $ f1
))) )))
$ note (scale "aeolian" "<0 3 5 7>") $ note (scale "aeolian" "<0 3 5 7>")
# "moog" # "moog"
# crushbus 4 (range 16 2 "^53") # crushbus 4 (range 16 2 "^32")
# cut 4 # cut 4
# pan 0.2 # pan 0.2
# midiG' "^81" 0 1 # midiG' "^81" 0 1
...@@ -40,7 +40,7 @@ d5 $ f2 ...@@ -40,7 +40,7 @@ d5 $ f2
))) )))
$ note (scale "aeolian" "<0 3 5 7>") $ note (scale "aeolian" "<0 3 5 7>")
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 100 "^54") # modIndex (range 0 100 "^33")
# cut 5 # cut 5
# room 0.4 # room 0.4
# dry 1.5 # dry 1.5
......
...@@ -19,7 +19,7 @@ d3 $ gF1 $ gM2 ...@@ -19,7 +19,7 @@ d3 $ gF1 $ gM2
$ "dr*[8 <8 <16 [16 32]>>]" # gain 0.8 $ "dr*[8 <8 <16 [16 32]>>]" # gain 0.8
d4 $ gM3 $ gF2 d4 $ gM3 $ gF2
$ "giorgio_syn:2/2" $ "giorgio_syn:2/2"
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# cut 4 # cut 4
# gain 0.8 # gain 0.8
d8 $ gF1 $ gM2 $ loopAt 2 d8 $ gF1 $ gM2 $ loopAt 2
...@@ -35,7 +35,7 @@ d2 $ gF1 $ gM2 ...@@ -35,7 +35,7 @@ d2 $ gF1 $ gM2
d3 $ gF1 $ gM2 d3 $ gF1 $ gM2
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)" -- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.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 d9 -- Bogdan the Grime sample provider
$ whenmod 16 12 ( -- I'm from Cardiff! $ whenmod 16 12 ( -- I'm from Cardiff!
(# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>") (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
...@@ -76,17 +76,17 @@ d4 $ gF2 $ gM3 -- Bassline aqualgorithmique ...@@ -76,17 +76,17 @@ d4 $ gF2 $ gM3 -- Bassline aqualgorithmique
# pan 0.3 # pan 0.3
# room 0.4 # room 0.4
# octersubsub 0 # octersubsub 0
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# octersubsubbus 42 (range 0 2 "^33") # octersubsubbus 42 (range 0 2 "^52")
# gain 0.7 # gain 0.7
d5 $ gM3 $ gF3 -- Marimba fondamental 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 $ juxBy 0.4 rev
$ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>") $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
# "marimba1" # "marimba1"
# att (range 0.8 0.2 "^34") # att (range 0.8 0.2 "^33")
# rel 1 # rel 1
# squizbus 51 (range 0 2.5 "^54") # squizbus 51 (range 0 2.5 "^53")
-- # delay 0 # delayfb 0.8 # delayt 0.25 -- # delay 0 # delayfb 0.8 # delayt 0.25
# pan 0.9 # pan 0.9
# gain 3 # gain 3
...@@ -109,9 +109,9 @@ d10 $ gF2 $ gM3 -- Menace ...@@ -109,9 +109,9 @@ d10 $ gF2 $ gM3 -- Menace
# cut 9 # cut 9
d7 $ gM3 $ gF2 d7 $ gM3 $ gF2
-- $ ply 2 -- $ ply 2
$ midiOn "^59" (# speed "-0.25") $ midiOn "^91" (# speed "-0.25")
$ midiOn "^91" (struct "t*<8!3 [8 4]>") $ midiOn "^59" (struct "t*<8!3 [8 4]>")
$ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>") $ someCyclesBy "^35" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
$ chop 16 $ chop 16
$ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6 $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- # octersubsubbus 73 (range 0 8 "^19") -- # octersubsubbus 73 (range 0 8 "^19")
......
...@@ -8,13 +8,13 @@ resetCycles ...@@ -8,13 +8,13 @@ resetCycles
do do
setcps(140/60/4) setcps(140/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k(3,8) k [k k*2]>") $ midiOn "^41" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^42" (<| "k . ~ k ~ ~") $ midiOff "^41" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]" $ "[jazz,kick:5]"
d2 $ gF1 $ gM2 $ "~ ~ ~ <~ s> . s" # "snare:4" 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 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" 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 d8 $ gF1 $ gM2 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>") $ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
-- $ slice 4 "0 1*<1 2 4> 2? 3*<1!3 2>" -- $ 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")) ...@@ -4,11 +4,11 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gF2 d1 $ gF2
$ midiOn "^42" (<| "k*4") $ midiOn "^41" (<| "k*4")
-- $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 1>)") -- $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 1>)")
-- $ midiOff "^42" ((off "") . ("k k k k")) -- $ midiOff "^42" ((off "") . ("k k k k"))
$ "[kick:5,kick:8]" $ "[kick:5,kick:8]"
# delaybus 11 (range 0 0.4 "^30") # delaybus 11 (range 0 0.4 "^29")
# delay "e" # delay "e"
# delayfb 0 # delayfb 0
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
...@@ -28,7 +28,7 @@ d5 $ gF2 ...@@ -28,7 +28,7 @@ d5 $ gF2
$ note (fast (4/3) $ "g4(<4 [4 8]>,8, 1)" + "<0 [0 0 7] 0 [0 12]>") $ note (fast (4/3) $ "g4(<4 [4 8]>,8, 1)" + "<0 [0 0 7] 0 [0 12]>")
# "cpluck:2" # "cpluck:2"
# legato 2 # legato 2
# crushbus 51 (range 16 2.5 "^54") # crushbus 51 (range 16 2.5 "^33")
# cut 5 # cut 5
# room 0.9 # room 0.9
# dry 1 # dry 1
...@@ -37,13 +37,13 @@ d5 $ gF2 ...@@ -37,13 +37,13 @@ d5 $ gF2
-- # midiG' "^82" 0 1.5 -- # midiG' "^82" 0 1.5
d6 $ gF $ gM -- Break rayon laser =------------> d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8) $ midiOn "^90" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>") $ midiOn "^58" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4) $ midiOff "^58" (slow 4)
$ slice 8 (run "<8!7 16>") $ slice 8 (run "<8!7 16>")
$ "[~ break:4]" $ "[~ break:4]"
# cut 6 # cut 6
# speed (range 0 2 "^55") # speed (range 0 2 "^34")
# midiG' "^83" 0 1.5 # midiG' "^83" 0 1.5
once $ "" once $ ""
...@@ -42,8 +42,8 @@ d3 ...@@ -42,8 +42,8 @@ d3
(s "drum:2") (s "drum:2")
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d4 d4
$ midiOn "^44" (fast 0.5) $ midiOn "^76" (fast 0.5)
$ midiOn "^76" (ply 2) $ midiOn "^44" (ply 2)
$ midiRot "52" $ midiRot "52"
$ noVoid $ midiEuclid $ noVoid $ midiEuclid
(round <$> pasInscrit "16" "32") (round <$> pasInscrit "16" "32")
...@@ -51,8 +51,8 @@ d4 ...@@ -51,8 +51,8 @@ d4
(s "hh") (s "hh")
# midiG' "^80" 0 1.2 # midiG' "^80" 0 1.2
d5 d5
$ midiOn "^57" (fast 0.5) $ midiOn "^89" (fast 0.5)
$ midiOn "^89" (ply 2) $ midiOn "^57" (ply 2)
$ midiRot "53" $ midiRot "53"
$ noVoid $ midiEuclid $ noVoid $ midiEuclid
(round <$> pasInscrit "17" "33") (round <$> pasInscrit "17" "33")
...@@ -60,8 +60,8 @@ d5 ...@@ -60,8 +60,8 @@ d5
(s "hh") (s "hh")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
d6 d6
$ midiOn "^58" (fast 0.5) $ midiOn "^90" (fast 0.5)
$ midiOn "^90" (ply 2) $ midiOn "^58" (ply 2)
$ midiRot "54" $ midiRot "54"
$ noVoid $ midiEuclid $ noVoid $ midiEuclid
(round <$> pasInscrit "18" "34") (round <$> pasInscrit "18" "34")
...@@ -83,8 +83,8 @@ d7 ...@@ -83,8 +83,8 @@ d7
# sz (slow 32 $ range 0 0.7 saw) # sz (slow 32 $ range 0 0.7 saw)
# midiG' "^83" 0 1.2 # midiG' "^83" 0 1.2
d8 d8
$ midiOn "^60" (fast 0.5) $ midiOn "^92" (fast 0.5)
$ midiOn "^92" (ply 2) $ midiOn "^60" (ply 2)
$ midiRot "56" $ midiRot "56"
$ noVoid $ midiEuclid $ noVoid $ midiEuclid
(round <$> pasInscrit "20" "36") (round <$> pasInscrit "20" "36")
......
...@@ -3,8 +3,8 @@ resetCycles ...@@ -3,8 +3,8 @@ resetCycles
do do
setcps (120/60/4) setcps (120/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>") $ midiOff "^41" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^42" (<| "k k <k!3 [k*2 ~]> k") $ midiOn "^41" (<| "k k <k!3 [k*2 ~]> k")
$ "kick:5" $ "kick:5"
-- # room 0.2 # dry 1.1 -- # room 0.2 # dry 1.1
-- # gain "<1 0.8>" -- # gain "<1 0.8>"
...@@ -18,7 +18,7 @@ d2 $ gF1 $ gM2 ...@@ -18,7 +18,7 @@ d2 $ gF1 $ gM2
-- d3 $ gF1 $ gM1 $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)" -- 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 -- # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.6 # legato 0.25
d3 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 $ n ("~ 1 ~ 2 ~ 2 ~ <1!3 2>") # "rampleS24" # cut 3
d4 $ gF2 $ gM3 $ note ( d4 $ gF2 $ gM3 $ note (
"b4(<3 5 3 [3 5]>,8) <a5 <ef5 a4>>(<1!3 3>,8,<0 1>)" "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 ...@@ -38,7 +38,7 @@ d4 $ gF2 $ gM3 -- BASSE SIMPLE
-- # crushbus 42 (range 16 2 "^33") -- # crushbus 42 (range 16 2 "^33")
# cut 4 # cut 4
d7 $ gF2 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>") $ slice 8 ("[0 1 2 3]*2" + "<0!4 3!4>")
-- $ loopAt 8 -- $ loopAt 8
$ n "<3!3 4>" $ n "<3!3 4>"
...@@ -72,9 +72,9 @@ d5 -- ARPEGIATEUR ...@@ -72,9 +72,9 @@ d5 -- ARPEGIATEUR
-- # gain 1.2 -- # gain 1.2
d8 $ gF1 $ gM2 -- Come on breaks! d8 $ gF1 $ gM2 -- Come on breaks!
$ chop 8 $ chop 8
$ midiOn "^56" (loopAt (2/3) . (# n "<74>")) $ midiOn "^36" (loopAt (2/3) . (# n "<74>"))
$ midiOn "^92" (ply 4) $ 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! -- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)") $ midiOff "^60" (mask "t(4,8)")
$ loopAt 2 $ loopAt 2
......
...@@ -45,7 +45,7 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -45,7 +45,7 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gF d1 $ gF
$ midiOn "^42" (<| "k k k k*2") $ midiOn "^41" (<| "k k k k*2")
$ (<| "k") $ (<| "k")
$ "jazz" $ "jazz"
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
......
...@@ -10,7 +10,7 @@ d1 $ g ...@@ -10,7 +10,7 @@ d1 $ g
$ "[rootsDrums,jazz]" $ "[rootsDrums,jazz]"
# midiG' "^78" 0 1.8 # midiG' "^78" 0 1.8
d2 $ g d2 $ g
$ midiOn "^43" (fast 2) $ midiOn "^42" (fast 2)
$ superimpose ((# "cp") . (# room 0)) $ superimpose ((# "cp") . (# room 0))
$ n "[~ 4]*<2!6 4 [4 2]>" $ n "[~ 4]*<2!6 4 [4 2]>"
# "rootsDrums" # "rootsDrums"
...@@ -27,22 +27,22 @@ d6 ...@@ -27,22 +27,22 @@ d6
$ n "<2!4 2 3 3 ~>" $ n "<2!4 2 3 3 ~>"
# "rootsBass" # "rootsBass"
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
# crushbus 62 (range 16 1.4 "^53") # crushbus 62 (range 16 1.4 "^34")
# cut 6 # cut 6
# pan 0.15 # pan 0.15
d4 $ g 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 g g/2 [~ <~ g ~ g*2>] g ~ g ~ g ~ ~ [~ g*4]>"
$ "g/4" $ "g/4"
# s "rootsGuitar" # s "rootsGuitar"
# lesliebus 42 (range 0 16 "^54") # lesliebus 42 (range 0 16 "^32")
# lratebus 41 ("^34") # lratebus 41 ("^52")
# midiG' "^82" 0 1.5 # midiG' "^82" 0 1.5
# cut 4 # cut 4
# pan 0.3 # pan 0.3
d5 d5
$ g $ g
$ degradeBy "^56" $ degradeBy "^33"
$ slice 16 (run 16) $ slice 16 (run 16)
$ loopAt 2 $ loopAt 2
$ "rootsMix:1" $ "rootsMix:1"
...@@ -72,5 +72,5 @@ d7 $ g ...@@ -72,5 +72,5 @@ d7 $ g
|+| "0 <7 <7 12>>" |+| "0 <7 <7 12>>"
) )
# "FMRhodes2" # "FMRhodes2"
# crushbus 72 (range 16 4.3 "^36") # crushbus 72 (range 16 4.3 "^35")
# midiG' "^20" 0 1.4 # midiG' "^55" 0 1.4
...@@ -40,14 +40,14 @@ d4 -- Bassline classique ...@@ -40,14 +40,14 @@ d4 -- Bassline classique
$ slice 4 "1" $ slice 4 "1"
$ loopAt 4 $ loopAt 4
$ "rootsBass:2" $ "rootsBass:2"
# lsize (range 0 2 "^33") # lsize (range 0 2 "^32")
# lesliebus 41 (range 0 1 "^53") # lesliebus 41 (range 0 1 "^52")
# lrate 6.8 # lrate 6.8
# cut 4 # cut 4
# pan 0.2 # pan 0.2
# midiG' "^81" 0 1.8 # midiG' "^81" 0 1.8
d5 $ f2 d5 $ f2
$ midiOn "^90" (stutWith 4 "e" ( $ midiOn "^57" (stutWith 4 "e" (
(|+ cut 1) . (|* gain 0.9) . (# legato 2) (|+ cut 1) . (|* gain 0.9) . (# legato 2)
)) ))
$ off "h" id $ off "h" id
...@@ -60,9 +60,9 @@ d6 $ f2 -- Piano contretemps delayed crushed ...@@ -60,9 +60,9 @@ d6 $ f2 -- Piano contretemps delayed crushed
-- $ note "d6" -- $ note "d6"
# "superpiano" # "superpiano"
# velocity 0.4 # velocity 0.4
# delayfb (range 0.5 1.1 "^55") -- 1D: fb / size controlled with single knob # delayfb (range 0.5 1.1 "^34") -- 1D: fb / size controlled with single knob
# crushbus 61 (range 16 5 "^19") -- Weird interferences with delay # crushbus 61 (range 16 5 "^54") -- Weird interferences with delay
# delayt "h" # delayt "h"
# delay (range 0 1.01 "^55") # delay (range 0 1.01 "^34")
# room 0.3 # room 0.3
# midiG' "^83" 0 1.8 # midiG' "^83" 0 1.8
...@@ -21,7 +21,7 @@ d1 $ g -- Kick ;) ...@@ -21,7 +21,7 @@ d1 $ g -- Kick ;)
$ fix (|* gain (range 0.5 1.2 "^50")) "808bd:3" $ fix (|* gain (range 0.5 1.2 "^50")) "808bd:3"
$ fix (|* gain 1.15) "808bd:5" $ fix (|* gain 1.15) "808bd:5"
$ fix ( $ fix (
(|* gain (range 0.5 1.2 "^30")) (|* gain (range 0.5 1.2 "^29"))
. (# att 0.01) . (# rel 2) . (# att 0.01) . (# rel 2)
) "909" ) "909"
$ "kick" $ "kick"
...@@ -34,17 +34,17 @@ d2 $ g -- CP/Snare Contretemps ...@@ -34,17 +34,17 @@ d2 $ g -- CP/Snare Contretemps
# lpf (slow 16 $ range 4000 200 saw) # lpf (slow 16 $ range 4000 200 saw)
# midiG' "^79" 0 0.9 # midiG' "^79" 0 0.9
d4 $ g -- ELECTRIC bass d4 $ g -- ELECTRIC bass
$ midiOn "^89" (chop 4) $ midiOn "^76" (chop 4)
$ midiOn "^57" ((sometimesBy "f t" rev) . chop 8) $ midiOn "^44" ((sometimesBy "f t" rev) . chop 8)
$ "90s_matrix:3" $ "90s_matrix:3"
# cut 4 # cut 4
# midiG' "^81" 0 0.65 # midiG' "^81" 0 0.65
# pan 0.666 # pan 0.666
# crushbus 41 (range 16 1.5 "^53") # crushbus 41 (range 16 1.5 "^32")
d5 $ g d5 $ g
$ mask "<f!32 t!32>" $ mask "<f!32 t!32>"
$ superimpose ((# cut 51) $ superimpose ((# cut 51)
. (# crushbus 51 (range 16 1.5 "^54"))) . (# crushbus 51 (range 16 1.5 "^33")))
$ "90s_glassatm:3" $ "90s_glassatm:3"
# cut 5 # cut 5
# midiG' "^82" 0 0.5 # midiG' "^82" 0 0.5
......
...@@ -3,8 +3,8 @@ let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])]) ...@@ -3,8 +3,8 @@ let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])])
setcps (65/60/4) setcps (65/60/4)
let mFast = midiOn "^41" (fast 2) let mFast = midiOn "^41" (fast 2)
d1 $ mFast d1 $ mFast
$ midiOn "^42" ((<| "k k k <k [~ k]>")) $ midiOn "^41" ((<| "k k k <k [~ k]>"))
$ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" ) $ midiOff "^41" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
$ "jazz" $ "jazz"
# midiG' "^78" 0 1.8 # midiG' "^78" 0 1.8
d2 d2
...@@ -30,7 +30,7 @@ d4 ...@@ -30,7 +30,7 @@ d4
# room 0.42 # sz 0.8 # dry 1 # 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) d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12)
# "bassWarsaw" # "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53") # crushbus 51 (range 16 2.5 "^33")
# midiG' "^81" 0 2 # midiG' "^81" 0 2
d6 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>]>") $ 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 ...@@ -45,7 +45,7 @@ d4
$ arp "up!3 <converge <down downup>>" $ arp "up!3 <converge <down downup>>"
$ note (chordsMin - 24) $ note (chordsMin - 24)
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 14 8 "^53") # crushbus 41 (range 14 8 "^32")
# pan 0.3 # pan 0.3
# room 0.2 # room 0.2
# gain 0.6 # gain 0.6
...@@ -54,7 +54,7 @@ d5 $ g ...@@ -54,7 +54,7 @@ d5 $ g
$ note (chords - 24) $ note (chords - 24)
# "FMRhodes1" # "FMRhodes1"
# att 1 # rel 2 # att 1 # rel 2
# modIndex (range 0 2 "^54") # modIndex (range 0 2 "^33")
# room 0.8 # room 0.8
# dry 1 # dry 1
# sz 0.2 # sz 0.2
......
...@@ -17,7 +17,7 @@ d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>" ...@@ -17,7 +17,7 @@ d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>"
# "[sn:20,snare:8]" # "[sn:20,snare:8]"
# midiG' ("^79" * "~ . 1 0.9") 0 0.9 # midiG' ("^79" * "~ . 1 0.9") 0 0.9
d3 $ g1 d3 $ g1
$ midiOn "^44" (fast 2) $ midiOn "^43" (fast 2)
$ sometimesBy 0.1 (fast 2) $ sometimesBy 0.1 (fast 2)
$ "d*[8 <8 <4 [4 16]>>]" $ "d*[8 <8 <4 [4 16]>>]"
# "drum:2" # "drum:2"
...@@ -44,11 +44,11 @@ d5 $ g2 ...@@ -44,11 +44,11 @@ d5 $ g2
- 24) - 24)
# "bassWarsaw" # "bassWarsaw"
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
# crushbus 51 (range 16 4.6 "^53") # crushbus 51 (range 16 4.6 "^33")
# pan 0.3 # pan 0.3
d6 d6
$ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>") $ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>")
$ "break:18" $ "break:18"
# midiG' "^84" 0 1.3 # midiG' "^84" 0 1.3
# speed (range 0 2 "^56") # speed (range 0 2 "^34")
# cut 6 # cut 6
...@@ -18,9 +18,9 @@ let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) ...@@ -18,9 +18,9 @@ let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF let g = gF
setcps (100/60/4) setcps (100/60/4)
d1 $ gDJF $ g d1 $ gDJF $ g
$ midiOff "^42" (mask "<f f [t f] t t!28>") $ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^42" (<| "k k k <k!3 k*2>") $ midiOn "^41" (<| "k k k <k!3 k*2>")
$ midiOff "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub $ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,bd]" $ "[jazz,bd]"
# midiG' "^78" 0 1.1 # midiG' "^78" 0 1.1
d2 $ gDJF $ g -- Snare prog d2 $ gDJF $ g -- Snare prog
...@@ -28,10 +28,10 @@ d2 $ gDJF $ g -- Snare prog ...@@ -28,10 +28,10 @@ d2 $ gDJF $ g -- Snare prog
# "h2ogmsn:6" # "h2ogmsn:6"
# midiG' "^79" 0 1.1 # midiG' "^79" 0 1.1
d5 $ g -- Breakbeat d5 $ g -- Breakbeat
$ midiOn "^76" (ply "<2!3 [4 <4 1>]>") $ midiOn "^89" (ply "<2!3 [4 <4 1>]>")
$ midiOn "^44" (slow "<4 2>") $ midiOn "^57" (slow "<4 2>")
$ sometimesBy "^32" (ply "<4 [4|2] 2 <1!3 4>>") $ sometimesBy "^33" (ply "<4 [4|2] 2 <1!3 4>>")
$ someCyclesBy (0.9 * "^52") (scramble "1 4") $ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ chop 8 $ chop 8
-- $ slice 4 "0 1 <0 2 6 2> <1 3 7 3>" -- $ slice 4 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 1 $ loopAt 1
...@@ -41,7 +41,8 @@ d5 $ g -- Breakbeat ...@@ -41,7 +41,8 @@ d5 $ g -- Breakbeat
d3 $ g -- Bass bows d3 $ g -- Bass bows
$ gDJF $ gDJF
$ gLeslie $ 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) $ midiOn "^89" (chop 16)
$ slow 4 $ slow 4
$ note ( $ note (
...@@ -52,10 +53,10 @@ d3 $ g -- Bass bows ...@@ -52,10 +53,10 @@ d3 $ g -- Bass bows
-- # room 0.6 -- # room 0.6
# sz 0.5 # sz 0.5
# midiG' "^81" 0 0.86 # midiG' "^81" 0 0.86
# crushbus 31 (range 10 2 "^53") # crushbus 31 (range 10 2 "^31")
d4 $ g -- Higher bows d4 $ g -- Higher bows
$ midiOn "^90" (off "e" (|+ note "<7!3 12>")) $ midiOn "^44" (off "e" (|+ note "<7!3 12>"))
$ midiOn "^58" gLeslie $ midiOn "^76" gLeslie
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4") $ whenmod 8 7 (ply "1 4")
$ slow 2 $ slow 2
...@@ -67,17 +68,17 @@ d4 $ g -- Higher bows ...@@ -67,17 +68,17 @@ d4 $ g -- Higher bows
# cut 4 # cut 4
# room 0.2 # room 0.2
# pan 0.6 # pan 0.6
# crushbus 41 (range 10 2 "^54") # crushbus 41 (range 10 2 "^32")
# midiG' "^82" 0 1.05 # midiG' "^82" 0 1.05
d8 $ g -- Angels d8 $ g -- Angels
$ midiOn "^59" ( -- Crowd of thoughts $ midiOn "^60" ( -- Crowd of thoughts
off "<s!16 e!16>" off "<s!16 e!16>"
(|+ note "7 12") . (# cut 81) . (|* gain 0.86)) (|+ note "7 12") . (# cut 81) . (|* gain 0.86))
$ note "<[<c!4 d!2 c!2 g4!4> . ~!3 <~ <d g4>>] a4>" $ note "<[<c!4 d!2 c!2 g4!4> . ~!3 <~ <d g4>>] a4>"
# "cbow:3" # "cbow:3"
# cut 8 # cut 8
# pan 0.86 # pan 0.86
# crushbus 81 (range 10 2 "^55") # crushbus 81 (range 10 2 "^36")
# midiG' "^83" 0 1.4 # midiG' "^83" 0 1.4
d9 d9
$ midiOn "^92" (ply "2 <1 <4 [4 8]>>") $ midiOn "^92" (ply "2 <1 <4 [4 8]>>")
......
...@@ -37,23 +37,24 @@ d1 $ g ...@@ -37,23 +37,24 @@ d1 $ g
# gM' 0 1 "^78" # gM' 0 1 "^78"
d2 $ g d2 $ g
$ sometimesBy ("^51") (jux rev) $ sometimesBy ("^51") (jux rev)
$ sometimesBy ("^31") (ply 2) $ sometimesBy ("^30") (ply 2)
$ whenmod 4 3 (mask "t . t t f t") $ whenmod 4 3 (mask "t . t t f t")
$ "[gretsch:4,drum:2]*[4 8]" $ "[gretsch:4,drum:2]*[4 8]"
# gM' 0.5 1.4 "^79" # gM' 0.5 1.4 "^79"
# pan 0.6 # pan 0.6
# lpf 4000 # lpf 4000
d3 $ g 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) $ novaOn ("^44") (striate 16)
$ someCyclesBy ("^52") ( $ someCyclesBy ("^31") (
slice 8 "[0 2 0 <6 4>]*2") slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak120:9" $ "fbreak120:9"
# gM' 0.5 1.3 "^80" # gM' 0.5 1.3 "^80"
# lpf 5000 # lpf 5000
# cut 3 # cut 3
d4 $ g d4 $ g
$ midiOn "^57" (superimpose ( $ midiOn "^76" (superimpose (
(|+ note 24) (|+ note 24)
. chop (slow 4 "<1 2 4 8>") . chop (slow 4 "<1 2 4 8>")
. arp "updown" . arp "updown"
...@@ -62,10 +63,10 @@ d4 $ g ...@@ -62,10 +63,10 @@ d4 $ g
$ note prog $ note prog
# "bassWarsaw" # "bassWarsaw"
# gM' 0 1.3 "^81" # gM' 0 1.3 "^81"
# lpq "^33" # lpq "^32"
# room 0.5 # room 0.5
# octave 3 # octave 3
# crush (range 10 4.2 "^53") # crush (range 10 4.2 "^52")
# sz 0.8 # sz 0.8
d7 $ g d7 $ g
$ whenmod 16 8 (fast 2) $ whenmod 16 8 (fast 2)
...@@ -86,7 +87,8 @@ d8 $ g -- CHOIRS ...@@ -86,7 +87,8 @@ d8 $ g -- CHOIRS
# "moogBass" # "moogBass"
# octave 3 # octave 3
-- # amp 0.5 -- # amp 0.5
# crush (range 10 5.5 "^20") # crush (range 10 5.5 "^36")
# hpf (range 0 10000 "^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.
# cutoff (range 120 10000 "^56") -- # hpf (range 0 10000 "^56")
-- # cutoff (range 120 10000 "^56")
# gM' 0.45 1.2 "^84" # gM' 0.45 1.2 "^84"
...@@ -39,7 +39,7 @@ d1 $ gF ...@@ -39,7 +39,7 @@ d1 $ gF
d2 $ gF d2 $ gF
$ whenPont1 (fast "4!3 <4!3 2 4 2>") $ whenPont1 (fast "4!3 <4!3 2 4 2>")
$ sometimesBy ("^51") (jux rev) $ sometimesBy ("^51") (jux rev)
$ sometimesBy ("^31") (ply 2) $ sometimesBy ("^30") (ply 2)
$ fast "[8 <8 16>]" $ fast "[8 <8 16>]"
$ "[dr,drum:2]" $ "[dr,drum:2]"
# pan ("^16") # pan ("^16")
...@@ -47,7 +47,8 @@ d2 $ gF ...@@ -47,7 +47,8 @@ d2 $ gF
# gM "^79" # gM "^79"
d3 $ gF d3 $ gF
$ whenPont1 (mask "t(<4!3 6 4 2>,16)") $ 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") ( $ someCyclesBy ("^52") (
slice 8 "[0 2 0 <6 4>]*2") slice 8 "[0 2 0 <6 4>]*2")
$ "fbreak80" $ "fbreak80"
...@@ -56,11 +57,11 @@ d3 $ gF ...@@ -56,11 +57,11 @@ d3 $ gF
# cut 3 # cut 3
d4 $ gF d4 $ gF
$ jux (|+ room 0.1) $ jux (|+ room 0.1)
$ sometimesBy ("^53") (rev . chop 8) $ sometimesBy ("^32") (rev . chop 8)
$ loopAt 2 $ loopAt 2
$ "fguitar:8" $ "fguitar:8"
# gM "^81" # gM "^81"
# pan (0.5 + (perlin * "^17")) # pan (0.5 + (perlin * "^52"))
# cut 3 # cut 3
d5 d5
-- $ gF -- $ gF
...@@ -72,7 +73,7 @@ d5 ...@@ -72,7 +73,7 @@ d5
-- # lpq ("^34") -- # lpq ("^34")
-- # lpf (range 10000 0 "^54") -- # lpf (range 10000 0 "^54")
# gM' 0.25 1.1 "^82" # gM' 0.25 1.1 "^82"
# pan (0.5 + (perlin * "^18")) # pan (0.5 + (perlin * "^33"))
d6 d6
$ "[~ s]*<2!4 4!3 [4 8]>" $ "[~ s]*<2!4 4!3 [4 8]>"
......
...@@ -10,7 +10,7 @@ setcps (120/60/4) ...@@ -10,7 +10,7 @@ setcps (120/60/4)
d1 d1
$ g $ g
$ every' 8 6 (# silence) $ every' 8 6 (# silence)
$ sometimesBy "^42" (slow 2) $ sometimesBy "^41" (slow 2)
$ fast 4 $ fast 4
$ "[jazz,tech:5]" $ "[jazz,tech:5]"
# gM' 0 1.2 "^78" # gM' 0 1.2 "^78"
...@@ -22,7 +22,7 @@ d2 ...@@ -22,7 +22,7 @@ d2
$ "hh*8" $ "hh*8"
# gM' 0 1.3 "^79" # gM' 0 1.3 "^79"
d3 $ g d3 $ g
$ sometimesBy "^57" ( -- OFF ARP! $ sometimesBy "^43" ( -- OFF ARP!
off "q" id . (arpeggiate . (# legato 1)) off "q" id . (arpeggiate . (# legato 1))
) )
$ note "<e'min7 f'maj7 d'sus4 a4'min7>" $ note "<e'min7 f'maj7 d'sus4 a4'min7>"
...@@ -30,7 +30,7 @@ d3 $ g ...@@ -30,7 +30,7 @@ d3 $ g
# "bassWarsaw" # "bassWarsaw"
# gM' 0 1.1 "^81" # gM' 0 1.1 "^81"
# room 0.5 # sz 0.5 # room 0.5 # sz 0.5
# crush (range 16 5.2 "^53") # crush (range 16 5.2 "^31")
d4 d4
$ g $ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8))) $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8)))
......
...@@ -19,8 +19,8 @@ let g = (gDJF) ...@@ -19,8 +19,8 @@ let g = (gDJF)
d1 $ g -- KICK d1 $ g -- KICK
-- $ whenmod 8 6 (# silence) -- $ whenmod 8 6 (# silence)
$ novaOn "^74" (mask "t(11,12)" . fast "<2!6 4 2>") -- Folie $ 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 $ novaOn "^41" (<| "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 $ novaOff "^41" (<| "k(<1 [1|2|5]>,8) . k(<3 5>,8)") -- Le classique
$ "reverbkick" $ "reverbkick"
# room 0.2 # room 0.2
# pan 0.4 # pan 0.4
...@@ -30,7 +30,7 @@ d4 $ g -- BREAKBEAT ...@@ -30,7 +30,7 @@ d4 $ g -- BREAKBEAT
(slice 8 "0 4") (slice 8 "0 4")
$ someCyclesBy "^75" -- Laggy $ someCyclesBy "^75" -- Laggy
(slice 8 "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)") (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>>") (slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
$ loopAt 1 $ slice 8 (run 8) $ loopAt 1 $ slice 8 (run 8)
$ "break:1" $ "break:1"
...@@ -38,7 +38,7 @@ d4 $ g -- BREAKBEAT ...@@ -38,7 +38,7 @@ d4 $ g -- BREAKBEAT
# speedbus 41 (range 0 2 "^51") # speedbus 41 (range 0 2 "^51")
# cut 4 # cut 4
d2 $ g -- Snares gretscha d2 $ g -- Snares gretscha
$ someCyclesBy "^44" ( $ someCyclesBy "^42" (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw)) (whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw))
. hurry 2 . hurry 2
. (|* gain 1.1) . (|* gain 1.1)
...@@ -50,18 +50,18 @@ d2 $ g -- Snares gretscha ...@@ -50,18 +50,18 @@ d2 $ g -- Snares gretscha
# pan 0.3 # pan 0.3
# gM' 0.2 1.4 "^80" # gM' 0.2 1.4 "^80"
d3 $ g -- Metal drumroll 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]" $ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]"
# note ("<-2 -4 -2 0>") # note ("<-2 -4 -2 0>")
# gM' 0 0.9 "^84" # gM' 0 0.9 "^84"
d5 -- Fragments of Wiley d5 -- Fragments of Wiley
$ (# lpf (range 5000 200 "^54")) $ (# lpf (range 5000 200 "^33"))
$ g $ g
$ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>") $ novaOn "^57" (segment "<2 [2 4] [4 8] [16 32]>")
$ novaOn "^58" (slow 16) $ novaOn "^89" (slow 16)
$ novaOff "^58" (slow 4) $ novaOff "^89" (slow 4)
$ "pray" $ "pray"
# crush (range 10 2.5 "^54") # crush (range 10 2.5 "^33")
# n "<0!4 1!8>" # n "<0!4 1!8>"
# cut 5 # cut 5
# pan 0.8 # pan 0.8
...@@ -70,7 +70,7 @@ d6 -- TODO Rework ...@@ -70,7 +70,7 @@ d6 -- TODO Rework
$ superimpose (arp "<up!2 down up>" . fast 2 . (|- note 12)) $ superimpose (arp "<up!2 down up>" . fast 2 . (|- note 12))
$ note ("[e3,<~ gs4!2 b4>,e4] [fs3,fs4]") $ note ("[e3,<~ gs4!2 b4>,e4] [fs3,fs4]")
# "FMRhodes1" # "FMRhodes1"
# rel (range 0.2 1 "^53") # rel (range 0.2 1 "^34")
# amp (range 0.4 0.8 "^81") # amp (range 0.4 0.8 "^81")
# gM' 0.8 1.6 "^81" # gM' 0.8 1.6 "^81"
d7 $ g d7 $ g
...@@ -78,5 +78,5 @@ d7 $ g ...@@ -78,5 +78,5 @@ d7 $ g
$ midiOn "^59" (fast 2) $ midiOn "^59" (fast 2)
$ s "~ clap" $ s "~ clap"
# room 0.5 # size 0.4 # dry 0.95 # room 0.5 # size 0.4 # dry 0.95
# note (range "-6" 6 "^55") # note (range "-6" 6 "^35")
# gM' 0 1.6 "^83" # gM' 0 1.6 "^83"
...@@ -52,7 +52,7 @@ d1 -- Kick 4/4 ...@@ -52,7 +52,7 @@ d1 -- Kick 4/4
$ midiOn "^41" (<| "k <<k!8 ~ k!7> k!3 ~ k!3> k <k <k*2 [~ k]>>") $ midiOn "^41" (<| "k <<k!8 ~ k!7> k!3 ~ k!3> k <k <k*2 [~ k]>>")
$ midiOff "^41" (<| "k <k!2 <k k?> ~>") $ midiOff "^41" (<| "k <k!2 <k k?> ~>")
$ "[jazz,kick:5]*4" $ "[jazz,kick:5]*4"
# midiG' ("^77" * "^55") 0 1 # midiG' ("^77" * "^29") 0 1
d2 -- Hats contretemps d2 -- Hats contretemps
$ ply "1 1 <1 <[2|1] 2>> 1" $ ply "1 1 <1 <[2|1] 2>> 1"
$ mask "<f!12 t!24>" $ mask "<f!12 t!24>"
...@@ -60,33 +60,41 @@ d2 -- Hats contretemps ...@@ -60,33 +60,41 @@ d2 -- Hats contretemps
$ "[~ hh]*4" $ "[~ hh]*4"
# n "<8!7 [8!3 10]>" # n "<8!7 [8!3 10]>"
# release (slow 16 (range 1 0.05 saw)) # 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) # pan (slow 4 $ range 0.98 0.5 saw)
d3 $ g -- Running Hats d3 $ g -- Running Hats
$ mask "<f!4 t!12>" $ 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>") $ fast ("<1!4 2!4 4!24>" * "<1!8 2!8>" * "1 1 1 <1 [1 2] [2 1] 2>")
$ "hh" $ "hh"
# pan (slow 16 $ range 0.2 0.8 saw) # pan (slow 16 $ range 0.2 0.8 saw)
# gain (1.7 * "^77" * "^56") # gain (1.7 * "^77" * "^31")
d5 $ g d5 $ g
$ off "h" id $ off "h" id
$ midiOn "^42" (scramble 4 . ply 2 . often (chop "<2!3 4 2 [2 4] 2 4>")) $ midiOn "^89" (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 "^57" (off "q" ((# room 0.2) . (|* gain 0.8)))
$ degradeBy ("<0 0.5> 1!7" * "^50") $ 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") $ midiOn "^44" (degradeBy "0 1!5 0.5 0.25")
$ note mel $ note mel
# s "superfm" # s "superfm"
# midiG' "^78" 0 1.3 # 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>]" # 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" # 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] # fmratios [1, 4, (slow 8 $ "<0.126 0.26 [0.51 0.52]>"), 0, 0, 0]
# fmdetunes ["^51", 1 - "^52", "^53", 0, 0, 0] -- 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.
# fmmod 1 1 ("<0 1.25>" + "^31") -- # fmdetunes ["^51", 1 - "^52", "^53", 0, 0, 0]
# fmmod 1 2 (range 0 2 "^32") -- 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 1 3 (range 0 4 "^33")
-- # fmmod 3 2 (range 0 3 (slow 4 sine + "^52")) -- # fmmod 3 2 (range 0 3 (slow 4 sine + "^52"))
# envlevel 1 [1, 0.5, 0, 0, 0, 0] # envlevel 1 [1, 0.5, 0, 0, 0, 0]
......
...@@ -15,8 +15,8 @@ d12 $ gM3 $ gF3 -- PIANO DE DEBUGGING ...@@ -15,8 +15,8 @@ d12 $ gM3 $ gF3 -- PIANO DE DEBUGGING
-- # room 0.3 # sz ("0.2 0.4 0.6") -- # room 0.3 # sz ("0.2 0.4 0.6")
d1 $ gF1 $ gM1 -- KICK PLEIN d1 $ gF1 $ gM1 -- KICK PLEIN
-- $ fix ((# att 0.05) . (# lpf 4500) . (# gain 0.9)) "rampleR1:0" -- $ 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]>>") $ midiOn "^41" (<| "k k k <k!3 <k*2 [k*2 k] [k ~ k] [k*4]>>")
$ midiOff "^42" (<| "k <~!4 k ~ ~ k*2> . ~ ~ [~ <~ k>] k") $ midiOff "^41" (<| "k <~!4 k ~ ~ k*2> . ~ ~ [~ <~ k>] k")
$ "[rampleR1:0]" $ "[rampleR1:0]"
# gain 1.4 # gain 1.4
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
...@@ -39,19 +39,19 @@ d4 $ gF2 $ gM3 -- La gravite, inevitable ...@@ -39,19 +39,19 @@ d4 $ gF2 $ gM3 -- La gravite, inevitable
+ 0 + 0
) )
# "bassWarsaw" # "bassWarsaw"
# octersubbus 41 (range 0 3 "^53") # octersubbus 41 (range 0 3 "^32")
# cut 4 # cut 4
# pan 0.3 # pan 0.3
# gain 1.7 # gain 1.7
d5 $ gF3 $ gM3 -- La lumiere, partout d5 $ gF3 $ gM3 -- La lumiere, partout
$ midiOn "^58" (chop 8) $ midiOn "^89" (chop 8)
$ midiOff "^58" (chop 2) $ midiOff "^89" (chop 2)
$ midiOn "^90" (ply "2 <2 4>") $ midiOn "^57" (ply "2 <2 4>")
$ note prog $ note prog
# "90s_glassatm:0" # "90s_glassatm:0"
# cut 5 # cut 5
# pan 0.8 # 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 d7 $ gF1 $ gM3 -- Les inevitables trolls
$ fix ((|* gain 0.8) . (|- note 4) . (# "rampleR0:3")) "r0bd1" $ fix ((|* gain 0.8) . (|- note 4) . (# "rampleR0:3")) "r0bd1"
$ fix (# "rampleR0:2") "r0bd" $ fix (# "rampleR0:2") "r0bd"
...@@ -60,9 +60,9 @@ d7 $ gF1 $ gM3 -- Les inevitables trolls ...@@ -60,9 +60,9 @@ d7 $ gF1 $ gM3 -- Les inevitables trolls
# gain 0.8 # gain 0.8
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
-- $ ply "1 2" -- $ ply "1 2"
$ midiOn "^56" (# n "4") $ midiOn "^36" (# n "4")
$ midiOn "^60" (slice 16 (run "<[8!3 4]!3 <4 [4 <8 16>]>>")) $ midiOn "^92" (slice 16 (run "<[8!3 4]!3 <4 [4 <8 16>]>>"))
$ midiOn "^92" (ply 2) $ midiOn "^60" (ply 2)
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:30" $ "jungle_breaks:30"
......
...@@ -7,8 +7,8 @@ let gMute = (midiOn "^73" (mask "f*16")) ...@@ -7,8 +7,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
d1 $ gF1 $ gM d1 $ gF1 $ gM
$ superimpose ((# "jazz:0") . (|* gain 0.9)) $ superimpose ((# "jazz:0") . (|* gain 0.9))
$ midiOff "^42" (<| "k . <~ <[~ k] k(<3 [<1 <3 5>> 5]>,8)>>") $ midiOff "^41" (<| "k . <~ <[~ k] k(<3 [<1 <3 5>> 5]>,8)>>")
$ midiOn "^42" (<| "k k k <k [<k ~> k]>") $ midiOn "^41" (<| "k k k <k [<k ~> k]>")
$ d "bd:1" $ d "bd:1"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
d2 $ gF1 $ superimpose ((# "snare:13") . (|*gain 0.8)) $ d "~ [sd:5]" d2 $ gF1 $ superimpose ((# "snare:13") . (|*gain 0.8)) $ d "~ [sd:5]"
...@@ -20,8 +20,8 @@ d4 $ gF2 $ slow 2 -- Intro dark bass rample ...@@ -20,8 +20,8 @@ d4 $ gF2 $ slow 2 -- Intro dark bass rample
$ "rampleO7" $ "rampleO7"
# n "<0 1 2 3>" # n "<0 1 2 3>"
# cut 4 # cut 4
# crushbus 41 (range 16 2 "^53") # crushbus 41 (range 16 2 "^32")
# roombus 42 (range 0 0.52 "^33") # roombus 42 (range 0 0.52 "^52")
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
d5 $ silence -- TODO SECONDE BASS GROOVY d5 $ silence -- TODO SECONDE BASS GROOVY
d6 d6
......
...@@ -32,7 +32,7 @@ d4 $ gF2 ...@@ -32,7 +32,7 @@ d4 $ gF2
# room 0.4 # room 0.4
# sz 0.5 # sz 0.5
# cut 4 # cut 4
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# midiG' "^81" 0 1 # midiG' "^81" 0 1
d10 $ gF3 d10 $ gF3
$ slice 4 "<0!4 ~!12> ~ <~ <2 2?>> <~!32 3*<[1]!8 1 2 2 4 4 2 4 4>!32>" $ 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 ...@@ -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 = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.01 0.45 saw)))
let gDJF = id let gDJF = id
d1 $ gDJF $ gM1 $ gF1 -- KICK SOUTENANT d1 $ gDJF $ gM1 $ gF1 -- KICK SOUTENANT
$ midiOn "^42" (<| "k . ~ k ~ ~") $ midiOn "^41" (<| "k . ~ k ~ ~")
$ fix ((# drumFrom "rolandtr909" "bd:3")) "909bd" $ fix ((# drumFrom "rolandtr909" "bd:3")) "909bd"
$ "[jazz,909bd]" $ "[jazz,909bd]"
# midiG' "^78" 0 1.9 # midiG' "^78" 0 1.9
...@@ -22,19 +22,19 @@ d2 $ gDJF $ gF1 $ gM -- FIXME Meilleure dialectique kick/snare ...@@ -22,19 +22,19 @@ d2 $ gDJF $ gF1 $ gM -- FIXME Meilleure dialectique kick/snare
# pan 0.8 # pan 0.8
# midiG' "^79" 0 1.9 # midiG' "^79" 0 1.9
d3 $ gDJF $ gM $ gF1 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" $ "~ h ~ h*<1!3 2> ~ h ~ h"
# "h2ogmhh" # "h2ogmhh"
# attbus 31 (range 0.2 0.05 "^52") # attbus 31 (range 0.2 0.05 "^31")
# midiG' "^80" 0 1.9 # midiG' "^80" 0 1.9
|* gain (range 0.85 1 (fast 2 perlin)) |* gain (range 0.85 1 (fast 2 perlin))
d4 $ gF2 d4 $ gF2
$ superimpose (# crushbus 41 (range 16 3 "^53")) $ superimpose (# crushbus 41 (range 16 3 "^32"))
$ note "<d4 e4 a3@2>" $ note "<d4 e4 a3@2>"
# "90s_matrix:3" # "90s_matrix:3"
# cut 4 # cut 4
# pan 0.2 # pan 0.2
# triodebus 42 (range 0 4 "^33") # triodebus 42 (range 0 4 "^52")
# midiG' "^81" 0 2 # midiG' "^81" 0 2
d5 $ gDJF $ gF1 d5 $ gDJF $ gF1
$ whenmod 8 7 (# delay 0.6) $ whenmod 8 7 (# delay 0.6)
...@@ -53,7 +53,7 @@ d6 $ gF3 ...@@ -53,7 +53,7 @@ d6 $ gF3
$ fix (|* gain (slow 32 $ range 0 1 cosine)) "cpluck:5" $ fix (|* gain (slow 32 $ range 0 1 cosine)) "cpluck:5"
$ fix (|* gain (slow 32 $ range 0.5 0 sine)) "cpluck:6" $ fix (|* gain (slow 32 $ range 0.5 0 sine)) "cpluck:6"
$ note ("e@2 c@2 e <f g c b4>") $ 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]" # "[cpluck:4,cpluck:5,cpluck:6]"
# rel 2 # rel 2
# pan 0.2 # pan 0.2
...@@ -69,7 +69,7 @@ d7 $ gF3 ...@@ -69,7 +69,7 @@ d7 $ gF3
# delayt (1/8) # delayt (1/8)
# delayfb (slow 16 $ range 0.1 0.8 saw) # delayfb (slow 16 $ range 0.1 0.8 saw)
# cut 7 # cut 7
# crushbus 71 (range 16 2.4 "^55") # crushbus 71 (range 16 2.4 "^35")
# lpf 4000 # lpf 4000
# midiG' "^83" 0 1.3 # midiG' "^83" 0 1.3
d8 $ gM $ gF1 d8 $ gM $ gF1
......
...@@ -12,8 +12,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]" ...@@ -12,8 +12,8 @@ d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
# gain 1.4 # gain 1.4
d3 $ gF1 $ gM2 $ "d(3,8) d(3,8)" # "h2ogmsn" # gain 2 # cut 3 -- Drill that Baby 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 d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle
$ midiOn "^89" (off "0.25" id) $ midiOn "^44" (off "0.25" id)
$ superimpose ((# crushbus 41 (range 16 2.5 "^53")) $ superimpose ((# crushbus 41 (range 16 2.5 "^32"))
. (|* gain 0.8) . (|* gain 0.8)
. (# hpf 500) . (# lpf 10000) . (# hpf 500) . (# lpf 10000)
) )
...@@ -29,7 +29,7 @@ d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle ...@@ -29,7 +29,7 @@ d4 $ gF2 $ gM3 -- Basse languinante d'un vieux violoncelle
# bandq 1 # bandq 1
# gain 1.2 # gain 1.2
# lpf 500 # lpf 500
# octersubbus 42 (range 0 1 "^33") # octersubbus 42 (range 0 1 "^52")
# tremr 1.4 # tremr 1.4
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ midiOn "^92" ( $ midiOn "^92" (
...@@ -49,11 +49,11 @@ d8 $ gF1 $ gM2 ...@@ -49,11 +49,11 @@ d8 $ gF1 $ gM2
# gain 1.4 # gain 1.4
d6 $ gF3 $ gM3 $ loopAt 4 $ "meth_bass:4" # gain 1.3 d6 $ gF3 $ gM3 $ loopAt 4 $ "meth_bass:4" # gain 1.3
d7 $ gF3 -- Choeurs des temps passés 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) . chop "<16!3 32>" . (# rel 0.85)
) -- Pan the chops! ) -- Pan the chops!
$ midiOn "^91" (ply "4 <4!3 <8 16>>") $ midiOn "^59" (ply "4 <4!3 <8 16>>")
$ midiOn "^19" (# freeze "<0.1 0.2 0.4 0.8>") $ midiOn "^35" (# freeze "<0.1 0.2 0.4 0.8>")
-- $ ((# distortbus 71 (range 0 2 "^55")) -- $ ((# distortbus 71 (range 0 2 "^55"))
-- . (# octerbus 72 (range 0 1.5 "^55")) -- . (# octerbus 72 (range 0 1.5 "^55"))
-- . (# cut 71) -- . (# cut 71)
...@@ -64,7 +64,7 @@ d7 $ gF3 -- Choeurs des temps passés ...@@ -64,7 +64,7 @@ d7 $ gF3 -- Choeurs des temps passés
# cut 7 # cut 7
# room 0.3 # room 0.3
# dry 0.92 # dry 0.92
# tremrbus 72 (range 0 20 "^35") # tremrbus 72 (range 0 20 "^55")
# tremdp 2 # tremdp 2
# hpf 2000 # hpf 2000
# gain 2 # gain 2
......
...@@ -27,9 +27,9 @@ d3 $ gF1 $ gM2 -- Drumroll fantome ...@@ -27,9 +27,9 @@ d3 $ gF1 $ gM2 -- Drumroll fantome
# sz 0.8 # sz 0.8
# pan 0.7 # pan 0.7
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 2") $ midiOn "^76" (ply "4 2")
$ superimpose ( $ superimpose (
(# crushbus 41 (range 16 2.8 ("^53" + 0.25 * perlin))) (# crushbus 41 (range 16 2.8 ("^32" + 0.25 * perlin)))
. (# hpf 200) . (# hpf 200)
. (# lpf 10000) . (# lpf 10000)
. (|* gain 1)) . (|* gain 1))
...@@ -56,7 +56,7 @@ d8 $ gF1 $ gM2 ...@@ -56,7 +56,7 @@ d8 $ gF1 $ gM2
$ midiOn "^60" (mask "f(<4!3 [2 8]>,8)") $ midiOn "^60" (mask "f(<4!3 [2 8]>,8)")
$ chop 16 $ chop 16
$ loopAt 1 $ loopAt 1
$ midiOn "^56" ((>| "jungle_breaks:109") . (|* gain 0.95)) $ midiOn "^36" ((>| "jungle_breaks:109") . (|* gain 0.95))
$ "jungle_breaks:110" $ "jungle_breaks:110"
# cut 8 # cut 8
# hpf 400 # hpf 400
......
...@@ -13,7 +13,7 @@ d3 $ gF1 $ gM2 ...@@ -13,7 +13,7 @@ d3 $ gF1 $ gM2
$ "dr*[8@3 <8!3 16>]" $ "dr*[8@3 <8!3 16>]"
# delay 0.2 # delayt "s" # delayfb 0.4 # delay 0.2 # delayt "s" # delayfb 0.4
d5 $ gF3 $ gM3 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>" $ slow 2 $ slice 8 "<0 0 [1 2] 3 4!4 5!4 6 6 7 7>"
$ "latin" $ "latin"
# cut 5 # cut 5
......
...@@ -2,8 +2,8 @@ do ...@@ -2,8 +2,8 @@ do
setcps (160/60/4) setcps (160/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k*<1 2>]>") $ midiOn "^41" (<| "k k k <k k*2 k [~ k*<1 2>]>")
$ midiOff "^42" (<| "k ~ . ~ k ~ ~") $ midiOff "^41" (<| "k ~ . ~ k ~ ~")
$ "[jazz,808bd:3]" $ "[jazz,808bd:3]"
-- $ "[808bd:4]" -- $ "[808bd:4]"
# gain 1.4 # gain 1.4
...@@ -24,14 +24,14 @@ d3 $ gF1 $ gM2 ...@@ -24,14 +24,14 @@ d3 $ gF1 $ gM2
# delay 0.15 # delay 0.15
# delayfb (slow 16 $ range 0.2 0.75 perlin) # delayfb (slow 16 $ range 0.2 0.75 perlin)
d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3 d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3
$ midiOn "^57" (|- note 12) $ midiOn "^44" (|- note 12)
$ midiOn "^89" (ply "1 . <8 <12!3 24>>") $ midiOn "^76" (ply "1 . <8 <12!3 24>>")
$ whenmod 128 64 ( -- Echoes of triplets $ whenmod 128 64 ( -- Echoes of triplets
off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93))) 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>") $ 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>" $ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>"
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# gain 1.5 # gain 1.5
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ someCyclesBy "<1!32 0!32>" (someCyclesBy (slow 16 $ range 0.99 0.1 saw) (degradeBy "~ 0 ~ <1!3 1?>")) -- La pluie $ 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 ...@@ -42,8 +42,8 @@ d5 $ gF3 $ gM3
# octave 6 # octave 6
# bandf 200 # bandf 200
# bandfrecv 10 # bandfrecv 10
# octerbus 51 (range 0 0.95 "^54") -- ETOILES # octerbus 51 (range 0 0.95 "^33") -- ETOILES
# octersubbus 52 (range 0 5 "^34") -- ETOILES # octersubbus 52 (range 0 5 "^53") -- ETOILES
# gain 1.5 # gain 1.5
# room 0.5 # room 0.5
# sz 0.8 # sz 0.8
......
...@@ -2,8 +2,8 @@ do ...@@ -2,8 +2,8 @@ do
setcps (80/60/4) setcps (80/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 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]>]>>")) $ midiOn "^41" (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>>]") $ midiOff "^41" (<| "k(<1 1 3 2> ,8) . ~ <~!8 k!24> ~ [~ <~ k*<1 2>>]")
$ "[rampleM8:0,jazz,808bd:3]" $ "[rampleM8:0,jazz,808bd:3]"
# gain 1.4 # gain 1.4
# room 0.1 # sz 0.5 # dry 0.9 # room 0.1 # sz 0.5 # dry 0.9
...@@ -24,13 +24,13 @@ d4 $ gF2 $ gM3 ...@@ -24,13 +24,13 @@ d4 $ gF2 $ gM3
# "bass3" # "bass3"
|+ note "ds" |+ note "ds"
# gain 2 # gain 2
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ note ("c!15 <cs ef f bf4>" + "[0,12]") $ note ("c!15 <cs ef f bf4>" + "[0,12]")
# "FMRhodes1" # "FMRhodes1"
# chorus 0.5 # chorus 0.5
# modIndex (range 0 4 "^34") # modIndex (range 0 4 "^33")
# crushbus 51 (range 16 5 "^54") # crushbus 51 (range 16 5 "^53")
# gain 1.4 # gain 1.4
# legato 0.125 # legato 0.125
# delay 0.8 # delayt (1/32) # delayfb (slow 16 $ range 0 0.7 saw) # delay 0.8 # delayt (1/32) # delayfb (slow 16 $ range 0 0.7 saw)
...@@ -53,6 +53,6 @@ d7 $ gF3 $ gM3 -- PUNK TIMER ...@@ -53,6 +53,6 @@ d7 $ gF3 $ gM3 -- PUNK TIMER
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ whenmod 8 6 (mask "t([16 <16 8> . <8 4>],16)") $ whenmod 8 6 (mask "t([16 <16 8> . <8 4>],16)")
$ chop 16 $ chop 16
$ midiOn "^56" (loopAt 1 . (>| "jungle_breaks:108")) $ midiOn "^36" (loopAt 1 . (>| "jungle_breaks:108"))
$ loopAt 1 $ "jungle_breaks:107" $ loopAt 1 $ "jungle_breaks:107"
# cut 8 # cut 8
...@@ -42,8 +42,8 @@ d4 $ g2 -- Broken Saloon ...@@ -42,8 +42,8 @@ d4 $ g2 -- Broken Saloon
-- . (|+ note 12) -- . (|+ note 12)
-- . (# cut 51) -- . (# cut 51)
-- ) -- )
$ midiOn "^58" (iter 16) $ midiOn "^44" (iter 16)
$ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>") $ 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>")) $ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>"))
$ loopAt 2 $ loopAt 2
$ "fpiano:8" $ "fpiano:8"
......
...@@ -35,10 +35,10 @@ d4 $ gF2 $ gM3 -- MEDIEVAL DARK BASSLINE <3 ...@@ -35,10 +35,10 @@ d4 $ gF2 $ gM3 -- MEDIEVAL DARK BASSLINE <3
"<0 [0 <12 [12 0]>]>" + "<0 [0 <12 [12 0]>]>" +
"0(3,8) 0(3,8)" +"0 0 0 <7>" "0(3,8) 0(3,8)" +"0 0 0 <7>"
+ 12 + 12
)) . (# cut 41) . (|* ampbus 43 "^33") )) . (# cut 41) . (|* ampbus 43 "^32")
) )
$ midiOn "^89" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41)) $ midiOn "^76" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41))
$ superimpose ((# crushbus 41 (range 16 2.8 "^53")) $ superimpose ((# crushbus 41 (range 16 2.8 "^52"))
. (# hpf 300) . (# hpf 300)
. (# lpf 10000) . (# lpf 10000)
. (|* gain 1.5)) . (|* gain 1.5))
...@@ -100,7 +100,7 @@ d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs ...@@ -100,7 +100,7 @@ d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs
# cut 10 # cut 10
d6 $ gF2 $ gM3 $ "meth_bass:3" d6 $ gF2 $ gM3 $ "meth_bass:3"
# note "-9" # note "-9"
# crushbus 61 (range 16 2.5 "^30") # crushbus 61 (range 16 2.5 "^34")
# cut 6 # gain 1 # cut 6 # gain 1
-- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4 -- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4
......
...@@ -30,5 +30,5 @@ d1 ...@@ -30,5 +30,5 @@ d1
# room 0.6 # size 0.5 # dry 1 # room 0.6 # size 0.5 # dry 1
# cut 1 # cut 1
d3 d3
$ novaOn "^44" (fast "2 <2 [4 2]>") $ novaOn "^43" (fast "2 <2 [4 2]>")
$ "dr*8"# gM' 0 1 "^80" $ "dr*8"# gM' 0 1 "^80"
...@@ -27,7 +27,7 @@ d1 $ g ...@@ -27,7 +27,7 @@ d1 $ g
# gM' 0 1.1 "^78" # gM' 0 1.1 "^78"
d2 $ g d2 $ g
$ (# gM' 0.35 0.9 "^79") $ (# gM' 0.35 0.9 "^79")
$ novaOn "^43" (slow 2) $ novaOn "^42" (slow 2)
$ novaOn "^75" (const $ loopAt 1 $ novaOn "^75" (const $ loopAt 1
$ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3") $ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3")
$ "breaks165") $ "breaks165")
...@@ -46,13 +46,13 @@ d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4" ...@@ -46,13 +46,13 @@ d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4"
# cut 4 # cut 4
# gM' 0 0.8 "^81" # gM' 0 0.8 "^81"
d5 $ g d5 $ g
$ novaOn "^58" (chop (4 + ("12" * "^90"))) $ novaOn "^57" (chop (4 + ("12" * "^89")))
$ whenmod 4 2 (stutWith 4 "e" (# legato 0.25)) $ whenmod 4 2 (stutWith 4 "e" (# legato 0.25))
$ note chords $ note chords
# "moogBass" # "moogBass"
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^54")) # gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^33"))
# crushbus 51 (range 10 1 "^34") # crushbus 51 (range 10 1 "^53")
# chorus (range 0 4 "^54") -- 0.7 # chorus (range 0 4 "^33") -- 0.7
......
...@@ -12,7 +12,7 @@ d1 $ g1 ...@@ -12,7 +12,7 @@ d1 $ g1
# midiG' "^78" 0 1.4 # midiG' "^78" 0 1.4
d2 $ g1 d2 $ g1
$ midiOn "^75" (>| "breaks165") $ midiOn "^75" (>| "breaks165")
$ splice 4 (run (4 + ("^43" * 2))) $ splice 4 (run (4 + ("^42" * 2)))
$ loopAt 2 $ loopAt 2
$ "break:4" $ "break:4"
# midiG' "^79" 0 1.3 # midiG' "^79" 0 1.3
...@@ -21,7 +21,7 @@ d4 $ g2 ...@@ -21,7 +21,7 @@ d4 $ g2
$ note ("<c3!3 [bf2@6 ~ g2]>") $ note ("<c3!3 [bf2@6 ~ g2]>")
# "bassWarsaw" # "bassWarsaw"
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
# crushbus 41 (range 16 4 "^53") # crushbus 41 (range 16 4 "^32")
# room 0.2 # room 0.2
# cut 4 # cut 4
......
...@@ -8,9 +8,9 @@ let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>" ...@@ -8,9 +8,9 @@ let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
d1 d1
$ gF $ gMute $ gF $ gMute
$ midiOn "^74" (fast 2) $ midiOn "^74" (fast 2)
$ midiOn "^42" (-- Run $ midiOn "^41" (-- Run
slow 2 . (<| "k k k k")) 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" $ "[meth_1902:2,kick:8]" # note "-2"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
d2 $ gF $ gM -- Snare glitch high d2 $ gF $ gM -- Snare glitch high
...@@ -28,7 +28,8 @@ d2 $ gF $ gM -- Snare glitch high ...@@ -28,7 +28,8 @@ d2 $ gF $ gM -- Snare glitch high
-- # n "<0 1 2 3>" -- # n "<0 1 2 3>"
-- # midiG' "^80" 0 1.2 -- # midiG' "^80" 0 1.2
d3 $ gF $ gM $ loopAt 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) $ midiOn "^76" (ply 2)
$ chop 16 $ chop 16
$ "jungle_breaks:6" $ "jungle_breaks:6"
...@@ -43,11 +44,11 @@ d5 $ gF2 ...@@ -43,11 +44,11 @@ d5 $ gF2
# "bassWarsaw" # "bassWarsaw"
# legato 2 # legato 2
# cut 5 # cut 5
# crushbus 51 (range 16 2 "^53") # crushbus 51 (range 16 2 "^33")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
# room 0.2 # sz 0.2 # room 0.2 # sz 0.2
d4 $ gF3 d4 $ gF3
$ midiOn "^58" ( $ midiOn "^44" (
-- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9)))) -- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9))))
-- . (off ("h" + "s") id . arp "up") -- . (off ("h" + "s") id . arp "up")
-- . -- .
...@@ -56,7 +57,7 @@ d4 $ gF3 ...@@ -56,7 +57,7 @@ d4 $ gF3
$ whenmod 64 32 (# note (progAlt - 12)) $ whenmod 64 32 (# note (progAlt - 12))
$ note (prog - 12) $ note (prog - 12)
# "FMRhodes2" # "FMRhodes2"
# modIndex (range 0 16 "^54") # modIndex (range 0 16 "^32")
# pan 0.8 # pan 0.8
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.3
d7 $ gF3 d7 $ gF3
...@@ -65,7 +66,7 @@ d7 $ gF3 ...@@ -65,7 +66,7 @@ d7 $ gF3
$ "shiloh:2" $ "shiloh:2"
# pan 0.2 # pan 0.2
# cut 7 # 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") # delaybus 61 (range 0 1 "^55")
# delayfb 0.5 # delayfb 0.5
# delaytime 0.375 # delaytime 0.375
...@@ -84,8 +85,9 @@ d8 $ gF $ gM ...@@ -84,8 +85,9 @@ d8 $ gF $ gM
$ midiOn "^92" (ply "2 <2 4>") $ midiOn "^92" (ply "2 <2 4>")
$ loopAt 1 $ loopAt 1
$ chop 8 $ chop 8
$ someCyclesBy "^20" ((# n 20)) $ someCyclesBy "^36" ((# n 20))
$ someCyclesBy "^36" (loopAt 2 . (# n 81)) -- 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")) $ sometimesBy "^56" ((iter "1 4"))
$ "jungle_breaks:13" $ "jungle_breaks:13"
# room 0.2 # dry 1.05 # sz 0.4 # room 0.2 # dry 1.05 # sz 0.4
......
...@@ -13,9 +13,9 @@ d1 -- Snare ...@@ -13,9 +13,9 @@ d1 -- Snare
# "[jazz,cpu]" # "[jazz,cpu]"
# midiG' "^78" 0 0.9 # midiG' "^78" 0 0.9
d2 -- Snare d2 -- Snare
$ midiOn "^41" (fast 4) $ midiOn "^42" (fast 4)
$ g $ g
$ midiOff "^41" (slow "<2!16 1!16>" ) $ midiOff "^42" (slow "<2!16 1!16>" )
$ "~ [snare:20,clap]" $ "~ [snare:20,clap]"
# midiG "^79" # midiG "^79"
# room 0.8 # sz 0.8 # dry 0.99 # room 0.8 # sz 0.8 # dry 0.99
...@@ -44,13 +44,13 @@ d5 -- Bassline ...@@ -44,13 +44,13 @@ d5 -- Bassline
+ "0(5,8)" |+ "0 [7 12]" + "0(5,8)" |+ "0 [7 12]"
-- + 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>") $ note ("d . ~ <c(3,8)!4 [c(2,3),d(2,4,1)]!4>")
# octave 3 # octave 3
# "bassWarsaw" # "bassWarsaw"
# crushbus 5 (range 10 5 "^53") # crushbus 5 (range 10 5 "^33")
# room 0.5 # room 0.5
# sz 0.4 # sz 0.4
-- # pan 0.21 -- # pan 0.21
...@@ -61,7 +61,7 @@ d6 $ g ...@@ -61,7 +61,7 @@ d6 $ g
# octave 3 # octave 3
# modIndex "[0,5]" # modIndex "[0,5]"
# "FMRhodes1" # "FMRhodes1"
# crush (range 10 4.8 "^54") # crush (range 10 4.8 "^34")
# midiG' "^82" 0 1.4 # midiG' "^82" 0 1.4
d7 $ g d7 $ g
-- $ slice 8 ("7*4") -- $ slice 8 ("7*4")
...@@ -75,6 +75,6 @@ d8 $ g -- Da Bogdan MOFO ...@@ -75,6 +75,6 @@ d8 $ g -- Da Bogdan MOFO
# lpqbus 8 (range 0 0.5 sine) # lpqbus 8 (range 0 0.5 sine)
# crush (slow 16 $ range 16 2.5 perlin) # crush (slow 16 $ range 16 2.5 perlin)
# cut 8 # cut 8
# gain "^56" # gain "^36"
once $ "dr" # gain 1 once $ "dr" # gain 1
...@@ -3,8 +3,8 @@ resetCycles ...@@ -3,8 +3,8 @@ resetCycles
do do
setcps (80/60/4) setcps (80/60/4)
d1 $ gF1 -- THIS TIME IT'S GONNA BE SLOW d1 $ gF1 -- THIS TIME IT'S GONNA BE SLOW
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>") $ midiOn "^41" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" ( $ midiOff "^41" (
(someCyclesBy (slow 16 $ range 0 0.8 saw)( -- Hackish run (someCyclesBy (slow 16 $ range 0 0.8 saw)( -- Hackish run
superimpose ((0.5 ~>) . mask "t(1,8)") superimpose ((0.5 ~>) . mask "t(1,8)")
) )
...@@ -48,8 +48,8 @@ d4 $ gF1 -- Drumroll au retard orchestre ...@@ -48,8 +48,8 @@ d4 $ gF1 -- Drumroll au retard orchestre
# pan 0.55 # pan 0.55
# midiG' "^84" 0 1 # midiG' "^84" 0 1
d6 $ gF2 -- Programmatic bass d6 $ gF2 -- Programmatic bass
$ midiOn "^89" (slice 4 "1*<2 4>" . (# cut 6)) $ midiOn "^90" (slice 4 "1*<2 4>" . (# cut 6))
$ midiOn "^57" ( $ midiOn "^58" (
someCyclesBy "<f!24 t!8>" (slice "<16 8 4 2>" (run 16)) 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!16 t!8 f!8>" (slice 8 "[0 .. 4] . [7 .. 5]")
. someCyclesBy "<f!8 t!8 f!16>" (slice 8 (run 4)) . someCyclesBy "<f!8 t!8 f!16>" (slice 8 (run 4))
...@@ -60,7 +60,7 @@ d6 $ gF2 -- Programmatic bass ...@@ -60,7 +60,7 @@ d6 $ gF2 -- Programmatic bass
# gain 0.6 # gain 0.6
# room 0.4 # room 0.4
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
# crushbus 61 (range 16 4 "^53") # crushbus 61 (range 16 4 "^34")
# room "<0.35!3 0.7>" # room "<0.35!3 0.7>"
d5 $ gF2 -- Le rythme de la rentree d5 $ gF2 -- Le rythme de la rentree
-- $ mask "<f!7 t f!7 t f!14 t!2 t!16>" -- $ mask "<f!7 t f!7 t f!14 t!2 t!16>"
......
...@@ -8,12 +8,12 @@ d1 $ gF1 $ gM1 ...@@ -8,12 +8,12 @@ d1 $ gF1 $ gM1
d2 $ gF1 $ gM2 $ "~ cp ~ cp*<1!3 2>" # "snare:24" # gain 1.4 d2 $ gF1 $ gM2 $ "~ cp ~ cp*<1!3 2>" # "snare:24" # gain 1.4
d3 $ gF1 $ gM2 $ "hh([12 <12 16 12 6>],16)" # "h2ogmhh" d3 $ gF1 $ gM2 $ "hh([12 <12 16 12 6>],16)" # "h2ogmhh"
d4 $ gF2 $ gM3 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 $ fast 2
$ note ("<[e3 b3 g3 b3] [e3 a3 cs4 a3]>" - "[0,12]") $ note ("<[e3 b3 g3 b3] [e3 a3 cs4 a3]>" - "[0,12]")
# "bassWarsaw" # "bassWarsaw"
# crushbus 42 (range 16 2 "^33") # crushbus 42 (range 16 2 "^32")
# octersubbus 41 (range 0 2 "^53") # octersubbus 41 (range 0 2 "^52")
# room 0.4 # sz 0.8 # room 0.4 # sz 0.8
d5 $ gF3 $ gM3 $ note ("<e!3 cs>@7 [<d d g d>]" - 12) # "FMRhodes1" d5 $ gF3 $ gM3 $ note ("<e!3 cs>@7 [<d d g d>]" - 12) # "FMRhodes1"
d7 $ gF3 $ gM3 $ note "<e3!3 cs2>@7 [d]" # "FMRhodes2" d7 $ gF3 $ gM3 $ note "<e3!3 cs2>@7 [d]" # "FMRhodes2"
......
...@@ -9,8 +9,8 @@ let gMute = (midiOn "^73" (mask "f*16")) ...@@ -9,8 +9,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
setcps (93/60/4) setcps (93/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k") $ midiOn "^41" (<| "k k k k")
$ midiOff "^42" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>") $ midiOff "^41" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>")
$ fix ((# att 0.1) . (# rel 10)) "wobble" $ fix ((# att 0.1) . (# rel 10)) "wobble"
$ "[jazz,808bd:4,wobble]" $ "[jazz,808bd:4,wobble]"
-- # midiG' "^78" 0 1.5 -- # midiG' "^78" 0 1.5
...@@ -28,12 +28,12 @@ d4 $ gF2 $ gM3 ...@@ -28,12 +28,12 @@ d4 $ gF2 $ gM3
# "moogBass" # "moogBass"
# chorus 0 # chorus 0
# pan 0.1 # pan 0.1
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
d10 d10
$ note ("<b4 c4 cs4 c4>" + 12) $ note ("<b4 c4 cs4 c4>" + 12)
# "moogBass" # "moogBass"
d5 $ gF3 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 -- $ arpeggiate
$ note ( -- TODO ADD CLIMB? $ note ( -- TODO ADD CLIMB?
"<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>" "<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>"
...@@ -41,16 +41,16 @@ d5 $ gF3 ...@@ -41,16 +41,16 @@ d5 $ gF3
+ (slow 4 "<0 <12 24>>") + (slow 4 "<0 <12 24>>")
+ "12" + "12"
) )
# modIndex (range 0 4.5 "^34") # modIndex (range 0 4.5 "^33")
# crushbus 51 (range 16 4.5 "^54") # crushbus 51 (range 16 4.5 "^53")
# "marimba1" # "marimba1"
# pan 0.8 # pan 0.8
# gain 1.2 # gain 1.2
d8 $ gM $ gF1 d8 $ gM $ gF1
$ midiOn "^92" (ply 4) $ 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 $ loopAt 4 $ chop 16
$ midiOn "^56" (loopAt 0.25 . (>| "breaks165")) $ midiOn "^36" (loopAt 0.25 . (>| "breaks165"))
$ "trance_loops:0" $ "trance_loops:0"
# cut 8 # cut 8
-- # midiG' "^84" 0 1.8 -- # midiG' "^84" 0 1.8
...@@ -5,8 +5,8 @@ setcps (130/60/4) ...@@ -5,8 +5,8 @@ setcps (130/60/4)
let width = pF "width" let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k?]>") $ midiOn "^41" (<| "k k k <k k*2 k [~ k?]>")
$ midiOff "^42" (<| "k . k" ) $ midiOff "^41" (<| "k . k" )
$ "[kick:5,808bd:5]" $ "[kick:5,808bd:5]"
# gain 1.4 # gain 1.4
d2 $ "~ s ~ s" # "vec1_snare:30" d2 $ "~ s ~ s" # "vec1_snare:30"
...@@ -16,11 +16,11 @@ d3 ...@@ -16,11 +16,11 @@ d3
# gain 1.4 # gain 1.4
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ superimpose ((# cut 51) . (jux (# cut 52)) . $ 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) (# 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" $ "rhadamanthe_melo:20/4"
# cut 5 # cut 5
-- # pan 0.3 -- # pan 0.3
......
...@@ -3,8 +3,8 @@ do ...@@ -3,8 +3,8 @@ do
setcps (80/60/4) setcps (80/60/4)
-- resetCycles -- resetCycles
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k k*2")) $ midiOn "^41" (fast 2 . (<| "k k k k*2"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>") $ midiOff "^41" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ fix (# lpf 1200) "kick" $ fix (# lpf 1200) "kick"
$ "[jazz, kick:3]" $ "[jazz, kick:3]"
-- # room 0.2 # sz 0.3 # dry 1.4 -- # room 0.2 # sz 0.3 # dry 1.4
...@@ -23,11 +23,11 @@ d4 $ gF2 $ gM3 ...@@ -23,11 +23,11 @@ d4 $ gF2 $ gM3
# "moog:1" # "moog:1"
# room 0.2 # room 0.2
# sz 0.4 # sz 0.4
# crushbus 41 (range 12 3 "^53") # crushbus 41 (range 12 3 "^32")
# octersubbus 42 (range 0 2 "^33") # octersubbus 42 (range 0 2 "^52")
d5 $ gF2 $ gM3 d5 $ gF2 $ gM3
$ superimpose ((|* gain (range 0 1.5 "^34")) . (# n 5) . (|+ note 12)) $ superimpose ((|* gain (range 0 1.5 "^33")) . (# n 5) . (|+ note 12))
$ midiOn "^58" (fast 2) $ midiOn "^89" (fast 2)
$ fast 2 $ fast 2
$ note ("d4 a3*<1!12 2!4> d4 <a3!3 <b3 f3>>" + 3) $ note ("d4 a3*<1!12 2!4> d4 <a3!3 <b3 f3>>" + 3)
# n "4" # n "4"
...@@ -38,7 +38,7 @@ d8 $ gF1 $ gM2 ...@@ -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>") $ midiOn "^60" (splice 4 "0*2 1*<2 8 2 <4 3 5 8>> 2(3,8) 4*<1 2 1 8>")
$ chop 8 $ chop 8
$ loopAt 2 $ loopAt 2
$ midiOn "^56" (|> "jungle_breaks:10") $ midiOn "^36" (|> "jungle_breaks:10")
$ "jungle_breaks:1" $ "jungle_breaks:1"
# cut 8 # cut 8
-- d7 $ gF1 $ gM1 -- d7 $ gF1 $ gM1
...@@ -88,5 +88,5 @@ d7 $ gF3 $ gM3 -- TEMPTATION VOICES ...@@ -88,5 +88,5 @@ d7 $ gF3 $ gM3 -- TEMPTATION VOICES
# end "<0.8!8 1!8>" # end "<0.8!8 1!8>"
# "temptation" # "temptation"
# cut 9 # cut 9
# roombus 91 "^19" # roombus 91 "^35"
# delaybus 92 (range 0 1.5 "^18") # delayt 0.5 # delayfb ("^75" * 0.7) # 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")) ...@@ -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 g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak let m = mBreak
d1 $ g1 -- d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>") $ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]" $ "[jazz,hh:5]"
-- # release "<0.7!3 1>" -- # release "<0.7!3 1>"
# midiG' "^78" 0 1.9 # midiG' "^78" 0 1.9
...@@ -20,17 +20,18 @@ d3 $ g1 $ m -- Clap contretemps stable ...@@ -20,17 +20,18 @@ d3 $ g1 $ m -- Clap contretemps stable
# room 0.8 # sz 0.6 # dry 0.9 # room 0.8 # sz 0.6 # dry 0.9
# midiG' "^79" 0 1.0 # midiG' "^79" 0 1.0
d2 $ g1 $ m -- BREAK 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) $ midiOn "^76" (striate 2)
$ loopAt 2 $ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f") $ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8) $ slice 8 (run 8)
$ "break" # n "<13!12 14!4 15!16>" $ "break" # n "<13!12 14!4 15!16>"
# midiG' "^80" 0 2 # midiG' "^80" 0 2
# speed (range 0 2 "^52") # speed (range 0 2 "^30")
# cut 2 # cut 2
d4 $ g2 $ m -- Basse avec du repondant d4 $ g2 $ m -- Basse avec du repondant
$ midiOn "^57" (chop "8 1") $ midiOn "^76" (chop "8 1")
-- $ superimpose ((# cut 41) -- $ superimpose ((# cut 41)
-- . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)") -- . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
-- ) -- )
...@@ -44,7 +45,7 @@ d4 $ g2 $ m -- Basse avec du repondant ...@@ -44,7 +45,7 @@ d4 $ g2 $ m -- Basse avec du repondant
- 24 - 24
) )
# "bassWarsaw" # "bassWarsaw"
# crushbus 4 (range 16 1.5 "^53") # crushbus 4 (range 16 1.5 "^32")
# cut 4 # cut 4
# pan 0.2 # pan 0.2
# midiG' "^81" 0 1.7 # midiG' "^81" 0 1.7
...@@ -60,12 +61,12 @@ d6 $ g2 $ m -- Rhodes piano questionnant ...@@ -60,12 +61,12 @@ d6 $ g2 $ m -- Rhodes piano questionnant
) )
# "FMRhodes1" # "FMRhodes1"
# midiG' "^82" 0 2 # midiG' "^82" 0 2
# modIndex (range 0.1 32 "^54") # modIndex (range 0.1 32 "^34")
# cut 5 # cut 5
# pan 0.8 # pan 0.8
d5 -- NES arps d5 -- NES arps
$ (# crush 4) $ (# crush 4)
$ midiOn "^59" (struct "t . t(3,8)") $ midiOn "^57" (struct "t . t(3,8)")
$ g2 $ g2
$ slow 2 $ slow 2
$ chop "<8!8 4!8 2!8 1!8>" $ chop "<8!8 4!8 2!8 1!8>"
...@@ -113,8 +114,8 @@ let g1 = (# djfbus 1 (range 0.02 0.98 "^49")) ...@@ -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 g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak let m = mBreak
d1 $ g1 -- d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>") $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>") $ midiOff "^41" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]" $ "[jazz,hh:5]"
d2 $ "~ cp" d2 $ "~ cp"
# gain 0.9 # gain 0.9
......
...@@ -41,9 +41,9 @@ d4 $ gF2 $ gM3 ...@@ -41,9 +41,9 @@ d4 $ gF2 $ gM3
# legato 2 # legato 2
# gain 1.4 # gain 1.4
# room 0.4 # cut 4 # room 0.4 # cut 4
# crushbus 41 (range 16 2.5 "^52") # crushbus 41 (range 16 2.5 "^32")
# octerbus 42 (range 0 0.95 "^32") # octerbus 42 (range 0 0.95 "^52")
# octersubbus 43 (range 0 1.5 "^32") # octersubbus 43 (range 0 1.5 "^52")
d5 $ gF3 $ gM3 -- Ton son est rose d5 $ gF3 $ gM3 -- Ton son est rose
$ midiOn "^89" (ply "4 4 4 <4 8>") $ midiOn "^89" (ply "4 4 4 <4 8>")
$ slow 2 $ slow 2
...@@ -58,8 +58,8 @@ d5 $ gF3 $ gM3 -- Ton son est rose ...@@ -58,8 +58,8 @@ d5 $ gF3 $ gM3 -- Ton son est rose
# pan 0.3 # pan 0.3
d6 $ gF3 $ gM3 -- Jorja too, she wants _you_ d6 $ gF3 $ gM3 -- Jorja too, she wants _you_
$ midiOff "^58" (mask "<f f f t>") $ midiOff "^58" (mask "<f f f t>")
$ midiOn "^54" (>| n "<40 41>") $ midiOn "^34" (>| n "<40 41>")
$ midiOff "^54" (>| n (slow 2 $ ply 2 $ "<40 40 40 41 42 43 43 44 45 ~ 45 ~>")) $ midiOff "^34" (>| n (slow 2 $ ply 2 $ "<40 40 40 41 42 43 43 44 45 ~ 45 ~>"))
$ "rose" $ "rose"
# room 0.4 # room 0.4
# cut 6 # gain 1.4 # cut 6 # gain 1.4
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment