Commit ebed78f3 by PLN (Algolia)

save: Opal <3

parent ee0fbd2c
......@@ -2,6 +2,7 @@
-- It's About Time [Take1?]
-- Burn this book
-- SlowMo: Orchestrated, ready to record :)
-- Suns of Gold <3
# Study
......@@ -14,6 +15,8 @@ soir noir
## BOGDAN
-- Bogdan arrive
## RAPH
-- Euphorie Solitaire
-- JeuDrill :)
- Ragga la hierarchie :D
- HAN!
......@@ -40,13 +43,32 @@ soir noir
# Work in progress
## `24Facons` to love music
### January Cold Love
### August August
-- Fabuleux 🎇
-- Le Bruit des Bots [WIP]
## July Not Sure If Fry
-- Nouveau Punk ✊
-- Blue Gold
-- Blue Burn
### June Summer of Bike Love
-- Suns of Gold
-- Golden Drum
-- Force Motrice
-- Bruler Franchement [WIP]
### Winter&Spring Cold Love
-- PERMANENCE
-- Trois Cafes :)
-- Disparition Elmo 🇬🇵
-- Infiltrations </3
-- Froid de Minuit ❄️❄️❄️
-- Infusion Basse 🍵
-- Qui sait ? 🌇
-- Qui sait ? 🌇 [Ambient][WIP]
-- Suns of Gold <3
## Nouvelle Epoque 23
### **December Celebrations**
......@@ -791,22 +813,78 @@ Clameur? Brouillon?
- **Café Glaçé** 🥃🥃🥃
- Nuit agitée 🌃🌃🌃
## Algolia FDLM2024
### Intro
- *Lendemain Divin* 🛏️
### 2022 throwback 🕵️
- *Contre Visite*
- *Nightly Repair* 🌆
- *Invoque l'Été* 🌇
### 2024 new thingies
- Venons Ensemble 🧑‍🧑‍🧒
- JeuDrill 🌠
- PERMANENCE ♾️♾️
- Force motrice 🌬️🌬️🌬️🌬️
- *Café Tiède* ☕🥃☕
- *Café Bouillant* ☕☕☕
- *Café Glaçé* 🥃🥃🥃
- *Salut Nu* 👋💛🧡💛👋
- *Nuit agitée* 🌃🎆🌃🎆🌃🎆🌃
- **MauerPark** 🎻🌇🌄🌇🌄🌇🥨
## Sur le Toit <3
-- *Fabuleux* 🎆
-- *Blue Gold* 🌠
-- *Haunted House*
-- Force Motrice
-- *Cafe Tiede*
-- Cafe Bouillant
-- Lendemain Divin (AddUp!)
-- Invoque l'été
-- Nuit agitée
-- L'été à MauerPark
-- Permanence :)
-- Encore: Blue Gold
...
# 2022 throwback 🕵️
- Contre Visite
- Empreinte du numerique?
- Nightly Repair ? 🌆
- Invoque l'Été 🌇
# 2024 new thingies
- Venons Ensemble 🧑‍🧑‍🧒
- JeuDrill 🌠
- PERMANENCE ♾️♾️ (ajouter elements?)
- Force motrice 🌬️🌬️🌬️🌬️
- Café Tiède ☕🥃☕
- Café Bouillant ☕☕☕
- Café Glaçé 🥃🥃🥃
- Salut Nu 👋💛🧡💛👋
- Nuit agitée 🌃🌃🌃🌃🌃🌃
- MauerPark 🎻🌄🌇🌇🌇🌄🥨
## Opal <3🦉
⠀⠀⢀⣤⣾⣿⣿⣿⣿⣿⣶⣤⡀⢀⣤⣶⣿⣿⣿⣿⣿⣷⣤⡀⠀⠀
⠀⣰⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣆⠀
⢠⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡄
⢸⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡇
⠀⣿⣿🦉🦉🦉 OPAL 2024 🦉🦉🦉⣿⣿⣿⠀
⠀⠘⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠃⠀
⠀⠀⠈⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠁⠀⠀
⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠙⢿⣿⣿⣿⣿⣿⣿⡿⠋⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠉⠻⣿⣿⠟⠉⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠈⠁⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
- _Intro_: *Fabuleux**
- Cafe Glacé
- Café **Bouillant**
- Cafe Tiède
- Force MOTRICE
- Alerte verte 💚
- Nouveau Punk
- Jeudrill
- Bain Bouillant
- **Haunted House**
- Blue Gold
- L'été à MauerPark
----
- _ _Bonus_ _: Contre Visite
- _Passation_: Lendemain Divin
resetCycles
once $ "dr"
do
......@@ -8,8 +10,10 @@ let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
let chorus = pF "chorus"
......@@ -18,7 +22,11 @@ let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"]
d1 $ gF $ gMute
-- Do Fa Do Do
-- Fa Fa Do Do
-- Sol Fa Do Do
-- Sol Fa Do Sol
d1 $ gF $ gMute2
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
......@@ -29,22 +37,23 @@ d1 $ gF $ gMute
d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
-- # midiG' "^79" 0 1.3
d3 $ gF $ gMute2
d3 $ gF $ gMute
$ midiOn "^76" (ply 2)
$ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9
d8 $ gF
d8 $ gF $ gM
$ chop 16
$ midiOn "^36" ((# "break:18") . loopAt 2)
$ midiOn "^56" ((# "jungle_breaks:45") . loopAt 2)
$ midiOn "^60" (mask "f . f(3,8)" . chop 8)
$ midiOn "^92" (ply 2)
$ loopAt 2
$ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>"
$ "break:9"
# cut 8
# gain 1.5
-- # midiG' "^84" 0 1.9
d4 $ gF2
# gain 1.2
d4 $ gF2 $ gMute3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
......@@ -61,141 +70,23 @@ d4 $ gF2
# room 0.1
# voice 0.8
# crushbus 41 (range 16 1.3 "^53")
# crushbus 42 (range 16 1.3 "^53")
# octerbus 42 (range 0 1.3 "^33")
# gain 1
d9
$ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
# "FMRhodes2"
# modIndex 0
# gain 1.3
d9 $ note ("0(3,8)" + (cat blues) + 12)
# "FMRhodes1"
d10 $ gF3 $ note ("c'maj'4" - 12 + cat blues) # "moogBass"
d10 $ gM3 $ gF3 $ note ("c'maj'4" - 12 + cat blues) # "moogBass"
# pan 0.8
# room 0.2
# chorus (range 0 2 "^29")
# sz 0.6 # dry 2
# room 0.3 # dry 0.9
# pan 0.2
d11 -- DEBUG CUE Voice
$ ("0.125" <~)
$ off "h" ((|* gain 0.95) . (# pan 0.8))
$ "numbers"
# n "<1 2 3 4 5 6 7 8>"
# pan 0.3
-- # midiG' "^83" 0 0.8
d8
$ chop 8
$ loopAt 2
$ "jungle_breaks:32"
# pan 0.9
# gain 0.7
d7 $ gF3 $ gM2 -- High Cello Dauphin
$ struct "t@2 t*<1 2 1 <4 1>> t*<1 2 4 8>"
$ midiOn "^59" (|- note 12)
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
)
# "[cbow:3]"
# cut 7
# room 0.2
# pan 0.9
# crushbus 71 (range 16 2.5 "^55")
# midiG' "^83" 0 1.2
d3 $ gF $ gMute2
$ 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"
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
# midiG' "^80" 0 1.6
d4 $ gF2 $ slow 2 -- Basse Germanique
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
$ (0.125 <~) -- Calage :)
$ someCyclesBy (1 - "^33") (
(mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
) --
$ fix ((midiOff "^57" (# silence)) . (|* gain 0.8) . (|+ note 24) . (|* gain "<0.93!3 [0.92 0.85]>") . (# cut 5))
"bass2"
$ note (
"<[g4 c ef@14] [<c g> ef g@14] <[g4 c ef@14] [c5 bf5 g5@14]> [c ef d@13 ~]>"
- 24
)
# "[bass2:1,bassWarsaw]" -- TODO: Autre basse moins venere?
# room 0.2
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1.6
d6 $ gF3 $ gMute2 -- Leads reponse
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
$ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
$ someCyclesBy "<f!3 t>" (mask "t f!15". (# legato 2))
-- $ (0.125 <~) -- Calage :)
-- $ someCyclesBy "^17" (
-- (mask "<t!2 f t f f t t> f t@14") . (|* room 1.2)
-- ) --
$ whenmod 32 24 (ply "2 <2!4 4!4>")
$ swing (1/3)
$ note (
"<ef4 g4 <ef g> d>"
+ "<0!0 [0 12]!0 [0(2,8), <12!3 -12>([<1 3> 3],8,3)]!32>"
+ "[0,<7 12 12 7>]"
- 12
)
# "FMRhodes1"
# room 0.2
# pan 0.33
# modIndex (range 0 16 "^34")
# crushbus 61 (range 16 2.5 "^54")
# midiG' "^82" 0 1.5
d8 $ gM $ gF3 -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (mask "[f t]")
$ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# midiG' "^84" 0 1.4
d10 $ gF3 -- Pads angéliques
$ sometimesBy "^19" (superimpose (
(# cut 101)
. (arp "up")
. (|+ note (
"<[0,0] [0,7] [0,9] [0,7,9,12]>"
))
. (|+ pan 0.1)
))
$ midiOff "^58" (mask "t([0 2],4)")
$ note (
slow 2 "<bf4 d5 <bf4 ef> [bf4 a4@3]>"
+ "[0,[0*<1 1 2 <2 1>> . 0 12*<1 2>]]"
)
# chorus (range 0 2 "^35")
# "moogBass" -- FIXME: Other synth?
# dec 0.2
# sus 1
# att (range 0.001 2 "^16")
# rel (range 0.2 10 "^17")
# roombus 101 (range 0 0.5 "^18")
# lesliebus 102 (range 0 2 "^19")
# sz 0.6 # dry 2
# midiG' "^20" 0 1.6
# legato 2
# pan 0.64
# cut 10
bf g bf <bf a>
once $ "paroles:2" # gain 1.2 # cut 2 # lpf 2000
do
-- resetCycles
setcps (115/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gMute2 $ gF1 -- Kick solide
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ 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
-- # midiG' "^78" 0 1.5
d2$ gMute1 $ 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:24]"
# pan 0.65
# legato 0.22
-- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1
$ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
# "snare:34"
# hpf 7000
-- # midiG' "^80" 0 1.5]
d4 $ gF2 $ gMute3
$ midiOn "^89" (ply 8)
$ note "<b2 as2 gs2@2>"
# "bassWarsaw"
# gain 1.2 # cut 4
# crushbus 41 (range 16 4.5 "^53")
# octerbus 42 (range 0 1.2 "^33")
# octerbus 42 (range 0 1.2 "^33")
d5 $ gF3 $ gM3 -- Baba hums
-- $ midiOn "^58" ((# n 1) . ())
$ n "<1@2 2@2 3@2 4@2>"
# "paroles" # cut 5
# octersubbus 51 (range 0 2.5 "^54")
# lpf 3000
# legato 2
d8 $ gF1 $ gM1 $ chop 8 $ loopAt 1
$ midiOn "^56" ((loopAt 2) . (# "jungle_breaks:30")) -- Clochettes?
$ midiOn "^92" (ply 2)
$ midiOff "^60" (mask "f(4,8)")
$ chop 8
$ midiOn ("^92") ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 2 . (# "breaks165")
. (# room 0)
)
$ "jungle_breaks:20"
# gain 1.2
d9 $ gM3
$ fix (slow 2 . (# "jerome:0")
. (# begin "<0!6 0.5!2>")
. (# end "<<0.3!2 0!2> 0.5 0.9>")
) "bonsoir"
$ "[bonsoir]" # cut 9
d10 $ gM3 $ ply "<1!4 2!4>" $ "<jerome:4 ~>" # end "<0.5 <0.64 1>>" # cut 10 # octersub (slow 16 $ range 0.2 0.8 perlin)
d11 $ "jerome/4" # n "<5 5 7 8>" # gain 1.2 # cut 11 # lpf 4000
d12 $ "<~ ~ jerome ~>" # n "<1 2 3>" # gain 1.2 # cut 12 # lpf 4000
-- 5 7 8
once $ "jerome:3" # cut 8
......@@ -10,73 +10,91 @@ let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k <k!3 <[~ k*<1!3 2>]!3 k*2>>")
$ midiOff "^42" (<| "k . ~ <~!4 k!12> ~ ~")
$ fix ((|* gain 0.9)) "kick:5"
$ "[jazz,kick:4]"
# gain 1.2
# att 0.04
# rel 2
# room 0.2 # dry 1
$ fix ((# lpf 1400)) "kick:4"
$ "[techno:0,kick:4]"
# gain 2
# room 0.2
# dry 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "clap:1"
# gain 1.2
-- $ "[rampleM2:12,rampleD3:1,rampleD4:1]"
$ "[snare:10,snare:20]"
-- # note "-4"
# lpf 2000
# gain 1.5
# pan 0.6
# hpf 5000
# rel (slow 16 $ range 0.6 0.2 saw)
-- # note "-3"
-- # room 0.84 # dry 0.95 # sz 0.1
-- # room 0.84 # dry 0.98 # sz 0.1
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[h2ogmsn:14]"
-- # "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4 $ gF2 $ gM3
$ midiOff "^57" (mask "t . <t f>")
$ note ("<[<fs a>!2 <a gs> fs] [fs(3,8),cs5]> . ~" - 24)
-- $ note (fast 4 "<a b fs@2>" - 12) -- TODO Variations on melody
# "bassWarsaw"
-- $ juxBy 0.8 (id . (# cut 31))
$ 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>")
$ fix (# legato 0.25) "rampleD2:3"
$ "~ h ~ h ~ h*<1 2> ~ h*<1!3 2>"
# "rampleD2:2!6 <rampleD2:2!3 rampleD2:3> rampleD2:3"
-- # n "<4 5 4 <5!3 6>>"
-- # note (-12 + "3.5" + "e6")
# 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
$ midiOn "^89" (ply "2 <2 <4 8>>")
$ fast (4/3) -- Le fameux
$ midiOff "^57" -- L'attente
(sometimesBy "<1!3 [0 <0 1>]>" (mask "t(<5!3 <5 8>>,8) t(<5!3 5>,8)"))
$ ("e" ~>) -- Decalage
$ note ("<[fs4 <a5!2 gs!4 fs5!4 <[a6 gs6 fs6]!3 [fs6 gs6 a6]>>@3]*4>")
# "bassWarsaw" |- note 24
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 0.8 "^33")
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2 "^33")
# octerbus 43 (range 0 0.52 "^33")
# gain 2
# legato "[0.8 0.5]*4"
d5 $ gM3 $ gF3
$ midiOn "^90" (ply "2 <2 <4 8>>")
$ midiOn "^58" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
$ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
$ "suns_keys" # n "<0 <1 2> 3 3>"
# pan 0.8
-- # room 0.1 # sz 0.5
# room 0.8 # sz 0.5
# cut 5
# octerbus 51 (range 0 1 "^54")
d7 $ gM3 $ gF3
$ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
$ slice 8 "0 0 0 <0 <1 2>>"
$ "suns_guitar:0/2"
# cut 7
# octersubbus 71 (range 0 1.9 "^55") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^55")
# crushbus 73 (range 16 2.5 "^35") -- CRASH THIS GUITAR
# octersubbus 71 (range 0 1.9 "^35") -- BURN THIS GUITAR
# lpfbus 72 (range 10000 200 "^35")
# crushbus 73 (range 16 2.5 "^55") -- CRASH THIS GUITAR
# pan 0.2
# gain 1.1
d8 $ gF1 $ gM1
$ midiOn "^56" (# "jungle_breaks:46")
$ midiOn "^92" (chop 8 . loopAt 0.5 . (# "breaks165"))
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff ("^60" + "^92") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^56" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ midiOff "^92" (slice 16 ("[~ <1!4 2!4>]*8"))
$ "jungle_breaks:45"
# cut 8
# att 0.15 # rel 2
# gain 1.2
# hpf 500
# att 0.04
# rel 2
# gain 1.6
# hpf 1200
-- # room 0.52 # sz 0.04 # dry 1.01
d9 $ gF3 $ gMute3 -- 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>>")
......@@ -84,7 +102,13 @@ d9 $ gF3 $ gMute3 -- Voice of the Father
# octerbus 91 (slow 16 $ range 0.5 0.2 sine)
# hpf 1500
# cut 9
d10 -- Flying triplet guitar
d10 -- CUES AND NOISES
$ fix (# lpf 2000) "rampleD5:3" -- Porte spaciale
$ fix ((# legato 4) . (# cut 101) . mask "<f!3 t>" . slow 8) "risers"
$ "[<~!3 rampleD5:3>,risers:5]"
# gain 1.2
-- # cut 10
d11 $ gM3 $ gF2 -- Flying triplet guitar
$ slice 8 ("<0 1 2 3>(3,8)")
$ "suns_guitar:2"
# cut 11
......@@ -93,15 +117,17 @@ d10 -- Flying triplet guitar
# dry 1.2
# pan "<0.3!16 0.7!16>"
# legato 4
d11 -- Falling angel guitar
d12 $ gM3 $ gF3 -- Falling angel guitar
$ whenmod 16 8 (ply "<4 2 [4 2] [4 8]>")
$ slice 2 ("<0 1>")
$ "suns_guitar:1"
# cut 11
# cut 12
# pan "<0.7!16 0.3!16>"
# room 0.4
# sz 0.5
# hpf 1500
# dry 1.2
# gain 1.3
# legato 1.2
once
......
......@@ -46,9 +46,9 @@ d9 -- Bogdan the Grime sample provider
# gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
$ chop 8
$ midiOn "^56" (loopAt 2 . (# n "<61>"))
$ midiOn "^92" (ply 4)
$ midiOn "^36" ((# n "19")) -- Pure COMEON!
$ midiOn "^36" (loopAt 2 . (# n "<61>")) --
$ midiOn "^56" ((# n "19")) -- Pure COMEON!
-- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ midiOff "^60" (mask "t(4,8)")
$ loopAt 2
......@@ -71,7 +71,7 @@ d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
# octersubsub 0
# crushbus 41 (range 16 3.5 "^53")
# octersubsubbus 42 (range 0 2 "^33")
# gain 0.8
# gain 0.7
d5 $ gM3 $ gF3
$ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
$ juxBy 0.4 rev
......@@ -79,16 +79,16 @@ d5 $ gM3 $ gF3
# "marimba1"
# att (range 0.8 0.2 "^34")
# rel 1
# triode 00
# squizbus 51 (range 0 2.5 "^54")
-- # delay 0 # delayfb 0.8 # delayt 0.25
# pan 0.9
# gain 2
# gain 3
# room 0.3
d10 $ gF2 -- Menace
$ note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>"
# "90s_synatm:10"
# room 0.3 # sz 0.8
# gain 1.5
# gain 1
# att 0.10
# rel 10
# legato 2
......
......@@ -10,8 +10,8 @@ let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
$ "[techno:0,808bd:2,909,kick:4]"
-- # lpf 200
# gain 1.5
# lpf 1200
# gain 1
d2 $ gF1 $ gM1
$ midiOn "^75" (ply 4)
$ midiOn "^43" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
......@@ -65,9 +65,9 @@ d7 $ gM3 $ gF3
# octersubsubbus 73 (range 0 3 "^55")
# cut 7
d8 $ gF1 $ gM1
$ chop 8
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ chop 16
$ loopAt 2
$ midiOn "^20" (loopAt 4)
$ midiOn "^92" (ply "<2!3 [4!3 2]>")
$ midiOn "^36" (# "jungle_breaks:55")
$ midiOn "^56" (# "jungle_breaks:45")
......
......@@ -77,6 +77,7 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
# dry 1
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34")
# midiG' "^82" 0 2
d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
......
......@@ -2,28 +2,28 @@ do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide
d1 $ gMute2 $ 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>")
$ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
$ "[jazz,kick:4]"
# gain 1.2
-- # midiG' "^78" 0 1.5
d2
$ gM1 $ gF1 -- snare contretemps variable
d2$ gMute1 $ gF1 -- snare contretemps variable
$ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
$ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
$ midiOff "^43" (<| "~ cp")
$ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
$ "[cp,snare:24]"
# pan 0.65
# legato 0.22
......@@ -36,7 +36,7 @@ d3 $ gM1 $ gF1
d4 -- Basse convaincante
$ gM3 $ gF2
$ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
-- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
$ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
$ someCyclesBy (1 - "^17") (struct "<t [t t]>")
$ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
......@@ -45,7 +45,8 @@ d4 -- Basse convaincante
# room 0.2 # sz 0.1
# crushbus 42 (range 16 4 "^53")
# relbus 43 (range 2 0.02 "^33") # att 0.22
-- # midiG' "^81" 0 1.5
-- # midiG' "^81" 0 1.d
# gain 1.4
# pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
......@@ -67,13 +68,14 @@ d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
-- # midiG' "^82" 0 1.5
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36" ((# n "22")) -- Raise COMEON!
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
-- # midiG' "^84" 0 1.5
# gain 1.5
d6 $ gF1 $ gM1 -- HAWKS
-- $ mask "<f!16 t!16>"
$ "~ [s s*2] ~ [s <~!3 s>]"
......@@ -89,6 +91,7 @@ d6 $ gF1 $ gM1 -- HAWKS
-- # midiG' "^31" 0 1.5
d7
$ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse
superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4 cs4!4>") . (# pan 0.45))
)
......@@ -98,8 +101,10 @@ d7
)
# "808hc:2"
# pan 0.85
-- # midiG' "^83" 0 1.5
# gain 0.8
# octerbus 71 (range 0 0.5 "^55")
# octersubbus 72 (range 0 1.4 "^55")
# room 0.2 # dry 1.08 # sz 0.3
# gain 1.4
d9 $ gF3 -- Pads atmospheriques
$ off 0.25 ((# pan 0.8) . (# cut 91))
$ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
......@@ -109,7 +114,7 @@ d9 $ gF3 -- Pads atmospheriques
# cut 9 # legato 2
-- # midiG' "^20" 0 1.4
# pan 0.4
# gain 1
# gain 1.4
# room 0.4
d10
$ mask "<f!16 t!16 t!96>"
......
......@@ -19,7 +19,7 @@ d1 $ gF1 $ gM2 -- Kick
-- (<| "<k!24 ~!8> ~ ~ <~!3 k> . ~ <~!7 k> ~ ~")
(<| "k . ~ k ~ <~ k>")
)
$ "[jazz,kick:4]"
$ "[jazz,kick:4]"
-- $ "[rampleA0:3,jazz]"
# gain 1.2
d2 $ gF1 $ gM1
......@@ -32,7 +32,7 @@ d3 $ gF1 $ gM1 -- Contretemps
$ midiOn "^76" (slow 2)
$ midiOff "^44" (slow 2)
$ "~ h ~ h ~ h ~ h*<1 2 2 <1 2>>"
-- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>"
-- $ "~ h ~ <~!4 h!28> ~ <~!3 h ~!3 h h!8> ~ <h ~ h ~ h!3 <h*2 [~ h*<1 2>]>>"
# "[snare:38]"
# room 0
# gain 0.9
......@@ -51,14 +51,15 @@ d4 $ gO $ gF2 $ gM3 -- SUBSUB INFRABASS
-- # octersubsubbus 42 (range 0 1.2 "^33")
# pan 0.65
# gain 1.2
d5 $ gO $ gM3 $ gF2 -- Basse appel important
d5
$ gO $ gM3 $ gF2 -- Basse appel important
$ note "<fs3 [fs3@7 b3] [fs3@7 g3] [fs3@5 g3 fs3 d2] [b2@7 d2] [b2@7 d2] [b2@7 gs2] [b2 . b2 d3 <fs3 g3>]>"
# "giorgio_syn:0"
# pan 0.351
# lpfbus 52 (range 400 4000 "^34")
# distortbus 51 (range 0 1.2 "^54")
# cut 7
# gain 0.85
# gain 1.4
d7 $ gO $ gF3 -- guitare salvatrice
-- $ mask "<f!32 t!32>"
$ slice 16 "0*[4 <4 4 1 1 4 4 1 4 1 1 4 4> 4 <1!3 4>]"
......
......@@ -7,7 +7,7 @@
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
......@@ -16,25 +16,30 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (93/60/4)
d1 $ gF1
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k ~ ~ <~ k> . ~ k ~ <~!3 k*<1 2>>")
$ fix ((# att 0.1) . (# rel 10)) "wobble"
$ "[jazz,808bd:4,wobble]"
# midiG' "^78" 0 1.5
d2 $ gF1
-- # midiG' "^78" 0 1.5
d2 $ gF1 $ gM
-- $ mask "<f!8 t!24>"
$ "~ s" # "snare:40"
# midiG' "^79" 0 1.4
-- # midiG' "^79" 0 1.4
# pan 0.8
d3 $ gF1 $ "~ h ~ h ~ h ~ [<h!2 ~ h> h*<1!7 2>]"
d3 $ gF1 $ gM
$ "~ h ~ h ~ h ~ [<h!2 ~ h> h*<1!7 2>]"
# "hh" # pan 0.8
# midiG' "^80" 0 1.4
d4 $ gF2
-- # midiG' "^80" 0 1.4
d4 $ gF2 $ gMute3
$ note "<[e2,b2] [e2,c3] [e2,cs3] [e3,c3]>"
# "moogBass"
# chorus 0
# pan 0.1
# midiG' "^81" 0 1.8
# crushbus 41 (range 16 2.5 "^53")
d10
$ note ("<b4 c4 cs4 c4>" + 12)
# "moogBass"
d5 $ gF3
$ midiOn "^58" (ply "<[4 2] 4 [4 8] [4 <[8 4] <16 [16 4]>>]>")
-- $ arpeggiate
......@@ -42,17 +47,18 @@ d5 $ gF3
"<[e4,g4,b4] [e4,g4,c5] [e4,g4,cs5] [e4,g4,c5]>"
|+| "<[~!3 0]!8 [~ 0 ~ 0]!8 [~ 0 ~ 0*2]!8 [~ 0 ~ ?]!8>"
+ (slow 4 "<0 <12 24>>")
-- + "12"
+ "12"
)
# modIndex (range 0 4.5 "^34")
# crushbus 51 (range 16 4.5 "^54")
# "FMRhodes2"
# "marimba1"
# pan 0.8
# midiG' "^82" 0 1.4
d8 $ gF3
# gain 1.2
d8 $ gM $ gF1
$ midiOn "^92" (ply 4)
$ slice 4 "0 1 2 3*<1 2 4 8>"
$ loopAt 4
$ midiOff "^56" (slice 4 "0 1 2 3*<1 2 4 8>")
$ loopAt 4 $ chop 16
$ midiOn "^56" (loopAt 0.25 . (>| "breaks165"))
$ "trance_loops:0"
# cut 8
# midiG' "^84" 0 1.8
-- # midiG' "^84" 0 1.8
......@@ -13,7 +13,7 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])])
-- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2
d1 $ gM2 $ gF1
......
......@@ -5,102 +5,110 @@ resetCycles
-- Alerte Verte
do
setcps (160/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
let gM = (midiOn "^73" (mask "f*16"))
d1 $ g1 $ gM -- KICK
d1 $ gF1 $ gMute2 -- KICK
$ midiOn "^74" (fast 2)
$ midiOn "^41" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
$ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
$ fix (|* gain 0.9) "kick:5"
$ "[jazz,kick:5]"
$ midiOn "^42" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOff "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
-- $ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
-- $ fix ((# lpf 6000) . (|* gain 0.9)) "techno:0"
$ fix ((# lpf 800) . (|* gain 0.85)) "kick:4"
$ "[techno:0,kick:4]"
# release 0.8
# midiG' "^78" 0 1.5
d2 $ g1 $ gM -- Snare tchak!
d2 $ gF1 $ gM1 -- Snare tchak!
$ midiOn "^43" (ply 2)
$ midiOn "^75" --BOUTON NASSIM
(
whenmod 8 7 (ply "1 . 2") .
slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
(loopAt 1) .
(# "breaks165") . (# cut 2)
. (|* gain 1.1)
)
$ midiOff "^75" ( -- NassOff
(<| "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>")
. whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
)
$ "[snare:40,snare:22]"
$ whenmod 16 12 (struct "t*<4 4 8 16>") -- Snare Rush
$ "~ s . ~ <~ ~ s ~ s!3 ~ s s ~ s s ~ s s ~ s s s>"
# "[snare:40,snare:22]"
# pan 0.55
# note (range "-7" 7 "^51")
# note (range "-7" 7 "^31")
# room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2
d3 $ g1 $ gM -- Running Hats
-- # midiG' "^79" 0 1.2
d3 $ gF1 $ gM1 -- Running Hats
$ g32Bridge
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
$ "hh*[8 . 8 <16 8 4 [4 8]>]"
-- # n "[0|0|0|0|1|1|3|3]*8"
# midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
|* gain (range 0.8 1.2 perlin)
# room (slow 8 $ range 0.2 0.45 saw)
# sz (slow 8 $ range 0.8 0.2 saw)
# note (range "-12" 12 "^52")
# dry (slow 4 $ range 0 2 perlin)
# pan 0.6
# cut 344
d4 $ g2 -- Resolute Bass
# gain 1.2
d4 $ gF2 $ gMute3 -- Resolute Bass
$ superimpose ((# octer 0.7) . (|* gain (0.9 * "^33")) . (# cut 41))
-- $ jux ((# cut 41) . (|+ crush (range 0.5 1 perlin)))
$ midiOn "^89" ( -- Glitch vary end
slice 8 "<[0 1 <2!3 1*2> <3!3 1*2>]!4 0*4!2 [0 1 0 1] [0 1 0 [0 1 2 3]]>"
. (# legato "<1!7 [1@3 0.25]>")
)
$ midiOn "^57" (rev . slice 8 "0 [1 0] 2 <3 0 3 3*4>") -- La morale à l'envers
$ loopAt 4
$ chop 16
$ "fbass:25"
# pan 0.15
-- # room 0.125 # sz 0.1 # dry 1
# pan 0.45
# cut 4
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 2
-- # cut 4
d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ g2
$ mask "<f!3 t>"
$ ("0.175" ~>) -- Calage
$ whenmod 4 2 (slice 8 "0")
$ slice 5 4
$ segment 16
$ "fguitar:24"
d5 $ gF3 $ gM3-- Guitar A/B - La surprise et l'attente
$ fix (
mask "<f!7 <t f>>"
. ("0.175" ~>) -- Calage
. (whenmod 4 2 (slice 8 "0"))
. slice 5 4
-- . segment 16
. (# "fguitar:24")
) "guitarA"
$ fix (
whenmod 4 3 (# silence)
. midiOn "^90" (# n "25")
. midiOn "^58" ( (# n 27))
. midiOff "^58" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
. (# "fguitar")
. (# n "<25!3 [25 26] 25!2 27!2 27!8>")
. (# pan 0.65)
. (# leslie "^34")
. (# lsize (1 + (slow 16 perlin * 2)))
. (# crushbus 71 (range 10 2 "^54"))
. (# lrate 6.7)
-- . (# cut 61)
) "guitarB"
$ "[guitarA,guitarB]"
# pan 0.8
# crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 (1 * (range 1.2 0.5 "^18"))
# cut 6
d7 -- Guitar B -- Le run (18=127)
$ g2
$ whenmod 4 3 (# silence)
$ midiOn "^90" (# n "25")
$ midiOn "^58" (
(# n 27)
)
$ midiOff "^58" (segment "<0.5!2 1 <2 4 8 [8 16]>>")
$ "fguitar" # n "<25!3 [25 26] 25!2 27!2 27!8>"
# pan 0.65
# crushbus 71 (range 10 2 "^54")
# midiG' "^82" 0 (1 * (range 0 1.4 "^18"))
# leslie "^34"
# lsize (1 + (slow 8 perlin * 2))
# lrate 6.7
# cut 71
d8 $ g1 -- Clave de l'été pitchable
# cut 5
d7 $ gF3 $ gMute3 -- Clave de l'été pitchable
$ midiOn "^59" (fast 2)
$ midiOn ("^91" - "^59") (fast 2)
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0 2 "^55")
# midiG' "^83" 0 1.8
d10 $ g2 -- Nappes crushées indépendantes
# gain 1.7
d8 $ gF1 $ gM1 -- I WANT THEM DRUMS
$ midiOn "^92" --BOUTON NASSIM
(
chop 16 .
(loopAt 0.5) .
(# "breaks165")
-- . (# cut 2)
. (|* gain 1.1)
)
$ loopAt 2
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 8
$ "jungle_breaks:45" # cut 8
# hpf 5000
d9 $ gF3 $ gM3 -- Nappes crushées indépendantes
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
-- $ superimpose ((|- note 12) . (# cut 101))
$ note (euclid "<5 3 6>" 6
......@@ -109,24 +117,24 @@ d10 $ g2 -- Nappes crushées indépendantes
# cut 10
# rel 1
# pan 0.85
# crushbus 100 (range 16 0.35 "^36")
# midiG' "^20" 0.2 1.5
d11 $ g2 -- Sirene indépendante
# crushbus 100 (range 16 0.35 "^19")
# lpf 2000
-- # midiG' "^20" 0.2 1.5
d10 $ gF3 $ gM3 -- Sirene indépendante
$ note ("<e e c e>/4")
# octave 3
# legato 2
# "supersiren"
# speed 0.2
# crushbus 110 (range 10 0.1 "^35")
# ampbus 111 (range 0 0.8 "^19")
# crushbus 110 (range 10 0.1 "^29")
# ampbus 111 (range 0 0.8 "^30")
# pan "<0.2!16 0.8!16>"
# midiG' "^19" 0 1
# room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
# dry (slow 32 $ range 0 2 perlin)
# cut 11
d9 $ g1 -- CLAPS!
$ "~ c ~ <c!3 c*2>" # "cp"
# midiG' "^84" 0 1.5
# cut 10
d6 $ gF1 $ gM1 -- CLAPS!
$ "~ c ~ <c!3 <c*2 [c c*2]>>" # "cp"
-- # midiG' "^84" 0 1.5
d6 $ "seawolf:0/4"
......
-- euphorie solitaire
-- FIXME NAMING: NOT EUPHORIE
do
-- resetCycles
......@@ -15,7 +16,7 @@ d1 -- Kick premier`
-- $ midiOn "^42" (off "e" (# "jazz:0"))
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6)) ("tek_kick:3")
-- $ fix ((# att 0.5) . (# legato 0.5) . (|- note 6 show )) ("tek_kick:3")
$ "[kick:4]"
# room 0.2 # sz 0.8 # dry 1.1
d2 $ gM1 $ gF1 -- Snare second
......@@ -28,7 +29,7 @@ d3 $ gM1 $ gF1
$ midiOn "^76" (ply 2)
-- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
$ "dr*[8 [<8 <16 [16 <8 32> 16]>>]]"
# "dr"
# "dr" # "h2ogmhh:2"
# gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gF2 $ gM3
$ midiOn "^89" (ply "8 <4 16>")
......@@ -59,6 +60,7 @@ d5 -- Melancolie solitaire
# "FMRhodes1"
# pan 0.7
# modIndex (range 0 5 "^54")
# gain 1.2
d6 $ gF2 $ gM3
-- $ slice 4 "0 1 2 3"
$ whenmod 4 3 (|- note "0 <4 6>")
......@@ -70,6 +72,7 @@ d6 $ gF2 $ gM3
# room 0.2
# gain 0.5
# octersubbus 61 (range 0 1 "^30")
-- TODO Make d7 the new d9 and another lead in d7
d7 $ gF3 $ gM3
$ note ("<d g f a>" + "[0,7]" - 12)
# "moogBass"
......
......@@ -10,11 +10,13 @@ let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
$ gF1 $ gM2
$ gF1 $ gMute2
$ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k k k k")
$ superimpose ((|* gain "^30") .(# "tek_kick:3"))
$ "[kick:4]"
# lpf 5000
# gain 0.9
d2 $ gM1 $ gF1 -- Snare second
$ fix (# lpf 4000) "snare"
$ midiOff "^43" (mask "<t!16 f!16>")
......@@ -26,20 +28,22 @@ d3 $ gM1 $ gF1
$ "hh(3,8) hh(<3!3 5>,8)"
# "rampleM8:4"
# gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gM3 $ gF2 $ chop 16 $ loopAt 4
d4 $ gMute3 $ gF2 $ chop 16 $ loopAt 4
$ midiOn "^89" (slice 4 "2*2 ")
$ "nujazz_bass125:1"
# cut 4
# octersub (slow 32 $ range 0 0.9 sine)
# room (slow 32 $ range 0.2 0.8 cosine)
# crushbus 41 (range 16 2.5 "^53")
# dry 1.3
-- # room (slow 32 $ range 0.2 0.8 cosine)
-- # dry 1.3
# pan 0.3
# sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF2
# crushbus 41 (range 16 4 "^53")
# octerbus 42 (range 0 0.94 "^33")
# gain 1.2
-- # sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF3
$ midiOn "^58" (off 0.125 id . rev)
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 24)
# crushbus 51 (range 16 2.5 "^54")
$ note ("[g@2 ~!4 <f ~ as5 c6>]" - 12)
# crushbus 51 (range 16 5 "^54")
# modIndex (range 0 2 "^34")
# "FMRhodes1"
# gain 1.2
......@@ -78,7 +82,7 @@ d9
$ n "<~ ~ 27 ~ ~ ~ ~ <29 21>>"
# "jungle_vocals"
# cut 9
# gain 0.48
# gain 0.6
# room 0.4
d11 $ gF3 $ gM3
$ whenmod 64 32 (superimpose (
......@@ -97,4 +101,4 @@ d6 $ gM3 $ gF2 $ note
)
# "meth_bass:3"
# cut 6
# gain 0.8
# gain 0.5
......@@ -21,7 +21,7 @@ d2 $ gF1 $ gM1 -- Snare FOU
$ midiOn ("^43" - "^75") (<| "~ s ~ <s s*<1!7 2> s s*2>")
$ midiOff ("^43"- "^75") (<| "~ s")
$ "[sn:25,gretsch:4]"
# note (range "-4" 4 "^51")
# note (range "-4" 4 "^51") show
# gain 0.7
d3 $ gF1 $ gM1
$ midiOn "^44" (ply "1 2 1 <2 <1 4>>")
......
......@@ -61,6 +61,7 @@ d4 $ gF2 $ gMute3 -- COME WITH THE BASS
# room 0
# dry (slow 64 $ range 0.2 2.8 cosine)
# sz 0.035
# octer 0.4
# pan 0.2
d5 $ gM3 $ gF3 -- Sky's guitar
$ midiOn "^90" (ply "2 <2 <4 8>>")
......@@ -73,17 +74,17 @@ d5 $ gM3 $ gF3 -- Sky's guitar
# room 0.2 # sz 0.3 # dry 1.2
# crushbus 51 (range 16 5.5 "^54")
# gain 1.3
d6 $ gM3 $ gF3 -- Sky's companion
d11 $ gM3 $ gF3 -- Sky's companion
$ midiOn "^58" (mask "f")
-- $ mask "<f!8 t!24>"
$ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
$ "come_guitar"
# n "3"
# cut 6
# cut 11
# pan 0.9
d7 $ gF3 -- together yeah!
$ midiOn "^91" (>| n "~ ~ ~ 11")
$ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
$ midiOn "^91" (>| n "~ ~ ~ 11") -- Shew
$ someCyclesBy ("^35" - "^91") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
$ midiOn ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- Reponse: COME <3
$ midiOff ("^59" + "^91" + "^35") -- Default: YEAH
(>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
......
......@@ -10,20 +10,21 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ "jazz"
d2 $ gF1 $ gM1 $ "~ clap:1"
# room 0.8 # dry 1.1 # sz 0.1
# hpf 5000
$ "[techno:0,kick:4]"
d2 $ gF1 $ gM1 $ "~ h2ogmcp:1"
# room 0.2 # dry 1.1 # sz 0.1
d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2)
$ "hh(<3!3 5>,8,<0!6 1 2>)"
d4 $ gF2 $ gM3 -- Basse Fantome
$ note ("<[a3@2 e4@3] [b3@2 d4@3] [c4@2 e4@3] [<b3 f4>@7 g3]>" + "[12,24]")
$ superimpose ((|- note 24) . (|* gain 0.8) . (# "bassWarsaw") . (# cut 41) . (# crush 16))
$ note ("<[a3@2 e4@3] [b3@2 d4@3] [c4@2 e4@3] [<b3 f4>@7 g3]>" + "12")
# "wobble"
# room 0.4 # sz 0.8
# pan 0.3
# gain 1.4
# gain 1.9
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2 "^33")
d5 $ gF3 $ gM3 -- LASER SALVATEUR
$ midiOn "^90" (slice 4 (run "<4!3 8>. <4 8> <4 8 8 16>"))
$ chop 4
......@@ -40,8 +41,9 @@ d5 $ gF3 $ gM3 -- LASER SALVATEUR
# crushbus 53 (range 16 2 "^54")
# att 0.2 # rel 3.2
d8 $ gF1 $ gM1
$ midiOn "^56" (loopAt 2)
$ midiOn "^92" (ply "2 <2 4 4 [16 . 8 4]>")
$ midiOn "^56" (loopAt 4)
-- $ midiOn "^92" (ply "2 <2 4 4 [16 . 8 4]>")
$ midiOn "^92" (ply "<2 4> <4 8>")
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
......
once $ note ("c e g" + "24" - 6) # "jungbass:2" # cut 1
do
setcps (82/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4"
d2 $ gF1 $ gM1 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>"
d3 $ "hh*[8 16]"
d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4)
$ midiOn "^57" (superimpose (
struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)"
. arp "up" . (|+| note "c'minor'3")))
$ ("q" <~)
$ note (slow 2 $ "<bf5 d6> b5@3 d6 <fs5 g5 fs5 bf5>@3")
# "bassWarsaw" |- note 36
-- # "jungbass:2" |- note 6 -- TODO sound design
# cut 4
# pan 0.8
# squizbus 41 (range 0 8 "^53")
# octersubbus 42 (range 0 1 "^33")
# legato 2 # lpf 4000
# gain 1.4
d5 $ gF3 $ gM3
$ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>")
$ note "<b fs b <g fs5>>"
-- |+ note "0 <4 0 3 2>"
# "90s_synatm:3"
# cut 5
d8 $ gF1 $ gM1 -- UNAVOIDABLE 90s BReak
$ loopAt 0.5
$ slice 4 "0 <1 <~!4 1!4>> 2*<1!4 2!4 2 2 4 4> <1!3 3>*<1!4 1 1 2 2>"
-- $ chop 8
$ "breaks165"
d9 $ gF3 -- Winds of change
$ note "<b fs b g>"
# "90s_synatm:0"
# room 0.2 # sz 0.8 # dry 0.5
# lpf 2000
# cut 9
once
-- $ "bassWarsaw"
$ "[kick:6]"
# gain 2
-- Lendemain Divin
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
......@@ -14,23 +9,25 @@ let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (95/60/4)
d1 $ gMute $ gF1
d1 $ gMute2 $ gF1
$ fix (|* gain 0.9) "kick:6"
$ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
$ "[techno:0,808bd:2,909,kick:6]"
-- $ "[techno:0,808bd:2,909,kick:6]"
$ "[jazz,kick:4]"
# lpf 6000
# gain 1.5
d2 $ gMute2 $ gF1
d2 $ gMute $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^75" (# "cp")
$ "~ s*<1!3 2>"
# "[snare:32,snare:40,bssnare]"
$ "~ s*<1!3 <2 4>>"
# "[snare:32]"
# note "-4"
-- # lpf 2000
# gain 1.4
d3 $ gF1 $ gMute2
# gain 1
d3 $ gF1 $ gMute
$ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[16!3 <8 [8 <16 32>]>]")
-- $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
......@@ -42,7 +39,7 @@ d3 $ gF1 $ gMute2
# att (slow 16 $ range 0.001 0.04 cosine)
# rel 0.4
# room 0.2 # dry 0.9
# gain 1.3
# gain 1.05
d4 $ gF2 -- Basse complainte
$ midiOn "^89" ((ply "8 <16 [16 8]>")
-- . (# room "0 0.4")
......@@ -67,9 +64,10 @@ d7 $ gMute3 $ gF3
# crushbus 61 (range 16 2.5 "^55")
# lpfbus 62 (range 10000 7500 "^55")
# room 0.3
d8 $ gM2 $ gF3
d8 $ gM $ gF3
$ midiOn "^92" (ply "<4 4 8 16>")
$ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break
$ midiOn "^36" (# "jungle_breaks:45") -- House Orleanaise
$ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break
$ slice 8 "0 1 2 3*<1 2>"
$ loopAt 2
......
resetCycles
resetCycles
do
setcps (93/60/4)
......@@ -16,11 +16,11 @@ let progMin = "<[d,b4] [cs,a4] [d,b4] <[d,a4] [d,fs5]>>"
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . ~!3 k*<1!3 4>")
$ "[jazz,rampleA0:1]" # lpf 2000
# lpf 1500
$ "[jazz,rampleA0:1]"
# lpf 2000
# att 0.02
# rel 2
# gain 2
# gain 1.4
d2 $ gF1 $ gM1
$ "<[~ s]!16 [~ s*<1!7 4> ~ s*<1!3 <2 4>>]!16>"
# "snare:59"
......@@ -36,6 +36,7 @@ d4 $ gF2 $ gM3
# "bassWarsaw"
# gain 0.8
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# room 0.3
d5 $ gF3 $ gM3
$ midiOn "^90" ( -- Sparkling echoes
......@@ -48,8 +49,8 @@ d5 $ gF3 $ gM3
d7 $ gF3
$ midiOff "^59" (>| n "~ <~ <1 2>> ~ ~") -- Intro Fabuleux
$ midiOn "^91" (ply 8)
$ someCyclesBy "<0!32 1!32>" (>| n "<7 <8 [8 <12 13>]> 11 <12 13>>") --
$ someCyclesBy "<0!16 1!16 32!0>" ((>| n "<7*<1 <2 [4 2]>> 8 9(<1 <2 3>>,8) 10>")) -- Promesse/emouvant/douce
$ someCyclesBy "<0!32 1!32>" (>| n "<7 <8 [8 <12 13>]> 11 <12 13>>") -- Promesse/engagement/pari
$ someCyclesBy "<0!16 1!16 32!0>" ((>| n "<7*<1 <2 [4 2]>> <~ 8> <~!2 9(<1 <2 3>>,8)!2> <~!3 10>>")) -- Promesse/emouvant/douce
$ someCyclesBy "<0!8 1!8 0!16 32!0>" ((>| n "<~ 3 ~ ~> <3!3 <4 5>>")) --
$ someCyclesBy "<1!8 0!8 1!8 0!8 32!0>" (>| n "<0 1 0 <4 6>>") -- Fab/Bonheur/Genial
$ "aoc_fr"
......@@ -60,9 +61,9 @@ d7 $ gF3
d8 $ gF1 $ gM1
$ chop 8
$ midiOn "^60" (ply "<4 <2 [2 8]>>")
$ midiOn "^92" (ply 2)
$ midiOn "^92" (ply "2!3 <2 4>")
$ midiOn "^36" ((>| "jungle_breaks:24"))
$ midiOn "^56" (loopAt 0.5 . (>| "jungle_breaks:25"))
$ midiOn "^56" ((>| "jungle_breaks:25"))
$ loopAt 2
$ "break:3"
# cut 8
......
......@@ -5,17 +5,18 @@ resetCycles
-- Il ne viendra pas tout seul ;)
do
setcps (115/60/4)
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let mMute = (midiOn "^73" (mask "f*16"))
let m = mBreak
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let f2 = (# djfbus 2 (range 0.1 0.9 "^50"))
let f3 = (# djfbus 3 (range 0.1 0.9 "^51"))
d1 $ f1 $ mMute
let gMask = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM1 $ gF1
$ midiOn "^42" (<| "k k k <k k k*2 [~ k]>")
$ midiOff "^42" (<| "k*2")
$ "[jazz,kick:5]"
d2 $ f1 $ m $ mMute -- Clave de l'été
d2 $ gM1 $ gF1 -- Clave de l'été
$ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1"))
......@@ -24,7 +25,7 @@ d2 $ f1 $ m $ mMute -- Clave de l'été
# "[snare:22,sn:4]"
# speed (range 0 2 "^31")
# gain 0.8
d3 $ gF1 -- L'inoubliable drumroll
d3 $ gF1 $ gM1 -- L'inoubliable drumroll
$ fix (
mask "<f!24 t!3 f t t [t f] t>"
. (|* gain (slow 16 $ range 0.6 1.2 sine))
......@@ -35,7 +36,7 @@ d3 $ gF1 -- L'inoubliable drumroll
$ "dr*[[8 8 <8 <16 [16 32]>> 8] <8!3 [16 <16 32 [16 8] [16 32]>]>]"
# "[drum:2,electro1:2]"
# gain 0.8
d4 $ f2 $ m -- Bassline variable double piste
d4 $ gF2 $ gM3 -- Bassline variable double piste
$ loopAt 2
$ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
$ midiOn ("^57" + "^89") (# n 14)
......@@ -45,7 +46,7 @@ d4 $ f2 $ m -- Bassline variable double piste
# roombus 52 (range 0 0.8 "^33") # sz 0.5
# gain 1
# cut 4
d5 $ f3 $ m -- Douce guitare juxée
d5 $ gF3 $ gM3 -- Douce guitare juxée
$ chop 16
-- $ whenmod 32 16 (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
-- $ whenmod 16 12 (rev)
......@@ -58,8 +59,8 @@ d5 $ f3 $ m -- Douce guitare juxée
# pan 0.8
# room 0.2 # dry 1
# cut 3
# gain 0.65
d7 $ f3 $ m
# gain 0.9
d7 $ gF3 $ gMute3
$ loopAt 4
$ mask "t(<4 8 12 16>,16)"
$ midiOn "^59" (slice 16 (run "<16!8 32!4 [32 <8 [8 32]>]!4>"))
......@@ -67,16 +68,16 @@ d7 $ f3 $ m
$ "fpiano:13"
# pan 0.45
# cut 7
d8 $ f1 $ m -- Mecano Course Break
d8 $ gF1 $ gM1 -- Mecano Course Break
-- $ fast "<<4 2> 4!7 2!4 2 2 4 8>"
$ midiOn "^36" (|> "jungle_breaks:42")
$ midiOn "^60" (slice 16 ("0*<1 2> 1 2 3*<2 1>"))
$ midiOn "^92" (slice 8 (run 8) . chop 16 . (|* speed 2) . (>| "breaks165"))
$ midiOn "^92" (slice 8 (run 16) . chop 16 . (|* speed 2) . (>| "breaks165"))
$ loopAt 2
$ "breaks125:3"
# gain 0.8
# cut 8
d9 $ f3 $ m -- Angels of moogland
d9 $ gF3 $ gMute3 -- Angels of moogland
$ midiOn "^16" ((|* gain 0.85) .(|+ note 24))
$ midiOn "^17" (
superimpose (
......
......@@ -4,69 +4,138 @@ fs ds
do
setcps (94/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
d1 $ gF1 $ gMute2 -- Kick resolu
$ midiOn "^42" (<| "k*4")
$ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>")
$ "[clubkick,jazz]"
d2 $ gF1 $ gM1
$ midiOn "^43" (struct "~ t ~ t")
$ midiOff "^43" (struct "~ ~ t ~")
$ fix (|+ note 2) "snare"
$ "~ s ~ s"
# "[dr55,snare:24]"
$ "[dr55,snare:24]"
# rel 0.35
d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts
$ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
$ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
# "rampleC5:14"
# hpf 5000
# att 0.0
# rel 0.2
# room 0
-- d3 $ gF1 $ "drum:2*8"
d4 $ gF2 $ gM3
d4 $ gF2 $ gM3 -- Piano magique guide eternel TODO SPLIT BASS and piano d5
$ midiOn "^57" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3
$ midiOn "^89" (ply "2 4")
$ note ("[b,fs6]@1.5 [a,e6]@1.5 [[<fs!3 fs6>, cs6](3,8) [<fs!3 fs6>, cs6](<1 3 3 5>,8)]@3"
- 24)
# crushbus 41 (range 16 3.5 "^53")
# room 0.2
# "bassWarsaw"
# gain 0.7
)
$ midiOff "^57" (# cut 4)
$ midiOn "^89" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0))
$ loopAt 8
$ chop 16
$ "suns_keys"
# n (slow 4 $ "<0 1 2 3>")
# crushbus 41 (range 16 2.5 "^53")
# room 0.7
# dry 0.2 # sz 0.8
# cut 4
d5 $ gF3
# lesliebus 42 (range 0 1 "^33") # lrate 0.92 # lsize 1.9
-- # lsizebus 43 (range 0.8 1.8 "^33")
# pan 0.3
# gain 1.0
d11 $ gF3 -- Angels of deception
$ slow 2
-- $ mask "<[f f t] t!3>"
-- $ mask "<[f f t] t!3>"
$ struct "t(<3 5>,8) ~"
$ note ("[gs3 g3 fs3] ~" + "[0,<12!2 7!2>]")
$ note ("[gs3 g3 fs3] ~" + 12 + "[0,<12!2 7!2>]")
-- $ note "<fs3>"
# "FMRhodes1"
# "moogBass"
# legato 4
# modIndex (range 0 5 "^54")
# modIndex (slow 16 $ range 0 5 perlin)
# room 0.4
# att 0.24
# rel 2
# gain 0.8
d12 $ gF2 $ gM3 -- Devils of delusion
$ someCyclesBy (slow 16 $ range 0 0.8 saw) (ply "1 2!6 <2 1>")
$ slow 2
$ struct "t(<3 5>,8) t(5,8)"
-- $ superimpose ((|+ note "<12!2 7!2>") . (# cut 121))
$ note ("[cs d fs] <~!4 [fs [d cs6] ~]!12>")
-- $ note "0"
# "moog:1"
# legato 0.8
# pan 0.8
# room 0.2
# crushbus 121 (slow 4 $ range 16 3.5 perlin)
# cut 12
# gain 0.9
d8 $ gF1 $ gM1
$ midiOn "^36" (# n 48)
$ midiOn "^56" (>| n "44 45")
$ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165"))
$ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45"))
$ midiOn "^60" (loopAt 0.5)
$ midiOn "^92" (ply "1 2 <1 2> <2 4>")
$ chop 16
$ loopAt 4
$ "jungle_breaks:45"
d6 $ loopAt 2 $ "meth_bass:1" # cut 6 # pan 0.2
d7 $ gF3 $ gMute3 -- SUNS
$ slice 2 "<0!3 1>/2"
d6
-- $ loopAt 8
$ chop "4 8"
$ note "<[fs,a,cs] [gs,c,ds] [g,b,d] [fs,a,cs]>"
# "giorgio_syn:43"
-- # cut 6
# pan 0.8
-- # crushbus 61 (range 16 4.5 "^31")
-- # hpfbus 62 (range 0 1500 "^31")
# gain 0.65
d7 $ gF3 $ gMute3 -- La guitare d'Icare
$ midiOn "^91"(ply 2)
$ midiOn "^59" (# n 1)
$ fix (|* gain 0.8) (n "1")
$ loopAt 2
$ superimpose ((# lpf 2500) . (# cut 71))
$ chop 8 $ "suns_guitar:0"
-- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
# n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
# crushbus 71 (range 16 8.5 "^55")
# lpfbus 72 (range 20000 5000 "^55")
-- # octerbus 73 (range 0 1 "^35")
# hpf 1200
# cut 7
# gain 0.9
d9 $ gF3 $ gMute3 -- VOICES OF SUNS
$ midiOn "^17" ((>| n "<2 ~>") . (|* gain 1.1))
$ whenmod 64 48 (# n 3)
$ slice 2 "<0 <0 1> <0 0 [1 0] 1> 1>/2"
$ "suns_voice:0"
# end "<0.1 0.3 1 1>"
# hpfbus 71 (range 0 5500 "^55")
# n "<0!8 1 [1 0] [1 0 0 1] 1 1 [0 1] [1 0 1 1] [1 1 0 1]>"
# hpfbus 91 (range 0 5500 "^19")
# crushbus 92 (range 16 4.5 "^18")
# roombus 93 (range 0.1 0.9 "^18") # sz 0.9
# cut 7
d10
$ mask "<f!28 t!4>"
$ loopAt 4
$ "risers"
# cut 10
# pan (slow 32 $ sine)
d10 -- Decoration
$ fix (
(loopAt 4) . gMute . gMute2
. mask "<f!24 t!8>"
. (# gain 0.8)
. (# speed 0.5)
. (# cut 102)
) "risers" -- Riser occasionnel
$ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
. (# cut 101)
. (# gain 0.2)
. (# pan "<<0.2!3 [0.2|0.7]> <0.8!3 [0.8|0.3]>>")
. (# speed "<0!24 -1!8>")
) "suns_voice" -- Whisper
$ stack ["risers:19/2", "suns_voice:2"]
# room 0.2
......@@ -22,7 +22,7 @@ d1 $ gF1 $ gM2
-- # cut 1
# gain 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOn "^43" (<| "~ c ~ c*<1!3 <1 <2 4>>>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[cp:1,rampleM1:10]"
# gain 0.9
......@@ -66,7 +66,7 @@ d11 $ gF2 $ gM3 -- Plucked doubts
# cut 4
# att 0.06 # rel 2
# crushbus 41 (range 16 3 (slow 16 $ perlin))
d10 $ gF3 $ gM3
d10 $ gF3 $ gMute3
$ someCyclesBy "<1!32 0!32>" (|+ note "<e g bf b>")
$ someCyclesBy "<0!32 1!32>" (|+ note "<e b bf g>")
$ note (
......@@ -78,16 +78,16 @@ d10 $ gF3 $ gM3
# "cpluck:4"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
$ chop 8
$ midiOn "^55" (loopAt 1 . (|> "jungle_breaks:19"))
$ midiOn "^59" (slice 8 (run "8 <8!3 16>"))
$ chop 8
$ loopAt 2
$ "jungle_breaks:22"
# pan "0.8 0.2"
d8 $ gF1 $ gM1 -- Le Beat, Nu
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^60" (mask "f(4,8)" . chop 16)
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24")
$ loopAt 4
......
......@@ -34,9 +34,7 @@ d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
-- $ "d(<8 10 12 <14 [16 32 [16 <16 32>]]>>,16,1)" -- FIXME IRREGULIER
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
-- # "[h2ogmsn:14]"
# "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
......@@ -78,7 +76,7 @@ d8 $ gF1 $ gM1 -- Break populaire
$ midiOn "^36" (loopAt "1 <1 0.5>" . (# "jungle_breaks:6"))
$ midiOn "^56" (# "jungle_breaks:24")
$ "jungle_breaks:53"
# gain 0.5
# gain 0.85
# pan "0.68 0.42 0.42 0.68"
d7 $ gF1 $ gM1 -- SECOND BREAK!!?!
$ midiOn "^91" (ply 2)
......
......@@ -25,19 +25,19 @@ d2 $ gF1 $ gM1
-- $ fix ((|* gain 0.8) . (# room 0)) "cp"
$ "[h2ogmcp]"
# att 0
# rel 0.085
# rel 0.0385
# gain 1.4
-- # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
-- $ midiOn "^76" ((ply 2) . (# pan "0.2 0.8 0.2 0.8"))
$ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
# "h2ogmsn:12"
# cut 3
# legato (range 0.48 1 sine)
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1
# pan "<0.7!16 0.3!16>"
-- # pan "<0.7!16 0.3!16>"
-- # pan 0.8
d4 $ gM3 $ gF2
$ midiOn "^57" (slice 4 "<0 1 2 3>*4")
......@@ -71,7 +71,7 @@ d11 $ gM3 $ gF3
# lpfbus 112 (slow 32 $ range 12000 500 sine)
# att 0.02
# rel 7
# gain 0.9
# gain 1.1
d12 $ gM3 $ gF3
$ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
$ chop 8
......@@ -82,7 +82,7 @@ d12 $ gM3 $ gF3
# room 0.2
d8 $ gM1 $ gF1
-- Transforms over samples
$ midiOn "^60" (iter "1 4") -- Split
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^92" (fast 2) -- Multi
$ chop 16
$ loopAt 2
......
......@@ -38,7 +38,7 @@ d3 $ gF1 $ gM1 -- Highest hats
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1
# pan 0.8
d4 $ gF2 $ gM3 -- Questions basses
d4 $ gF2 $ gMute3 -- Questions basses
$ midiOn "^89" (slice 8 "<[0 0 0 3] [4 4 4 7]>")
$ midiOn ("^57"-"^89") (slice 8 "<[0 1 2 3]!4 [4 5 6 7]!4>")
$ midiOff ("^57"+"^89") (slice 8 "<[0 1 2 3] [4 5 6 7]>")
......
......@@ -23,9 +23,8 @@ d1 $ gF $ gMute2
$ midiOn "^42" (struct "t t t t") -- Le Run
$ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
$ "[techno:0,808bd:2,909,kick:4]"
# rel 0.5
# att 0.015
# rel 0.125
# room 0
# lpf 4000
# gain 1.1
-- # midiG' "^78" 0 1.9
......@@ -57,6 +56,7 @@ d3 $ gF $ gMute
$ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
# n "0!3 <0!3 1>"
-- # midiG' "^80" 0 1.6
# gain 1.1
d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique
$ midiOn "^57" (rev)
$ midiOn "^89" (struct "t*<16 32>") -- Basse folle
......@@ -75,7 +75,7 @@ d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique
# pan 0.4
# crushbus 41 (range 16 2.5 "^53")
-- # midiG' "^81" 0 1.6
d5 $ gF3 $ gMute2 -- Leads reponse TODO moins carre?
d5 $ gF3 $ gMute3 -- Leads reponse TODO moins carre?
$ midiOn "^90" (struct "t*<16 32>") -- Basse folle
$ midiOn "^58" (|+ note 12)
-- $ sometimesBy "^18" (bite 4 "[0, [~ 2]]")
......@@ -98,15 +98,15 @@ d5 $ gF3 $ gMute2 -- Leads reponse TODO moins carre?
-- # midiG' "^82" 0 1.5
d8 $ gM $ gF -- Breaks divins
$ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "[f t]")
$ midiOff "^60" (("e" ~>) . mask "t(<4 [4!3 8]>,16)")
$ chop 16
$ someCyclesBy "^36" (loopAt 1 . (# n 34))
$ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
$ loopAt 2
$ chop 8
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# gain 0.7
# gain 1
d9 $ gF3 -- Nano-angels chorus of machines
$ sometimesBy "^19" (superimpose (
(# cut 101)
......@@ -133,6 +133,7 @@ d9 $ gF3 -- Nano-angels chorus of machines
# legato 2
# pan 0.64
# cut 10
# gain 1.2
......
......@@ -17,7 +17,7 @@ d1 $ gF1 $ gM2
$ midiOff "^42" (<| "t(<3!3 <5 [5 <8 [16 10]>]>>, 8)")
$ "[jazz,electrn:8]"
-- # midiG' "^78" 0 1
d2 $ gM
d2 $ gF1 $ gM
$ midiOn "^43" (# note "-24")
$ "~ ~ cp*<1!3 2> <~!7 cp>" # "clap"
# note "-0"
......
......@@ -72,12 +72,12 @@ d5 $ gF3 $ gM3
# pan (slow 8 $ range 0.8 0.6 saw)
# cut 5
d8 $ gF1 $ gM1
$ chop 16
$ midiOn "^20" (loopAt 4)
$ midiOff "^20" (loopAt 1)
$ midiOn "^36" (# "jungle_breaks:14")
$ midiOn "^56" (# "jungle_breaks:15")
$ midiOn "^92" (ply "<2!3 [4!3 8]>")
$ chop 8
$ loopAt 2
$ midiOn "^60" (slice 8 (run "<4!3 2>"))
$ "jungle_breaks:12"
......
......@@ -5,7 +5,7 @@ Oct4 - **Glitchs sauvages**
Contre Visite
**Nuit agitee** [trop fort]
_Permanence_
Haunted house
**Haunted house**
About time
AtaRight
Empreinte du numerique
......
......@@ -67,7 +67,7 @@ This is an example startup file. You can load it from your startup file
s.options.numBuffers = 1024 * 256; // increase this if you need to load more samples
// Increased from 8192 * 32
s.options.memSize = 8192 * 32; // increase this if you get "alloc failed" messages
s.options.numWireBufs = 64; // increase if "exceeded number of wire buffer" messages
s.options.numWireBufs = 128; // increase if "exceeded number of wire buffer" messages
s.options.maxNodes = 1024 * 32; // increase this if you are getting drop outs and the message "too many nodes"
s.options.numOutputBusChannels = 12; // set this to your hardware output channel size, if necessary
s.options.numOutputBusChannels = 24; // MULTICHANNEL SETUP
......
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