Commit 27c1581e by PLN (Algolia)

refactor(corpus): 917 lines move the kick onto its own mute button — every…

refactor(corpus): 917 lines move the kick onto its own mute button — every track, not just the set (#105, #70)

PLN, mid-migration, when I had scoped this to the 13 setlist tracks:

  "good, and not only in the set am i right? did we not do the whole refact on the
   other .tidal files on my repo?"

He is right, and the reason is muscle memory: his fingers do not know which folder a
track lives in. A half-migrated corpus is worse than either extreme, because it makes
the surface unpredictable exactly when he reaches for an old track mid-set.

## What moved

913 lines across 213 files, plus 7 orbits given a mute they never had:

     505+4  gM1 -> gM2      percs vacating the kick's button (the BULK of the work —
                            not the kick itself, which is only 133 lines)
    127+1   gM2 -> gM1      the kick, arriving
      66+4  gMute2 -> gM1   same, in the legacy long spelling
        64  gM1 -> gM3
        58  gMute3 -> gM3   spelling normalisation only
     41+2   gM2 -> gM3
      12+2  gMute2 -> gM2 / gMute1 -> gM2 / gMute1 -> gM1 / gM3 -> gM2  the tail
         7  FILL            orbits with NO mute at all, in the SET only

Only the setlist was filled. PLN: "ensure we have that consistently in all set, and
flag in other non-set tracks for me to see." Outside the set a missing gate may be a
composition choice, so docs/2026-07-30-orbits-without-a-mute.md REPORTS the rest and
writes nothing — split into the cut that makes 2397 findings actionable:

    A · partial  110 files   321 blocks   uses family mutes but missed some
                                          <- the oversight he meant
    B · never    354 files  2076 blocks   no orbit has one; predates the convention
                                          <- a style era, not a mistake

## Also, in this diff: #70

`live/midi/nova/dnb/liquid/you_my_sunshine.tidal` had d5 (the voice) and d11
(`no_sunshine:4/4` chopped) both on `# cut 5`. A cut group is monophonic, so every
d11 event killed the vocal mid-word. That is ALSO the `-- FIXME VOICE OFF` PLN had
left on d5 line 59: one root cause wearing two labels, found by pvlint PV004 on
2026-07-28 and confirmed by reading the file today. d11 moves to `# cut 11`, matching
the group-N-equals-orbit-N convention d3/d6/d8/d9 already follow. The comment says
how to revert in one line if the vocal was meant to be monophonic across both layers.

## How this was verified, given it touches 213 files PLN has to play in 7 days

1. **Convergence** — `--apply` twice; second pass proposes 0 rewrites and 0 fills.
2. **Structural proof, not spot-checks** — diffed every changed line against HEAD and
   asserted the two sides are identical once mute tokens and whitespace are stripped.
   908 of 917 changed lines are provably mute-plumbing-only; the other 9 are listed
   and each accounted for (4 fills onto head lines with no `$`, 3 trailing-whitespace,
   1 FIXME annotation, 1 the cut 5->11 fix). Nothing else in the corpus moved.
3. **Compile-invariance argument** — gM1/gM2/gM3 are the same type and arity in
   BootTidal, so substituting one for another cannot change whether a file compiles.
   Only the 7 fills alter expression structure, and all 7 are in the set.
4. **silent-eval --seeded on the set: 13/13 ok**, before and after.
5. Suite: 222 passed.

THE HONEST LIMIT, stated because a green check here is misleading: every button CC
seeds to 0 at boot and gMute<N> is `midiOn "^7N" (mask "f*16")`, so all three mutes
are equally inert until pressed. silent-eval therefore proves nothing got silenced at
boot and NOTHING about behaviour under a press — which is the only thing this change
alters. The real gate is PLN's ear, or pv-at (#74).

NOTE FOR PLN: 213 files changed on disk. Anything open in Pulsar now has a stale
buffer, and Pulsar saves the BUFFER — reload before evaluating or your next Ctrl-S
silently reverts the migration in that file.
parent 72943be9
......@@ -5,10 +5,10 @@ d1 $ gF1 $ gM1
$ "k k k k*<1 2>"
# "jazz"
# gain 1.3
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "hh*8"
# "h2ogmhh:1" # cut 3
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ fast "<1!8 2!24>"
$ "~ [snare:20,cp]"
d4
......@@ -18,7 +18,7 @@ d4
+ "c'min'4/4"
)
# "bassWarsaw"
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^60" (mask "t(4,8,1)")
$ loopAt 2
$ "jungle_breaks:45"
......@@ -5,7 +5,7 @@ do
setcps (110/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*2")
$ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......@@ -63,7 +63,7 @@ d10
# room 0.4 # sz 0.9
# cut 10
# gain 0.8
d11 $ gMute3
d11 $ gM3
$ note "<b4 as4 gs4 ~>"
# "90s_synatm:0"
# room 0.4 # sz 0.9
......
......@@ -12,16 +12,16 @@ let verseOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD]
let preChorusOff = [rootE, rootE]
let chorusOff = [rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
let songOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <~ [~ k]>>")
$ midiOff "^42" (<| "k . ~ <~ k*<1 2 2 4>>")
$ "[clubkick:2,jazz,808bd:4]"
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ cp")
$ midiOff "^43" (<| "~ cp")
$ "clap:2"
# hpf 5000
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ sometimesBy "0 . 0.1 <0.25 0.5 0.7 0.9>" (ply 2)
$ "hh*8" |* gain (range 0.6 0.9 perlin)
d4 $ gF2 $ gM3 -- BASSLINE COMPAGNONNE
......@@ -39,7 +39,7 @@ d7 $ gF2 $ gM3
$ note (cat songOff + 12) -- Offbeat
# "FMRhodes2"
# pan 0.8
d8 $ gM1 $ gF1
d8 $ gM2 $ gF1
$ midiOn "^60" (mask "t(<4 8>,<8 8 16 16>)")
$ midiOn "^92" (ply 2)
$ chop 16
......
......@@ -116,7 +116,7 @@ let gM = gMask . gMute
-- Main Bbm/F vamp with Db/Ebm variation
-- pyin evidence: bass = sustained Bb1(58Hz)↔F2(88Hz), Eb2 for iv, chromatic slides
let rt = slow 2 "<bf2 f2 bf2 f2 bf2 f2 df2 ef2>" -- root sequence (for d6 piano, pad, etc)
d1 $ gF1 $ gMute2 -- KICK: Sub thud, 4otf with flourish (NTO: deepens over time)
d1 $ gF1 $ gM1 -- KICK: Sub thud, 4otf with flourish (NTO: deepens over time)
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>") -- ON: 4otf + flourish variations
$ midiOff "^42" (<| "k ~ ~ <~!3 k>") -- OFF: sparse intro
$ sometimesBy "^29" ( -- ^29: ghost doubles (pre-drop energy)
......@@ -221,7 +221,7 @@ d6 $ gF2 $ gM3 -- PIANO: Sustained Rhodes chords (demucs: Bb3/A3/F3, enters ~40s
# legato 4 -- long sustained chords, not stabs
# pan 0.5
# gain 1.6
d7 $ gF3 $ gMute3 -- CELLO: Rhythmic bowed answer, tighter complement to bass
d7 $ gF3 $ gM3 -- CELLO: Rhythmic bowed answer, tighter complement to bass
$ midiOn "^91" (ply 2) -- push: doubles for urgency
$ midiOn "^59" ((|* gain 1.2) . (# "[cpluck:6,cpluck:7]")) -- state ON: pizzicato
$ midiOff "^59" (struct "t@3 [t t t] ~ ~") -- OFF: rhythmic bow, answer on beat 3
......@@ -234,7 +234,7 @@ d7 $ gF3 $ gMute3 -- CELLO: Rhythmic bowed answer, tighter complement to bass
# legato 1.2 -- shorter bow strokes
# pan 0.8
# gain (slow 32 $ range 0.9 1.2 saw) -- 32-bar: presence grows
d8 $ gF1 $ gM1 -- BREAKS: Full jungle break treatment
d8 $ gF1 $ gM2 -- BREAKS: Full jungle break treatment
$ midiOn "^92" (ply "1 <2!3 4>") -- push: fill/ply
$ midiOff "^60" (mask "t(4,8,1)") -- state OFF: sparse techno mask
$ midiOn "^36" (loopAt 1 . (# "jungle_breaks:74")) -- mid knob: alt break A
......
......@@ -4,14 +4,14 @@ do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = gMask
d1 $ gM2 $ gF
d1 $ gM1 $ gF
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gM1 $ gF -- Slow clap
d2 $ gM2 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^41" + "^42") (struct "~ t")
......@@ -19,7 +19,7 @@ d2 $ gM1 $ gF -- Slow clap
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM1 $ gMask $ gF -- Broken drummer
d3 $ gM2 $ gMask $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
......@@ -28,12 +28,12 @@ d3 $ gM1 $ gMask $ gF -- Broken drummer
-- $ chop 32 $ loopAt 1 $ "fbreak80" -- V1: Existing
# midiG' "^80" 0 1.2
# cut 3
d6 $ gM1 -- Drumroll fou
d6 $ gM3 -- Drumroll fou
$ midiOn "^91" (fast "2 <2!3 <4 [4 8]>>")
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
d7 $ gM1 $ gMask $ gF -- Final cymbal
d7 $ gM3 $ gMask $ gF -- Final cymbal
$ mask "<f!16 t!7 f t t f t t f t t>"
$ "808cy:4" # midiG 0.8
# room 0.5 # dry (slow 8 $ range 0 0.8 saw)
......
......@@ -4,7 +4,7 @@ do
setcps (90/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
-- $ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
-- -- $ fix (|* gain 0.6) "jazz"
......@@ -38,7 +38,7 @@ d12 $ slow 4 $ note (
+ "c5"
)
) # s "cricri:3" # lpf 800
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ slice 8 "0 <~!4 1!4> 2 <~!3 3>"
$ chop 8
$ loopAt 2
......
......@@ -3,17 +3,17 @@ setcps (60/60/4)
-- resetCycles
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^30" (fast 2)
$ midiOn "^42" ((<| "k k k <k k*2 k [~ k*2]>"))
$ midiOff "^42" (<| "k . <~!8 k(3,8)!8>")
$ "kick:5"
# cps ((range 60 120 "^29")/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ s ~ s ~ s*2"
# "vec1_snare:59" # gain 0.8
# room 0.4 # dry 0.9
d3 $ gF1 $ gM1 $ "dr*[8 8 <8 <12 24>> 16]"
d3 $ gF1 $ gM2 $ "dr*[8 8 <8 <12 24>> 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ superimpose (arp "up <up!3 down>" . (|+| note "c'maj9'8"))
......@@ -53,7 +53,7 @@ d7 $ gF3 $ gM3 -- SIDE CRUTCHES
# pan 0.8
# gain 1.3
# room 0.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 16) -- Bouton Nassim <3
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
......
......@@ -16,7 +16,7 @@ $ midiOn ("^42" - "^41") (<| "<k k(<3!3 [3 5]>,8)>")
$ "[techno:0,808bd:2,909,kick:4]"
# lpf 200
# midiG' "^78" 0 1.2
d2 $ gF1 $ gMute2 -- Snare décalé
d2 $ gF1 $ gM2 -- Snare décalé
$ "~ . <<s [s*2 ~ . s]> s!2 [s . ~ s*2]>"
# "[clap:1,snare:48]"
# lpf 5000
......@@ -77,7 +77,7 @@ d8 $ gF1 $ gM2 -- La Course
# pan 0.7
# cut 8
# midiG' "^84" 0 0.8
d9 $ gF2 $ gM2 -- La Brulure
d9 $ gF2 $ gM3 -- La Brulure
$ sometimesBy "^13" (# note "c")
$ midiOn "^92" (ply "2 <4 8>")
$ midiOn "^60" (slice 4 "0 1 2 3*<1 2 <4 8> <4 16>>")
......
......@@ -2,26 +2,26 @@ do
-- resetCycles
setcps (105/60/4)
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t ~ t ~")
$ "[jazz,kick:4]"
# gain 1.3
d2 $ gMute1 $ gF1 -- snare contretemps variable
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[snare:24,cp]"
# pan 0.65
# gain 1.6
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
# gain 1.5
d4 $ gF2 $ gMute3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "4 8")
$ midiOff "^89" (superimpose (struct "t(5,8)"))
$ note (
......@@ -32,7 +32,7 @@ d4 $ gF2 $ gMute3
# gain 1.4
# room 0.4
# crushbus 41 (range 16 3.5 "^53")
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# n "22")) -- Raise COMEON!
......@@ -42,7 +42,7 @@ d8 $ gF1 $ gM1
$ "jungle_breaks:45"
# cut 8
# gain 1.5
d6 $ gF1 $ gM1 -- HAWKS
d6 $ gF1 $ gM3 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
# "armora:1"
......
......@@ -6,20 +6,20 @@ d1 $ gMute
-- $ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "k ~ <~ [~ k]>" # "[bd,808bd:3]"
# midiG' "^78" 0 1.2
d2 $ gMute2 $ gF1
d2 $ gM2 $ gF1
$ ((|* gain "1 <1!3 [1 0.9 1]>") . (whenmod 4 3 (fix (# "snare:30") "snare:29")))
$ "~ <s!3 [s [~ s] ~]>"
# "[snare:29,snare:4]"
# lpf 5000
# midiG' "^79" 0 1
d3 $ gF1 $ gMute2
d3 $ gF1 $ gM2
$ "h h h h <h!3 ~> h*<1!7 2>" |* gain "0.8 1 1.1 1 1 1.1"
-- # drumFrom "sakatadpm48" "[hh,oh]"
# "hh"
-- # n "0!3 <0!3 1>"
# lpf 4500
# midiG' "^80" 0 1
d8 $ gF1 $ gMute2
d8 $ gF1 $ gM2
$ loopAt 2
$ slice 8 "~ 0 ~ 2 ~ 4 ~ 6"
$ "break:10"
......
......@@ -5,7 +5,7 @@ let gMute = (midiOn "^73" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>")
$ "[jazz,kick:5]"
......
......@@ -8,21 +8,21 @@ let bluesM = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "
-- let blues = bluesM
let gDJF = (# djfbus 1 (slow 32 $ range 0.2 0.8 saw))
let gDJF = id
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix ((|* gain 0.6) . (# hpf 200)) "jazz"
-- $ "<k!16 k*2!16 k*4!16 [k . k(3,8)]!16>"
$ "[jazz,cpu]" # gain 1
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| note ("~ ~ ~ <~ ~ -2 -2>. 0" - 8))
$ midiOn "^43" (<| note ("~ 0 ~ 0"))
$ "[snare:60,snare:21,snare:51]"
# gain 0.56
# pan 0.3
-- # room 0.2 # dry 1.1 # sz 0.8
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "drum:2*[4 <4 <8 16>>]"
......@@ -31,7 +31,7 @@ d3 $ gF1 $ gM1
# rel 0.9
# pan 0.3
# gain 0.85
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply 2)
$ chop 8
$ midiOn "^36" (loopAt 1 . (# "break:5"))
......
do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [<~!4 k!3 k*2> k*<1 2>]>")
$ midiOff "^42" (<| "<k ~> ~ . ~ <~ k k ~> ~ ~")
$ "[jazz,808bd:3,kick:4]"
-- $ "[808bd:4]"
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ whenmod 64 32 (superimpose (# "cp"))
$ "<[~ s]!16 [~ s ~ <s <s*2 [s*2 ~ s?]>>]!16>"
# "rampleM1:10"
# gain 1.5
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (slow 4)
$ midiOn "^76" (ply 2)
$ "dr*[8 <8 16 24 [8 <4 8 16 <4 8>>]>]"
# gain 1.2
# "rampleS37:5"
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
$ "~ h ~ h ~ h*<1 <2 4>> ~ h*<2 1>"
# gain 1.1
# "rampleD2:3"
# cut 7 # legato 0.6
# att 0.05 # room 0.3
# note "10"
d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8
d8 $ gF1 $ gM2 $ loopAt 2 $ chop 8
$ midiOn "^36" (loopAt 2 . (# n "23")) --
$ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
......
......@@ -9,7 +9,7 @@ d2
$ "~ s ~ s*<1 1 2 [4 2]>"
# "vec1_snare:20"
d3 $ "hh(3,8) hh(5,8)"
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 1
$ chop 8
$ midiOn "^36" (# n 95)
......
......@@ -19,7 +19,7 @@ let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f"
-- Fa Fa Do Do
-- Sol Fa Do Do
-- Sol Fa Do Sol
d1 $ gF $ gMute2
d1 $ gF $ gM1
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
......@@ -46,7 +46,7 @@ d8 $ gF $ gM
$ "break:9"
# cut 8
# gain 1.2
d4 $ gF2 $ gMute3
d4 $ gF2 $ gM3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
......
......@@ -2,18 +2,18 @@
do
setcps (60/60/4)
-- resetCycles
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<| "k k k <k [~ k] k k*[4 2]>"))
$ midiOff "^42" (<| "k . k(3,8)")
-- $ "[techno:0,808bd:2,909,kick:4]"
$ "jazz"
# midiG' "^78" 0 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ fast 2
$ "~ s ~ s*<1!3 2>"
# "snare:24"
# midiG' "^79" 0 1.5
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^76" (fast "<2 2 2 4>")
$ midiOn "^42" (fast 2)
$ "hh(3,8)"
......@@ -35,7 +35,7 @@ d5 $ gF2 $ gM3
# midiG' "^80" 0 1.5
# crushbus 51 (range 16 2.5 "^54")
# octersubbus 52 (range 0 2.5 "^34")
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
$ loopAt 2
-- $ chop 16
$ slice 4 "0 <~!4 1!4> <~!8 2!8> 3"
......@@ -46,7 +46,7 @@ d11 $ gF3 $ gM3
$ "blues_guitar_birdy_120:7/2"
# cut 5
# midiG' "^14" 0 1.5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
-- $ slice 4 "0 1 2 3"
$ loopAt 1
$ chop 4
......
......@@ -2,12 +2,12 @@
do
setcps (138/60/4)
-- resetCycles
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "jazz"
d2 $ gM1 -- Clap timer
d2 $ gM2 -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (118/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 <~ k>")
......@@ -12,7 +12,7 @@ d1 $ gF1 $ gM2
]
# gain 1.7
-- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
......@@ -20,7 +20,7 @@ d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
# gain 1.44
d3 $ gM1 $ gF1-- DrumRoll Drill
d3 $ gM2 $ gF1-- DrumRoll Drill
-- $ mask "<f!20 t!44>"
$ "d(3,8) d(<3!3 5>,8)"
# "[drum:2,cpu2:3]"
......@@ -35,7 +35,7 @@ d5 $ gM3 $ gF3
$ loopAt 4
$ "un_cat"
# cut 5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 1
$ chop 8
$ "jungle_breaks:52" # cut 8
......@@ -81,7 +81,7 @@ d10 $ gF3 $ gM3 -- Mad organ
-- # pan 0.9
-- # hpf (slow 32 $ range 0 2500 sine)
-- # room (slow 16 $ range 0 0.4 perlin)
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
......@@ -131,7 +131,7 @@ d12 $ gF3 $ gM3 -- GLITCH DNB
# note "-7"
# dry 1
# gain 0.8
d6 $ gF1 $ gM1-- Claps occasionnels
d6 $ gF1 $ gM3-- Claps occasionnels
$ mask "<f!24 t!4 f!36>"
$ "[~ cp]*<1 1 <1 2> <[2 <1 4>]>>"
# "cp"
......
......@@ -5,15 +5,15 @@ d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . k(3,8)")
$ "kick:5"
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
-- $ midiOn "^78"
$ "~ s ~ s" # "sn:32"
d3 $ gM1 $ gM1
d3 $ gM2 $ gM1
-- $ midiOn "^6"
-- $
$ "~ d ~ d ~ d ~ d*<2 [1 2]>"
# "h2ogmhh"
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
......
......@@ -4,7 +4,7 @@ do
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k*<1!4 2!4> . k(<1 3 3 <5 [3 <1 5>]>>,8)")
$ "[cpu,jazz,808bd:3,808bd:2]"
......@@ -16,7 +16,7 @@ d2 $ gM $ gF2
-- # note "-2"
# gain 1
# att 0.02 # rel 0.9
d3 $ gF1 $ gMute2
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
......
do
setcps (80/60/4)
-- resetCycles
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~ k")
$ fix (# lpf 500) "kick"
$ "[jazz,kick:5]" # lpf 2000
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ sn . ~ ~ sn*<1!3 2> ~"
# "snare:44"
# lpf 4000
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "dr*[8 <8 [16 <16 4>]>]"
d4 $ gF2 $ gM3
$ superimpose (
......@@ -37,7 +37,7 @@ d5 $ gF3 $ gM3
# "FMRhodes1"
# gain 1.4
# modIndex (range 0 4 "^54")
d7 $ gF1 $ gM2 $ 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
$ midiOff "^60" (mask "t(4,8,f)" . chop 8)
$ chop 8
......
......@@ -37,7 +37,7 @@ once $ "giorgio_syn:"
do
-- resetCycles
setcps (80/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ whenmod 128 64 (# silence)
-- $ superimpose ((# lpf 500))
$ mask "<t!7 f>" -- Orchestration
......@@ -49,7 +49,7 @@ d1 $ gF1 $ gM2
-- # dry 1.1
# gain 1.3
-- # att 0.034
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
d2 $ gF1 $ gM2 -- Submarine snare sable mouvant inspired
-- $ whenmod 128 64 (# silence)
$ mask "<f!8 t!32 t!32 t!32 f!8>" -- Orchestration
$ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
......@@ -62,7 +62,7 @@ d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
# room 0
# gain 1
# lpf 4000
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ whenmod 128 64 (# silence)
$ mask "<t!7 f>" -- Mask permanent
-- Orchestration
......@@ -162,7 +162,7 @@ d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet
# delay 0.8 # delayfb 0.5 # delayt 0.125
# room 0.47 # dry 0.8 # sz 0.4
# gain 1.2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ whenmod 128 64 (# silence)
$ mask "<f!7 [f . t f] t!32 t!32 t!32 [t f . f] f!7>" -- Orchestration
$ midiOn "^92" (ply 2)
......
......@@ -48,7 +48,7 @@ do
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick, le pas du train qui démarre
d1 $ gF1 $ gM1 -- Kick, le pas du train qui démarre
$ midiOn "^42" (struct "t ~ ~ ~ ~ ~ t ~") -- half-time feel (60bpm sur 120 Tidal)
$ midiOff "^42" (struct "t ~ <~ t> ~ ~ ~ t <~ t>") -- broken-beat plus dense
$ stack [
......@@ -60,13 +60,13 @@ d1 $ gF1 $ gM2 -- Kick, le pas du train qui démarre
# gain 1.35
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM1 -- Clap/snare, contretemps liquide
d2 $ gF1 $ gM2 -- Clap/snare, contretemps liquide
$ midiOn "^43" (<| "~ ~ ~ ~ s ~ ~ <~ s*<1 2>>")
$ midiOff "^43" (<| "~ ~ ~ ~ s ~ ~ ~")
$ "[snare:24,cp]"
# gain 1.3
d3 $ gF1 $ gM1 -- Cymbales légères, la brume du matin
d3 $ gF1 $ gM2 -- Cymbales légères, la brume du matin
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!6 <~ <cy ~> cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
......@@ -117,7 +117,7 @@ d7 $ gF3 $ gM3 -- Violoncelle / Guitare blues, la mémoire du voyage
# room 0.5 # sz 0.6
# gain 1.0
d8 $ gF1 $ gM1 -- Break, le train qui cogne les rails
d8 $ gF1 $ gM2 -- Break, le train qui cogne les rails
$ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
$ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^92" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
......@@ -161,7 +161,7 @@ d11 $ gF3 $ gM3 -- Intro texture, le calme avant le départ
# delayfb 0.5
# gain 1.2
d12 $ gF1 $ gM1 $ "hh(3,8) hh(3,8)" # "h2ogmhh"
d12 $ gF1 $ gM3 $ "hh(3,8) hh(3,8)" # "h2ogmhh"
-- BOUTONS (convention LaunchControl XL) ——————————————
-- ^41 = gMask (gate syncopé, fill fantôme)
......
......@@ -6,25 +6,25 @@ do
-- resetCycles
setcps (115/60/4)
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "ja zz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
d2 $ gMute1 $ gF1 -- snare contretemps variable
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:30]"
# pan 0.65
# legato 0.22
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
d4 $ gF2 $ gMute3
d4 $ gF2 $ gM3
$ midiOn "^57" (slice 16 "[0 ~]*<4!3 8>")
$ midiOn "^89" (ply 8)
$ note "<b2 <<as2 [as2@3 [~ <fs2 b2>]]>!6 cs3 [cs3@3 [~ ef3]]> gs2@2>"
......@@ -56,7 +56,7 @@ d5 $ gF3 $ gM3 -- Baba hums
# room 0.5 # dry 0.8 # sz 0.8
# legato 2
# gain 1.2
d6 $ gF2 $ gM2
d6 $ gF2 $ gM3
$ whenmod 32 16 (slice 8 "<[~ 0 ~ 1 ~ 2 ~ 3]!3 [0 1 2 3]*<2 [2 4]>>")
$ note ("<b bf gs@2>" - "f")
# "meth_bass:3"
......@@ -74,7 +74,7 @@ d7 $ gM3 $ gF3 -- Paroles!
# pan 0.3
# cut 7
# hpf 300
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn ("^92") ( -- Bouton Nassim <3
......
......@@ -6,7 +6,7 @@ do
resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ mask "t t t f"
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
......@@ -20,12 +20,12 @@ d1 $ gF1 $ gM2
# "[techno:1,jazz]"
# gain 1.4
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "[snare:24]"
# gain 1.4
d3 $ gF1 $ gM1 -- Cymbales sol
d3 $ gF1 $ gM2 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
$ "cy" # "<cy:1!6 cy:2!2>" # "h2ogmcy"
......@@ -58,12 +58,12 @@ d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
# crushbus 51 (range 16 2.7 "^54")
# room 0.4
# gain 1.3
d6 $ gF1 $ gM1 $ chop 8 -- Je t'avais oublie toi <3
d6 $ gF1 $ gM3 $ chop 8 -- Je t'avais oublie toi <3
$ loopAt 1
-- Je t'oublie trop souvent :(
$ "breaks165"
# cut 6
d8 $ gF1 $ gM1 -- Break multi-facette, assez complexe, comme chacun d'entre nous
d8 $ gF1 $ gM2 -- Break multi-facette, assez complexe, comme chacun d'entre nous
$ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
$ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^92" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
......@@ -91,7 +91,7 @@ d11 $ gM3 $ gF3-- Intro doux piano
# delayt ("<2!3 3>"/3)
# delayfb 0.5
# gain 1.3
d12 $ gF1 $ gM1 $ "hh(3,8) hh(3,8)" # "h2ogmhh"
d12 $ gF1 $ gM3 $ "hh(3,8) hh(3,8)" # "h2ogmhh"
d10
$ mask "<f!24 t!8>"
$ loopAt 8
......
-- TOXIQUE
do
setcps (120/60/4)
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
$ midiOff "^42 " (<| "<k ~>")
$ "[jazz,techno:1]"
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "<~ <~ sn>>")
$ "snare:39"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "h h h h h h h h*<1 <2 0 [4 2] [0 2]>>"
# "h2ogmhh:2"
# lpf 5000 # cut 3
......@@ -23,7 +23,7 @@ d4 $ gF2 $ gM3
$ "nujazz_bass120:16"
# room 0
# cut 4
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ chop 8
$ loopAt 2
$ midiOn "^56" ((# "jungle_breaks:30") . (# lpf 4000))
......
-- SPACIAL
do
setcps (110/60/4)
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ "k ~ ~ k ~ ~ k k*<2 1 2 2>"
# "[jazz,techno:1]"
# gain 1.2
d2 $ gF2 $ gM1
d2 $ gF2 $ gM2
$ "~ . cp*<1!3 2> ~"
# lpf 2000
d3 $ "hh*8"
d4 $ gF2 $ gM2
d4 $ gF2 $ gM3
$ slice 8 ("<0 1 2 3 4 5 6 7>")
$ "trance_bass:2"
# speed 0.85
......
......@@ -3,12 +3,12 @@ setcps (125/60/4)
-- resetCycles
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ "k*4" # "jazz"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 [<2 4> 2]>"
d2 $ gF1 $ gM2 $ "~ cp ~ cp*<1!3 [<2 4> 2]>"
# "vec1_claps:1"
d3 $ gF1 $ gM1 $ "~ h ~ h ~ h ~ <h h*2 h [~ h]>" # "ho:2"
d4 $ gF2 $ gMute3
d3 $ gF1 $ gM2 $ "~ h ~ h ~ h ~ <h h*2 h [~ h]>" # "ho:2"
d4 $ gF2 $ gM3
$ slice 8 ("<0 1 2 3>" + "<0!8 4!8>")
$ "bobylito"
# cut 4
......@@ -16,7 +16,7 @@ d4 $ gF2 $ gMute3
d5 $ gF3 $ gM3 $ slow 2 $ note "<<c [c@15 f]> <e [e@15 g]>>"
# "90s_synatm:3"
# cut 5
d8 $ gF1 $ gM1 $ loopAt 2
d8 $ gF1 $ gM2 $ loopAt 2
$ chop 8 $ "jungle_breaks:22"
# cut 8
# hpf 500
......
......@@ -3,7 +3,7 @@ setcps (125/60/4)
-- resetCycles
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" (fast 2 . (<| "k . ~ k ~ ~"))
......@@ -16,7 +16,7 @@ d2 $ gF2 $ gM2
# note "-4"
# gain 1.3 # legato 0.35
# hpf 1300
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr"
......@@ -46,7 +46,7 @@ d5
# modIndex 5
# gain 1.4
d9 $ note "[~ g4]*4" # "moog:3" # cut 9
d8 $ gF1 $ gM1 $ chop 8
d8 $ gF1 $ gM2 $ chop 8
$ chop 8
$ loopAt 2
$ midiOn "^60" (mask "t(4,8,1)" . chop 2
......
......@@ -3,14 +3,14 @@ setcps (125/60/4)
-- resetCycles
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOn "^41" (fast "<1!8 1 2 2 1 2 4 4 [4 8]>" )
$ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ midiOff "^42" ((<| "k . ~ k ~ ~"))
$ "[808bd:3,jazz]"
# gain 1.4
-- # room 0.3 # dry 1.1 # sz 0.8
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (fast "<1!8 4!24>" . (<| "~ s*<1!7 [4 <2 4>]>"))
$ midiOff "^43" (<| "~ s ~ s")
$ "snare:40"
......@@ -18,10 +18,10 @@ d2 $ gF1 $ gM1
-- # gain 1.8
-- # legato 0.35
-- # hpf 1300
d2 $ gF1 $ gM1 $ "~ s ~ s"
d2 $ gF1 $ gM2 $ "~ s ~ s"
# "snare:24"
# gain 1.5
d3 $ gF1 $ gM1 $ "~ h ~ h ~ h*<1!4 1 1 2 2> ~ h*<1!3 2>"
d3 $ gF1 $ gM2 $ "~ h ~ h ~ h*<1!4 1 1 2 2> ~ h*<1!3 2>"
# "h2ogmhh:4"
# "ho:1"
# gain 1.2
......@@ -33,7 +33,7 @@ d4 $ gF2 $ gM3
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (fast 2 . (<| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr" # "h2ogmsn:4"
......@@ -74,7 +74,7 @@ d5 $ gF3 $ gM3
d7 $ gF3 $ gM3 $ "vocalOoh1/2" # n "<4 5>" # cut 7
# gain 1.2
# room 0.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
-- $ loopAt 2
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:20"))
......@@ -99,7 +99,7 @@ d11
# room 0.3
# gain 1.3
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
$ slow 1
-- $ midiOn "^91" (ply "<[2 <2!4 4!3 8>] <2!4 8!3 [8 4]> 2 4>")
-- $ jux rev
......@@ -111,7 +111,7 @@ d7 $ gF1 $ gM1
# pan "<0.2 0.4>"
-- d6 $ gF2 $ gM2 $ "90s_matrix/4" # n "<0 0 1 2>" # cut 6 # gain 1.4
d8 $ gF1 $ gM1 $ chop 8
d8 $ gF1 $ gM2 $ chop 8
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ chop 8
$ loopAt 2
......
......@@ -2,23 +2,23 @@
-- Original by Leifur James :pray:
do
setcps(140/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^42" (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
-- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ fix (# lpf 1300) "cp"
$ midiOn "^43" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^43" (<| "~ . cp")
$ "[snare:32,cp]"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
$ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
# cut 3
d4 $ gF2 $ gMute3 -- Caring bass
d4 $ gF2 $ gM3 -- Caring bass
$ midiOn "^57" (|+ note "[0,12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
......@@ -36,7 +36,7 @@ d4 $ gF2 $ gMute3 -- Caring bass
# octerbus 42 (range 0 0.9 "^33")
# cut 7
# gain 1.4
d5 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
d5 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^58" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
......@@ -60,7 +60,7 @@ d5 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
d11 $ gF2 $ gMute3 -- Caring cello
d11 $ gF2 $ gM3 -- Caring cello
$ midiOn "^57" (|+| note "[0 12 0 12 0 12 0 12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
-- $ superimpose (
......@@ -73,7 +73,7 @@ d11 $ gF2 $ gMute3 -- Caring cello
# "cpluck:0"
# cut 11
# gain 1.4
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
$ midiOn "^91" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
......@@ -91,7 +91,7 @@ d7 $ gF1 $ gM1
# rel 2
# gain 1.6
# hpf 1200
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "4 <8>")
$ chop 16
$ loopAt 8
......
do
-- resetCycles
setcps (160/60/4)
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
......@@ -9,20 +9,20 @@ d1 $ gMute2 $ gF1 -- Kick solide
$ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>")
$ "[jazz,kick:4]"
# gain 1.5
d2 $ gMute1 $ gF1 -- snare contretemps variable
d2 $ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:22]"
# pan 0.65
-- # legato 0.22
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ midiOn "^44" (ply "1 1 2 <1 2>")
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
......@@ -68,7 +68,7 @@ d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
# gain 1.12
# room 0.7
# dry 1 # sz 0.8
d6 $ gF1 $ gM1 -- HAWKS
d6 $ gF1 $ gM3 -- HAWKS
$ superimpose (# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw))
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
......
......@@ -27,7 +27,7 @@ d2 $ gF $ gMute -- Clap timer
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# midiG' "^79" 0 1.3
d3 $ gF $ gMute2
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 . 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
......@@ -64,7 +64,7 @@ once $ "[kick:5,kick:4,808bd:8]"
# lpf 200
# gain 0.8
d7 $ gF3 $ gM2 -- High Dauphin
d7 $ gF3 $ gM3 -- High Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
......@@ -75,7 +75,7 @@ d7 $ gF3 $ gM2 -- High Dauphin
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# midiG' "^83" 0 1
d3 $ gF $ gMute2
d3 $ gF $ gM2
$ midiOn "^44" (mask "t([8 4 <4 <8 16>>],16)")
$ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
......@@ -99,7 +99,7 @@ d4 $ gF2 $ slow 2 -- Basse Baleine
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.3
d6 $ gF3 $ gMute2 -- Leads reponse
d6 $ gF3 $ gM3 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
......
......@@ -2,11 +2,11 @@ resetCycles
do
setcps (120/60/4)
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . <~!8 k!8 k(<3!3 [3 5]>,8)!16>")
$ "kick:5"
d2 $ gM1 $ gF1
d2 $ gM2 $ gF1
$ fix (# lpf 2500) "h2ogmsn"
$ midiOff "^43" (slow 2)
$ "~ s ~ <s!3 s*[<4 4 2 4> <2!3 4>]>"
......@@ -44,7 +44,7 @@ d7 $ gM3 $ gF3 -- Keys of Paradise
$ "nujazz_keys120:25/2"
# octersub (slow 32 $ range 0.2 1.2 (saw+perlin/2))
# cut 7
d8 $ gF1 $ gM1 -- Train break train wreck
d8 $ gF1 $ gM2 -- Train break train wreck
$ chop 16
$ midiOff "^36" (loopAt 2)
$ midiOff "^56" (loopAt 2)
......
......@@ -10,15 +10,15 @@ do
setcps (120/60/4)
-- TODO: Suggestion gM1/2/3 filtres partiels
-- let gM3 =
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t . t(3,8)")
$ "jazz"
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ sn ~ sn" # "snare:30"
# gain 1.4
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
-- $ degradeBy "0.2 0.8"
$ "hh([12 16],16)" # "h2ogmhh:3"
# gain 1.8
......@@ -35,7 +35,7 @@ d5 $ gF3 $ gM3
# cut 5
# gain 1.7
# octersubbus 51 (range 0 2.5 "^54")
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !!
$ chop 8
$ loopAt 2
......
do
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ midiOn "^42" (struct "t t t <t [~ t] t t*2>")
$ midiOff "^42" (struct "t t(3,8)")
$ "jazz"
# lpf 400
d2 $ gM1 $ gF1
d2 $ gM2 $ gF1
$ midiOff "^43" (struct "~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ "vec1_snare:30"
d3 $ gM1 $ gF1 $ "hh*16" # "h2ogmhh"
d3 $ gM2 $ gF1 $ "hh*16" # "h2ogmhh"
d4 $ gM3 $ gF2
-- $ midiOn "^89" (ply "<4 8 8 16>")
$ n (scale "dorian" "<0 0 4 <2 7>>" + "fs")
......@@ -33,7 +33,7 @@ d5 $ gM3 $ gF3
# gain 1.2 # cut 5
# pan 0.8
# octersubbus 51 (range 0 2.5 "^54")
d8 $ gM1 $ gF1
d8 $ gM2 $ gF1
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ chop 8
$ loopAt 2
......
......@@ -7,16 +7,16 @@ once $ "gfunk_lead:5"
do
setcps (120/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t*4" )
$ midiOff "^42" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)")
$ "jazz" # lpf 300
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (struct "~ t ~ <t t*2 [t!3 ~] t*[4 2]>")
$ midiOff "^43" (struct "~ t")
$ "vec1_snare:25"
-- # hpf 500
d3 $ gF1 $ gM1 $ "hh([<8 12> <8 12 8? 16>],16)" # "h2ogmhh:3"
d3 $ gF1 $ gM2 $ "hh([<8 12> <8 12 8? 16>],16)" # "h2ogmhh:3"
d4 $ gF2 $ gM3
$ note (scale "dorian" "0@3 0 4@2 <2 7>" + "fs2")
# "bassWarsaw"
......@@ -25,7 +25,7 @@ d5 $ gF3 $ gM3
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:5"
# cut 5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# n 19)
$ midiOn "^36" (# n 74)
......
......@@ -9,14 +9,14 @@ let chords2 = "<Am11 Em9 [Dm11 Dm11]>" -- Section 2: Richer voicings
let chords = whenmod 128 64 (const $ jchord chords2) (jchord chords1) -- Auto-switch at bar 32
let chordsRoot = whenmod 128 64 (const $ jroot chords2) (jroot chords1)
setcps (81/60/4)
d1 $ gF1 $ gM2 -- KICK TECHNO KICK TO DNB
d1 $ gF1 $ gM1 -- KICK TECHNO KICK TO DNB
$ fast 2
$ midiOn "^42" (<| "k k k*<1 2 2 [4 2]> k*<1 <2 <4 [4 2]>>>")
$ midiOff "^42" (<|"k . ~ k ~ <~ k>" )
$ "[808bd:13,jazz]"
# gain 1
# lpf 300
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (fast 2)
$ "~ s ~ [s*<1!3 2> <~ <s s*[4 2]>>]"
# "hh27:12"
......@@ -24,7 +24,7 @@ d2 $ gF1 $ gM1
# gain 1.4
# lpf 1500
# legato 0.5
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ degradeBy (slow 32 $ range 0.8 "-0.2" sine)
$ midiOff "^44" (degradeBy "0 0.2 0.4 0.8 0 <0!4 0.5!4> 0.1 0")
$ "dr*[<32!3 16> . 16 <32 [8 32]>]"
......@@ -84,7 +84,7 @@ d7 $ gF3 $ gM3
# pan (slow 24 $ range 0.2 0.8 sine)
# attack (0.3 + (rand * 0.2)) -- Slow bowed attack
# release 2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (fast 2)
$ slice 8 "0 1 2 3 4 <5 5*2 0 5> <6 6 3 6*2> <7 <~!3 7*<2 4>>>"
$ midiOn "^36" (# "jungle_breaks:19")
......
......@@ -4,13 +4,13 @@ do
setcps (112/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
-- $ fix (|* gain 0.6) "jazz"
$ "[jazz]"
# gain 0.9
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" ((whenmod 4 3 (superimpose (("e" <~) . ply "<1 2 [4 2] [8 4]>" . (|* gain 0.95)))) . (<| "~ s ~ s*<1 <2 [2 4]>>") . (# legato 0.5))
$ midiOff "^43" (<| "~ <s <~ [~ s]>>")
$ "vec1_claps"
......@@ -20,7 +20,7 @@ d2 $ gF1 $ gM1
# dry 0.9
# gain 0.8
-- # att 0.03 # rel 2
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ "h*[<12 16 32 8> <8 [4 16]>]"
# "drum:2"
......@@ -49,7 +49,7 @@ d11 $ gF3 $ gM3
$ slow 2
$ "cricri" # n "<0 1 2 3>"
# pan 0.3
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
-- $ fast 2 $ ply 2 $ slice 2 "<0 0 0 1>"
$ juxBy 0.2 (rev)
$ loopAt 2
......@@ -63,7 +63,7 @@ d7 $ gF1 $ gM1
# pan (segment 16 $ range 0.07 0.93 (slow 4 perlin))
# room (slow 16 $ range 0 0.9 saw)
# sz 0.8 # dry 0.9
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ fast 2 $ ply 2 $ slice 2 "<0 0 0 1>"
$ loopAt 2 $ chop 8
$ "jungle_breaks:16"
......
do
setcps (114/60/4)
-- resetCycles
d1 $ gF1 $ gMute2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^78" (# silence)
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ "[kick:4]"
# gain 1.8
# lpf 400
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOff "^79" (# silence)
$ midiOff "^43" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOff "^44" (mask "t(4,8,1)")
$ "o([8 . 8 <8 16> 4],8,1)"
# "ho"
......@@ -55,7 +55,7 @@ d7 $ gF3 $ gM3
# room 0.5
# sz "<0.3!3 1.2>"
# cut 7
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
......
do
setcps (80/60/4)
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ "k . ~ k ~ <k k*[4 2]>"
# "[808bd:2,jazz,techno]" -- Doux
# gain 1.5
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
# "[snare:70,sn:24]"
# gain 1.4
# lpf 4000
d3 $ gF1 $ gM1 $ "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
d5 $ gF3 $ gM3 -- Jane's Piano
$ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
......@@ -42,7 +42,7 @@ d11 $ gM3 $ gF3
-- # tremdp 0.8
-- # tremr "<2 4 4 <8 16>>"
# gain 1.2
d7 $ gF1 $ gM1 -- SCRATCH
d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 13)
$ midiOn "^59"(# n 15)
......@@ -52,7 +52,7 @@ d7 $ gF1 $ gM1 -- SCRATCH
# cut 7
# pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ someCyclesBy "<0 1 0 <1 1>>" (slice 8 "0 2 4 <6 ~>")
$ midiOn "^92" (ply 4)
$ loopAt 2
......
do
setcps (120/60/4)
-- resetCycles
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k <k!6 ~ ~> <k!7 ~> <k k*2>")
$ midiOff "^42" (<| "<k <~ [~!7 k]>>")
$ "[reverbkick,808bd:4]" -- Profond
......@@ -9,24 +9,24 @@ d1 $ gF1 $ gMute2
# lpf 400
# octersub 2
# cut 1
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ . <~ <s [s*2 . ~ <~ s>]>>")
$ "[snare:70]"
# note "-5"
# gain 1.4
d3 $ gF1 $ gM1 -- Soft drumroll
d3 $ gF1 $ gM2 -- Soft drumroll
$ fix (|* gain (slow 16 $ range 1.2 0.6 perlin))
"h2ogmsn:1"
$ "d*[8 <16 12 [16 12] [6 12]> <8!3 <12 16>>]"
# "[h2ogmsn:1,h2ogmhh]"
|* gain (range 1.1 0.95 (slow 4 perlin))
-- d4 $ "wobble" # cut 4
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ "~ cy ~ cy*<<1!4 2!4> <1!4 2!4> 2 2> ~ cy ~ cy*<1!3 2>"
# "h2ogmcy"
# n (slow 4 "<0 1 2 3>") # cut 6
d4 $ gF2 $ gM2 -- BASSLINE SYNTH
d4 $ gF2 $ gM3 -- BASSLINE SYNTH
$ chop 2
$ superimpose (
(
......@@ -69,7 +69,7 @@ d7
# cut 7
# room 0.4
# dry 1.1
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" ( -- BREAK ME
splice 4 "<0!3 [0 1] 0 0 [0 1] [0 1]*2> 1 2 3*<4 <2 8>>")
$ midiOn "^56" (loopAt 0.5 . (# "break:15"))
......@@ -99,7 +99,7 @@ d12 $ gM3 $ gF3
-- # tremdp 0.8
-- # tremr "<2 4 4 <8 16>>"
# gain 1.2
d7 $ gF1 $ gM1 -- SCRATCH
d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 15)
$ midiOn "^59" (# n 15)
......@@ -109,7 +109,7 @@ d7 $ gF1 $ gM1 -- SCRATCH
# cut 7
# pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
......
......@@ -6,7 +6,7 @@
do
setcps (114/60/4)
d1 $ gM2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t*4")
......@@ -14,13 +14,13 @@ d1 $ gM2 $ gF1 -- Kick solide
$ "[jazz,kick:4,909]"
-- # midiG' "^78" 0 1.2
# gain 1.2
d2 $ gM1 $ gF1
d2 $ gM2 $ gF1
$ "~ s . ~ <~!4 s ~ ~ s> s ~" # "snare:38"
# pan 0.65
# room 0.8 # sz 0.8 # dry 1
-- # midiG' "^79" 0 1.5
# gain 1.5
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "[~ d ~ d ~ d*<2!2 1 2> ~ d]"
# "electrn:4"
# hpf 7000
......@@ -107,14 +107,14 @@ setcps (120/60/4)
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]" # lpf 3000
# midiG' "^78" 0 1.5
d2 $ gM1 $ gF1 -- snare contretemps variable
d2 $ gM2 $ gF1 -- snare contretemps variable
$ midiOn "^43" (<| "~ cp ~ cp")
$ midiOff "^43" (<| "~ cp")
$ "[cp]"
# pan 0.65
# legato 0.22
# midiG' "^79" 0 1.5
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
......
do
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
setcps (140/60/4)
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick
(# "vec2_bass_ob:190")
. (# att 0.2) . (# rel 1))
......@@ -11,9 +11,9 @@ d1 $ gM2 $ gF1
$ speed "1 1 1 [1,[~ -4]]"
# s "[clubkick:2,hardkick_rha:1]"
# gain 1
d2 $ gM1 $ gF1 $ "~ <~!8 s!8> ~ s*<1!6 <2 4> <2 <4 [4 8]>>>"
d2 $ gM2 $ gF1 $ "~ <~!8 s!8> ~ s*<1!6 <2 4> <2 <4 [4 8]>>>"
# "vec1_snare:3"
d3 $ gM1 $ gF1 $ "hh([4 4 4 16],8,1)"
d3 $ gM2 $ gF1 $ "hh([4 4 4 16],8,1)"
# "h2ogmhh" # n "<1!8 3!8>"
d4 $ gF2 $ gM3
$ freq "102 108 110 ~ 105 130 52 33"
......@@ -35,7 +35,7 @@ d5 $ gF3 $ gM3
# att 0.22
# rel 4
# gain 0.9
d8 $ gM1 $ gF1
d8 $ gM2 $ gF1
$ midiOn "^92" (ply "<1 2 4 8>")
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 16
......
......@@ -3,7 +3,7 @@
do
setcps (104/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [
......@@ -15,7 +15,7 @@ d1 $ gF1 $ gMute2
]
# "[techno:1,jazz]"
# gain 1.2
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ s"
# "gretsch:14"
# begin 0.2
......@@ -24,7 +24,7 @@ d2 $ gF1 $ gM1
# legato 0.25
# lpf (range 20000 200 $ (fast 4 $ envL))
# lpq 0
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "dr*[16 16 8 <16 8 64 [128 64]>]"
# gain 0.8
# "gretsch:14"
......
......@@ -4,7 +4,7 @@ do
setcps (124/60/4)
let modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>") -- RUN 4/4
$ midiOff "^42" (struct "t . ~ t ~ ~ ") -- OFFBEAT DNB
$ stack [
......@@ -16,7 +16,7 @@ d1 $ gF1 $ gMute2
]
# "[techno:1,jazz]"
# gain 0.9
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ <s!3 [s ~ [~ s ~]]>"
# "gretsch:14"
# begin 0.2
......@@ -24,7 +24,7 @@ d2 $ gF1 $ gM1
# room 0.4 # dry 1.14 # sz 0.1
# rel 0.08
# lpf 2500
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "dr*[16 16 8 <16 8 64 [128 64]>]"
# gain 0.8
# "gretsch:14"
......@@ -55,7 +55,7 @@ d5 $ gF3 $ gM3
# octave 3
# "FMRhodes1"
# gain 1.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
$ midiOn "^42" (struct "t t t t*<1!6 2 2>")
......@@ -10,7 +10,7 @@ d1 $ gMute2 $ gF1 -- Kick solide
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
d2$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
......@@ -18,19 +18,19 @@ d2$ gMute1 $ gF1 -- snare contretemps variable
-- # pan 0.65
# gain 1.5
-- # legato 0.22
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "jazz:4"
# gain 1.4
# legato 0.3
# cut 3
d4 $ gF1 $ gM1
d4 $ gF1 $ gM3
$ note ("<e3 b3 e3 g3>" - 12)
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
d5 $ gF1 $ gM1
d5 $ gF1 $ gM3
-- $ midiOn "^90" (ply "4")
$ midiOn "^90" (stut 4 0.9 "q")
$ midiOn "^58" (slice 8 "<4 4 <4 5> 6>") -- Phase 2
......@@ -39,7 +39,7 @@ d5 $ gF1 $ gM1
# cut 5
# gain 1.2 # room 0.3 # sz 0.9 # lpf 4000
-- # begin 0.05
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
......
......@@ -2,13 +2,13 @@ resetCycles
do
setcps(120/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ fix (|* gain 0.9) "kick:5"
$ "[h2ogmbd:1,kick:5]" -- TODO: Meilleur kick?
# gain 1.2
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "cp"
......@@ -16,7 +16,7 @@ d2 $ gF1 $ gM1
# pan 0.6
# note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
d3 $ gF1 $ gM2 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
......@@ -47,7 +47,7 @@ d5 $ gM3 $ gF3
-- # cut 5
# pan 0.7
# gain 1.2
d8 $ gF1 $ gM1 -- Break populaire
d8 $ gF1 $ gM2 -- Break populaire
$ midiOn "^92" (ply 2)
$ chop 8
$ loopAt 2
......@@ -56,7 +56,7 @@ d8 $ gF1 $ gM1 -- Break populaire
$ "jungle_breaks:18"
# gain 0.85
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
d7 $ gF1 $ gM3 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
......
......@@ -3,7 +3,7 @@
do
-- resetCycles
setcps(124/60/4)
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((# lpf 1400)) "kick:4"
......@@ -12,7 +12,7 @@ d1 $ gF1 $ gMute2
# gain 1.2
# room 0.2
# dry 1
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
-- $ "[rampleM2:12,rampleD3:1,rampleD4:1]"
......@@ -22,7 +22,7 @@ d2 $ gF1 $ gM1
# gain 1.5
# pan 0.6
# rel (slow 16 $ range 0.6 0.2 saw)
d3 $ gF1 $ gM1 -- Highest hats
d3 $ gF1 $ gM2 -- Highest hats
$ whenmod 32 16 (swingBy (slow 16 $ range 0.08 0.01 saw) 4)
$ midiOn "^44" (off "s" id)
$ midiOn "^76" (ply "<2!2 4 8>")
......@@ -32,7 +32,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# cut 3
# gain (1.4 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.2 # dry 0.99 # sz 0.25
d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3
d4 $ gF2 $ gM3 -- BASSLINE VIOLENTE PAR VALENTIN <3
$ superimpose (
(# crushbus 41 (range 16 3.5 "^53"))
. (# hpf 500)
......@@ -61,7 +61,7 @@ d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
# tremrbus 51 (range 0 "<0 8>" "^78")
# tremdp 2
# gain 1.2
d7 $ gMute3 $ gF3 -- Suns of Gold Guitars, sampled and cut
d7 $ gM3 $ gF3 -- Suns of Gold Guitars, sampled and cut
$ superimpose ((# cut 71) .
(# crushbus 73 (range 16 2.9 "^55")) -- CRASH THIS GUITAR
)
......@@ -73,7 +73,7 @@ d7 $ gMute3 $ gF3 -- Suns of Gold Guitars, sampled and cut
# lpfbus 72 (range 10000 200 "^35")
# pan 0.2
# gain 1.1
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
......@@ -93,7 +93,7 @@ d8 $ gF1 $ gM1
# gain 1.6
# hpf 1200
-- # room 0.52 # sz 0.04 # dry 1.01
d9 $ gF3 $ gMute3 -- Voice of the Father
d9 $ gF3 $ gM3 -- Voice of the Father
$ someCyclesBy "<0!16 1!16>" (slice 10 "<5 5 <2 2 7 2> <7 4>>")
$ someCyclesBy "<1!16 0!16>" (slice 10 "<0 0 2 <4 5 5 4>>")
$ "suns_voice:0"
......
......@@ -3,7 +3,7 @@
do
-- resetCycles
setcps (140/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
# "[reverbkick]"
......@@ -13,12 +13,12 @@ d1 $ gF1 $ gM2
# note "-8"
-- # cut 1
# gain 1.5
d2 $ gF1 $ gM1 $ "~ ~ ~ <~!3 s> . s"
d2 $ gF1 $ gM2 $ "~ ~ ~ <~!3 s> . s"
# "cp"
# bandf 2000
# room 0.5 # sz 0.8 # dry 1.1
# gain 1.7
d3 $ gF1 $ gM1 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8
d3 $ gF1 $ gM2 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
-- $ superimpose (# cut 41)
$ "jungle_bass:15"
......@@ -34,7 +34,7 @@ d5 $ gF3 $ gM3
# cut 5
# room "<0!4 0.2!3 0>"
-- # delay "<0!16 0.5!16>"
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 2
$ midiOff "^60" (mask "f(8,16)")
$ chop 16
......
......@@ -3,7 +3,7 @@
do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
$ midiOn "^42" (<| "k k k k*<2 4>")
......@@ -13,12 +13,12 @@ d1 $ gF1 $ gM2
-- # rel 0.5
# lpf 4000
# gain 1.3
d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>"
d2 $ gF1 $ gM2 $ "~ s ~ s*<1 2>"
# "vec1_snare:40"
-- # lpf 2000
-- # room 0.5 # sz 0.8 # dry 1.1
# gain 1.2
d3 $ gF1 $ gM1 $ "~ d ~ d ~ d ~ d*<1 <2 [2 4]>>" # "dr:2" # "hh27:3" # cut 3 # gain 1.8
d3 $ gF1 $ gM2 $ "~ d ~ d ~ d ~ d*<1 <2 [2 4]>>" # "dr:2" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 8)
$ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
......@@ -46,7 +46,7 @@ d7 $ gF3 $ gM3
# delay (slow 16 $ range 0.4 "<0!32 0.8!32>" saw)
# delayt 0.125 # delayfb 0.5
# gain 1.4
d8 $ gF1 $ gM1 $ chop 8
d8 $ gF1 $ gM2 $ chop 8
$ midiOff ("^60" + "^92") (mask "f(4,8)")
$ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
$ midiOn ("^92") ( -- Bouton Nassim <3
......
......@@ -3,7 +3,7 @@ do
setcps (165/60/4)
-- d1 $ gF1 $ gM2
d1
$ gF1 $ gMute2
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
......@@ -11,7 +11,7 @@ d1
-- # lpf 300 -- TODO Sound design this kick <3
-- # cut 1
# gain 2
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0]"
......@@ -21,7 +21,7 @@ d2 $ gF1 $ gM1
-- # room 0.5 # dry 1.1
-- # delay "<0!15 0.6!1>"
-- # delayt 0.25
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "~ h ~ h*<1!8 2!8> ~ h*<1 1 1> ~ h"
-- $ "h(3,8) h(3,8)"
-- # pan "0.2 0.8"
......@@ -30,13 +30,13 @@ d3 $ gF1 $ gM1
# hpf 1500
-- # att 0.03 # rel 0.9
-- # legato (range 0.05 0.9 "^32")
d4 $ gF2 $ gM2
d4 $ gF2 $ gM3
$ note ("<cs4 <c4 f4> [gs3@3 <~ bf3>] f3>" -12)
# "bassWarsaw"
# gain 1.3
# cut 4
# room 0.3
d5 $ gF2 $ gM2
d5 $ gF2 $ gM3
$ note (
"<cs4 c4 [gs3@3 bf3] f3>"
+ (arp "up" "c'maj'4 c'maj'4")
......@@ -46,7 +46,7 @@ d5 $ gF2 $ gM2
# gain 1.3
# cut 5
# room 0.3
d8 $ gF1 $ gM1 $ loopAt 2
d8 $ gF1 $ gM2 $ loopAt 2
$ chop 8 $ "jungle_breaks:74" # cut 8
d4 $ gF2 $ gM3
......@@ -72,7 +72,7 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
# pan 0.9
# room 0.3
d7 $ gF3 $ gM3 $ "trance_amb:0/2" # cut 7
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (142/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ whenmod 32 24 (# lpf (slow 8 $ range 50 500 saw))
$ midiOn "^30" ((# "gtkick:1") . (# bandf 993). (|* gain 1.2))
-- $ mask "<f!16 t!4 f!8 t!36>"
......@@ -14,14 +14,14 @@ d1 $ gF1 $ gM2
]
# gain 1.7
-- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
-- $ fix ((|- note 2) . (# lpf 1200)) ""
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ midiOff "^43" (<| "~!3 s")
-- $ "[snare:35,<snare:43!4 snare:40!4>]"
$ "vec1_claps:45" # legato 0.25
# gain 1.44
d6 $ gM1 $ gF1 -- HAWKS
d6 $ gM3 $ gF1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s <~!3 s*2>] ~ [s <~!3 s>]"
# "armora:1"
......@@ -34,7 +34,7 @@ d6 $ gM1 $ gF1 -- HAWKS
# sz 0.8
# gain 1.4
# dry 1.02
d3 $ gM1 $ gF1-- DrumRoll
d3 $ gM2 $ gF1-- DrumRoll
$ midiOn "^76" (ply 2)
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
......@@ -108,7 +108,7 @@ d12 $ gF1 $ gM3
# "cs80leadMH"
# room 0.4 # dry 1 # sz 0.8
# gain 1.8
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (166/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
......@@ -10,7 +10,7 @@ d1 $ gF1 $ gMute2
-- # lpf 300 -- TODO Sound design this kick <3
# cut 1
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
......@@ -19,7 +19,7 @@ d2 $ gF1 $ gM1
-- # room 0.5 # dry 1.1
-- # delay "<0!15 0.6!1>"
-- # delayt 0.25
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "~ h ~ h*<1!8 2!8> ~ h*<1 1 1 2> ~ h*<1 2>"
-- $ "h(3,8) h(3,8)"
# pan "0.2 0.8"
......@@ -48,7 +48,7 @@ d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
# crushbus 51 (range 16 3.5 "^54")
# pan 0.9
# room 0.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
......
......@@ -3,19 +3,19 @@ do
resetCycles
setcps (70/60/4)
let endSong = (someCyclesBy "<0!48 1!999>" (# silence))
d1 $ gF1 $ gM2 $ endSong
d1 $ gF1 $ gM1 $ endSong
$ "k . k(<<3 4> 3 3 [3 <5 8>]>,8)"
# "kicklinn"
# gain 1.2
# lpf 5000
d2 $ gM1 $ gF1 $ endSong -- Snare le fantome de la plage
d2 $ gM2 $ gF1 $ endSong -- Snare le fantome de la plage
$ "~ s ~ <s [s*2 <~ s*4>]>"
# "hh:11"
# att 0.3
# octersub 2
# rel 2
# gain 1.5
d3 $ gF1 $ gM1 $ endSong
d3 $ gF1 $ gM2 $ endSong
$ midiOn "^76" (ply 2)
$ whenmod 8 6 (juxBy 0.8 rev)
$ "hh*[8 <[8!7 16] [8!3 16] 8 [16 32 16]>]"
......@@ -43,7 +43,7 @@ d5 $ gF3 $ gM3 -- Marimba bulles de savon dans l'espace
# "FMRhodes1"
# pan 0.6
# room 0.4
d8 $ gF1 $ gM1 $ endSong -- Unconditional loving breaks
d8 $ gF1 $ gM2 $ endSong -- Unconditional loving breaks
$ midiOn "^92" (slice 8 "0 <1 [~ 1*2]> <2 [3 2]> <3 [2 3]> [4 5]*<2 2 4 8> [4 5]*2 6 7*<4 <8 [16 8]>>")
$ whenmod 4 3 (struct "t([4 4 8 4],8,<0 1>)" . chop 8) -- STUTTER
$ chop 8
......
......@@ -2,7 +2,7 @@
-- resetCycles
setcps (110/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
......@@ -15,7 +15,7 @@ d1 $ gF1 $ gMute2
]
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "[vec1_snare:5]"
......@@ -27,7 +27,7 @@ d3
$ "~ h ~ h ~ h <~ h> h"
# "h2ogmhh" # gain 1.1
# delay 0.2 # delayt "s" # delayfb 0.4
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
......@@ -69,7 +69,7 @@ d12 $ gF3 $ gM3
$ note ("<f f ef c>")
# "meth_bass:3/4" |- note 5
# cut 12
d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
......@@ -106,7 +106,7 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
......@@ -133,7 +133,7 @@ d12
# speed ("<0.2!3 0.5>")
# gain 1.4
# cut 12
d8 $ gF1 $ gM1 -- Break discret face à une telle idole
d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
......@@ -143,7 +143,7 @@ d8 $ gF1 $ gM1 -- Break discret face à une telle idole
$ loopAt 4
$ "jungle_breaks:12" # cut 8
# gain 1.4
d4 $ gF2 $ gM2
d4 $ gF2 $ gM3
-- $ mask "t(4,8)"
$ note "ef <ef gs ds <c f>> <af <g!3 gf>> f*<1!3 2> gs ef bf <ef!3 <ef f>>"
# s "bassWarsaw" |- note "[12,24]"
......@@ -160,14 +160,14 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
# dry 1.1
d8 $ gF1 $ gM1 $ "jungle_breaks:22" # cut 8
d8 $ gF1 $ gM2 $ "jungle_breaks:22" # cut 8
-- # note "<-0!12 -2 -2 -3 0>"
-- # gain 1.3
-- d3 $ gF1 $ gM1 -- Cymbales sol
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (80/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (fast 2 . struct "t*<1!4 2 1!3> t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
......@@ -15,7 +15,7 @@ d1 $ gF1 $ gMute2
]
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "[vec1_snare:5]"
......@@ -28,7 +28,7 @@ d3
$ "~ h ~ h ~ h <~ h> h"
# "h2ogmhh" # gain 1.1
# delay 0.2 # delayt "s" # delayfb 0.4
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ "~ clap:2"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
......@@ -68,7 +68,7 @@ d12 $ gF3 $ gM3
$ note ("<f f ef c>")
# "meth_bass:3/4" |- note 5
# cut 12
d8 $ gF1 $ gM1 -- DRUM N BASS AS A SERVICE
d8 $ gF1 $ gM2 -- DRUM N BASS AS A SERVICE
$ chop 8
$ midiOn "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^56" (
......@@ -104,7 +104,7 @@ d7 $ gF3 $ gM3
d8 $ loopAt 4 $ "break:5" # cut 8
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
......@@ -131,7 +131,7 @@ d12
# speed ("<0.2!3 0.5>")
# gain 1.4
# cut 12
d8 $ gF1 $ gM1 -- Break discret face à une telle idole
d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
......@@ -141,7 +141,7 @@ d8 $ gF1 $ gM1 -- Break discret face à une telle idole
$ loopAt 4
$ "jungle_breaks:12" # cut 8
# gain 1.4
d4 $ gF2 $ gM2
d4 $ gF2 $ gM3
-- $ mask "t(4,8)"
$ note "ef <ef gs ds <c f>> <af <g!3 gf>> f*<1!3 2> gs ef bf <ef!3 <ef f>>"
# s "bassWarsaw" |- note "[12,24]"
......@@ -158,14 +158,14 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
# dry 1.1
d8 $ gF1 $ gM1 $ "jungle_breaks:22" # cut 8
d8 $ gF1 $ gM2 $ "jungle_breaks:22" # cut 8
-- # note "<-0!12 -2 -2 -3 0>"
-- # gain 1.3
-- d3 $ gF1 $ gM1 -- Cymbales sol
......
do
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . k(<1!4 3!11 5 [5 8]>,8)" )
$ "kick:4"
d2 $ gF1 $ gM1 $ "~ cp ~ cp" # note "-4"
d3 $ gF1 $ gM1 $ "~ s ~ s ~ s ~ s*2"
d2 $ gF1 $ gM2 $ "~ cp ~ cp" # note "-4"
d3 $ gF1 $ gM2 $ "~ s ~ s ~ s ~ s*2"
# "vec1_snare:27"
# gain 1.4
d4 $ gF2 $ note (
......
......@@ -3,7 +3,7 @@ do
resetCycles
setcps (135/60/4)
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ midiOn "^42" (struct "t t*<1!3 <1!4 2!4>> t <t <t!4 [~ t]!4> t t*2>")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*[4 1]>")
$ stack [
......@@ -18,7 +18,7 @@ d1 $ gMute2 $ gF1 -- Kick solide
# delay 0
# gain 1
-- # cut 1
d2 $ gF1 $ gM1 -- Basic clap ma gueule
d2 $ gF1 $ gM2 -- Basic clap ma gueule
$ midiOn "^43" (<| "~ <~!8 cp!8> . cp*<1!3 2> <~!8 [~ cp]!8>" )
$ midiOff "^43" (<| "~ <cp!3 <~ [cp*<2 4>]>>")
$ "cp"
......@@ -26,7 +26,7 @@ d2 $ gF1 $ gM1 -- Basic clap ma gueule
# lpf 4000
# gain 1.3
# room 0.4 # sz 0.4 # dry 1.1
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
-- $ jux (rev)
-- $ whenmod 8 6 (mask "f t" . rev)
$ "h h*2 ~ h ~ h ~ <~!2 h h*2>"
......@@ -46,7 +46,7 @@ d10 $ gF3 -- Self-destruction riser
])
# "rhadamanthe_vocal"
# gain 1.3
d6 $ gF1 $ gM1 $ "~ ~ ~ 808cy:1"
d6 $ gF1 $ gM3 $ "~ ~ ~ 808cy:1"
d9 $ gF3
$ mask "<<t!4 f!4> t t f>"
$ note ("<d4/2!12>" + 5)
......@@ -57,7 +57,7 @@ d9 $ gF3
# octersubsub 0.5
# bandf 400
# gain 1.3
d4 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
d4 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^57" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
......@@ -96,7 +96,7 @@ d5 $ gF3 $ gM3 -- Piano lead acidule
-- # bandf 50 # bandq 0
-- # crushbus 51 (range 16 4.5 "^54")
# gain 1.8
d7 $ gF2 $ gMute3 -- Caring bass
d7 $ gF2 $ gM3 -- Caring bass
$ midiOn "^59" (|+ note "[0,12]")
$ midiOn "^91" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
......@@ -112,7 +112,7 @@ d7 $ gF2 $ gMute3 -- Caring bass
# bandq 0
# cut 7
# gain 1.4
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" ( -- Bouton Nassim <3
slice 8 "0 1 2 <3!3 ~> <4!3 ~> 5 <6!3 6*2 ~!3 6> 7*<1!3 <2 4>>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
......
......@@ -5,21 +5,21 @@ setcps (105/60/4)
do
-- d1 $ gF1 $ gM1 $ "kick:5"
-- d1 $ gF1 $ gM1 $ "kick:5"
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k [<~ k> k*<1 4>]>")
-- $ midiOn "^42" (<| "k k(<3 [3 5]>,8)")
$ "kick:5"
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ cp"
# "rampleP5:15"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "hh(5,8)"
# "rampleP5:16"
# cut 3
d4 $ gF2 $ gM1
d4 $ gF2 $ gM3
$ "90s_synatm:9"
# cut 4
d5 $ gF3 $ gM1 -- Semi-basse
d5 $ gF3 $ gM3 -- Semi-basse
$ superimpose (("h" ~>)
. (|+ note 12)
. (# cut 51))
......@@ -37,7 +37,7 @@ d10 $ gF3 $ note "f/4" -- Anges des intertubes
# pan 0.7
# cut 10
d4 $ gF2 $ gM1 -- Bass electrique
d4 $ gF2 $ gM3 -- Bass electrique
$ note (scale "aeolian" (
"3"
+ "<~!16 0!16> <4 1 <2 5> <3 6>>"
......
do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "k . ~!3 <~!3 k>")
$ "[kick:5,clubkick]"
# cut
1
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ fast 2
$ midiOn "^43" (<|"~ s ~ s*<1 2>" )
$ midiOff "^43" (<| "~ s/2")
$ "rampleM9:4"
# gain 0.9
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ fast 2
$ midiOn "^76" (fast 2)
$ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
......@@ -22,7 +22,7 @@ d3 $ gF1 $ gM1
# "rampleA4:9"
# cut 3
# pan 0.2
d4 $ gF2 $ gMute3
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "2 4")
$ note ("[c4@2 c5 ~ [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
# "bassWarsaw"
......@@ -48,7 +48,7 @@ d5 $ gF3 $ gM3
# room 0.2 # sz 0.9
# cut 5
|- note 12
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^60" (ply 2)
$ midiOn "^92" (ply 2)
$ chop 16
......
do
setcps (128/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
$ midiOff "^42" (<| "k . ~ k")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_snare" # gain 1.4
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (sometimes rev . stut 3 0.8 "s")
$ "~ h ~ h ~ h ~ h"
# "ho:2" # gain 1.1 # cut 3
......
do
setcps (160/60/4)
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k*<1 1 0 1 1 1 1 2> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[cpu,kick:5]"
# gain 0.8
# lpf 2000
d2 $ gF1 $ gM1 $ "~ sn ~ sn*<1!3 2>" # "snare:30" # lpf 4000
d3 $ gF1 $ gM1 $ "[~ hh]*4" # "h2ogmhh" # gain 0.8
d4 $ gF2 $ gMute3
d2 $ gF1 $ gM2 $ "~ sn ~ sn*<1!3 2>" # "snare:30" # lpf 4000
d3 $ gF1 $ gM2 $ "[~ hh]*4" # "h2ogmhh" # gain 0.8
d4 $ gF2 $ gM3
$ midiOn "^57" (struct "t(4,8)")
$ midiOn "^89" (off "e" id)
-- TODO Vary bassline, pas juste l'attente
......@@ -34,7 +34,7 @@ d5 $ gF3 $ gM3
# att 0.9
# rel 2
-- d6 $
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 2
$ chop 8
$ midiOff ("^60" + "^92") (mask "f(8,16)" . chop 8)
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
-- $ fast 2
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
......@@ -10,7 +10,7 @@ d1 $ gM2 $ gF1 -- Kick solide
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
d2
$ gM1 $ gF1 -- snare contretemps variable
$ gM2 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
......@@ -18,7 +18,7 @@ d2
# pan 0.65
# legato 0.22
-- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
......@@ -50,7 +50,7 @@ d6 $ gF2
$ "meth_bass:14"
# cut 6
d7
$ gM2 $ gF3 -- High carillon!
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
......@@ -62,7 +62,7 @@ d7
# pan 0.85
-- # midiG' "^83" 0 1.5
-- # gain 0.8
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff ("^56" + "^36") (mask "t(4,8,1)")
$ chop 16
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (110/60/4)
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
d1 $ gM1 $ gF1 -- Kick solide
$ superimpose ((# cut 11) -- Rumble
-- . (# att 0.2) . (# rel 2)
. (# gain 2.4)
......@@ -18,11 +18,11 @@ d1 $ gMute2 $ gF1 -- Kick solide
# lpf 400
# pan 1
# cut 1
d2 $ gF1 $ gM1 $ "~ . s*<1!3 2 1 2 1 2> ~"
d2 $ gF1 $ gM2 $ "~ . s*<1!3 2 1 2 1 2> ~"
# "snare:70"
# note "-14"
# room 0.14 # dry 1 # gain 1.7
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (<| "~ h ~ h ~ h*<1 2 2 1> ~ h*<1 1 2 <2 4>>")
$ midiOff "^44" (<| "h h ~!5 h*<1 2>" )
$ "h2ogmhh"
......@@ -65,7 +65,7 @@ d5 $ gF3 $ gM3
# lpf 1400
# lpq 0.4
# legato 0.5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (loopAt 0.5)
$ loopAt 2
$ midiOff "^60" (mask "t(8,16,1)" . chop 16)
......
......@@ -3,9 +3,9 @@ setcps (120/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ "[jazz,kick:5]*4"
d2 $ gF1 $ gM1 $ dMask
d2 $ gF1 $ gM2 $ dMask
$ fix (
(# lpf 800) .
(|* gain (slow 16 $ range 0.5 1.35 saw))
......@@ -13,7 +13,7 @@ d2 $ gF1 $ gM1 $ dMask
$ "~ cp ~ cp*<1!3 2>"
# "[h2ogmcy:1,cp]"
# gain 1
d3 $ gF1 $ gM1 $ dMask
d3 $ gF1 $ gM2 $ dMask
$ midiOff "^76" (mask "t(4,8,1)")
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "t t t t t t*<1 2 1 1> ~ t*<1!3 2>")
......@@ -51,7 +51,7 @@ d7 $ gF3 $ gM3
# room 0.3
# pan 0.3
# cut 7
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 16
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:45"))
......
do
-- resetCycles
setcps (127/60/4)
d1 $ gF1 $ gMute2 -- KICK: Sub thud, 4otf with flourish (NTO: deepens over time)
d1 $ gF1 $ gM1 -- KICK: Sub thud, 4otf with flourish (NTO: deepens over time)
$ midiOn "^41" (<| "k k k <k k*2 k [~ k]>") -- ON: 4otf + flourish variations
$ midiOff "^41" (<| "k ~ ~ <~!3 k>") -- OFF: sparse intro
$ sometimesBy "^29" ( -- ^29: ghost doubles (pre-drop energy)
......@@ -9,7 +9,7 @@ d1 $ gF1 $ gMute2 -- KICK: Sub thud, 4otf with flourish (NTO: deepens over time)
)
$ "[techno:0,jazz]"
# gain 1.5
d2 $ gF1 $ gM1 -- CLAP: Dry quiet snap, contretemps (enters late)
d2 $ gF1 $ gM2 -- CLAP: Dry quiet snap, contretemps (enters late)
-- NTO: peak=0.13 (QUIET!), att=10ms, dom=1292Hz, 0% sub, beats 1&3
$ midiOn "^42" (<| "cp ~ cp ~") -- ON: contretemps (NTO climax)
$ midiOff "^42" (<| "~ cp ~ <~ cp*<1 2>>") -- OFF: backbeat (our touch)
......@@ -21,7 +21,7 @@ d2 $ gF1 $ gM1 -- CLAP: Dry quiet snap, contretemps (enters late)
# room 0.1 # dry 1.5 -- very dry
# gain (slow 32 $ range 0.8 1.2 saw) -- 32-bar: clap grows into the mix
# pan 0.55
d3 $ gF1 $ gM1 -- OH/CY: Subtle offbeat hats, ^44 morphs to cymbal shimmer
d3 $ gF1 $ gM2 -- OH/CY: Subtle offbeat hats, ^44 morphs to cymbal shimmer
-- NTO: OH on upbeats, centroid brightens 4000→8400Hz. Breakdown = quiet cymbal.
$ midiOn "^43" (stut 3 0.6 "s") -- push: rolls
-- 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 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.
......@@ -68,7 +68,7 @@ d4 $ gF2 $ gM3 -- Claude's Gesture
# "bassWarsaw" # voice 0.05
# lpf (range 300 1800 "^32") # resonance 0.2
# gain 1.15
d6 $ gF1 $ gM2 -- ACID ARP: D minor, 4/16 square rises, ^59-driven
d6 $ gF1 $ gM3 -- ACID ARP: D minor, 4/16 square rises, ^59-driven
$ midiOn "^90" (arp "<up updown pinkyup speedupdown>")
$ off 0.125 ((|+ note 12) . (|* gain 0.6))
$ note (scale "aeolian" (run "<4 16>") + "<0 3 5 3>" + 2) -- +2 = D root
......@@ -115,7 +115,7 @@ d7 $ gF3 $ gM3 -- Voices FIXME order of voices? not sure which is what atm ahah
$ "desire"
# cut 7
# gain 1.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 2
$ midiOn "^92" ( -- Bouton Nassim <3
loopAt 0.5 . (# "breaks165")
......
......@@ -6,7 +6,7 @@ let gM = gMask . gMute
-- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Main Bbm/F vamp with Db/Ebm variation at the end
let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
d1 $ gF1 $ gMute2 -- KICK: Deep 4otf house kick
d1 $ gF1 $ gM1 -- KICK: Deep 4otf house kick
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k")
$ fix ((# att 0.01) . (# rel 0.5) . (# lpf 2000)) "kick:4"
......@@ -40,7 +40,7 @@ d5 $ gF3 $ gM3 $ loopAt 16 $ chop 8
# octersubbus 51 (range 0 2.9 "^34")
# hpf 1000
# gain 1.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 2 $ chop 8
$ midiOn "^56" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ "jungle_breaks:74"
......
......@@ -2,14 +2,14 @@ do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k ~ ~ <~!3 k>. k ~ <~ k> <k ~>")-- RubADub+adjustements
$ "[cpu,jazz]"
# lpf 5000
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ s*2" # "snare:44"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "drum:2*[16 <16 [16 8] 8 [16 32]>]"
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*8")
......
do
setcps (140/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k*4")
-- $ midiOff "^42" (<| "k . ~ k")
$ "kick:5"
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_claps" # n 10
# gain 1.8
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "[~ h*<1!3 <1 2 [4 2] 1?>>]*4"
# "h2ogmhh" # gain 1.4
# room 0.3
......@@ -40,7 +40,7 @@ d9 $ gF3 $ gM3
# crushbus 91 (range 16 3.5 "^19")
-- # room 0.3
# cut 9
d5 $ gF3 $ gMute3 -- PRAISE YOU VOICE.
d5 $ gF3 $ gM3 -- PRAISE YOU VOICE.
-- $ midiOn "^90" (ply 16)
-- $ midiOn "^58" (ply 4 . (# begin 0)
-- . (# end 0.115) -- A LONG LONG WAY
......@@ -52,7 +52,7 @@ d5 $ gF3 $ gMute3 -- PRAISE YOU VOICE.
# pan 0.3
# room 0.3
# gain 1.5
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
......
......@@ -2,7 +2,7 @@ do
setcps (160/60/4)
-- resetCycles
let gF4 = (# djfbus 4 (range 0.05 0.95 "^29"))
d1 $ gF4 $ gMute2
d1 $ gF4 $ gM1
$ superimpose (
(# "hardkick_rha") .
-- (# n "<14!3 15 <14 15>>")
......@@ -14,15 +14,15 @@ d1 $ gF4 $ gMute2
# note ("<0!4 -4!4>") -- Calage
-- # n "<14!3 15 <14 15>>" -- SALE
# gain 1.8
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
# "[cp]"
# gain 1.4
d3
$ gF1 $ gM1
$ gF1 $ gM2
$ "d(4,8,1)"
# "h2ogmhh"
# gain 2 # cut 3 -- Drill that Baby
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
......
......@@ -3,7 +3,7 @@ setcps (180/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute2 -- Kick variable
d1 $ gF $ gM1 -- Kick variable
$ midiOn "^41" (
# "hardkick:2" -- Kick GABBER
)
......@@ -84,7 +84,7 @@ once $ "c c " "phazer"
# gain 0.8
# cut 3
d6 $ gM2 $ gF3
d6 $ gM3 $ gF3
$ chop 4
-- $ slice 4 "<0 1 2 3>"
$ loopAt 4
......
......@@ -24,7 +24,7 @@ do
-- resetCycles
setcps (205/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOn "^30" (# "hardkick_rha")
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t*<1!3 2> ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
......@@ -37,7 +37,7 @@ d1 $ gF1 $ gMute2
]
# "[techno:1,jazz]"
# gain 1.4
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "[vec1_snare:5]"
......@@ -45,7 +45,7 @@ d2 $ gF1 $ gM1
# gain 1.3
# lpf 4000
# sustain 0.8
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ (0.125 ~>)
$ slow 2
$ midiOn "^76" (ply "1 <2!3 4>")
......@@ -72,7 +72,7 @@ d12
# speed ("<0.2!3 0.5>")
# gain 1.4
# cut 12
d8 $ gF1 $ gM1 -- Break discret face à une telle idole
d8 $ gF1 $ gM2 -- Break discret face à une telle idole
-- $ midiOn "^60" (mask "t(4,8,<1!3 0>)" . chop 8)
-- $ midiOn "^36" (id . (loopAt 0.5 . (# "jungle_breaks:130")))
$ midiOn "^60" (mask "t(16,32)" . ply "2 2 <4 8 16 16> 2")
......@@ -82,7 +82,7 @@ d8 $ gF1 $ gM1 -- Break discret face à une telle idole
$ loopAt 4
$ "jungle_breaks:12" # cut 8
# gain 1.4
d4 $ gF2 $ gM2
d4 $ gF2 $ gM3
-- $ mask "t(4,8)"
$ note "ef <ef gs ds <c f>> <af <g!3 gf>> f*<1!3 2> gs ef bf <ef!3 <ef f>>"
# s "bassWarsaw" |- note "[12,24]"
......@@ -99,14 +99,14 @@ d9 $ gF3 $ gM3 -- CHOEUR INTRO TODO ALIGNER MELODIQUEMENT
# room 0.4
# note "-2"
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "clap:2"
# hpf 2500
# room (slow 16 $ range 0 0.8 saw)
# dry 1.1
d8 $ gF1 $ gM1 $ "jungle_breaks:22" # cut 8
d8 $ gF1 $ gM2 $ "jungle_breaks:22" # cut 8
-- # note "<-0!12 -2 -2 -3 0>"
-- # gain 1.3
-- d3 $ gF1 $ gM1 -- Cymbales sol
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (140/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
......@@ -11,7 +11,7 @@ d1 $ gF1 $ gMute2
# lpf 3000 -- TODO Sound design this kick <3
# cut 1
# gain 1.6
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (fast 2)
$ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
$ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
......@@ -20,7 +20,7 @@ d2 $ gF1 $ gM1
# room 0.5 # dry 1.1
# delay "<0!12 0.6!4>"
# delayt 0.25
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
-- $ "h(3,8) h(3,8)"
# pan "0.2 0.8"
......@@ -41,7 +41,7 @@ d9 -- Bogdan the Grime sample provider
# speed 0.92
-- # room 0.4
# gain 1.6
d8 $ gF1 $ gM1 -- Come on breaks!
d8 $ gF1 $ gM2 -- Come on breaks!
$ chop 8
$ midiOn "^60" (mask "t(4,8,1)" . chop 4)
$ midiOn "^92" (ply 4)
......@@ -53,7 +53,7 @@ d8 $ gF1 $ gM1 -- Come on breaks!
$ "jungle_breaks:26"
# cut 8
# gain 1.8
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
d4 $ gF2 $ gM3 -- Bassline aqualgorithmique
-- $ midiOn "^57" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
$ slow 2 $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
......@@ -113,7 +113,7 @@ d7 $ gM3 $ gF2
# crushbus 71 (range 16 1.7 "^55")
# panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))
# gain 1.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
......
......@@ -2,14 +2,14 @@
do
-- resetCycles
setcps (99/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[808bd:4,808bd:2]"
# gain 1.51
# lpf 2000
-- # cps ((range (99 - 20) (99 + 20) "^29") / 60/ 4) -- TODO CPS MAGIC??
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ whenmod 8 15 (# silence)
$ midiOn "^42" (# "vec1_snare:21")
$ "~ s [~!3 <~ s>] s*<1!7 2>"
......@@ -17,7 +17,7 @@ d2 $ gF1 $ gM1
# octersub 0.6
# "[snare:40,snare:421,bssnare:2]"
# gain "1 1 0.93 1"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ whenmod 8 15 (mask "t t t f")
$ "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")
......@@ -37,7 +37,7 @@ d5 $ gF3 $ gM3 $ chop 4
-- # n "<0!7 1>"
# cut 5
# crushbus 51 (range 16 3.5 "^54")
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8
......
do
setcps (102/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ fast 2
$ midiOn "^42" (<| "k k k k*<1 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "kick:5"
# gain 1.8
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ fast 2 $ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_snare" # gain 1.4
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "[~ h*<1!3 <1 2 [4 2] 1?>>]*4"
# "h2ogmhh" # gain 1.4
d4 $ gF2 $ gM3
......@@ -21,13 +21,13 @@ d4 $ gF2 $ gM3
# gain 1.7
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 1.2 "^33")
d7 $ gF3 $ gM1
d7 $ gF3 $ gM3
$ midiOn "^59" (slow 1 . slow 2 . slice 8 "0 1 2 3*<1 <2 4>> 4*2 5*2 [6 7]*<1 <2 4>> 7*4")
$ midiOn "^91" (slice 8 "0 1 2 3")
$ "praise:1/2"
# cut 7
# gain 1.4
d5 $ gF3 $ gMute3 -- PRAISE YOU VOICE
d5 $ gF3 $ gM3 -- PRAISE YOU VOICE
$ midiOn "^90" (ply 16)
$ midiOn "^58" (ply 4 . (# begin 0)
. (# end 0.115) -- A LONG LONG WAY
......@@ -37,7 +37,7 @@ d5 $ gF3 $ gMute3 -- PRAISE YOU VOICE
# pan 0.3
# room 0.3
# gain 1.3
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply "<2 2 4 2 4 4 8 [8 16]>")
$ midiOff "^60" (mask "t(4,8,1)" . chop 8)
$ loopAt 1
......
......@@ -4,7 +4,7 @@ do
let width = pF "width"
let fundamental = slow 4 $ "<gb3'maj db3'maj bb2'min bb2'maj>"
setcps (160/60/4)
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ fix (# bandf 300) "clubkick"
$ midiOff "^41" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
......@@ -12,12 +12,12 @@ d1 $ gF1 $ gMute2
$ "[jazz,clubkick]"
# cut 1
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^42" (<| "~ s ~ [s*<1 2> <~!7 [~ s]>]")
$ midiOff "^42" (<| "~ s")
$ "snare:45"
# "jazz:4" # gain 1.3
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOff "^43" (
(<| "h(3,8)") . (# "jbk_kick:43")
. (# room 0.2) . (# sz 0.4)
......@@ -65,7 +65,7 @@ d7 $ gF3 $ gM3 -- FIXME ACID WEIRD NOT GOOD
-- FIXME(#54) d7 3rd+ effect: the grid gives d7 B7 + C7. Fold ^19 in via gSel rather than borrowing a column.
-- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^19 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d7's own control.
-- # width (range 0 5 "^19")
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ
$ midiOn ("^56" - "^92") ((loopAt 2) . (|* gain 1.1) . (# "jungle_breaks:30")) -- Clochettes?
......
......@@ -4,7 +4,7 @@ do
-- resetCycles
setcps (84/60/4)
d1
$ gF1 $ gMute2
$ gF1 $ gM1
-- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")#
$ midiOn "^30" (# "jazz:0")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......@@ -14,14 +14,14 @@ d1
-- # cut 1
# gain 2
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s*<1!3 <2 [4 2]>>")
$ midiOff "^43" (<| "~ . s*<1!3 2> ~")
$ "[realclaps:0,snare:56]"
-- # "h2ogmcp"
-- # gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
# gain 1.2
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "~ d ~ d*<1 2 2 1> ~ d ~ d"
# "h2ogmhh"
# hpf 7000
......@@ -56,7 +56,7 @@ d9 $ gF3 $ gM3
d7 $ gF3 $ gM3
$ note "[ef fs bf ef4]" # "FMRhodes1"
d8 $ gF1
$ gM1
$ gM2
$ midiOn "^92" (ply "<2 2 2 <4 8>>")
$ midiOff "^60" (mask "t(8,16,1)" . chop 16)
$ chop 8
......
......@@ -2,29 +2,29 @@
do
setcps (155/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gMute2 -- Kick resolu
d1 $ gF1 $ gM1 -- Kick resolu
$ midiOn "^42" (<| "t t t*<1!3 2> <t t*2 t t*4>")
$ midiOff "^42" (<| "t . ~ t ~ ~")
$ "[rampleA0:1,jazz]"
# gain 1.6
# cpsbus 1 (155/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
$ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
$ "[snare:38,snare:39]"
# gain 1.2
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ "dr*<8!3 16>"
# "h2ogmhh" # cut 3
# gain 0.85
d8 $ gF1 $ gM1 $ chop 16 -- Breaks-in-a-box' (patent pending)
d8 $ gF1 $ gM2 $ chop 16 -- Breaks-in-a-box' (patent pending)
$ loopAt 1
$ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
-- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
$ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
$ "jungle_breaks:79" -- Arguably not very drum-n-bass
d4 $ gF2 $ gMute3 -- Ligne directrice: P-U-N-K
d4 $ gF2 $ gM3 -- Ligne directrice: P-U-N-K
$ midiOn "^89" (ply 2)
$ midiOn "^57" (chop 2)
$ chop 4
......@@ -34,7 +34,7 @@ d4 $ gF2 $ gMute3 -- Ligne directrice: P-U-N-K
# legato (range 0.42 1 "^33")
# crushbus 41 (range 16 1.5 "^53")
# room 0.2 # dry 1.9 # sz 0.6
d5 $ gF3 $ gMute3
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "2 <1 4>")
$ midiOn "^58" (
chop "<4 4 8 16>"
......@@ -52,7 +52,7 @@ d6 $ gF3
# "meth_bass:3"
# cut 6
# hpf 2000
d9 $ gF3 $ gMute3 -- Violoncelle Manouche punko-magique
d9 $ gF3 $ gM3 -- Violoncelle Manouche punko-magique
-- $ chop "<4 4 8 16>"
$ struct "t(<3!3 5>,8,<0!7 1>)"
$ note (
......@@ -63,7 +63,7 @@ d9 $ gF3 $ gMute3 -- Violoncelle Manouche punko-magique
# cut 9
# legato 0.5
# pan 0.2
d11 $ gF3 $ gMute3 -- Anges melodiques
d11 $ gF3 $ gM3 -- Anges melodiques
-- $ struct "t([5 <3!3 5>],8)"
$ note "<e <a a e6 e6> <g c6 a6 c6> b5>"
# "moogBass"
......
do
setcps (150/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
# lpf 1200
# gain 1
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
$ midiOff "^43" (<| "~ s")
......@@ -16,7 +16,7 @@ d2 $ gF1 $ gM1
# octersubsub 0
# pan 0.25
-- # lpf 3000
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^76" (ply 2)
$ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)")
$ midiOff ("^44"+"^76") ((mask "t(<8!3 [8!3 4]>,16,2)"))
......@@ -40,7 +40,7 @@ d4 $ gF2 $ gM3
# squizbus 44 (range 0 1.5 "^33")
# crushbus 41 (range 16 2.5 "^53")
# gain 1
d5 $ gF3 $ gMute3
d5 $ gF3 $ gM3
$ midiOff "^58" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
$ midiOn "^58" (
slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" .
......@@ -77,7 +77,7 @@ d7 $ gM3 $ gF3
# octersubbus 71 (range 0 3 "^55")
# octersubsubbus 73 (range 0 3 "^55")
# cut 7
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ chop 16
$ loopAt 2
......
do
-- resetCycles
setcps (124/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^41" (<| "k k k <k [<~!3 k> k]>")
$ midiOff "^41" (<| "k . <[~ k] k(<3 5>,8)>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "kick:5"
# gain 1.7
# lpf 400
d2 $ gF1 $ gM1 -- Clap Technocratique
d2 $ gF1 $ gM2 -- Clap Technocratique
$ midiOn "^42" (mask "[t <f t!3>] [t <f t>]" . fast 2)
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_claps" # n 10
# gain 1.3
# lpf 2000
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^43" (<| "[~ h*<1!3 <1 2 [4 2] 1?>>]*4" )
$ midiOff "^43" (<| "h(3,8) h([3 1 3],8)")
$ "h2ogmhh"
......@@ -71,7 +71,7 @@ d10 $ gF3 $ gM3 -- Menace
# legato 2
# octersub 1
# cut 9
d8 $ gF1 $ gM1 -- La Boite à breaks de ParVagues <3
d8 $ gF1 $ gM2 -- La Boite à breaks de ParVagues <3
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
......
do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . ~. k ~ ~ ")
$ "[kick:4]"
# gain 1.2
# lpf 400
# cps ((range 60 180 "^29")/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s")
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM1$ "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
d6 $ "playa" # cut 6
d8 $ slice 32 0 $ "playa" # cut 8
......
......@@ -3,17 +3,17 @@ do
setcps (170/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ "[kick:4]"
# gain 1.2
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]"
# gain 1.45
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
......@@ -63,7 +63,7 @@ d6
-- # sustain 2
-- # att (range 0.01 0.13 "^55")
-- # chorus 2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ loopAt 2
$ midiOn "^92" ( -- Bouton Nassim <3
loopAt 0.5 . (# "breaks165")
......
......@@ -3,7 +3,7 @@ do
setcps (160/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
$ "[bskick,jazz]"
# gain 1.2
......
......@@ -2,7 +2,7 @@ do
-- resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (struct "t t t*<1!6 2 1> t*<1!7 2>")
$ midiOff "^42" (struct "t . ~ t ~ <~!3 t*<2 [2 1] [4 2] [2 4]>>")
$ stack [
......@@ -15,12 +15,12 @@ d1 $ gF1 $ gM2
# "[techno:1,jazz]"
# gain 1.4
# cps ((range 75 165 "^29")/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<|"~ s ~ s*<1 2>")
$ midiOff "^43" (<| "~ s")
$ "[snare:24]"
# gain 1.4
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ "hh(3,8) hh(3,8)" # "h2ogmsn" # n "<0!6 1 2>"
# legato "<1!16 0.5!16>"
d4 $ gF2 $ gM3 $ loopAt 4
......@@ -42,7 +42,7 @@ d5 $ gF3 $ gM3
# modIndex (range 0 32 "^54")
# gain 1.7
# delay 0.4 # delayfb 0.5 # delayt 0.125
d7 $ gM1 $ gF1
d7 $ gM3 $ gF1
-- $ midiOn rev
$ chop 16
-- $ loopAt 4
......@@ -52,7 +52,7 @@ d7 $ gM1 $ gF1
# gain 1.5
# squizbus 71 (range 0 4 "^35")
# room 0.4
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ chop 4 $ loopAt 2
$ slice 8 "0 1 2 3 4 5 6 <7 6 7*2 7*4>"
$ "jungle_breaks:62"
......
do
setcps (160/60/4)
-- resetCycles
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ "k k k <k k*2 k [~ k*<1 1 <1 2> <2 4>>]>"
# "hardkick_rha" # n "<14!3 15 <14 15>>" -- SALE
# gain 1.2
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
d2 $ gF1 $ gM2 $ "~ s ~ [s*<1!3 2> ~]"
# "[cp]"
# gain 1.4
d3
$ gF1 $ gM1
$ gF1 $ gM2
$ "d(3,8) d(<3!3 [8@3 3]>,8)"
# "h2ogmsn"
# gain 2 # cut 3 -- Drill that Baby
......@@ -49,7 +49,7 @@ d12 $ gM3 $ gF3
-- # tremdp 0.8
-- # tremr "<2 4 4 <8 16>>"
# gain 1.2
d7 $ gF1 $ gM1 -- SCRATCH
d7 $ gF1 $ gM3 -- SCRATCH
$ midiOn "^91" (ply "2 4 <8 8 4 16>")
$ midiOn "^55" (# n 15)
$ midiOn "^59" (# n 15)
......@@ -59,7 +59,7 @@ d7 $ gF1 $ gM1 -- SCRATCH
# cut 7
# pan (slow 16 $ range 0.9 0.6 saw)
# gain 1.2
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn "^92" (ply 4)
$ loopAt 2
$ chop 8
......
......@@ -26,7 +26,7 @@
do
resetCycles
setcps (140/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ mask "<f!8 t!56>" -- Mask regulier
$ midiOn "^42" (<| "k k k <k k*2 [~ k] k*[2 <2 4>]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
......@@ -34,7 +34,7 @@ d1 $ gF1 $ gM2
$ "[808bd:4,808bd:2]"
# gain 1.3
# lpf 2000
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ whenmod 8 15 (# silence)
-- $ midiOn "^42" (# "[cp]") -- Un bon vieux clap
-- $ midiOn "^42" (# "[vec1_snare:33]") -- Un snare vener'
......@@ -46,12 +46,12 @@ d2 $ gF1 $ gM1
# octersub 0.6
-- # "vec1_snare:1"
-- # gain "1 1 0.93 1"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
-- $ whenmod 8 15 (mask "t t t f")
$ midiOn "^42" (mask "t(4,8,1)")-- Le snare s'est fait... kick?!
$ "hh*[8 <16!6 8!2> <8!7 16>]"
# "h2ogmhh:3" # cut 3 # gain (1.2 * "1 1 0.9 1 0.9 0.85 0.9 1")
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
-- $ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8
......
......@@ -3,7 +3,7 @@ do
setcps (90/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOff "^42" (<| "k k k k*<1!3 2>")
$ midiOn "^42" (<| "k . ~ k ~ ~ ")
-- $ "[bskick,kicklinn:2]"
......@@ -11,12 +11,12 @@ d1 $ gF1 $ gM2 -- Kick
# lpf 3000
# att 0.01 # rel 0.5
# gain 1.1
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
$ "[snare:39]" # note "-2" # lpf 4000
# gain 1.45
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
......@@ -31,7 +31,7 @@ d4 $ gF2 $ gM3
# crushbus 41 (range 16 3.5 "^53")
# octerbus 42 (range 0 0.85 "^33")
# octersubbus 43 (range 0 1.5 "^33")
d8 $ gF1 $ gM1 $ chop 8
d8 $ gF1 $ gM2 $ chop 8
$ midiOn "^60" (mask "t(4,8,1)") $ chop 8
-- TODO PR#EMIER JET
$ loopAt 2 $ "jungle_breaks:30" # cut 8
......
do
-- resetCycles
setcps (120/60/4)
d1 $ gM2 $ gF1
d1 $ gM1 $ gF1
$ whenmod 8 6 (mask "f")
$ midiOn "^42" (<| "k k k k*<1!3 2>")
$ midiOff "^42" (<| "k ~ ~ <~ [~ k]>" )
$ "[808bd:1,jazz,kick:4]"
# gain (1.45 * "1!7 0.9")
d2 $ gM1 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>"
d2 $ gM2 $ gF1 $ "~ s <[~ <~!4 s!12>]> s*<1!3 2>"
# "snare:2"
# gain 1.5
# note "0 0 -2 0"
# room 0.2 # dry 1.1
# sz 0.8
d3 $ gM1 $ gF1
d3 $ gM2 $ gF1
$ "<~ h> h ~ h ~ h*<1 2 2 <1 [4 2]>> ~ h"
# "h2ogmhh:4" # gain 1.5
d4 $ gM3 $ gF2
......@@ -45,7 +45,7 @@ d5 $ gM3 $ gF3
# gain 1.1
-- # octersub 0.5
-- d5 $ gM3 $ gF3
d8 $ gM1 $ gF2
d8 $ gM2 $ gF2
$ chop 8
$ midiOn "^60" (mask "t(4,8,1)" . chop 8)
$ midiOn "^36" (loopAt 1 . (# "jungle_breaks:23"))
......@@ -60,7 +60,7 @@ d8 $ gM1 $ gF2
$ loopAt 2
$ "trance_loops:3"
# gain 2
d9 $ gF2 $ gM2
d9 $ gF2 $ gM3
$ note "<g4!3 <c5 bf4>>"
# "moog:1"
# octerbus 91 (range 0 0.8 "^18")
......
do
setcps (133/60/4)
-- resetCycles
d1 $ gF1 $ gM2 -- Kick
d1 $ gF1 $ gM1 -- Kick
$ midiOn "^42" (<| "k k k <k <[~ k] k*<2 [4 2]>>>")
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^30" (|> "hardkick_rha:4")
......@@ -9,12 +9,12 @@ d1 $ gF1 $ gM2 -- Kick
# gain 1.6
# lpf 400
# cps ((range 100 166 "^29")/60/4)
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOn "^43" (<| "~ s ~ s ~ s ~ s")
$ midiOff "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "vec1_snare:24"
# gain 1.3
d3 $ gF1 $ gM1$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
d3 $ gF1 $ gM2$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11"
-- d4 $ gF2 $ gM3 -- WAP BASS
-- $ midiOn "^57" (# n 1)
-- $ loopAt 2
......@@ -50,13 +50,13 @@ d6 $ gF3 $ gM3
$ "fx_gameboy:1"
# note "<0 1 6 12>"
# gain 0.8
d7 $ gF1 $ gM1 --Les WAP DRUMS
d7 $ gF1 $ gM3 --Les WAP DRUMS
$ midiOff "^60" (mask "t(4,8,1)" . chop 8)
$ midiOn "^91" (ply "2 <2 4>")
$ loopAt 2 $ chop 8
$ "wap" # n "<3!4 4!4 5!4 6!4>"
# cut 7 # gain 1.8
d8 $ gF1 $ gM1 -- La stack de breaks
d8 $ gF1 $ gM2 -- La stack de breaks
$ midiOff "^60" (mask "t(4,8,1)" . chop 8 ) -- BREAK JUNGLE
$ midiOn "^92" (ply 2) -- BREAK JUNGLE
$ midiOn "^36" (# 45) -- BREAK ORLEANS
......
......@@ -3,7 +3,7 @@ do
-- resetCycles
setcps (90/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
-- $ midiOff "^42" (<| "k . k(3,8)")
-- $ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ "k . k" # "cpu"
......@@ -11,28 +11,28 @@ d1 $ gF1 $ gMute2
# lpf 3000 -- TODO Sound design this kick <3
# cut 1
# gain 1.5
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ sn ~ [sn*<1 2>]"
# "snare:42"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ whenmod 4 3 (fast 2)
$ "dr*[8 <8 <16 [16 32]>>]" # gain 0.8
d4 $ gM2 $ gF2
d4 $ gM3 $ gF2
$ "giorgio_syn:2/2"
# crushbus 41 (range 16 2.5 "^53")
# cut 4
# gain 0.8
d8 $ gF1 $ gM1 $ loopAt 2
d8 $ gF1 $ gM2 $ loopAt 2
$ splice 8 (run "8 <8 16>")
-- $ midiOn
$ "jungle_breaks:20" # cut 8
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
$ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
$ "[snare:24,snare:51]"
# gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>"
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
-- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
$ "h(3,8) h(3,8)" # pan "0.2 0.8"
# drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
......@@ -50,7 +50,7 @@ d9 -- Bogdan the Grime sample provider
# speed 0.92
-- # room 0.4
# gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
d8 $ gF1 $ gM2 -- Come on breaks!
$ chop 8
$ midiOn "^92" (ply 4)
$ midiOn "^36" (loopAt 2 . (# n "<61>")) --
......@@ -61,7 +61,7 @@ d8 $ gF1 $ gM1 -- Come on breaks!
$ "jungle_breaks:26"
# cut 8
# gain 0.9
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
d4 $ gF2 $ gM3 -- Bassline aqualgorithmique
$ midiOn "^81" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
$ slow 2 $ note (
-- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
......@@ -107,7 +107,7 @@ d10 $ gF2 $ gM3 -- Menace
# crushbus 101 (range 16 3.5 "^14")
# legato 2
# cut 9
d7 $ gM2 $ gF2
d7 $ gM3 $ gF2
-- $ ply 2
$ midiOn "^59" (# speed "-0.25")
$ midiOn "^91" (struct "t*<8!3 [8 4]>")
......
......@@ -7,15 +7,15 @@ resetCycles
do
setcps(140/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k <k k(3,8) k [k k*2]>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[jazz,kick:5]"
d2 $ gF1 $ gM1 $ "~ ~ ~ <~ s> . s" # "snare:4"
d3 $ gF1 $ gM1 $ "d(<3!12 2!4>,8) d(<3!3 5>,8)" # "ho" # gain 0.8 # att 0.1 # rel 2
d2 $ gF1 $ gM2 $ "~ ~ ~ <~ s> . s" # "snare:4"
d3 $ gF1 $ gM2 $ "d(<3!12 2!4>,8) d(<3!3 5>,8)" # "ho" # gain 0.8 # att 0.1 # rel 2
d4 $ gF2 $ gM3 $ note "<b2 d3 cs3 fs3>" # "bassWarsaw"
# crushbus 41 (range 16 3.6 "^53")
d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
d8 $ gF1 $ gM2 -- JazzyBelle JazzyBreak
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
-- $ slice 4 "0 1*<1 2 4> 2? 3*<1!3 2>"
$ chop 16
......
......@@ -2,7 +2,7 @@
do
-- resetCycles
setcps (120/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k . k(<2 2 [2 4] <3 4 3 5>>,8)")
$ midiOff "^42" (<| "k . ~ k ~ <~!3 k*2>")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
......@@ -10,7 +10,7 @@ d1 $ gF1 $ gM2
$ "[jazz,kick:4]"
# gain 1.1
# lpf 300
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
......@@ -18,7 +18,7 @@ d2 $ gF1 $ gM1
# lpf 4800
# gain 1.3
# cut 2
d3 $ gF1 $ gM1 -- Hihat
d3 $ gF1 $ gM2 -- Hihat
$ midiOn "^76" (ply "2 <2!3 4>")
$ midiOn "^44" (ply "2 <2!3 4>")
$ "~ h ~ h ~ h*<1 2 1 <1 [4 2]>> ~ h*<1 <1 1 0 2> 1 <2 4>>"
......@@ -30,7 +30,7 @@ d3 $ gF1 $ gM1 -- Hihat
# dry 1.3
# gain 2.9
# pan 0.3
d8 $ gF1 $ gM1 -- BROKEN BEAT | BREAKS STACK
d8 $ gF1 $ gM2 -- BROKEN BEAT | BREAKS STACK
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
$ loopAt 2 $ chop 16
$ midiOn "^92" (ply "<2 [2 4]>")
......@@ -43,7 +43,7 @@ d8 $ gF1 $ gM1 -- BROKEN BEAT | BREAKS STACK
# pan 0.7
# gain 1.45
# lpf 4000
d7 $ gF1 $ gM1
d7 $ gF1 $ gM3
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
-- $ jux (rev . (# cut 71))
-- $ slice 16 (run 8)
......@@ -60,7 +60,7 @@ d10 -- FIXME Other RISER
$ "risers:8"
# cut 10
# hpf 2000
d11 $ gF1 $ gM1
d11 $ gF1 $ gM3
$ "~ h ~ [h*2 ~]"
# "h2ogmcy" # n "<1 1 1 1 2 2 3 2 3 4 3 2>"
# gain 1.2
......
......@@ -2,14 +2,14 @@ resetCycles
do
setcps (120/60/4)
d1 $ gF1 $ gMute2
d1 $ gF1 $ gM1
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
$ midiOn "^42" (<| "k k <k!3 [k*2 ~]> k")
$ "kick:5"
-- # room 0.2 # dry 1.1
-- # gain "<1 0.8>"
-- # cut 1
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ <rampleO10:2!3 cp>"
-- $ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
-- $ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
......@@ -20,7 +20,7 @@ d2 $ gF1 $ gM1
d3
$ midiOn "^44" (stut 4 "0.8" "e")
$ n ("~ 1 ~ 2 ~ 2 ~ <1!3 2>") # "rampleS24" # cut 3
d4 $ gF2 $ gMute2 $ note (
d4 $ gF2 $ gM3 $ note (
"b4(<3 5 3 [3 5]>,8) <a5 <ef5 a4>>(<1!3 3>,8,<0 1>)"
- 24
-- - 1
......@@ -30,7 +30,7 @@ d4 $ gF2 $ gMute2 $ note (
-- # octersubbus 41 (range 0 2 "^53")
-- # crushbus 42 (range 16 2 "^33")
# att 0.2
d4 $ gF2 $ gM1 -- BASSE SIMPLE
d4 $ gF2 $ gM3 -- BASSE SIMPLE
$ note "~ b ~ b ~ b ~ [c b]"
# octave 4
# n ("<1!4 2!4>")
......@@ -70,7 +70,7 @@ d5 -- ARPEGIATEUR
-- # speed 0.85
-- # room 0.4
-- # gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
d8 $ gF1 $ gM2 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt (2/3) . (# n "<74>"))
$ midiOn "^92" (ply 4)
......
......@@ -5,7 +5,7 @@ let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^74" (mask "f*16"))
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gF $ gMute1
d1 $ gF $ gM1
-- $ fast 2
$ midiOn "^42" (struct "t t t t")
-- $ midiOff "^42" (struct "t . ~ t ~ ~")
......@@ -39,7 +39,7 @@ d8 $ gF3 $ gMute -- MARINE BREAKS
$ "jungle_breaks:1"
# cut 8
# midiG' "^84" 0 1.3
d8 $ gF3 $ gMute1 -- MARINE BREAKS
d8 $ gF3 $ gM2 -- MARINE BREAKS
$ midiOn "^73" (mask "f*16") -- FIXME DUPLICATE
$ midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")
$ midiOn "^92" (off "e" id)
......
......@@ -11,7 +11,7 @@ let modIndex = pF "modIndex"
-- # room 0.3 # dry 1.9
-- # sz 0.8
-- # pan 0.7
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
-- $ mask "<f!16 t!4 f!8 t!36>"
$ midiOn "^42" (<| "k k*<1 1 2 <1 4>> k k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ <k!12 ~!4> ~ <~!7 k>")
......@@ -21,7 +21,7 @@ d1 $ gF1 $ gM2
]
# gain 1.7
-- # room 0.2
d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
d2 $ gM2 $ gF1 -- Snare contretemps DNB Techno-compatible
$ fix ( (# gain "<0!32 0!28 2!4>") . (ply "<1!7 2>") .(# speed 1.7) . (# lpf 2000)) "nass"
$ midiOff "^43" (<| "~ s ~ s*<1 <2 4>>")
$ midiOn "^43" (<| "~ s")
......@@ -29,7 +29,7 @@ d2 $ gM1 $ gF1 -- Snare contretemps DNB Techno-compatible
$ "[snare:45]"
-- # note "<0!6 -1 -2>"
# gain 1.44
d3 $ gM1 $ gF1-- DrumRoll
d3 $ gM2 $ gF1-- DrumRoll
-- $ mask "<f!20 t!44>"
$ whenmod 8 "<7!4 6!3 4>" (juxBy 0.93 rev)
$ whenmod 4 2 (rarely (ply 2))
......@@ -77,7 +77,7 @@ d10 $ gF3 $ gM3 -- Mad organ
-- # pan 0.9
-- # hpf (slow 32 $ range 0 2500 sine)
-- # room (slow 16 $ range 0 0.4 perlin)
d8 $ gF1 $ gM1
d8 $ gF1 $ gM2
$ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
$ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
......@@ -127,7 +127,7 @@ d12 $ gF3 $ gM3 -- GLITCH DNB
# note "-7"
# dry 1
# gain 0.8
d6 $ gF1 $ gM1-- Claps occasionnels
d6 $ gF1 $ gM3-- Claps occasionnels
$ mask "<f!24 t!4 f!36>"
$ "[~ cp]*<1 1 <1 2> <[2 <1 4>]>>"
# "cp"
......
......@@ -44,7 +44,7 @@ d5 $ gF3 -- Accusation juste
# midiG' "^82" 0 0.8
# pan 0.8
# cut 5
d6 $ gM $ gM2 -- Sirènes lointaines
d6 $ gM $ gM3 -- Sirènes lointaines
$ whenmod 8 0 (>| note "<a c6 d6 e6> <g a5 c6 d6> <f g a5 c6> . ~ ~ <e f g e6> <d e f f6>")
$ note "a g f . ~ ~ e <d!3 f>"
# "superfork"
......@@ -64,7 +64,7 @@ d8 $ gF2 -- Crystal de sel
# delayt 0.125
# delayfb 0.9
# cut 8
d9 $ gF1 $ gM $ gM2 -- Break clap your hands sous-marin
d9 $ gF1 $ gM $ gM3 -- Break clap your hands sous-marin
$ midiOn "^92" (ply "[1 <2 4 [4 8 4] [8 8 4 8]>]")
$ chop 16
$ loopAt 2
......
......@@ -2,15 +2,15 @@ resetCycles
do
setcps (85/60/4)
d1 $ gF1 $ gM2
d1 $ gF1 $ gM1
$ mask "<f!16 t!48>"
$ "k*<1!4 2 1!3> ~ . ~ k ~ <~ k ~ <~ k>>"
# "[reverbkick,jazz]"
# gain 0.86
d2 $ gF1 $ gM1
d2 $ gF1 $ gM2
$ "~ s ~ [s*<1 2 1 [4 2]> ~]" # "[snare:1]"
# gain 0.95
d3 $ gF1 $ gM1
d3 $ gF1 $ gM2
$ mask "<f!4 t!28>"
$ fast "1 <1 <2 [<2 [4 8]> <4 [4 . 16 8]>]>>"
$ "drum:2*8"
......@@ -28,7 +28,7 @@ d5 $ gF3 $ gM3
# cut 4
d4 $ note ("<a4 c5 <d5 f5> <e5!3 g5>>" - 24)
# "bassWarsaw"
d6 $ gF1 $ gM1-- SUB accompagnateurs
d6 $ gF1 $ gM3-- SUB accompagnateurs
$ mask "<f!8 f f t t t!50>"
$ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
# "[808bd:1,wobble]"
......@@ -38,7 +38,7 @@ d6 $ gF1 $ gM1-- SUB accompagnateurs
# sz 0.9
# dry 1
# pan 0.33
d6 $ gF1 $ gM1
d6 $ gF1 $ gM3
$ whenmod 64 32 (
(|* gain (slow 32 $ range 4 1 saw))
. mask "t!3 <t!4 f t f t> . <f t [t f] t> t"
......@@ -49,4 +49,4 @@ d6 $ gF1 $ gM1
$ loopAt 1
$ "break:11"
# gain 0.8
d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8 $ "jungle_breaks:125" # cut 8
d8 $ gF1 $ gM2 $ loopAt 2 $ chop 8 $ "jungle_breaks:125" # cut 8
......@@ -29,7 +29,7 @@ d2 $ gMute
# sz 0.4
# gain 0.8
# midiG' "^79" 0 1.2
d3 $ f1l $ gMute2
d3 $ f1l $ gM2
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply "<[2 2 4 2]!3 [2!3 4]>" . (# room 0.2))
$ ply "1 . <1!6 2 2> <2!3 [2 4]>"
......@@ -94,7 +94,7 @@ d7 $ f2 -- LEADS
. (|* gain (range 0 0.8 "^18"))
) "pad"
$ fix (
(# "superpiano") . gMute2
(# "superpiano") . gM3
. whenmod 64 16 (
whenmod 4 3 (arp "up" . ply "1!3 2") -- Second hit et montée
)
......@@ -108,7 +108,7 @@ d7 $ f2 -- LEADS
) "piano"
$ "[pad,piano]"
# midiG' "^82" 0 0.9
d8 $ f1 $ gMute2
d8 $ f1 $ gM2
$ chop 8
$ midiOn ("^60"+"^92") (slice 8 "0 <1 [1 1]!2 1> [0 ~] <3 3*<2 4>>") -- DARK
$ midiOff ("^60"+"^92") (slice 8 "0 1 <2 ~> <3!3 ~>") -- Light side
......
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