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]
......
...@@ -44,9 +44,23 @@ d1 ...@@ -44,9 +44,23 @@ d1
)) ))
# gain (range 0 1.8 "^77") # gain (range 0 1.8 "^77")
# fmfeedback (range 0 2 "^78") # fmfeedback (range 0 2 "^78")
# fmamps ["^15", "^16", "^17", "^18", "^19", "^20"] -- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^20 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
# fmratios ["^31", "^32", "^33", "^34", "^35", "^36"] -- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^19 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
# fmdetunes ["^51", "^52", "^53", "^54", "^55", "^56"] -- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmamps ["^15", "^16", "^29", "^18", "^19", "^20"]
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^36 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^35 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^32 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^31 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmratios ["^31", "^32", "^33", "^34", "^35", "^36"]
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^55 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- FIXME(#54) d1 drives more controls than the grid gives it (B1 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d1's own control.
-- # fmdetunes ["^51", "^52", "^53", "^54", "^55", "^56"]
# fmmod 1 1 1 # fmmod 1 1 1
# fmmod 1 2 0 # fmmod 1 2 0
# fmmod 2 3 0 # fmmod 2 3 0
...@@ -107,7 +121,9 @@ let midiOff ch pat = someCyclesBy (1 - ch) pat ...@@ -107,7 +121,9 @@ let midiOff ch pat = someCyclesBy (1 - ch) pat
d1 $ "jazz*<2!16 4!16>" # lpf 2000 # gain (1 - (0.5 * (1 - "^77"))) d1 $ "jazz*<2!16 4!16>" # lpf 2000 # gain (1 - (0.5 * (1 - "^77")))
d2 d2
$ midiOn "^42" (off "q" ((# room 0.2) . (|* gain 0.8))) $ midiOn "^42" (off "q" ((# room 0.2) . (|* gain 0.8)))
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^43" (degradeBy "0 1!5 0.5 0.25") $ midiOn "^43" (degradeBy "0 1!5 0.5 0.25")
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^41" rev $ midiOn "^41" rev
$ s "superfm" $ s "superfm"
|+| note (scale "aeolian" ( |+| note (scale "aeolian" (
...@@ -123,17 +139,27 @@ d2 ...@@ -123,17 +139,27 @@ d2
# lfofreq (range 500 1000 "^79") # lfofreq (range 500 1000 "^79")
# lfodepth (range 0 1 "^80") # lfodepth (range 0 1 "^80")
-- # fmamps ["^15", "^17", "^19"] -- # fmamps ["^15", "^17", "^19"]
# fmratios [range 0 100 "^31", range 0 100 "^33", range 0 100 "^35"] -- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^35 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmratios [range 0 100 "^30", range 0 100 "^33", range 0 100 "^35"]
-- # fmdetunes ["^32", "^53", "^55"] -- # fmdetunes ["^32", "^53", "^55"]
# fmmod 1 1 (range 0 4 "^16") # fmmod 1 1 (range 0 4 "^16")
# fmmod 1 2 (range 0 4 "^32") -- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^32 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
# fmmod 1 3 (range 0 4 "^52") -- # fmmod 1 2 (range 0 4 "^32")
# fmmod 2 1 "^18" -- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
# fmmod 2 2 "^34" -- # fmmod 1 3 (range 0 4 "^52")
# fmmod 2 3 "^54" -- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
# fmmod 3 1 "^20" -- # fmmod 2 1 "^18"
# fmmod 3 2 "^36" -- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
# fmmod 3 3 "^56" -- # fmmod 2 2 "^34"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^54 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 2 3 "^54"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^20 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 1 "^20"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^36 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 2 "^36"
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^56 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d2's own control.
-- # fmmod 3 3 "^56"
# fmmod 3 4 1 # fmmod 3 4 1
# fmmod 4 5 1 # fmmod 4 5 1
# fmmod 5 6 1 # fmmod 5 6 1
......
...@@ -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
......
...@@ -4,14 +4,14 @@ setcps (110/60/4) ...@@ -4,14 +4,14 @@ setcps (110/60/4)
-- d1 $ gF1 $ gM2 -- d1 $ gF1 $ gM2
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>") -- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>") $ midiOff "^41" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>") $ midiOn "^41" (<| "k k . k <k [~ k] k k*2>")
$ "jazz" $ "jazz"
# gain 1.4 # gain 1.4
# cut 1 # cut 1
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]") $ midiOff "^42" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~") $ midiOn "^42" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]" $ "[snare:24,snare:51]"
# "h2ogmcp" # "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>") # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
...@@ -23,11 +23,11 @@ d3 $ gF1 $ gM2 ...@@ -23,11 +23,11 @@ d3 $ gF1 $ gM2
-- $ "h(3,8) h(3,8)" -- $ "h(3,8) h(3,8)"
# pan "0.2 0.8" # pan "0.2 0.8"
# "h2ogmhh:2" # "h2ogmhh:2"
# att (range 0.02 0.5 "^32") # att (range 0.02 0.5 "^31")
# rel 1 # rel 1
# gain 1.7 # gain 1.7
# att 0.03 # rel 0.9 # att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32") # legato (range 0.05 0.9 "^31")
-- d4 $ gF2 $ gM3 -- d4 $ gF2 $ gM3
-- $ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c") -- $ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c")
-- -- # "moog:1" -- -- # "moog:1"
...@@ -50,7 +50,7 @@ d7 $ gF3 $ gM3 ...@@ -50,7 +50,7 @@ d7 $ gF3 $ gM3
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")
......
...@@ -33,14 +33,15 @@ d2 -- Snare tchak! ...@@ -33,14 +33,15 @@ d2 -- Snare tchak!
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 -- Running Hats d3 -- Running Hats
$ g $ g
$ midiOn "^76" --BOUTON NASSIM $ midiOn "^43" --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125") . (>| "breaks125")
. (|* gain 0.9) . (|* gain 0.9)
) )
-- $ degradeBy ("1 0 0 1!13" - "^52") -- $ degradeBy ("1 0 0 1!13" - "^52")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2) $ midiOn "^43" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]" $ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8" -- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4)) # midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
...@@ -51,7 +52,7 @@ d3 -- Running Hats ...@@ -51,7 +52,7 @@ d3 -- Running Hats
# cut 3 # cut 3
d4 -- Resolute Bass d4 -- Resolute Bass
$ g $ g
$ midiOn "^57" ( -- Glitch vary end $ midiOn "^44" ( -- Glitch vary end
rev rev
) )
$ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>") $ slice 4 ("0 <~ 3> 0 1*<1 2 4 8>")
...@@ -60,7 +61,7 @@ d4 -- Resolute Bass ...@@ -60,7 +61,7 @@ d4 -- Resolute Bass
$ "fbass:43" $ "fbass:43"
# pan 0.15 # pan 0.15
# room 0.25 # sz 0.1 # room 0.25 # sz 0.1
# crushbus 41 (range 16 1.25 "^53") # crushbus 41 (range 16 1.25 "^32")
# midiG' "^81" 0 1.6 # midiG' "^81" 0 1.6
# cut 4 # cut 4
d6 -- Opiniatre guitare d6 -- Opiniatre guitare
...@@ -68,7 +69,7 @@ d6 -- Opiniatre guitare ...@@ -68,7 +69,7 @@ d6 -- Opiniatre guitare
-- $ someCyclesBy "<t!16 f!16>" (segment "<8 <4 2>>") -- $ someCyclesBy "<t!16 f!16>" (segment "<8 <4 2>>")
$ midiOn "^90" (slice 2 (run "<4 <2 8>>")) $ midiOn "^90" (slice 2 (run "<4 <2 8>>"))
$ "fguitar:40/2" $ "fguitar:40/2"
# crushbus 51 (range 10 3.5 "^54") # crushbus 51 (range 10 3.5 "^34")
# midiG' "^82" 0 1.2 # midiG' "^82" 0 1.2
# cut 6 # cut 6
d7 d7
......
...@@ -27,8 +27,8 @@ let dMask = (whenmod 8 7 (mask "t t <t f> f")) ...@@ -27,8 +27,8 @@ let dMask = (whenmod 8 7 (mask "t t <t f> f"))
setcps (81/60/4) setcps (81/60/4)
d1 $ gF1 $ gM1 -- YRVHTECHNO KICK TO DNB d1 $ gF1 $ gM1 -- YRVHTECHNO KICK TO DNB
$ fast 2 $ fast 2
$ midiOn "^42" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>") $ midiOn "^41" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^42" (<|"k . ~ k ~ <~ k>" ) $ midiOff "^41" (<|"k . ~ k ~ <~ k>" )
$ "[808bd:13,jazz,kicklinn]" $ "[808bd:13,jazz,kicklinn]"
# gain 1.8 # gain 1.8
d2 $ gF1 $ gM2 $ fast 2 d2 $ gF1 $ gM2 $ fast 2
...@@ -43,16 +43,16 @@ d4 $ gF2 $ gM3 ...@@ -43,16 +43,16 @@ d4 $ gF2 $ gM3
-- $ arp "up" -- $ arp "up"
-- $ ply 2 -- $ ply 2
-- $ note "<[f3,gs3,c4] [c3,ds3,g3]>" -- $ note "<[f3,gs3,c4] [c3,ds3,g3]>"
$ midiOn "^57" (>| note ( $ midiOn "^44" (>| note (
"[0,0(3,8) <0([3 2],8) ~>]" "[0,0(3,8) <0([3 2],8) ~>]"
+ "<[f3 gs3 f3 c4] [c3 ds3 c3 g3]>")) + "<[f3 gs3 f3 c4] [c3 ds3 c3 g3]>"))
$ midiOff "^57" (>| note ( $ midiOff "^44" (>| note (
"[0]" "[0]"
|+| "<[f3, [gs3 f3 <c4 c5>]] [c3, [ds3 c3 <g3 g4>]]>")) |+| "<[f3, [gs3 f3 <c4 c5>]] [c3, [ds3 c3 <g3 g4>]]>"))
$ "bassWarsaw" $ "bassWarsaw"
# gain 1 # gain 1
# crushbus 41 (range 12 3.8 "^53") # crushbus 41 (range 12 3.8 "^32")
# octersubbus 42 (range 0 1.8 "^33") # octersubbus 42 (range 0 1.8 "^52")
# room 0.4 # room 0.4
# lpf 1400 # lpf 1400
d5 $ gF3 $ gM3-- RIFFs <3 d5 $ gF3 $ gM3-- RIFFs <3
......
...@@ -38,9 +38,10 @@ d1 $ g ...@@ -38,9 +38,10 @@ d1 $ g
# "[jazz,tech:5]" # "[jazz,tech:5]"
# gM' 0 2 "^78" # gM' 0 2 "^78"
d2 $ g -- Snare d2 $ g -- Snare
$ novaOn "^41" (mask "<f!24 t!104>") $ novaOn "^42" (mask "<f!24 t!104>")
-- $ mask "f" -- $ mask "f"
-- $ fast 2 -- $ fast 2
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ novaOn ("^43") --BOUTON NASSIM $ novaOn ("^43") --BOUTON NASSIM
(slice 8 (run 8) . (loopAt 1) (slice 8 (run 8) . (loopAt 1)
. novaOn "^75" ((|* gain 0.9) . (>| "fbreak120:1")) . novaOn "^75" ((|* gain 0.9) . (>| "fbreak120:1"))
...@@ -52,33 +53,34 @@ d2 $ g -- Snare ...@@ -52,33 +53,34 @@ d2 $ g -- Snare
# gM' 0 1.8 "^79" # gM' 0 1.8 "^79"
# pan 0.6 # pan 0.6
d5 $ g -- Hats d5 $ g -- Hats
$ novaOn "^41" (mask "<f!16 t!16>") $ novaOn "^57" (mask "<f!16 t!16>")
$ novaOn "^44" (fast 2) $ novaOn "^89" (fast 2)
-- FIXME(#94) d5 drives more controls than the grid gives it (BT5 + BL5). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ novaOn "^76" (slow 2) $ novaOn "^76" (slow 2)
$ slow 2 $ slow 2
$ "hh*<8!3 [16 8]>" $ "hh*<8!3 [16 8]>"
# pan 0.6 # pan 0.6
# gM' 0 2.5 "^80" # gM' 0 2.5 "^80"
d3 $ g -- BASSLINE d3 $ g -- BASSLINE
$ novaOn "^41" (mask "<f!8 t!120>") $ novaOn "^43" (mask "<f!8 t!120>")
$ loopAt 2 $ loopAt 2
$ note (scale "aeolian" $ mel) $ note (scale "aeolian" $ mel)
# "bassWarsaw" # "bassWarsaw"
# pan 0.2 # pan 0.2
# octave 2 # octave 2
# cut 3 # cut 3
# crush (range 16 5 "^53") # crush (range 16 5 "^31")
# gM' 0.8 1.8 "^81" # gM' 0.8 1.8 "^81"
d4 $ g d4 $ g
$ whenmod 16 8 (fast 2 . rev) $ whenmod 16 8 (fast 2 . rev)
$ note (scale "aeolian" $ mel + (slow 4 "<c c'maj c'min c'maj>")) $ note (scale "aeolian" $ mel + (slow 4 "<c c'maj c'min c'maj>"))
# "FMRhodes1" # "FMRhodes1"
# pan 0.8 # pan 0.8
# modIndex (range 0 100 "^54") # modIndex (range 0 100 "^32")
# gM' 0 1.8 ("^82" * (range 1 0.9 "^54")) # gM' 0 1.8 ("^82" * (range 1 0.9 "^32"))
d6 $ g -- ABS BASS! d6 $ g -- ABS BASS!
-- $ mask "<f!16 t!16>" -- $ mask "<f!16 t!16>"
$ novaOn "^41" (mask "t*4 . <[t f t f] <f [f t]>>") $ novaOn "^58" (mask "t*4 . <[t f t f] <f [f t]>>")
$ "abstract:1" # cut 6 $ "abstract:1" # cut 6
# gain (range 0.2 0.95 "^84") # gain (range 0.2 0.95 "^84")
d7 -- TODO: Retravaille guitare d7 -- TODO: Retravaille guitare
......
...@@ -27,9 +27,10 @@ d2 $ g ...@@ -27,9 +27,10 @@ d2 $ g
. (# gM' 0.35 1 "^79") . (# gM' 0.35 1 "^79")
) )
(n 7) -- Hats fantomes (n 7) -- Hats fantomes
-- FIXME(#54) d2 drives more controls than the grid gives it (B2 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ fix ( $ fix (
(# note "<2!3 <4 6>>") (# note "<2!3 <4 6>>")
. (# lpq "^32") . (# lpq "^30")
. (# lpf (range 200 1000 "^52")) . (# lpf (range 200 1000 "^52"))
. (|* gM' 0.5 1.65 "^80") . (|* gM' 0.5 1.65 "^80")
) (n 12) ) (n 12)
...@@ -50,14 +51,15 @@ d3 $ g -- BASSLINE ...@@ -50,14 +51,15 @@ d3 $ g -- BASSLINE
# octave 4 # octave 4
# gM' 0 1.2 "^81" # gM' 0 1.2 "^81"
d4 $ g d4 $ g
$ fix (|- gM' 0 0.5 "^54") ("FMRhodes1") $ fix (|- gM' 0 0.5 "^32") ("FMRhodes1")
$ fix (|- gM' 0.5 0 "^54") ("FMRhodes2") $ fix (|- gM' 0.5 0 "^32") ("FMRhodes2")
$ "~ . p*2" $ "~ . p*2"
# "[FMRhodes1,FMRhodes2]" # "[FMRhodes1,FMRhodes2]"
# delay 0.25 # delay 0.25
# sz (range 0.4 0.8 "^18") # sz (range 0.4 0.8 "^52")
# room (range 0 0.5 "^18") # room (range 0 0.5 "^52")
# delayfb (range "s" "h" "^34") -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # delayfb (range "s" "h" "^34")
-- # note (whenmod 64 32 (>| melNWNC) melTosh) -- # note (whenmod 64 32 (>| melNWNC) melTosh)
# note (cat melUB) # note (cat melUB)
# legato 2 # legato 2
......
...@@ -3,8 +3,8 @@ let g1 = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -3,8 +3,8 @@ let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1 d1 $ g1
$ midiOn "^74" (fast 2) $ midiOn "^74" (fast 2)
$ midiOn "^42" ((<| "k k k <k [<~ k> k]>")) $ midiOn "^41" ((<| "k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k . <k!3 [~ k] k k ~ [~ <~ k>]>") $ midiOff "^41" (<| "k . <k!3 [~ k] k k ~ [~ <~ k>]>")
$ "kick:5" $ "kick:5"
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
d2 $ "~ s" # "sn:1" d2 $ "~ s" # "sn:1"
...@@ -14,11 +14,11 @@ d3 $ g2 ...@@ -14,11 +14,11 @@ d3 $ g2
$ "~ h ~ h ~ h*<1 2> ~ [h*<1!8 2 1!7> <~!3 h*2>]" # "hh" $ "~ h ~ h ~ h*<1 2> ~ [h*<1!8 2 1!7> <~!3 h*2>]" # "hh"
# midiG' "^80" 0 1 # midiG' "^80" 0 1
d4 $ g2 d4 $ g2
$ midiOn "^57" (chop 4) $ midiOn "^76" (chop 4)
$ midiOn "^89" (chop 4) $ midiOn "^44" (chop 4)
$ note ("<c g af f>" + "3") $ note ("<c g af f>" + "3")
# "rootsBass" # "rootsBass"
# crushbus 40 (range 16 1.8 "^53") # crushbus 40 (range 16 1.8 "^32")
# room 0.4 # sz 0.3 # room 0.4 # sz 0.3
# midiG' "^81" 0 1 # midiG' "^81" 0 1
# cut 4 # cut 4
......
do do
setcps (100/60/4) setcps (100/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 2>" ) $ midiOn "^41" (<| "k k k k*<1 2>" )
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" ) $ midiOff "^41" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
$ "[jazz]" $ "[jazz]"
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ ~ ~ sn") $ midiOff "^42" (<| "~ ~ ~ sn")
$ midiOn "^43" (<| "~ s ~ s") $ midiOn "^42" (<| "~ s ~ s")
$ "[snare:21]" $ "[snare:21]"
# gain 0.7 # gain 0.7
d3 $ gF1 $ gM2 $ "dr*[8 8 8 <4 4 8 16>]" d3 $ gF1 $ gM2 $ "dr*[8 8 8 <4 4 8 16>]"
...@@ -30,7 +30,7 @@ d5 $ gM3 $ gF3 ...@@ -30,7 +30,7 @@ d5 $ gM3 $ gF3
# pan 0.6 # pan 0.6
# room 0.8 # sz (slow 16 $ range 0.8 0.2 saw) # room 0.8 # sz (slow 16 $ range 0.8 0.2 saw)
# legato 0.5 # legato 0.5
# octerbus 51 (range 0 0.8 "^54") # octerbus 51 (range 0 0.8 "^33")
-- # velocity 0.8 -- # velocity 0.8
d8 $ gF3 $ gM2 d8 $ gF3 $ gM2
$ chop 16 $ chop 16
......
...@@ -10,7 +10,7 @@ d1 $ f1 ...@@ -10,7 +10,7 @@ d1 $ f1
# lpf 2000 # lpf 2000
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.5
d2 $ f1 d2 $ f1
$ midiOn "^43" (fast 2) $ midiOn "^42" (fast 2)
$ "~ snare:20" $ "~ snare:20"
# lpf 2400 # att 0.01 # rel 10 # lpf 2400 # att 0.01 # rel 10
# midiG' "^79" 0 1.5 # midiG' "^79" 0 1.5
...@@ -21,13 +21,13 @@ d3 $ f1 -- tio toc break clock ...@@ -21,13 +21,13 @@ d3 $ f1 -- tio toc break clock
# cut 3 # cut 3
# midiG' "^80" 0 1.2 # midiG' "^80" 0 1.2
d6 $ f2 -- Not even honest work bassline d6 $ f2 -- Not even honest work bassline
$ midiOn "^89" (chop 4 . (# cut 6)) $ midiOn "^90" (chop 4 . (# cut 6))
$ sometimes (off 0.5 (jux (|* gain 0.93))) -- ECH0ES $ sometimes (off 0.5 (jux (|* gain 0.93))) -- ECH0ES
$ note ("<cs <cs@2 d@2> [~ <cs <e d [cs d] e>>]>" - 12) $ note ("<cs <cs@2 d@2> [~ <cs <e d [cs d] e>>]>" - 12)
# "bassWarsaw" # "bassWarsaw"
# room 0.3 # dry 1 # sz 0.9 # room 0.3 # dry 1 # sz 0.9
# midiG' "^81" 0 1 # midiG' "^81" 0 1
# crushbus 61 (range 16 2 "^53") # crushbus 61 (range 16 2 "^34")
# pan 0.8 # pan 0.8
d4 $ f2 -- Clochettes du depart d4 $ f2 -- Clochettes du depart
$ note ("d . d(<1!3 3>,4,1)" |+ "<c f>") $ note ("d . d(<1!3 3>,4,1)" |+ "<c f>")
...@@ -46,10 +46,10 @@ d5 $ f1 -- Tambourins du destin ...@@ -46,10 +46,10 @@ d5 $ f1 -- Tambourins du destin
# delayt 0.25 # delayt 0.25
# delayfb 0.2 # delayfb 0.2
# room 0.5 # dry 1 # sz 0.2 # room 0.5 # dry 1 # sz 0.2
# pan (slow 1 $ range (range 0.5 0.9 "^20") (range 0.5 0.1 "^19") (saw + perlin)) # pan (slow 1 $ range (range 0.5 0.9 "^33") (range 0.5 0.1 "^53") (saw + perlin))
# midiG' "^84" 0 1.5 # midiG' "^84" 0 1.5
d7 $ f2 -- d7 $ f2 --
$ midiOn "^58" (superimpose ( -- Crystal rain $ midiOn "^91" (superimpose ( -- Crystal rain
(|+ note 12) (|+ note 12)
. (# pan 0.9) . (# pan 0.9)
. (|* gain 0.9) . (|* gain 0.9)
......
...@@ -13,7 +13,7 @@ d2 $ gM2 $ gF1 ...@@ -13,7 +13,7 @@ d2 $ gM2 $ gF1
d3 $ gM2 $ gF1 d3 $ gM2 $ gF1
-- $ mask "t . <t!3 f>" -- $ mask "t . <t!3 f>"
-- $ someCyclesBy "<1!4 0!28>" (ply 2) -- $ someCyclesBy "<1!4 0!28>" (ply 2)
$ midiOn "^44" (ply 2) $ midiOn "^43" (ply 2)
-- $ mask "<t!4 t(4,8,1)!8 t!4>" -- $ mask "<t!4 t(4,8,1)!8 t!4>"
$ "h*8" $ "h*8"
# "hh" # "hh"
...@@ -22,8 +22,8 @@ d3 $ gM2 $ gF1 ...@@ -22,8 +22,8 @@ d3 $ gM2 $ gF1
# rel 0.4 # rel 0.4
# att 0.4 # att 0.4
d4 $ gM3 $ gF2 d4 $ gM3 $ gF2
$ midiOn "^89" (chop "4 <[4 8] [8 <16 32>]>") $ midiOn "^76" (chop "4 <[4 8] [8 <16 32>]>")
$ superimpose ((# hpf 500) . (# crushbus 41 (range 16 2.5 "^53"))) $ superimpose ((# hpf 500) . (# crushbus 41 (range 16 2.5 "^32")))
$ note ("<d4 a3 c3 g3>") $ note ("<d4 a3 c3 g3>")
# "bassWarsaw" # "bassWarsaw"
# octersub 0.9 # octersub 0.9
...@@ -64,7 +64,7 @@ d7 $ gM3 $ gF3 -- CHOIR ...@@ -64,7 +64,7 @@ d7 $ gM3 $ gF3 -- CHOIR
# rel 4 # rel 4
# att 0.01 # att 0.01
# gain (slow 32 $ range 0.5 0.8 saw) # gain (slow 32 $ range 0.5 0.8 saw)
# crushbus 71 (range 14 2.4 "^55") # crushbus 71 (range 14 2.4 "^35")
# pan 0.38 # pan 0.38
# room 0.4 # room 0.4
# dry 1 # dry 1
......
...@@ -17,7 +17,7 @@ d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>" ...@@ -17,7 +17,7 @@ d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]" $ "~ c ~ c" # "[clap]"
# midiG "^79" # midiG "^79"
d3 $ g $ gPont d3 $ g $ gPont
$ midiOn "^76" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165")) $ midiOn "^43" (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
-- $ mask "<f!8 t!24>" -- $ mask "<f!8 t!24>"
$ ( $ (
mask "t . t t(2,4)" mask "t . t t(2,4)"
...@@ -30,7 +30,7 @@ d4 $ g ...@@ -30,7 +30,7 @@ d4 $ g
$ note patFunk $ note patFunk
# "bass3" # "bass3"
# pan 0.2 # pan 0.2
# crush (range 16 2.5 "^53") # crush (range 16 2.5 "^32")
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
d5 $ g d5 $ g
$ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2)) $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
...@@ -39,7 +39,7 @@ d5 $ g ...@@ -39,7 +39,7 @@ d5 $ g
# "pluck" # "pluck"
# room 0.6 # room 0.6
# sz 0.8 # sz 0.8
# crush (range 16 2.5 "^54") # crush (range 16 2.5 "^33")
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita d6 $ g -- Final guitare rita
$ slice 16 "0 . 1 <~ 1 2>" $ slice 16 "0 . 1 <~ 1 2>"
...@@ -49,7 +49,7 @@ d6 $ g -- Final guitare rita ...@@ -49,7 +49,7 @@ d6 $ g -- Final guitare rita
# cut 6 # cut 6
# hpf 400 # hpf 400
d7 $ g -- Bonus breaks d7 $ g -- Bonus breaks
$ midiOff "^76" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>") $ midiOff "^59" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>")
$ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>" $ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
$ "breaks165" $ "breaks165"
# pan 0.75 # pan 0.75
...@@ -59,7 +59,7 @@ d7 $ g -- Bonus breaks ...@@ -59,7 +59,7 @@ d7 $ g -- Bonus breaks
# hpf 100 # hpf 100
d8 $ g -- Organic madness d8 $ g -- Organic madness
$ mask "<f!7 t f!4 t f!19 t!3 f t!28>" $ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
$ midiOn "^59" (sometimesBy (slow 4 saw) (ply 2)) $ midiOn "^60" (sometimesBy (slow 4 saw) (ply 2))
$ chop 4 $ chop 4
$ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw)) $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
-- $ mask "<f!32 t!32>" -- $ mask "<f!32 t!32>"
......
...@@ -20,12 +20,13 @@ d3 $ g ...@@ -20,12 +20,13 @@ d3 $ g
) )
# "bassWarsaw" # "bassWarsaw"
# pan 0.3 # pan 0.3
# crush (range 10 1.5 "^53") # crush (range 10 1.5 "^31")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
d4 d4
$ g $ g
$ midiOn "^44" (slow 2) $ midiOn "^44" (slow 2)
$ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165"))) $ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
-- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d4's own control with gSel.
$ midiOn "^41" (<| "k*4") $ midiOn "^41" (<| "k*4")
$ loopAt 1 $ loopAt 1
$ slice 8 ("0 1 2 3 4 5 6 7" $ slice 8 ("0 1 2 3 4 5 6 7"
...@@ -36,8 +37,8 @@ d4 ...@@ -36,8 +37,8 @@ d4
# midiG "^80" # midiG "^80"
d5 d5
$ g $ g
$ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)") $ midiOff "^57" (mask "t(<2 4 8 <8 16>>,16)")
$ midiOn "^58" ( -- Arps $ midiOn "^89" ( -- Arps
superimpose ( superimpose (
struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" . struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
arp "up . <up up down speedupdown>" arp "up . <up up down speedupdown>"
...@@ -54,12 +55,12 @@ d5 ...@@ -54,12 +55,12 @@ d5
# modIndex 5 # modIndex 5
# midiG "^82" # midiG "^82"
# room 0.5 # sz 0.8 # room 0.5 # sz 0.8
# hpq (range 0 0.5 "^34") # hpq (range 0 0.5 "^33")
# crush (range 10 4.5 "^54") # crush (range 10 4.5 "^53")
d8 -- Hold on? d8 -- Hold on?
$ g $ g
$ fix (# pan 0.62) (cut 81) $ fix (# pan 0.62) (cut 81)
$ whenmod 16 12 (midiOn "^59" $ scramble 4) $ whenmod 16 12 (midiOn "^60" $ scramble 4)
$ whenmod 64 16 (chop 16) $ whenmod 64 16 (chop 16)
$ mask "<t f!3 t f!3 t f!3 t!4>" $ mask "<t f!3 t f!3 t f!3 t!4>"
$ "daft" $ "daft"
...@@ -67,7 +68,7 @@ d8 -- Hold on? ...@@ -67,7 +68,7 @@ d8 -- Hold on?
# room 0.7 # room 0.7
# midiG "^83" # midiG "^83"
# pan 0.8 # pan 0.8
# crush (range 10 4.5 "^55") # crush (range 10 4.5 "^36")
# hpq 0.5 # hpq 0.5
# sz 0.7 # sz 0.7
......
...@@ -3,6 +3,6 @@ do ...@@ -3,6 +3,6 @@ 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]>")
$ "[jazz]" $ "[jazz]"
...@@ -6,8 +6,8 @@ d1 $ gF1 $ gM1 $ "jazz*4" ...@@ -6,8 +6,8 @@ d1 $ gF1 $ gM1 $ "jazz*4"
d2 $ gF1 $ gM2 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>" -- TODO SNARES <# d2 $ gF1 $ gM2 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>" -- TODO SNARES <#
d3 $ gF1 $ gM2 $ "hh*[8 16]" d3 $ gF1 $ gM2 $ "hh*[8 16]"
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4) $ midiOn "^76" (ply 4)
$ midiOn "^57" (superimpose ( $ midiOn "^44" (superimpose (
struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)" struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)"
. arp "up" . (|+| note "c'minor'3"))) . arp "up" . (|+| note "c'minor'3")))
$ ("q" <~) $ ("q" <~)
...@@ -16,12 +16,12 @@ d4 $ gF2 $ gM3 ...@@ -16,12 +16,12 @@ d4 $ gF2 $ gM3
-- # "jungbass:2" |- note 6 -- TODO sound design -- # "jungbass:2" |- note 6 -- TODO sound design
# cut 4 # cut 4
# pan 0.8 # pan 0.8
# squizbus 41 (range 0 8 "^53") # squizbus 41 (range 0 8 "^32")
# octersubbus 42 (range 0 1 "^33") # octersubbus 42 (range 0 1 "^52")
# legato 2 # lpf 4000 # legato 2 # lpf 4000
# gain 1.4 # gain 1.4
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOn "^58" (|+ note "12") $ midiOn "^57" (|+ note "12")
$ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>") $ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>")
$ note "<b fs b <g fs5>>" $ note "<b fs b <g fs5>>"
-- |+ note "0 <4 0 3 2>" -- |+ note "0 <4 0 3 2>"
......
...@@ -37,8 +37,8 @@ let prog = "<f'maj7 g'sus4 a4'min7 e'min7>" ...@@ -37,8 +37,8 @@ let prog = "<f'maj7 g'sus4 a4'min7 e'min7>"
setcps (110/60/4) setcps (110/60/4)
d1 $ g d1 $ g
-- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>" -- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
$ novaOff "^42" (<|"k . ~ k ~ ~") $ novaOff "^41" (<|"k . ~ k ~ ~")
$ novaOn "^42" (<| "k k k <k!3 k*2>") $ novaOn "^41" (<| "k k k <k!3 k*2>")
$ "[jazz,cpu2]" $ "[jazz,cpu2]"
# lpf 4000 # lpf 4000
# gM' 0 0.9 "^78" # gM' 0 0.9 "^78"
...@@ -53,11 +53,11 @@ d2 $ g ...@@ -53,11 +53,11 @@ d2 $ g
# lpf 2000 # lpf 2000
# gM' 0.2 0.9 "^79" # gM' 0.2 0.9 "^79"
d3 $ g d3 $ g
$ novaOn ("^76") --BOUTON NASSIM $ novaOn ("^43") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125") . (|* gain 1.35) . (>| "breaks125") . (|* gain 1.35)
) )
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) $ novaOff "^43" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d" $ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]" # "[drum:2,amencutup:5]"
# gM' 0 0.75 "^80" # gM' 0 0.75 "^80"
...@@ -104,12 +104,12 @@ d7 $ g ...@@ -104,12 +104,12 @@ d7 $ g
# gM' 0 0.8 "^83" # gM' 0 0.8 "^83"
# room 0.2 # room 0.2
d8 $ g d8 $ g
$ novaOn "^90" (chop 16) $ novaOn "^60" (chop 16)
$ novaOn "^58" (+ note (slow 4 "<0 12>")) $ novaOn "^92" (+ note (slow 4 "<0 12>"))
$ note (pkey) $ note (pkey)
# "bassWarsaw" # "bassWarsaw"
# octave 3 # octave 3
# voice (range 0.1 2 "^34") # voice (range 0.1 2 "^36")
# room 0.6 # sz 0.2 # room 0.6 # sz 0.2
# gM' 0.4 1 "^82" # gM' 0.4 1 "^82"
# crush (range 10 3.6 "^54") # crush (range 10 3.6 "^56")
...@@ -45,8 +45,8 @@ d3 $ gA ...@@ -45,8 +45,8 @@ d3 $ gA
# pan 0.35 # pan 0.35
# gain (range 0.45 0.85 "^83") # gain (range 0.45 0.85 "^83")
d4 $ gA d4 $ gA
$ novaOff "^60" (# silence) $ novaOff "^44" (# silence)
$ novaOn "^92" (fast 2) $ novaOn "^76" (fast 2)
$ "~ clap" $ "~ clap"
# lpf 2000 # lpf 2000
# gain (range 0 0.75 "^84") # gain (range 0 0.75 "^84")
......
...@@ -42,19 +42,21 @@ d3 $ g -- nass ...@@ -42,19 +42,21 @@ d3 $ g -- nass
# cut 3 # cut 3
# gR 0 2 "^79" # gR 0 2 "^79"
d4 $ g -- plastic visseuse d4 $ g -- plastic visseuse
$ novaOn "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8") $ novaOn "^44" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8")
$ novaOff "^76" (chop "[4|5] <1 2>") $ novaOff "^44" (chop "[4|5] <1 2>")
$ "[dr:3,dr:4]" $ "[dr:3,dr:4]"
# speed (segment 16 $ range 0.4 1.5 "^52") # speed (segment 16 $ range 0.4 1.5 "^32")
# attack (segment 16 $ range 0.01 0.5 "^32") # attack (segment 16 $ range 0.01 0.5 "^52")
# gR 0 2 "^80" # gR 0 2 "^80"
# pan 0.6 # pan 0.6
d5 $ g d5 $ g
$ sometimesBy "^54" (slow 2) -- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^33 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^33 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d5's own control with gSel.
$ sometimesBy "^33" (slow 2)
$ sometimesBy "^53" (fast 2) $ sometimesBy "^53" (fast 2)
$ fast "4 <8 4 8 16>" $ fast "4 <8 4 8 16>"
$ "jazz:6" -- Bot $ "jazz:6" -- Bot
# speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw) -- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^34 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d5's own control.
-- # speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw)
# gR 0 1.4 "^81" # gR 0 1.4 "^81"
# pan 0.7 # pan 0.7
d11 $ gAcc d11 $ gAcc
......
...@@ -24,7 +24,7 @@ d1 $ g -- Kick ...@@ -24,7 +24,7 @@ d1 $ g -- Kick
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
d2 $ g -- Contretemps snare d2 $ g -- Contretemps snare
-- $ whenBrkLPF -- $ whenBrkLPF
$ midiOn "^43" (fast "<2 2 4 2>") $ midiOn "^42" (fast "<2 2 4 2>")
$ whenmod 16 8 (fast 2) $ whenmod 16 8 (fast 2)
$ whenmod 8 6 (mask "<f [f t]>") $ whenmod 8 6 (mask "<f [f t]>")
$ superimpose (# hpf 500) $ superimpose (# hpf 500)
...@@ -32,7 +32,8 @@ d2 $ g -- Contretemps snare ...@@ -32,7 +32,8 @@ d2 $ g -- Contretemps snare
# "snare:20" # "snare:20"
# midiG' "^79" 0 1.2 # midiG' "^79" 0 1.2
d3 $ g -- Drumroll fantôme d3 $ g -- Drumroll fantôme
$ midiOn "^76" (fast "<2!3 4>") $ midiOn "^43" (fast "<2!3 4>")
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^44" (fast "2") $ midiOn "^44" (fast "2")
$ whenBrk (slow "<2 2 4 4 8 8 16 16>") $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
$ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>") $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
...@@ -45,7 +46,7 @@ d5 $ g -- Bassline {hypno,aqua}tique ...@@ -45,7 +46,7 @@ d5 $ g -- Bassline {hypno,aqua}tique
$ struct "t*<[1 0] 2 4 [12 . 8]>" $ struct "t*<[1 0] 2 4 [12 . 8]>"
$ note ("fs a" - 24) $ note ("fs a" - 24)
# "bassWarsaw" # "bassWarsaw"
# crushbus 51 (range 10 5.2 "^53") # crushbus 51 (range 10 5.2 "^33")
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
d6 $ g -- FMRhodes Arps <3 d6 $ g -- FMRhodes Arps <3
-- $ midiOff -- $ midiOff
...@@ -56,7 +57,7 @@ d6 $ g -- FMRhodes Arps <3 ...@@ -56,7 +57,7 @@ d6 $ g -- FMRhodes Arps <3
) )
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 15 "^34") # modIndex (range 0 15 "^34")
# crushbus 51 (range 10 5.2 "^53") # crushbus 51 (range 10 5.2 "^54")
# midiG' "^82" 0 1.3 # midiG' "^82" 0 1.3
d10 d10
$ "~ clap:1" $ "~ clap:1"
......
...@@ -5,17 +5,18 @@ let gM = gMask . gMute ...@@ -5,17 +5,18 @@ let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
setcps (62/60/4) setcps (62/60/4)
d1 $ gF $ gMute d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t [<t ~> t t ~]") $ midiOn "^41" (struct "t t t [<t ~> t t ~]")
$ midiOff "^42" (struct "t . t(3,8)") $ midiOff "^41" (struct "t . t(3,8)")
$ "[808bd:2,jazz]" $ "[808bd:2,jazz]"
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
d2 $ gF $ gM d2 $ gF $ gM
$ "~ snare:40" # hpf 5000 $ "~ snare:40" # hpf 5000
# midiG' "^79" 0 1.1 # midiG' "^79" 0 1.1
d3 $ gF $ gM d3 $ gF $ gM
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[8 16]") $ midiOn "^43" (struct "t*[8 16]")
$ midiOff "^44" (struct "[~ t]*4") $ midiOff "^43" (struct "[~ t]*4")
$ "dr" $ "dr"
# pan 0.8 # pan 0.8
# midiG' "^80" 0 0.85 # midiG' "^80" 0 0.85
...@@ -28,8 +29,8 @@ d4 $ gF2 ...@@ -28,8 +29,8 @@ d4 $ gF2
# room 0.2 # room 0.2
# pan (slow 16 $ range 0.5 0.8 saw) # pan (slow 16 $ range 0.5 0.8 saw)
# midiG' "^82" 0 0.85 # midiG' "^82" 0 0.85
# roombus 41 (range 0.2 0.9 "^34") # roombus 41 (range 0.2 0.9 "^32")
# drybus 42 (range "-2" 2 "^54") # drybus 42 (range "-2" 2 "^52")
# size 0.8 # size 0.8
d5 d5
$ never (superimpose ( $ never (superimpose (
...@@ -52,7 +53,7 @@ d5 ...@@ -52,7 +53,7 @@ d5
d6 $ gF d6 $ gF
$ gM $ gM
$ loopAt 1 $ loopAt 1
$ midiOn "^92" (chop 8 . ply 2) $ midiOn "^90" (chop 8 . ply 2)
$ "breaks125" $ "breaks125"
# cut 6 # cut 6
# midiG' "^84" 0 0.85 # midiG' "^84" 0 0.85
......
...@@ -5,7 +5,7 @@ let dMask = (whenmod 8 7 (mask "t t <t [f t]> f")) ...@@ -5,7 +5,7 @@ let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^41" (fast 2 . (<| "k k k k")) $ midiOn "^41" (fast 2 . (<| "k k k k"))
$ midiOff "^41" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>") $ midiOff "^41" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
$ "[jazz,kick:5,808bd:3]" $ "jazz"
# room 0.3 # sz 0.9 # dry 1 # room 0.3 # sz 0.9 # dry 1
d2 $ gF1 $ gM2 $ dMask d2 $ gF1 $ gM2 $ dMask
-- $ fix ( -- $ fix (
......
...@@ -22,15 +22,16 @@ d1 $ g ...@@ -22,15 +22,16 @@ d1 $ g
-- $ mask "<t!16 f!4 t!12>" -- First break -- $ mask "<t!16 f!4 t!12>" -- First break
-- $ mask "<t!32 f!8 t!24>" -- Post-filter break -- $ mask "<t!32 f!8 t!24>" -- Post-filter break
-- $ mask "<f!6 t f t!24>" -- Intro mask -- $ mask "<f!6 t f t!24>" -- Intro mask
$ midiOn "^42" (<| "k k k [k ~ <k ~> <~!3 k>]") $ midiOn "^41" (<| "k k k [k ~ <k ~> <~!3 k>]")
$ midiOff "^42" (<| "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]") $ midiOff "^41" (<| "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]")
$ "[bd:2,kick:5]" $ "[bd:2,kick:5]"
# midiG' "^78" 0 1.45 # midiG' "^78" 0 1.45
# legato 2 # legato 2
# att 0.1 # att 0.1
# rel 0.8 # rel 0.8
d2 $ g -- Aerian snare d2 $ g -- Aerian snare
$ midiOn ("^44" - "^76") (ply 2) -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn ("^42" - "^76") (ply 2)
$ midiOn "^76" (striate 4) $ midiOn "^76" (striate 4)
-- $ mask "<t!16 f!3 t t!12>" -- First break -- $ mask "<t!16 f!3 t t!12>" -- First break
-- $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask -- $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask
...@@ -49,7 +50,7 @@ d3 $ g2 ...@@ -49,7 +50,7 @@ d3 $ g2
d5 $ g -- BREAKBEAT BUDDY d5 $ g -- BREAKBEAT BUDDY
-- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break -- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
-- $ mask "<f!8 t!14 f f t!16>" -- $ mask "<f!8 t!14 f f t!16>"
$ midiOn "^91" (mask "t(8,16)" . fast 2) $ midiOn "^57" (mask "t(8,16)" . fast 2)
$ whenmod 16 8 ( $ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0" sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]")) (ply "2 . [2|4]"))
...@@ -59,8 +60,8 @@ d5 $ g -- BREAKBEAT BUDDY ...@@ -59,8 +60,8 @@ d5 $ g -- BREAKBEAT BUDDY
# pan 0.65 # pan 0.65
# midiG' "^83" 0 1.6 # midiG' "^83" 0 1.6
d4 $ g -- Bassline d4 $ g -- Bassline
$ midiOn "^89" (chop 8) $ midiOn "^76" (chop 8)
$ midiOff "^57" (mask "<f!8 t!8 f!4 t!12>") $ midiOff "^44" (mask "<f!8 t!8 f!4 t!12>")
-- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin))) -- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]" $ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin |+ chordsMin
...@@ -69,7 +70,7 @@ d4 $ g -- Bassline ...@@ -69,7 +70,7 @@ d4 $ g -- Bassline
# "bassWarsaw" # "bassWarsaw"
# pan 0.3 # pan 0.3
# hpf (range 0 500 perlin) # hpf (range 0 500 perlin)
# crushbus 41 (range 10 3.6 "^53") # crushbus 41 (range 10 3.6 "^32")
# midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine) # midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine)
# room 0.4 # room 0.4
d6 $ g2-- Rhodes chords d6 $ g2-- Rhodes chords
...@@ -80,7 +81,7 @@ d6 $ g2-- Rhodes chords ...@@ -80,7 +81,7 @@ d6 $ g2-- Rhodes chords
- 24 - 24
) )
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 2 "^54") # modIndex (range 0 2 "^34")
# midiG' "^82" 0 (slow 32 $ range 1.2 1.6 saw) # midiG' "^82" 0 (slow 32 $ range 1.2 1.6 saw)
# sz 0.9 # sz 0.9
# att 0.93 # att 0.93
......
...@@ -7,8 +7,8 @@ let width = pF "width" ...@@ -7,8 +7,8 @@ let width = pF "width"
let lagTime = pF "lagTime" let lagTime = pF "lagTime"
let filterRange = pF "filterRange" let filterRange = pF "filterRange"
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2") $ midiOn "^41" (<| "k k k k*2")
$ midiOff "^42" (<| "k") $ midiOff "^41" (<| "k")
-- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" -- $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]" $ "[kick:4,jazz]"
...@@ -30,17 +30,17 @@ d3 $ gF1 $ gM -- Hats closed legers ...@@ -30,17 +30,17 @@ d3 $ gF1 $ gM -- Hats closed legers
# note "3" # note "3"
|* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8") |* gain 1.5 * ("~ 1 ~ 0.9 ~ 1 ~ 0.8")
d6 $ gF1 $ gM -- Hats closed legers d6 $ gF1 $ gM -- Hats closed legers
$ midiOff "^44" (mask "t(4,8,1)") $ midiOff "^58" (mask "t(4,8,1)")
$ "h2ogmhh:5*8" $ "h2ogmhh:5*8"
# legato 0.5 # legato 0.5
# note "<2!2 -1!2>" # note "<2!2 -1!2>"
# room 0.3 # sz 0.13 # dry 1.1 # room 0.3 # sz 0.13 # dry 1.1
# gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1") # gain 1.2 * ("1 0.9 1 0.8 <0.9!3 1.05> 1")
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^57" (chop 4) $ midiOn "^76" (chop 4)
$ midiOn "^89" (mask "t(8,16)" . ply "<2!3 [2 4]>") $ midiOn "^44" (mask "t(8,16)" . ply "<2!3 [2 4]>")
$ superimpose ( $ superimpose (
(# crushbus 41 (range 16 3.5 "^53")) (# crushbus 41 (range 16 3.5 "^32"))
. (# lpf 2500) . (# room 0.2) . (# lpf 2500) . (# room 0.2)
) )
$ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>" $ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
...@@ -50,7 +50,7 @@ d4 $ gF2 $ gM3 ...@@ -50,7 +50,7 @@ d4 $ gF2 $ gM3
# gain 1.3 # gain 1.3
# att 0.02 # rel 4 # att 0.02 # rel 4
# room 0.3 # sz 0.5 # room 0.3 # sz 0.5
# octerbus 42 (range 0 0.95 "^33") # octerbus 42 (range 0 0.95 "^52")
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
-- $ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>" -- $ note "<[fs4@7 <~ a4>] <d4!3 <g4 [g4@5 a4 g4 e4]>>>"
$ note ("fs fs a <~!8 fs!8> <~!8 fs!8> <a!3 <b cs>>") $ note ("fs fs a <~!8 fs!8> <~!8 fs!8> <a!3 <b cs>>")
...@@ -68,10 +68,10 @@ d5 $ gF1 $ gM3 ...@@ -68,10 +68,10 @@ d5 $ gF1 $ gM3
. (|- note 12) . (|- note 12)
. (ply 2) . (ply 2)
. (# pan 0.8) . (# pan 0.8)
. (# modIndex (range 0 3 "^54")) . (# modIndex (range 0 3 "^33"))
. (|* gain 1.1) . (|* gain 1.1)
. (# cut 51)) ("FMRhodes1") . (# cut 51)) ("FMRhodes1")
$ fix ((|* gain (range 1 0.3 "^34")) . (# cut 52)) "90s_synatm" $ fix ((|* gain (range 1 0.3 "^53")) . (# cut 52)) "90s_synatm"
$ note ("<cs5 <a4 <d5 [d5@5 cs5 d5 cs5]>>>" + 12) $ note ("<cs5 <a4 <d5 [d5@5 cs5 d5 cs5]>>>" + 12)
# "[FMRhodes1,90s_synatm:3]/4" # "[FMRhodes1,90s_synatm:3]/4"
# cut 5 # cut 5
......
...@@ -22,7 +22,7 @@ d2 $ g ...@@ -22,7 +22,7 @@ d2 $ g
# midiG' "^79" 0 1.7 # midiG' "^79" 0 1.7
d6 -- d6 --
$ g $ g
$ midiOn "^44" (slow 2) $ midiOn "^58" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]") -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52") -- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2" $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
...@@ -32,17 +32,17 @@ d6 -- ...@@ -32,17 +32,17 @@ d6 --
) )
# midiG' "^80" 0 1.6 # midiG' "^80" 0 1.6
d5 $ g -- Breakbeat d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>") $ midiOn "^89" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>") $ midiOff "^57" (slow "<4 2>")
$ sometimesBy "^32" rev $ sometimesBy "^33" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4") $ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2 $ loopAt 2
$ "fbreak100" $ "fbreak100"
# cut 5 # cut 5
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass d3 $ g -- CBOW Electric Bass
$ midiOn "^57" (mask "t(<2 2 3 <4 5 6 8>>,8)") $ midiOn "^43" (mask "t(<2 2 3 <4 5 6 8>>,8)")
-- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) -- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
-- $ ("0.125" ~>) -- $ ("0.125" ~>)
$ superimpose (mask "t f" . (# cut 31) . (|- note 12)) $ superimpose (mask "t f" . (# cut 31) . (|- note 12))
...@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass ...@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass
# sz 0.5 # sz 0.5
# midiG' "^81" 0 0.9 # midiG' "^81" 0 0.9
# room 0.5 # sz 0.5 # room 0.5 # sz 0.5
# crushbus 31 (range 10 2 "^53") # crushbus 31 (range 10 2 "^31")
d4 $ g -- Lead vangelis' synth d4 $ g -- Lead vangelis' synth
$ juxBy 0.8 ( $ juxBy 0.8 (
struct "<t [t . t*2]>" . arp "up" . (|+ note (12 struct "<t [t . t*2]>" . arp "up" . (|+ note (12
......
...@@ -25,7 +25,7 @@ d2 $ gDJF $ g ...@@ -25,7 +25,7 @@ d2 $ gDJF $ g
# midiG' "^79" 0 1.7 # midiG' "^79" 0 1.7
d6 -- d6 --
$ g $ g
$ midiOn "^44" (slow 2) $ midiOn "^58" (slow 2)
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2" $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note ( # note (
whenmod 4 3 (2 -) whenmod 4 3 (2 -)
...@@ -33,10 +33,10 @@ d6 -- ...@@ -33,10 +33,10 @@ d6 --
) )
# midiG' "^80" 0 1.3 # midiG' "^80" 0 1.3
d5 $ g -- Breakbeat d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>") $ midiOn "^89" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>") $ midiOff "^57" (slow "<4 2>")
$ sometimesBy "^32" rev $ sometimesBy "^33" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4") $ someCyclesBy (0.9 * "^53") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2 $ loopAt 2
$ "fbreak100" $ "fbreak100"
...@@ -44,7 +44,7 @@ d5 $ g -- Breakbeat ...@@ -44,7 +44,7 @@ d5 $ g -- Breakbeat
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass d3 $ g -- CBOW Electric Bass
$ gDJF $ gDJF
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) $ midiOn "^43" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ ("0.125" ~>) $ ("0.125" ~>)
$ slow 4 $ slow 4
$ note ( $ note (
...@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass ...@@ -55,7 +55,7 @@ d3 $ g -- CBOW Electric Bass
# room 0.6 # room 0.6
# sz 0.5 # sz 0.5
# midiG' "^81" 0 0.9 # midiG' "^81" 0 0.9
# crushbus 31 (range 10 2 "^53") # crushbus 31 (range 10 2 "^31")
d4 $ g -- Lead aigus d4 $ g -- Lead aigus
$ mask "<f!8 t!24 t!8 f!8 t!16>" $ mask "<f!8 t!24 t!8 f!8 t!16>"
-- $ whenmod 8 7 (ply "1 4") -- $ whenmod 8 7 (ply "1 4")
...@@ -68,8 +68,8 @@ d4 $ g -- Lead aigus ...@@ -68,8 +68,8 @@ d4 $ g -- Lead aigus
# cut 4 # cut 4
# room 0.2 # room 0.2
# midiG' "^82" 0 1.25 # midiG' "^82" 0 1.25
# lesliebus 41 (range 0 2 "^54") # lesliebus 41 (range 0 2 "^32")
# lsizebus 42 (range 0.2 6.2 "^34") # lsizebus 42 (range 0.2 6.2 "^52")
d8 $ g -- Angels d8 $ g -- Angels
$ juxBy 0.8 (sometimesBy "0 1" rev) $ juxBy 0.8 (sometimesBy "0 1" rev)
-- $ midiOff "^59" (mask "<f!32 t!32>") -- $ midiOff "^59" (mask "<f!32 t!32>")
......
...@@ -42,13 +42,13 @@ d4 $ g -- bassine ...@@ -42,13 +42,13 @@ d4 $ g -- bassine
$ "loop" # n "<0!4 1!4>" $ "loop" # n "<0!4 1!4>"
# midiG' "^81" 0 0.8 # midiG' "^81" 0 0.8
# pan 0.2 # pan 0.2
# crushbus 41 (range 10 1.5 "^53") # crushbus 41 (range 10 1.5 "^32")
d5 $ g -- Looped Rhodes d5 $ g -- Looped Rhodes
$ "loop" # n "<3!3 4 3 4 4 5>" $ "loop" # n "<3!3 4 3 4 4 5>"
# pan 0.8 # pan 0.8
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# pan 0.75 # pan 0.75
# ampbus 101 (range 0.5 1.5 "^54") # ampbus 101 (range 0.5 1.5 "^33")
# room 0.6 # dry 0.8 # room 0.6 # dry 0.8
d6 $ g -- d6 $ g --
$ "hello" $ "hello"
......
...@@ -5,8 +5,8 @@ setcps (91/60/4) ...@@ -5,8 +5,8 @@ setcps (91/60/4)
let width = pF "width" let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f")) let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>") $ midiOn "^41" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k ~>") $ midiOff "^41" (<| "<k ~>")
$ fix (|* gain 0.6) "jazz" $ fix (|* gain 0.6) "jazz"
$ "[808bd:13,jazz]" $ "[808bd:13,jazz]"
# gain 1.8 # gain 1.8
...@@ -22,13 +22,13 @@ d4 $ gF2 $ gM3 ...@@ -22,13 +22,13 @@ d4 $ gF2 $ gM3
"<g3 d4 g3 bf3 g3 a3 g3 d3>" + (fast 4 $ arp "up" "<c'min'4!7 c'maj'4>") "<g3 d4 g3 bf3 g3 a3 g3 d3>" + (fast 4 $ arp "up" "<c'min'4!7 c'maj'4>")
) )
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# gain 1.4 # gain 1.4
d5 $ gF3 $ gM3 -- Handmade grinder piano d5 $ gF3 $ gM3 -- Handmade grinder piano
$ slow 2 $ slow 2
$ note ("<[~ d5@2 c5@2 <bf4 bf4 f5 f5>@2 <c5 c5 ef4 ef5> <a4 <ef5 d5>>@8]>" ) $ note ("<[~ d5@2 c5@2 <bf4 bf4 f5 f5>@2 <c5 c5 ef4 ef5> <a4 <ef5 d5>>@8]>" )
# "FMRhodes2" # "FMRhodes2"
# modIndex (range 0 12 "^54") # modIndex (range 0 12 "^33")
# gain 1.5 # gain 1.5
d12 $ gF3 $ "gfunk_lead:19/4" # cut 12 # room 0.4 # panbus 120 (slow 16 $ range 0.2 0.8 sine) # octersub 2.5 d12 $ gF3 $ "gfunk_lead:19/4" # cut 12 # room 0.4 # panbus 120 (slow 16 $ range 0.2 0.8 sine) # octersub 2.5
d10 $ gF3 $ "gfunk_lead:17/2" # cut 10 # pan 0.2 # gain 1.2 d10 $ gF3 $ "gfunk_lead:17/2" # cut 10 # pan 0.2 # gain 1.2
...@@ -43,7 +43,7 @@ d8 $ gF1 $ gM2 ...@@ -43,7 +43,7 @@ d8 $ gF1 $ gM2
) )
$ midiOff ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO $ midiOff ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ chop 16 $ chop 16
$ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) -- $ midiOn "^36" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:45" $ "jungle_breaks:45"
# cut 8 # cut 8
......
...@@ -64,7 +64,7 @@ d6 $ g -- Hello Parov! Piano ...@@ -64,7 +64,7 @@ d6 $ g -- Hello Parov! Piano
# cut 6 # cut 6
# midiG' "^81" 0.5 1.5 # midiG' "^81" 0.5 1.5
d7 $ g -- Hello Parov! Piano2 d7 $ g -- Hello Parov! Piano2
$ midiOn "^58" (|+| n ("0*<1!4 2!3 4 4 4 8 16>" $ midiOn "^59" (|+| n ("0*<1!4 2!3 4 4 4 8 16>"
)) ))
$ "mojo" # n "<6 7>" $ "mojo" # n "<6 7>"
# cut 7 # cut 7
......
...@@ -3,8 +3,8 @@ do ...@@ -3,8 +3,8 @@ do
setcps (120/60/4) setcps (120/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ fix (# lpf 2000) "kick" $ fix (# lpf 2000) "kick"
$ 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 ~ <~!3 k>") . fix (# silence) "kick") $ midiOff "^41" ((<| "k . ~ k ~ <~!3 k>") . fix (# silence) "kick")
$ "[808bd:4,808bd:2,kick:4]" $ "[808bd:4,808bd:2,kick:4]"
# gain 1.51 # gain 1.51
# lpf 2000 # lpf 2000
...@@ -22,15 +22,16 @@ d3 $ gF1 $ gM2 ...@@ -22,15 +22,16 @@ d3 $ gF1 $ gM2
$ "hh*[8 <16!6 8!2> <8!7 16>]" $ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1") # "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*[8 <8!3 16>]") $ midiOn "^44" (struct "t*[8 <8!3 16>]")
-- $ off 0.5 id -- $ off 0.5 id
-- $ midiOn "^" -- $ midiOn "^"
$ loopAt 4 $ chop 8 $ loopAt 4 $ chop 8
$ "sunny_bass" # n "<3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!15 4!16 5!16 6!16 3>" $ "sunny_bass" # n "<3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!16 4!16 5!16 6!16> <3!15 4!16 5!16 6!16 3>"
# cut 4 # cut 4
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^32")
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^52")
# lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2 -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # lesliebus 43 (range 0 0.95 "^17") # lrate 2 # lsize 2.2
# bandf 400 # bandf 400
# gain 1.5 # gain 1.5
-- # gain 1.3 -- # gain 1.3
......
...@@ -39,14 +39,14 @@ d1 $ g ...@@ -39,14 +39,14 @@ d1 $ g
d2 $ g d2 $ g
$ mask "<f!8 t!8> <f!4 t!4> . t" $ mask "<f!8 t!8> <f!4 t!4> . t"
$ novaOn "^75" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165"))) $ novaOn "^75" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
$ sometimesBy ("^43") (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s") $ sometimesBy ("^42") (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s")
$ every' 8 7 (mask "f t!3" . jux rev) $ every' 8 7 (mask "f t!3" . jux rev)
$ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2" $ s "~ s ~ <~!4 s!4> ~ s*2 ~ s*2"
# s "snare:20" # s "snare:20"
# gM' 0 1.2 "^79" # gM' 0 1.2 "^79"
# pan 0.3 # pan 0.3
d3 $ g -- Drumroll opposé hit roll / hh when TECHNO d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
$ novaOn "^41" ( -- TECHNO bells! $ novaOn "^43" ( -- TECHNO bells!
whenmod 4 3 ( whenmod 4 3 (
sometimesBy "0!15 <0!4 1!4>" (# silence) . sometimesBy "0!15 <0!4 1!4>" (# silence) .
sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) . sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) .
...@@ -54,10 +54,11 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO ...@@ -54,10 +54,11 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO
(|* gain 0.75) . (|* gain 0.75) .
(>| "ho*8") (>| "ho*8")
) )
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll $ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll
$ novaOn "^44" (fast "<16!3 [16 8]> [8 <8!3 16>]") -- Running roll $ novaOn "^44" (fast "<16!3 [16 8]> [8 <8!3 16>]") -- Running roll
$ s "drum:8" $ s "drum:8"
# pan (slow 8 $ range 0.1 0.9 (sine + "^52")) # pan (slow 8 $ range 0.1 0.9 (sine + "^31"))
# gM' 0 1 "^80" # gM' 0 1 "^80"
# cut 3 # cut 3
d6 $ g -- Hit roll opposé drumroll d6 $ g -- Hit roll opposé drumroll
...@@ -75,7 +76,7 @@ d4 $ g ...@@ -75,7 +76,7 @@ d4 $ g
often (off 0.125 (|+ note "<0!3 12>")) often (off 0.125 (|+ note "<0!3 12>"))
. arp (slow 8 $ "<up down updown downup>") . arp (slow 8 $ "<up down updown downup>")
. (|+ note 36) . (|+ note 36)
. (# velocity (range 0.35 0.75 ("^34" + (fast 4 perlin/8)))) . (# velocity (range 0.35 0.75 ("^32" + (fast 4 perlin/8))))
. (|* velocity 1.1) . (|* velocity 1.1)
. (# room 0.2) . (# room 0.2)
. (/ sustain 2) . (/ sustain 2)
...@@ -85,8 +86,9 @@ d4 $ g ...@@ -85,8 +86,9 @@ d4 $ g
$ note (melody) $ note (melody)
# s "superpiano" # s "superpiano"
# gM' 0 1.1 "^82" # gM' 0 1.1 "^82"
# velocity (range 0.35 0.60 ("^54" + (fast 4 perlin/8))) # velocity (range 0.35 0.60 ("^52" + (fast 4 perlin/8)))
# sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18")) -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^18 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # sustain (max 0.45 $ min 1 (2 * range 0.15 1 "^18"))
# room 0.4 # size 0.2 # room 0.4 # size 0.2
# pan 0.5 # pan 0.5
d5 $ g -- Basse + Sirene d5 $ g -- Basse + Sirene
...@@ -100,12 +102,12 @@ d5 $ g -- Basse + Sirene ...@@ -100,12 +102,12 @@ d5 $ g -- Basse + Sirene
. (-| note 12) -- 24 when crushed . (-| note 12) -- 24 when crushed
. (# gM' 0.2 0.8 (( . (# gM' 0.2 0.8 ((
"^81" -- gain bass "^81" -- gain bass
* (range 0.7 0.9 "^53") -- Modulated 5C * (range 0.7 0.9 "^33") -- Modulated 5C
) )
- (0.125 * "^57") -- When TECHNOPHILE - (0.125 * "^57") -- When TECHNOPHILE
)) ))
. (# crush (range 10 3 . (# crush (range 10 3
"^33")) "^53"))
. (# room 0.5) . (# room 0.5)
. (# size 0.8) . (# size 0.8)
) )
...@@ -115,21 +117,21 @@ d5 $ g -- Basse + Sirene ...@@ -115,21 +117,21 @@ d5 $ g -- Basse + Sirene
) )
# s "supersaw" # s "supersaw"
# voice 0.15 # voice 0.15
# crush (range 10 2 "^33") # crush (range 10 2 "^53")
# gM' 0.2 0.8 ("^81" * (range 1 0.45 "^53")) -- Modulated 5C # gM' 0.2 0.8 ("^81" * (range 1 0.45 "^33")) -- Modulated 5C
# pan (slow 10 $ range 0.6 0.8 sine) # pan (slow 10 $ range 0.6 0.8 sine)
d7 $ g -- Claps fantome d7 $ g -- Claps fantome
$ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s") $ sometimesBy (range 0 0.25 "^35") (stut 4 0.9 "s")
$ s "~ . cp*<1 1 2 1 1!3 2> ~" $ s "~ . cp*<1 1 2 1 1!3 2> ~"
# room 0.2 # room 0.2
# sz (range 0.5 0.9 perlin) # sz (range 0.5 0.9 perlin)
# dry 1.05 # dry 1.05
# speed (range 0.125 1.25 "^35") # speed (range 0.125 1.25 "^55")
# gM' 0 1 "^83" # gM' 0 1 "^83"
# lpf 2000 # lpf 2000
# pan (slow 8 $ range 0.45 0.65 saw) # pan (slow 8 $ range 0.45 0.65 saw)
d8 $ g -- Gunfire d8 $ g -- Gunfire
$ sometimesBy "^20" ( $ sometimesBy "^36" (
superimpose (const -- pistolets superimpose (const -- pistolets
$ someCyclesBy 0.25 ( -- réplique $ someCyclesBy 0.25 ( -- réplique
off 0.5 (|+ gain 0.1) off 0.5 (|+ gain 0.1)
...@@ -137,8 +139,9 @@ d8 $ g -- Gunfire ...@@ -137,8 +139,9 @@ d8 $ g -- Gunfire
) )
$ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho $ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho
$ s "~ ~ ~ snare:57" $ s "~ ~ ~ snare:57"
# speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3))) -- 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.
# gM' 0 1 "^56" -- # speed (range 0.4 1 ("^56" + (slow 4 $ perlin/3)))
-- # gM' 0 1 "^56"
# cut 80 # cut 80
# dry 1.02 # dry 1.02
# pan (range 0.2 0.8 perlin) # pan (range 0.2 0.8 perlin)
...@@ -149,6 +152,7 @@ d8 $ g -- Gunfire ...@@ -149,6 +152,7 @@ d8 $ g -- Gunfire
# begin (slow 4 "<0 0.2 0.5>") # begin (slow 4 "<0 0.2 0.5>")
# cut 8 # cut 8
# room 0.6 # size 0.4 # room 0.6 # size 0.4
# speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4)) -- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^19 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d8's own control.
-- # speed (range 0.5 1.25 (segment 8 $ "^19" + perlin/4))
# gM "^84" # gM "^84"
# delay 0.3 # delaytime (1/3) # delayfb 0.8 # delay 0.3 # delaytime (1/3) # delayfb 0.8
...@@ -19,7 +19,7 @@ d2 $ gF1 $ gM2 ...@@ -19,7 +19,7 @@ d2 $ gF1 $ gM2
# pan 0.5 # pan 0.5
-- # lpf 4650 -- # lpf 4650
d3 $ gF1 $ gM2 -- Highest hats d3 $ gF1 $ gM2 -- Highest hats
$ midiOn "^44" (ply 2) $ midiOn "^43" (ply 2)
-- $ midiOn "^76" ((ply 2) . (# pan "0.2 0.8 0.2 0.8")) -- $ midiOn "^76" ((ply 2) . (# pan "0.2 0.8 0.2 0.8"))
$ "drum:2*[<6!3 12> <6 [8 <12 24>]>]" $ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
# "h2ogmsn:12" # "h2ogmsn:12"
...@@ -30,14 +30,14 @@ d3 $ gF1 $ gM2 -- Highest hats ...@@ -30,14 +30,14 @@ d3 $ gF1 $ gM2 -- Highest hats
-- # pan "<0.7!16 0.3!16>" -- # pan "<0.7!16 0.3!16>"
-- # pan 0.8 -- # pan 0.8
d4 $ gM3 $ gF2 d4 $ gM3 $ gF2
$ midiOn "^57" (slice 4 "<0 1 2 3>*4") $ midiOn "^76" (slice 4 "<0 1 2 3>*4")
$ midiOn "^89" (ply "2 <4 8>") $ midiOn "^44" (ply "2 <4 8>")
$ chop 8 $ loopAt 4 $ chop 8 $ loopAt 4
$ "nujazz_bass125:1" $ "nujazz_bass125:1"
# cut 4 # cut 4
# pan 0.55 # pan 0.55
# room 0.3 # room 0.3
# crushbus 41 (range 12 4.5 "^52") # crushbus 41 (range 12 4.5 "^32")
# gain 1.4 # gain 1.4
d5 $ gM3 $ gF3 d5 $ gM3 $ gF3
$ chop 8 $ chop 8
...@@ -52,7 +52,7 @@ d7 $ gM3 $ gF3 ...@@ -52,7 +52,7 @@ d7 $ gM3 $ gF3
$ loopAt 2 $ loopAt 2
$ "nujazz_keys125" # n "<66!4 67!4>" $ "nujazz_keys125" # n "<66!4 67!4>"
# cut 7 # cut 7
# octerbus 71 (range 0 0.5 "^55") # octerbus 71 (range 0 0.5 "^35")
# pan 0.1 # pan 0.1
# gain 1.4 # gain 1.4
d11 $ gM3 $ gF3 d11 $ gM3 $ gF3
......
...@@ -20,8 +20,8 @@ d2 $ gF1 $ gM2 $ double $ "~ s ~ s*<1!3 2>" ...@@ -20,8 +20,8 @@ d2 $ gF1 $ gM2 $ double $ "~ s ~ s*<1!3 2>"
d3 $ gF1 $ gM2 $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h h? h*<1!3 2>" d3 $ gF1 $ gM2 $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h h? h*<1!3 2>"
# "ho:1" # gain 0.5 # cut 3 # "ho:1" # gain 0.5 # cut 3
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (loopAt "<0.5!7 0.25>") $ midiOn "^76" (loopAt "<0.5!7 0.25>")
$ midiOn "^57" (# n "<3!8 4!8>") $ midiOn "^44" (# n "<3!8 4!8>")
$ chop 8 $ chop 8
$ loopAt 2 $ loopAt 2
$ "menthe" # n "<2!16 5!16>" $ "menthe" # n "<2!16 5!16>"
......
...@@ -88,13 +88,13 @@ d4 $ g -- bassine ...@@ -88,13 +88,13 @@ d4 $ g -- bassine
$ "loop" # n "<0!4 1!4>" $ "loop" # n "<0!4 1!4>"
# midiG' "^81" 0 0.8 # midiG' "^81" 0 0.8
# pan 0.2 # pan 0.2
# crushbus 41 (range 10 1.5 "^53") # crushbus 41 (range 10 1.5 "^32")
d5 $ g -- Looped Rhodes d5 $ g -- Looped Rhodes
$ "loop" # n "<3!3 4 3 4 4 5>" $ "loop" # n "<3!3 4 3 4 4 5>"
# pan 0.8 # pan 0.8
# midiG' "^82" 0 1 # midiG' "^82" 0 1
# pan 0.75 # pan 0.75
# ampbus 101 (range 0.5 1.5 "^54") # ampbus 101 (range 0.5 1.5 "^33")
# room 0.6 # dry 0.8 # room 0.6 # dry 0.8
d6 $ g -- d6 $ g --
$ "hello" $ "hello"
......
...@@ -41,18 +41,18 @@ d4 $ f2 ...@@ -41,18 +41,18 @@ d4 $ f2
(# cut 4) (# cut 4)
. (|+| note ("12 <7!3 9>" - 12)) . (|+| note ("12 <7!3 9>" - 12))
) )
$ midiOn "^57" (chop 8) $ midiOn "^76" (chop 8)
$ note "<d4 d4 e4 f4 d4 d4 g4 f4>" $ note "<d4 d4 e4 f4 d4 d4 g4 f4>"
# "supersaw" # "supersaw"
# octave 4 # octave 4
# voice 0.05 # voice 0.05
# crushbus 4 (range 16 2 "^53") # crushbus 4 (range 16 2 "^32")
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
d5 $ f2 d5 $ f2
$ note "<d'min d'min d'7sus2 d'min d'min d'min d'7sus2 d'min d'7sus2 d'7sus2 d'min d'7sus2 d'min d'min d'7sus2 d'min>" $ note "<d'min d'min d'7sus2 d'min d'min d'min d'7sus2 d'min d'7sus2 d'7sus2 d'min d'7sus2 d'min d'min d'7sus2 d'min>"
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0.1 32 "^54") # modIndex (range 0.1 32 "^33")
# crushbus 5 (range 10 2 "^34") # crushbus 5 (range 10 2 "^53")
# midiG' "^82" 0 1.8 # midiG' "^82" 0 1.8
# pan 0.8 # pan 0.8
......
...@@ -6,18 +6,18 @@ let gMute = (midiOn "^73" (mask "f*16")) ...@@ -6,18 +6,18 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ g1 $ gM d1 $ g1 $ gM
$ 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> . <~!16 k!16> <~!8 k!8> <~ k ~ k> <~ k>") $ midiOff "^41" (<| "k ~ ~ <~!3 k> . <~!16 k!16> <~!8 k!8> <~ k ~ k> <~ k>")
$ "[jazz,tech]" $ "[jazz,tech]"
# pan 0.4 # pan 0.4
# midiG' "^78" 0 1.9 # midiG' "^78" 0 1.9
d2 $ g1 $ gM d2 $ g1 $ gM
$ midiOn "^43" (id $ midiOn "^42" (id
. (midiOn "^75" (ply 4 . chop 4 . (# cut 21))) . (midiOn "^75" (ply 4 . chop 4 . (# cut 21)))
. loopAt 2 . loopAt 2
. (# "breaks165") . (# "breaks165")
. struct "t") . struct "t")
$ midiOff "^43" ( $ midiOff "^42" (
mask "t(<32 16 [32 16] 8 16 8 [8 4] [16 32]>,32)" mask "t(<32 16 [32 16] 8 16 8 [8 4] [16 32]>,32)"
. chop 32 . chop 32
. loopAt 1 . loopAt 1
...@@ -32,7 +32,7 @@ d4 $ g2 $ gMask ...@@ -32,7 +32,7 @@ d4 $ g2 $ gMask
$ chop 4 $ chop 4
$ loopAt 4 $ loopAt 4
$ "bass_atari:2" $ "bass_atari:2"
# crushbus 41 (range 16 2.4 "^53") # crushbus 41 (range 16 2.4 "^32")
# lpf 2000 # lpf 2000
# cut 4 # cut 4
# midiG' "^81" 0 1.3 # midiG' "^81" 0 1.3
...@@ -44,7 +44,7 @@ d5 $ g2 -- ACID RAIN ...@@ -44,7 +44,7 @@ d5 $ g2 -- ACID RAIN
$ "synth_commodore:1" $ "synth_commodore:1"
# pan 0.2 # pan 0.2
# cut 5 # cut 5
# crushbus 51 (range 16 4 "^54") # crushbus 51 (range 16 4 "^33")
# midiG' "^82" 0 1.5 # midiG' "^82" 0 1.5
d6 $ g2 -- Good news d6 $ g2 -- Good news
$ slice 8 (slow 8 $ run 8) $ slice 8 (slow 8 $ run 8)
...@@ -63,7 +63,7 @@ d7 $ gMask $ g2 -- Everyone <3 ...@@ -63,7 +63,7 @@ d7 $ gMask $ g2 -- Everyone <3
# legato 2 # legato 2
# room 0.85 # dry 1 # room 0.85 # dry 1
# sz 0.8 # sz 0.8
# squizbus 71 (range 0 8 "^56") # squizbus 71 (range 0 8 "^35")
# delay 0.8 # delayfb 0.25 # delayt 0.5 # delay 0.8 # delayfb 0.25 # delayt 0.5
# pan 0.99 # pan 0.99
# orbit 5 # orbit 5
......
...@@ -24,7 +24,7 @@ d1 $ g ...@@ -24,7 +24,7 @@ d1 $ g
# gM' 0 1.4 "^78" # gM' 0 1.4 "^78"
d2 d2
$ g $ g
$ midiOn "^41" (fast 2) $ midiOn "^42" (fast 2)
$ "hh27*8" # n "[1|4]*8" $ "hh27*8" # n "[1|4]*8"
# room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin) # room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin)
# gM' 0.5 1.5 "^79" # gM' 0.5 1.5 "^79"
...@@ -52,16 +52,17 @@ d6 $ g -- Guitar riffs ...@@ -52,16 +52,17 @@ d6 $ g -- Guitar riffs
$ note 2 -- correction $ note 2 -- correction
# "punk" # "punk"
# cut 6 # cut 6
# lpq (range 0 0.125 "^17") # lpq (range 0 0.125 "^34")
# attack (range 0.5 1 "^33") # attack (range 0.5 1 "^54")
# crush (range 12 1.75 "^53") -- FIXME(#54) d6 drives more controls than the grid gives it (B6 + C6). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d6's own control.
-- # crush (range 12 1.75 "^53")
# pan 0.9 # pan 0.9
# room 0.3 # room 0.3
# sz 0.9 # sz 0.9
# gM' 0.4 1.5 "^81" # gM' 0.4 1.5 "^81"
d4 -- Rhodes base + chords d4 -- Rhodes base + chords
$ g $ g
$ midiOn "^58" (superimpose ( -- ARPS <3 $ midiOn "^76" (superimpose ( -- ARPS <3
(|+ note 12) (|+ note 12)
. sometimesBy "0 0.5!7" rev . sometimesBy "0 0.5!7" rev
. fast "1 2" . fast "1 2"
...@@ -78,7 +79,7 @@ d4 -- Rhodes base + chords ...@@ -78,7 +79,7 @@ d4 -- Rhodes base + chords
# "FMRhodes1" # "FMRhodes1"
# modIndex "[0,5,10]" # modIndex "[0,5,10]"
# pan 0.6 # pan 0.6
# crush (range 10 4 "^54") # crush (range 10 4 "^32")
# gM' 0.3 1.9 "^82" # gM' 0.3 1.9 "^82"
d5 $ g -- Choirs + arps d5 $ g -- Choirs + arps
$ juxBy "-0.7" ( $ juxBy "-0.7" (
...@@ -90,20 +91,20 @@ d5 $ g -- Choirs + arps ...@@ -90,20 +91,20 @@ d5 $ g -- Choirs + arps
$ "moogBass" $ "moogBass"
# note (prog + "[0,24]") # note (prog + "[0,24]")
# octave 3 # octave 3
# gM' 0.3 1.5 "^56" # gM' 0.3 1.5 "^33"
# pan 0.2 # pan 0.2
# chorus 0.6 # chorus 0.6
d8 $ g -- Electrified laggy moog d8 $ g -- Electrified laggy moog
$ midiOn "^91" (ply 2) $ midiOn "^92" (ply 2)
$ midiOn "^59" ( $ midiOn "^60" (
(# lpf 2000) (# lpf 2000)
. (# lpq (slow 16 $ range 0 0.15 perlin)) . (# lpq (slow 16 $ range 0 0.15 perlin))
) )
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>") $ midiOn "^92" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 12") $ note (prog + "0 12")
# "moog" # "moog"
# cut 8 # cut 8
# crush (range 16 4 "^55") # crush (range 16 4 "^36")
# gM' 0 1.8 "^83" # gM' 0 1.8 "^83"
# release 100 # release 100
d9 $ g d9 $ g
......
...@@ -9,8 +9,8 @@ let slowdown = (midiOff "^41" (slow 2)) ...@@ -9,8 +9,8 @@ let slowdown = (midiOff "^41" (slow 2))
let g = gDJF let g = gDJF
d1 $ g d1 $ g
$ slowdown $ slowdown
$ midiOn "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL $ midiOn "^41" (<| "k*<1!4 2 1!3> k k*<1!3 2> k*2") -- FULL
$ midiOff "^42" (<| "k . ~ k ~ ~") -- Attente $ midiOff "^41" (<| "k . ~ k ~ ~") -- Attente
$ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition $ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]") -- Transition
$ "kick:5" $ "kick:5"
# midiG "^78" # midiG "^78"
...@@ -27,7 +27,7 @@ d10 ...@@ -27,7 +27,7 @@ d10
# n "[10,12]" # n "[10,12]"
# midiG "^79" # midiG "^79"
d3 $ g -- Bassline + arps d3 $ g -- Bassline + arps
$ midiOn "^57" (superimpose ( $ midiOn "^43" (superimpose (
(|+| note ( (|+| note (
"0 [12 <12 7>]*<2!4 2 4 4 8>" + "0 [12 <12 7>]*<2!4 2 4 4 8>" +
"12" -- Base "12" -- Base
...@@ -41,12 +41,12 @@ d3 $ g -- Bassline + arps ...@@ -41,12 +41,12 @@ d3 $ g -- Bassline + arps
# cut 3 # cut 3
# pan 0.2 # pan 0.2
# room 0.13 # room 0.13
# crushbus 31 (range 10 1.5 "^53") # crushbus 31 (range 10 1.5 "^31")
d4 $ g -- Synth disto baseline d4 $ g -- Synth disto baseline
$ "poesieSynth/2" $ "poesieSynth/2"
# n (slow 4 "<0 1>") # n (slow 4 "<0 1>")
# midiG' "^82" 0 0.95 # midiG' "^82" 0 0.95
# crushbus 41 (range 10 3.5 "^54") # crushbus 41 (range 10 3.5 "^32")
# cut 4 # cut 4
# pan 0.8 # pan 0.8
# room 0.4 # room 0.4
...@@ -62,7 +62,7 @@ d5 $ g -- Riff guitaresque ...@@ -62,7 +62,7 @@ d5 $ g -- Riff guitaresque
$ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>") $ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>")
# "poesieBass:1" # "poesieBass:1"
# cut 4 # cut 4
# crushbus 51 (range 10 1.5 "^55") # crushbus 51 (range 10 1.5 "^33")
# pan 0.7 # pan 0.7
# midiG "^83" # midiG "^83"
d8 -- Voices d8 -- Voices
...@@ -81,8 +81,8 @@ d8 -- Voices ...@@ -81,8 +81,8 @@ d8 -- Voices
$ loopAt 4 $ loopAt 4
$ "poesieVoice:1" $ "poesieVoice:1"
# midiG' "^84" 0 0.75 # midiG' "^84" 0 0.75
# crushbus 81 (range 5 1.5 "^56") # crushbus 81 (range 5 1.5 "^36")
# distortbus 82 (range 1 2 "^36") # distortbus 82 (range 1 2 "^56")
# pan "0.25 0.75" # pan "0.25 0.75"
# room 0.4 # room 0.4
# cut 8 # cut 8
...@@ -6,8 +6,8 @@ let gMute = (midiOn "^73" (mask "f*16")) ...@@ -6,8 +6,8 @@ let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let lineTeng = "cs d d d cs d d d cs d d d g ~ fs ~" let lineTeng = "cs d d d cs d d d cs d d d g ~ fs ~"
d1 $ gF1 $ gM d1 $ gF1 $ gM
$ midiOn "^42" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]")) $ midiOn "^41" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
$ midiOff "^42" (<| "k . <~!4 k!4 k(3,8)!8>") $ midiOff "^41" (<| "k . <~!4 k!4 k(3,8)!8>")
$ "[rootsDrums:0,rootsDrums:4]" $ "[rootsDrums:0,rootsDrums:4]"
-- $ "[techno,jazz,kick:5]*4" -- $ "[techno,jazz,kick:5]*4"
# midiG' "^78" 0 1.5 # midiG' "^78" 0 1.5
...@@ -15,10 +15,10 @@ d3 $ gF1 $ gM ...@@ -15,10 +15,10 @@ d3 $ gF1 $ gM
$ "[~ drum:2]*8" $ "[~ drum:2]*8"
# midiG' "^80" 0 1.5 # midiG' "^80" 0 1.5
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOff "^57" ((slow 2) . ( # room 0.5)) $ midiOff "^44" ((slow 2) . ( # room 0.5))
$ note (lineTeng) $ note (lineTeng)
# "rootsBass" # "rootsBass"
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# end 0.35 # room 0.3 # end 0.35 # room 0.3
# legato 2 # gain 1.9 # cut 1 # legato 2 # gain 1.9 # cut 1
# midiG' "^81" 0 1.5 # midiG' "^81" 0 1.5
...@@ -26,6 +26,6 @@ d8 $ gF1 ...@@ -26,6 +26,6 @@ d8 $ gF1
$ midiOn "^92" (ply "1 2") $ midiOn "^92" (ply "1 2")
$ midiOn "^60" (slice 16 (run "<16!8 [16 8]!7 [8 16]> <16!3 <32 [8 32]>>") ) $ midiOn "^60" (slice 16 (run "<16!8 [16 8]!7 [8 16]> <16!3 <32 [8 32]>>") )
$ chop 8 $ chop 8
$ (someCyclesBy "^20" (# n "21")) $ (someCyclesBy "^36" (# n "21"))
$ "jungle_breaks:33" $ "jungle_breaks:33"
# midiG' "^84" 0 1.5 # midiG' "^84" 0 1.5
...@@ -24,26 +24,26 @@ d3 $ gF1 $ gM ...@@ -24,26 +24,26 @@ d3 $ gF1 $ gM
# pan (0.4 + 0.2 * (slow 4 perlin)) # pan (0.4 + 0.2 * (slow 4 perlin))
d4 $ gF2 $ gM d4 $ gF2 $ gM
-- $ note (slow 2 $ lineGoodLife) # "bassWarsaw" -- $ note (slow 2 $ lineGoodLife) # "bassWarsaw"
$ midiOn "^89" (|+ note "c'minPent'2") $ midiOn "^44" (|+ note "c'minPent'2")
$ midiOn "^57" (<| note lineAround3) $ midiOn "^76" (<| note lineAround3)
$ midiOff "^57" (<| note (cat [lineAround0, lineAround1, lineAround2, lineAround3])) $ midiOff "^76" (<| note (cat [lineAround0, lineAround1, lineAround2, lineAround3]))
$ "bassWarsaw" $ "bassWarsaw"
# octave 4 # octave 4
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^33") # octersubbus 42 (range 0 4 "^52")
# room 0.4 # room 0.4
-- # delayfb 0.8 # delayt 0.25 -- # delayfb 0.8 # delayt 0.25
# gain 0.7 # gain 0.7
# pan 0.3 # pan 0.3
d5 d5
$ midiOn "^90" (sometimesBy "0 1" rev) $ midiOn "^89" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup") $ midiOn "^57" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>") $ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "FMRhodes1" # modIndex 2.85 # "FMRhodes1" # modIndex 2.85
# pan 0.7 # pan 0.7
d8 $ gF3 d8 $ gF3
$ midiOn "^20" (# n "20") $ midiOn "^36" (# n "20")
$ midiOn "^92" ((# pan 0.4) . (# n "19")) $ midiOn "^60" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>")) $ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
-- $ whenmod 4 3 (slice 4 ("0 1 2 3*4")) -- $ whenmod 4 3 (slice 4 ("0 1 2 3*4"))
$ loopAt 2 $ chop 8 $ loopAt 2 $ chop 8
......
...@@ -3,16 +3,16 @@ setcps (105/60/4) ...@@ -3,16 +3,16 @@ setcps (105/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 # lpf 300
-- # cut 1 -- # cut 1
# gain 2 # gain 2
-- # cps ((quantise 1 (range 60 180 "^29"))/60/4) -- # cps ((quantise 1 (range 60 180 "^29"))/60/4)
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>")
...@@ -54,7 +54,7 @@ d5 $ gF2 $ gM3 ...@@ -54,7 +54,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
...@@ -71,7 +71,7 @@ d4 $ gF2 $ gM3 ...@@ -71,7 +71,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
...@@ -82,14 +82,14 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou ...@@ -82,14 +82,14 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ slice 8 "<0 1 2 3 4 5 6 7>" $ 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")
......
...@@ -46,7 +46,7 @@ d5 $ gF3 $ gM3 ...@@ -46,7 +46,7 @@ d5 $ gF3 $ gM3
# room 0.4 # sz 0.6 # dry 1.1 # room 0.4 # sz 0.6 # dry 1.1
# octersub 1.4 # octersub 1.4
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
$ midiOn "^57" (>| n "<~ ~ 8 ~>") $ midiOn "^59" (>| n "<~ ~ 8 ~>")
$ n "<<3 4 5 <6 7>> ~ <3 ~> ~>" $ n "<<3 4 5 <6 7>> ~ <3 ~> ~>"
# "superfreak" # "superfreak"
# cut 7 # cut 7
......
...@@ -11,8 +11,8 @@ d1 $ gM1 $ gF1 $ "k k k <k!3 <k*2 [~ k]>>" ...@@ -11,8 +11,8 @@ d1 $ gM1 $ gF1 $ "k k k <k!3 <k*2 [~ k]>>"
# midiG' "^78" 0 1 # midiG' "^78" 0 1
d2 $ gM $ gF1 -- Snare be there d2 $ gM $ gF1 -- Snare be there
-- $ mask "<f!16 t!48>" -- $ mask "<f!16 t!48>"
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>") $ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ <~!3 [~ c]> . c" ) $ midiOff "^42" (<| "~ <~!3 [~ c]> . c" )
$ "[cp,h2ogmsn:1]" $ "[cp,h2ogmsn:1]"
# lpf 4000 # note "-2" # lpf 4000 # note "-2"
# room 0.4 # sz 0.3 # dry 1.0 # room 0.4 # sz 0.3 # dry 1.0
...@@ -23,9 +23,9 @@ d3 $ gM $ gF1 -- Runnin' ones ...@@ -23,9 +23,9 @@ d3 $ gM $ gF1 -- Runnin' ones
# midiG' "^80" 0 1.4 # midiG' "^80" 0 1.4
# pan 0.43 # pan 0.43
d4 $ gF2 $ gM3 -- SICK BURN d4 $ gF2 $ gM3 -- SICK BURN
$ midiOn "^89" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4)) $ midiOn "^44" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4))
$ superimpose ( $ superimpose (
(# crushbus 42 (range 16 2 "^53")) (# crushbus 42 (range 16 2 "^32"))
. (# cut 41) . (# cut 41)
) )
$ loopAt 2 $ slice 2 "<0 1>" $ loopAt 2 $ slice 2 "<0 1>"
...@@ -41,7 +41,7 @@ d5 $ gM $ gF3 ...@@ -41,7 +41,7 @@ d5 $ gM $ gF3
# pan 0.97 # pan 0.97
# room 0.2 # room 0.2
-- # cru -- # cru
# midiG' "^20" 0 1.4 # midiG' "^33" 0 1.4
d7 $ gF3 -- Marimba à la mode d7 $ gF3 -- Marimba à la mode
$ note "<[gs ~ ef gs gs ~ ef gs ~ ef gs ~ ef@2 ~ e] [<~ <gs5 gs4>>]>" $ note "<[gs ~ ef gs gs ~ ef gs ~ ef gs ~ ef@2 ~ e] [<~ <gs5 gs4>>]>"
# "modalMarimba" # "modalMarimba"
...@@ -49,10 +49,10 @@ d7 $ gF3 -- Marimba à la mode ...@@ -49,10 +49,10 @@ d7 $ gF3 -- Marimba à la mode
# pan 0.9 # pan 0.9
# att 0.5 # att 0.5
# rel 2 # rel 2
# position (range 0.96 0.414 "^54") -- 0.414 # position (range 0.96 0.414 "^35") -- 0.414
# decaycoeff (range 0 4 "^34") # decaycoeff (range 0 4 "^55")
# midiG' "^82" 0 1.4 # midiG' "^82" 0 1.4
# amp (range 0 1.3 ("^82" - 0.2 * "^54")) # amp (range 0 1.3 ("^82" - 0.2 * "^35"))
d8 $ gF1 $ gM -- Break the dance || Dance the break d8 $ gF1 $ gM -- Break the dance || Dance the break
$ midiOn "^92" (ply "<2!3 <4 8>>") $ midiOn "^92" (ply "<2!3 <4 8>>")
$ whenmod 8 7 (striate "1!3 [4 8]") $ whenmod 8 7 (striate "1!3 [4 8]")
......
...@@ -25,24 +25,24 @@ d4 $ gF2 $ gM3 ...@@ -25,24 +25,24 @@ d4 $ gF2 $ gM3
$ midiOn "^76" (ply "4 4 8 <8 [8 16]>") $ midiOn "^76" (ply "4 4 8 <8 [8 16]>")
$ "<low_love ~>" # "love_parade:2" $ "<low_love ~>" # "love_parade:2"
# room 0.4 # gain 1.3 # octersub 1.2 # room 0.4 # gain 1.3 # octersub 1.2
# crushbus 41 (range 16 2.5 "^52") # crushbus 41 (range 16 2.5 "^32")
d5 $ gF3 $ gM3 -- L'AMOUR se PARADE d5 $ gF3 $ gM3 -- L'AMOUR se PARADE
$ midiOn "^57" (ply 2 . slice 4 "<0 1 2 3>") $ midiOn "^89" (ply 2 . slice 4 "<0 1 2 3>")
$ midiOn "^89" (ply "<2 2 4 <4 8>>") $ midiOn "^57" (ply "<2 2 4 <4 8>>")
$ loopAt 2 $ loopAt 2
$ n "<<0 1>>" # "love_parade" $ n "<<0 1>>" # "love_parade"
# cut 5 # cut 5
# octerbus 51 (range 0 0.95 "^53") # octerbus 51 (range 0 0.95 "^33")
# octersubbus 52 (range 0 1.95 "^33") # octersubbus 52 (range 0 1.95 "^53")
# pan 0.7 # pan 0.7
d6 $ gF3 $ gM3 -- Double Amour d6 $ gF3 $ gM3 -- Double Amour
$ midiOn "^58" (ply 4 . chop "8 4") $ midiOn "^90" (ply 4 . chop "8 4")
$ midiOn "^90" (ply "<2 2 4 <4 8>>") $ midiOn "^58" (ply "<2 2 4 <4 8>>")
$ loopAt 2 $ loopAt 2
$ n "<<3 4>>" # "love_parade" $ n "<<3 4>>" # "love_parade"
# cut 6 # cut 6
# octerbus 61 (range 0 0.95 "^54") # octerbus 61 (range 0 0.95 "^34")
# octersubbus 62 (range 0 1.95 "^34") # octersubbus 62 (range 0 1.95 "^54")
# pan 0.3 # pan 0.3
# gain 1.5 # gain 1.5
d8 $ gF1 $ gM2 -- The Right Breaks :tm: d8 $ gF1 $ gM2 -- The Right Breaks :tm:
......
...@@ -7,9 +7,9 @@ d2 $ gF1 $ gM2 $ "~ rampleM9:6" ...@@ -7,9 +7,9 @@ d2 $ gF1 $ gM2 $ "~ rampleM9:6"
-- # lpf 3000 -- # lpf 3000
d3 $ gF1 $ gM2 $ "dr*<8 <12 12 [12 6] [12 <8 16>]>>" d3 $ gF1 $ gM2 $ "dr*<8 <12 12 [12 6] [12 <8 16>]>>"
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8) $ midiOn "^76" (ply 8)
$ superimpose ( $ superimpose (
(# crushbus 41 (range 16 3.6 "^53")) (# crushbus 41 (range 16 3.6 "^32"))
. (|- note 12) . (|- note 12)
. (|* gain 1.2) . (|* gain 1.2)
. (# hpf 500) . (# hpf 500)
...@@ -18,11 +18,11 @@ d4 $ gF2 $ gM3 ...@@ -18,11 +18,11 @@ d4 $ gF2 $ gM3
# "bassWarsaw" # "bassWarsaw"
# room 0.4 # sz 0.4 # dry 0.4 # room 0.4 # sz 0.4 # dry 0.4
# delayt "e" # delay 0.5 # delayfb 0.3 # delayt "e" # delay 0.5 # delayfb 0.3
# octersubbus 42 (range 0 0.8 "^33") # octersubbus 42 (range 0 0.8 "^52")
# octersubsubbus 43 (range 0 1.2 "^33") # octersubsubbus 43 (range 0 1.2 "^52")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ whenmod 32 16 (iter (slow 4 "<1 4 [1 4] [4 1]>")) $ whenmod 32 16 (iter (slow 4 "<1 4 [1 4] [4 1]>"))
$ midiOn "^58" (striate 16) $ midiOn "^89" (striate 16)
$ "medieval:210" $ "medieval:210"
# cut 4 # cut 4
# room 0.4 # sz 0.8 # dry 0.1 # room 0.4 # sz 0.8 # dry 0.1
......
...@@ -18,23 +18,23 @@ d3 $ gF1 ...@@ -18,23 +18,23 @@ d3 $ gF1
# room 0.2 # dry 1 # room 0.2 # dry 1
# pan (0.4 + 0.2 * (slow 4 perlin)) # pan (0.4 + 0.2 * (slow 4 perlin))
d4 $ gF2 d4 $ gF2
$ midiOn "^89" (|+ note "c'minPent'2") $ midiOn "^44" (|+ note "c'minPent'2")
$ note (slow 2 $ lineGoodLife) # "bassWarsaw" $ note (slow 2 $ lineGoodLife) # "bassWarsaw"
# octave 4 # octave 4
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^32")
# octersubbus 42 (range 0 4 "^33") # octersubbus 42 (range 0 4 "^52")
-- # delayfb 0.8 # delayt 0.25 -- # delayfb 0.8 # delayt 0.25
# gain 0.9 # gain 0.9
# pan 0.3 # pan 0.3
d5 -- FIXME WORKS WITH AROUND NOT GOOD d5 -- FIXME WORKS WITH AROUND NOT GOOD
$ midiOn "^90" (sometimesBy "0 1" rev) $ midiOn "^89" (sometimesBy "0 1" rev)
$ midiOn "^58" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup") $ midiOn "^57" (struct "t(<3!3 <5 2>>,<8!7 4>) . t(<5!7 <8 16>>,8)" . arp "pinkyup")
$ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>") $ note ("<[a4,c4,e4] [c4,e4,g4] [e4,g4,b4] [d4,fs4,g4]>")
# "moogBass" # "moogBass"
-- # midiG' "^82" 0 1.6 -- # midiG' "^82" 0 1.6
d8 $ gF3 d8 $ gF3
$ midiOn "^92" ((# pan 0.4) . (# n "19")) $ midiOn "^60" ((# pan 0.4) . (# n "19"))
$ sometimesBy "^56" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>")) $ sometimesBy "^36" (slice 4 ("0 <1 <1*2 ~> ~ 1> <2 ~> 3*<1 <2 4>>"))
-- $ whenmod 4 3 (slice 4 ("0 1 2 3*4")) -- $ whenmod 4 3 (slice 4 ("0 1 2 3*4"))
$ loopAt 2 $ chop 8 $ loopAt 2 $ chop 8
$ n "20" # "jungle_breaks" $ n "20" # "jungle_breaks"
......
...@@ -27,8 +27,8 @@ let keyboard = "FMRhodes1" ...@@ -27,8 +27,8 @@ let keyboard = "FMRhodes1"
setcps (110/60/4) setcps (110/60/4)
d1 $ g d1 $ g
-- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>" -- $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
$ novaOff "^42" (<|"k . ~ k ~ ~") $ novaOff "^41" (<|"k . ~ k ~ ~")
$ novaOn "^42" (<| "k k k <k!3 k*2>") $ novaOn "^41" (<| "k k k <k!3 k*2>")
$ "[jazz,cpu2,kick:5]" $ "[jazz,cpu2,kick:5]"
-- # gM' 0 1.2 "^78" -- # gM' 0 1.2 "^78"
d2 $ g d2 $ g
...@@ -42,12 +42,12 @@ d2 $ g ...@@ -42,12 +42,12 @@ d2 $ g
# lpf 2000 # lpf 2000
-- # gM' 0.2 0.9 "^79" -- # gM' 0.2 0.9 "^79"
d3 $ g d3 $ g
$ novaOn ("^76") --BOUTON NASSIM $ novaOn ("^43") --BOUTON NASSIM
(slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1)
. (>| "breaks125") . (>| "breaks125")
. (|* gain 0.9) . (|* gain 0.9)
) )
$ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) $ novaOff "^43" (|* gain (slow 16 $ range 0.7 1 saw))
$ "d d d d d d d*2 d" $ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]" # "[drum:2,amencutup:5]"
-- # gM' 0 1.25 "^80" -- # gM' 0 1.25 "^80"
...@@ -93,14 +93,14 @@ d7 $ g ...@@ -93,14 +93,14 @@ d7 $ g
-- # gM' 0 1.1 "^83" -- # gM' 0 1.1 "^83"
# room 0.2 # room 0.2
d8 $ g d8 $ g
$ novaOn "^90" (superimpose (chop 16)) $ novaOn "^60" (superimpose (chop 16))
$ novaOn "^58" (+ note (slow 4 "<0 12>")) $ novaOn "^92" (+ note (slow 4 "<0 12>"))
$ note ("<c3 c3 g3 gs3>") $ note ("<c3 c3 g3 gs3>")
# "bassWarsaw" # "bassWarsaw"
# voice (range 0.1 2 "^34") # voice (range 0.1 2 "^36")
# room 0.6 # sz 0.2 # room 0.6 # sz 0.2
-- # gM' 0.4 1 "^82" -- # gM' 0.4 1 "^82"
# crush (range 12 3.6 "^54") # crush (range 12 3.6 "^56")
......
...@@ -9,8 +9,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -9,8 +9,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF1 -- . gFilter let g = gDJF1 -- . gFilter
let g2 = gDJF2 -- . gFilter2 let g2 = gDJF2 -- . gFilter2
d1 $ g d1 $ g
$ midiOn "^42" (<| "k k k <k!3 [<k ~> k]>" ) $ midiOn "^41" (<| "k k k <k!3 [<k ~> k]>" )
$ midiOff "^42" (<| "k <~!4 k!4>") $ midiOff "^41" (<| "k <~!4 k!4>")
$ "[909,bd:2]" $ "[909,bd:2]"
# lpf 2500 # lpf 2500
# midiG' "^78" 0 1.3 # midiG' "^78" 0 1.3
...@@ -28,7 +28,7 @@ d4 $ g ...@@ -28,7 +28,7 @@ d4 $ g
$ struct "t . t(3,8)" $ struct "t . t(3,8)"
$ note ("d3 bf2 c3 <g2!3 f3>") $ note ("d3 bf2 c3 <g2!3 f3>")
# "bassWarsaw" # "bassWarsaw"
# crushbus 41 (range 5 3.6 "^53") # crushbus 41 (range 5 3.6 "^32")
# midiG' "^81" 0 1.45 # midiG' "^81" 0 1.45
# lpf 4000 # lpf 4000
# room 0.4 # sz 0.8 # room 0.4 # sz 0.8
...@@ -37,7 +37,7 @@ d5 $ g ...@@ -37,7 +37,7 @@ d5 $ g
(# room (slow 16 $ range 0 0.8 saw)) (# room (slow 16 $ range 0 0.8 saw))
. (# legato (slow 16 $ range 1 "s" saw)) . (# legato (slow 16 $ range 1 "s" saw))
) )
$ degradeBy ("0 0.15!15 0" * "^54") $ degradeBy ("0 0.15!15 0" * "^33")
$ note ( $ note (
"d3*[1|2] bf2*<1 <0 2>> c3 <g2!3 f3>" "d3*[1|2] bf2*<1 <0 2>> c3 <g2!3 f3>"
+ (fast 4 $ arp "up" "<c'maj'4!32 c'maj'4!24 c'maj'8!8>") + (fast 4 $ arp "up" "<c'maj'4!32 c'maj'4!24 c'maj'8!8>")
...@@ -57,7 +57,7 @@ d6 ...@@ -57,7 +57,7 @@ d6
) )
# "laserbeam" # "laserbeam"
# room 0.4 # sz 0.8 # room 0.4 # sz 0.8
# crushbus 41 (range 16 3.6 "^55") # crushbus 41 (range 16 3.6 "^34")
# midiG' "^83" 0.2 1.45 # midiG' "^83" 0.2 1.45
d7 d7
$ g $ g
...@@ -116,6 +116,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49")) ...@@ -116,6 +116,8 @@ let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF1 -- . gFilter let g = gDJF1 -- . gFilter
let g2 = gDJF2 -- . gFilter2 let g2 = gDJF2 -- . gFilter2
d1 $ g d1 $ g
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
-- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
$ midiOn ("^44" - "^76") (ply 2) $ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4) $ midiOn "^76" (striate 4)
-- $ mask "<t!16 f!4 t!12>" -- First break -- $ mask "<t!16 f!4 t!12>" -- First break
...@@ -153,8 +155,8 @@ d5 $ g -- BREAKBEAT BUDDY ...@@ -153,8 +155,8 @@ d5 $ g -- BREAKBEAT BUDDY
# pan 0.65 # pan 0.65
# midiG' "^83" 0 1.6 # midiG' "^83" 0 1.6
d4 $ g -- Bassline d4 $ g -- Bassline
$ midiOn "^89" (chop 8) $ midiOn "^76" (chop 8)
$ midiOff "^57" (mask "<f!8 t!8 f!4 t!12>") $ midiOff "^44" (mask "<f!8 t!8 f!4 t!12>")
-- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin))) -- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]" $ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin |+ chordsMin
...@@ -163,7 +165,7 @@ d4 $ g -- Bassline ...@@ -163,7 +165,7 @@ d4 $ g -- Bassline
# "bassWarsaw" # "bassWarsaw"
# pan 0.3 # pan 0.3
# hpf (range 0 500 perlin) # hpf (range 0 500 perlin)
# crushbus 41 (range 10 3.6 "^53") # crushbus 41 (range 10 3.6 "^32")
# midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine) # midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine)
# room 0.4 # room 0.4
d6 $ g2-- Rhodes chords d6 $ g2-- Rhodes chords
......
...@@ -10,8 +10,8 @@ let g2 = (gDJF2) ...@@ -10,8 +10,8 @@ let g2 = (gDJF2)
let m = mBreak . mBreakManual let m = mBreak . mBreakManual
d1 $ g1 d1 $ g1
$ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8)))) $ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8))))
$ midiOn "^42" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>") $ midiOn "^41" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
$ midiOff "^42" ((<| "k . ~ k ~ ~") . m) $ midiOff "^41" ((<| "k . ~ k ~ ~") . m)
$ "[jazz,cpu]" $ "[jazz,cpu]"
# midiG' "^78" 0 1 # midiG' "^78" 0 1
d2 $ g1 $ m d2 $ g1 $ m
...@@ -23,7 +23,7 @@ d3 $ g2 $ m ...@@ -23,7 +23,7 @@ d3 $ g2 $ m
# midiG' "^51" 0 0.9 # midiG' "^51" 0 0.9
# pan 0.8 # pan 0.8
d4 $ g2 $ m d4 $ g2 $ m
$ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52")) $ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^32"))
$ midiOn "^76" rev $ midiOn "^76" rev
$ whenmod 8 7 rev $ whenmod 8 7 rev
$ slice 8 ("0 1 2 3" + "<0!3 4>") $ slice 8 ("0 1 2 3" + "<0!3 4>")
...@@ -34,14 +34,14 @@ d5 $ g2 $ m ...@@ -34,14 +34,14 @@ d5 $ g2 $ m
# "moog" # "moog"
# cut 5 # cut 5
# pan 0.2 # pan 0.2
# crushbus 50 (range 10 2.1 "^53") # crushbus 50 (range 10 2.1 "^33")
# midiG' "^81" 0 1.4 # midiG' "^81" 0 1.4
d6 $ g2 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>")) d6 $ g2 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
# "pluck:5" # "pluck:5"
# cut 6 # cut 6
# att 0 # att 0
# rel (0.25 + 0.1 * perlin) # rel (0.25 + 0.1 * perlin)
# crushbus 60 (range 10 1.9 "^54") # crushbus 60 (range 10 1.9 "^34")
# pan 0.8 # pan 0.8
# room 0.4 # room 0.4
# midiG' "^82" 0 0.8 # midiG' "^82" 0 0.8
......
...@@ -19,14 +19,14 @@ once $ "dr" ...@@ -19,14 +19,14 @@ once $ "dr"
do do
setcps (80/60/4) setcps (80/60/4)
d1 $ gF1 $ gM1 d1 $ gF1 $ gM1
$ superimpose ((|* gain (1.3 * "^30")) . (# "hardkick:2")) $ superimpose ((|* gain (1.3 * "^29")) . (# "hardkick:2"))
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>") $ midiOn "^41" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "kick:5" $ "kick:5"
# lpf 200 # lpf 200
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOn "^75" (ply 4) $ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>") $ midiOn "^42" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s") $ midiOff "^42" (<| "~ s")
$ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9))) $ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
$ "[snare:2,snare:10]" $ "[snare:2,snare:10]"
# octer 0.1 # octer 0.1
...@@ -45,9 +45,10 @@ d4 $ gF2 $ gM3 $ note ( ...@@ -45,9 +45,10 @@ d4 $ gF2 $ gM3 $ note (
- 24 - 24
) )
# "bassWarsaw" # "bassWarsaw"
# octerbus 43 (range 0 1.5 "^17") # octerbus 43 (range 0 1.5 "^32")
# squizbus 42 (range 0 2.5 "^33") # squizbus 42 (range 0 2.5 "^52")
# crushbus 41 (range 16 3.5 "^53") -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
-- # crushbus 41 (range 16 3.5 "^53")
# room 0.3 # sz 0.6 # dry 0.5 # room 0.3 # sz 0.6 # dry 0.5
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ note ( $ note (
...@@ -57,16 +58,17 @@ d5 $ gF3 $ gM3 ...@@ -57,16 +58,17 @@ d5 $ gF3 $ gM3
) )
# "giorgio_syn:24" # "giorgio_syn:24"
# legato 2 # legato 2
# squizbus 51 (slow 16 $ range 0 (range 0 4 "^54") saw) # squizbus 51 (slow 16 $ range 0 (range 0 4 "^33") saw)
# crushbus 52 (range 16 2.5 "^53") # crushbus 52 (range 16 2.5 "^53")
# gain 0.8 # gain 0.8
# pan (slow 8 $ range 0.8 0.6 saw) # pan (slow 8 $ range 0.8 0.6 saw)
# cut 5 # cut 5
d8 $ gF1 $ gM2 d8 $ gF1 $ gM2
$ chop 16 $ chop 16
$ midiOn "^20" (loopAt 4) $ midiOn "^36" (loopAt 4)
$ midiOff "^20" (loopAt 1) $ midiOff "^36" (loopAt 1)
$ midiOn "^36" (# "jungle_breaks:14") -- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
$ midiOn "^56" (# "jungle_breaks:14")
$ midiOn "^56" (# "jungle_breaks:15") $ midiOn "^56" (# "jungle_breaks:15")
$ midiOn "^92" (ply "<2!3 [4!3 8]>") $ midiOn "^92" (ply "<2!3 [4!3 8]>")
$ loopAt 2 $ loopAt 2
......
...@@ -5,8 +5,8 @@ let g2 = (# djfbus 2 (range 0.05 0.95 "^50")) ...@@ -5,8 +5,8 @@ let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (83/60/4) setcps (83/60/4)
d1 $ g d1 $ g
$ fix (|* gain 0.8) "jazz" $ fix (|* gain 0.8) "jazz"
$ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>") $ midiOn "^41" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
$ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>") $ midiOff "^41" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
$ "[808bd:4,jazz]" $ "[808bd:4,jazz]"
# room 0 # sz 0 # room 0 # sz 0
# midiG' "^78" 0 1.2 # midiG' "^78" 0 1.2
...@@ -17,7 +17,8 @@ d2 $ g -- Snare contretemps ...@@ -17,7 +17,8 @@ d2 $ g -- Snare contretemps
# "snare:42" # "snare:42"
# midiG' "^79" 0 1.3 # midiG' "^79" 0 1.3
d3 $ g -- Drumroll d3 $ g -- Drumroll
$ midiOn "^44" (ply 2) $ midiOn "^43" (ply 2)
-- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>" $ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>"
$ "[amencutup]*8" $ "[amencutup]*8"
...@@ -31,7 +32,7 @@ d4 $ g2 ...@@ -31,7 +32,7 @@ d4 $ g2
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>" "<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
) )
# "FMRhodes1" # "FMRhodes1"
# modIndex (range 0 32 "^54") # modIndex (range 0 32 "^32")
# pan 0.8 # pan 0.8
# midiG' "^82" 0 1.8 # midiG' "^82" 0 1.8
d5 $ g2 -- Programmatic bass robot d5 $ g2 -- Programmatic bass robot
...@@ -47,7 +48,7 @@ d5 $ g2 -- Programmatic bass robot ...@@ -47,7 +48,7 @@ d5 $ g2 -- Programmatic bass robot
) )
# "bassWarsaw" # "bassWarsaw"
# pan 0.2 # pan 0.2
# crushbus 51 (range 16 4 "^53") # crushbus 51 (range 16 4 "^33")
# room 0.6 # dry 1 # sz 0.83 # room 0.6 # dry 1 # sz 0.83
# legato 8 # cut 5 # legato 8 # cut 5
# midiG' "^81" 0 0.98 # midiG' "^81" 0 0.98
......
...@@ -29,11 +29,12 @@ d3 $ g -- Snare contretemps rushé ...@@ -29,11 +29,12 @@ d3 $ g -- Snare contretemps rushé
$ "~ snare" $ "~ snare"
# room 0.2 # room 0.2
# dry 1 # dry 1
# speed (range 0.5 1.5 "^52") # speed (range 0.5 1.5 "^31")
# n "[11,25]" # n "[11,25]"
# midiG' "^79" 0 1.4 # midiG' "^79" 0 1.4
d2 $ g -- BREAK d2 $ g -- BREAK
$ midiOn "^44" (sometimesBy "0 1!7" rev) $ midiOn "^42" (sometimesBy "0 1!7" rev)
-- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d2's own control with gSel.
$ midiOn "^76" (ply 4) $ midiOn "^76" (ply 4)
$ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8) $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
$ slice 8 ( $ slice 8 (
...@@ -48,15 +49,15 @@ d2 $ g -- BREAK ...@@ -48,15 +49,15 @@ d2 $ g -- BREAK
# cut 2 # cut 2
d7 $ g -- Hello PWM! d7 $ g -- Hello PWM!
$ (|* gain "<1!15 0.8>") $ (|* gain "<1!15 0.8>")
$ midiOn "^57" (chop "<[8 <4 16>]!15 1>") $ midiOn "^91" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^89" (superimpose $ segment 16) $ midiOn "^59" (superimpose $ segment 16)
$ note (mel - 12) $ note (mel - 12)
# "superpwm" # "superpwm"
# semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
# accelerate "<0!7 <6 12>>" # accelerate "<0!7 <6 12>>"
# rate "<1!5 2 4 <1 4>>" # rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine) # resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53") # crushbus 71 (range 10 3 "^35")
# midiG' "^81" 0 1.42 # midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes d6 $ g -- Nappes Rhodes
$ note ( $ note (
...@@ -67,8 +68,8 @@ d6 $ g -- Nappes Rhodes ...@@ -67,8 +68,8 @@ d6 $ g -- Nappes Rhodes
# "FMRhodes1" # "FMRhodes1"
# pan 0.7 # pan 0.7
# room 0.5 # room 0.5
# modIndex (range 0 100 "^54") # modIndex (range 0 100 "^34")
# crushbus 61 (range 16 4.85 "^34") # crushbus 61 (range 16 4.85 "^54")
# midiG' "^82" 0 1.5 # midiG' "^82" 0 1.5
d9 $ g d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>") $ midiOff "^60" (mask "<f!8 t!124>")
......
...@@ -501,6 +501,16 @@ def rewrite(path: Path, res: dict) -> tuple[int, list[str]]: ...@@ -501,6 +501,16 @@ def rewrite(path: Path, res: dict) -> tuple[int, list[str]]:
for anchor, fixme, hits, note in sorted(edits, key=lambda e: e[0], reverse=True): for anchor, fixme, hits, note in sorted(edits, key=lambda e: e[0], reverse=True):
for i in sorted(hits, reverse=True): for i in sorted(hits, reverse=True):
stripped = lines[i - 1].rstrip("\n") stripped = lines[i - 1].rstrip("\n")
# NEVER comment a comment. `hits` filters commented lines, but
# `segment()` then EXPANDS to the whole chain so the closing parens
# of a multi-line step are not left dangling — and that expansion
# swallows any comment inside the step, including this tool's own
# FIXME from the last run. Result on the corpus pass: 18 lines grew
# a second `--`, three grew a third, and two FIXME warnings were
# commented out by the tool that wrote them. A warning the tool
# hides on its next run is worse than no warning.
if stripped.lstrip().startswith("--"):
continue
indent = stripped[: len(stripped) - len(stripped.lstrip())] indent = stripped[: len(stripped) - len(stripped.lstrip())]
nl = "\n" if lines[i - 1].endswith("\n") else "" nl = "\n" if lines[i - 1].endswith("\n") else ""
lines[i - 1] = f"{indent}-- {stripped.lstrip()}{nl}" lines[i - 1] = f"{indent}-- {stripped.lstrip()}{nl}"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment