Commit bc7af939 by PLN (Algolia)

chore: I should commit more often.

parent 7cc1f16d
:set -XOverloadedStrings
:set prompt ""
import Sound.Tidal.Context
import System.IO (hSetEncoding, stdout, utf8)
hSetEncoding stdout utf8
-- total latency = oLatency + cFrameTimespan
-- tidal <- startTidal (superdirtTarget {oLatency = 0.2, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20})
-- V2: Try avoid lateness by processing a tad earlier
tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20})
:{
let p = streamReplace tidal
hush = streamHush tidal
list = streamList tidal
mute = streamMute tidal
unmute = streamUnmute tidal
solo = streamSolo tidal
unsolo = streamUnsolo tidal
once = streamOnce tidal
first = streamFirst tidal
asap = once
nudgeAll = streamNudgeAll tidal
all = streamAll tidal
resetCycles = streamResetCycles tidal
setcps = asap . cps
xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
jump i = transition tidal True (Sound.Tidal.Transition.jump) i
jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
d1 = p 1 . (|< orbit 0)
d2 = p 2 . (|< orbit 1)
d3 = p 3 . (|< orbit 2)
d4 = p 4 . (|< orbit 3)
d5 = p 5 . (|< orbit 4)
d6 = p 6 . (|< orbit 5)
d7 = p 7 . (|< orbit 6)
d8 = p 8 . (|< orbit 7)
d9 = p 9 . (|< orbit 8)
d10 = p 10 . (|< orbit 9)
d11 = p 11 . (|< orbit 10)
d12 = p 12 . (|< orbit 11)
d13 = p 13
d14 = p 14
d15 = p 15
d16 = p 16
setI = streamSetI tidal
setF = streamSetF tidal
setS = streamSetS tidal
setR = streamSetR tidal
setB = streamSetB tidal
drumMachine name ps = stack
(map (\ x ->
(# s (name ++| (extractS "s" (x)))) $ x
) ps)
drumFrom name drum = s (name ++| drum)
drumM = drumMachine
drumF = drumFrom
modIndex = pF "modIndex"
mix = pF "mix"
vibrato = pF "vibrato"
chorus = pF "chorus"
lagamount = pF "lagamount"
dec = pF "dec"
sus = pF "sus"
cutoff = pF "cutoff"
:}
:set prompt "tidal> "
:set prompt-cont ""
:set -XOverloadedStrings
:set prompt ""
import Sound.Tidal.Context
import System.IO (hSetEncoding, stdout, utf8)
hSetEncoding stdout utf8
-- OSCTarget for pattern visualizing.
patternTarget = OSCTarget { oName = "Pattern handler", oAddress = "127.0.0.1", oPort = 5050, oPath = "/trigger/something", oShape = Nothing, oLatency = 0.02, oPreamble = [], oTimestamp = BundleStamp }
-- OSCTarget for play music via SuperCollider.
musicTarget = superdirtTarget { oLatency = 0.2, oAddress = "127.0.0.1", oPort = 57120 }
-- total latency = oLatency + cFrameTimespan
config = defaultConfig {cFrameTimespan = 1/20}
-- Send pattern as osc both to SC and to tidal-vis
-- tidal <- startMulti [musicTarget, patternTarget] config
-- OR
-- Send pattern as osc to SC only
tidal <- startTidal musicTarget config
:{
let p = streamReplace tidal
hush = streamHush tidal
list = streamList tidal
mute = streamMute tidal
unmute = streamUnmute tidal
solo = streamSolo tidal
unsolo = streamUnsolo tidal
once = streamOnce tidal
first = streamFirst tidal
asap = once
nudgeAll = streamNudgeAll tidal
all = streamAll tidal
resetCycles = streamResetCycles tidal
setcps = asap . cps
xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
jump i = transition tidal True (Sound.Tidal.Transition.jump) i
jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
d1 = p 1 . (|< orbit 0)
d2 = p 2 . (|< orbit 1)
d3 = p 3 . (|< orbit 2)
d4 = p 4 . (|< orbit 3)
d5 = p 5 . (|< orbit 4)
d6 = p 6 . (|< orbit 5)
d7 = p 7 . (|< orbit 6)
d8 = p 8 . (|< orbit 7)
d9 = p 9 . (|< orbit 8)
d10 = p 10 . (|< orbit 9)
d11 = p 11 . (|< orbit 10)
d12 = p 12 . (|< orbit 11)
d13 = p 13
d14 = p 14
d15 = p 15
d16 = p 16
:}
:{
let setI = streamSetI tidal
setF = streamSetF tidal
setS = streamSetS tidal
setR = streamSetR tidal
setB = streamSetB tidal
:}
:{
let modIndex = pF "modIndex"
mix = pF "mix"
vibrato = pF "vibrato"
chorus = pF "chorus"
lagamount = pF "lagamount"
dec = pF "dec"
sus = pF "sus"
cutoff = pF "cutoff"
drumMachine name ps = stack
(map (\ x ->
(# s (name ++| (extractS "s" (x)))) $ x
) ps)
drumFrom name drum = s (name ++| drum)
drumM = drumMachine
drumF = drumFrom
-- Midi boolean buttons
-- midiOn
midiOn ch pat = someCyclesBy ch pat
midiOff ch pat = someCyclesBy (1 - ch) pat
midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat
midiBoth c1 c2 pat = someCyclesBy (c1 + c2 - 1) pat
-- Parameterized DJF
_LPF lMin lMax ch = (# lpf (min lMax ((range lMin ((lMax*2) - lMin) ch))))
_HPF hMin hMax ch = (# hpf (max hMin (min hMax (range (hMin - hMax) (hMax - hMin) ch))))
midiDJF ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch)
-- FIXME: Seems to cut some lows when lMin != 0
-- Midi gain control (faders)
midiGGlobal = "^77" * 1.3
_gainG ch = (gain (midiGGlobal * ch)) -- gain Global
midiG' ch l h = _gainG (range l h ch) -- midiGain control
midiGdef = midiG' 1 0 1 -- midiGain default
midiG ch = midiG' ch 0 1 -- midiGain default
-- Global filters
gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
:}
:set prompt "tidal> "
-- :set prompt-cont ""
...@@ -44,18 +44,32 @@ soir noir ...@@ -44,18 +44,32 @@ soir noir
# Work in progress⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
## `2025` quart de siecle
# TESTING A NEW STREAMING setup
# AND EXPLORING A NEW SAMPLE PACK # Recipe
# To make a ParVagues live
Material
1. TidalCycles
2. Ardour DAW
3. MIDI LaunchControl
4. Two hands
Ingredients
1. Jungle Breaks
2. a GFunk lead
3. Drums: adjust to taste
4. a Bass synth of your choice
5. Lots of love <3
## Good timing no? :) Instructions
1. Slice the breaks finely
2. Mix slowly all ingredients
3. ???
4. PROFIT
-- Law Adiri
...@@ -63,8 +77,31 @@ soir noir ...@@ -63,8 +77,31 @@ soir noir
# Work in progress⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
## 26 lettres de noblesses
## Mars Eclosion
Drums Architecte
## Fevrier Vide
## Janvier A
- Take 5 Drops
## `2025` quart de siecle
# Decembre
FROM SCRATCH
# Novembre Novelas # Novembre Novelas
- Aria Sans Serif - **Aria Sans Serif**
- Liquid Finale
- Liquid Nite
- My sunshine
- Maudite soit la Guerre
- [Louis] Anarchie
- [Louis] D'accord
- [Louis] Pleine Lune
## Octobre ocre ## Octobre ocre
- A Long Long Way - A Long Long Way
...@@ -82,6 +119,7 @@ soir noir ...@@ -82,6 +119,7 @@ soir noir
- Des Efforts - Des Efforts
- AUX <3 PLAY TONIGHT - AUX <3 PLAY TONIGHT
- TODO OIL - TODO OIL
- Plosive
## Somptueux Septembre ## Somptueux Septembre
-- Jam reprise :3 -- Jam reprise :3
...@@ -1686,7 +1724,139 @@ Sept1 ...@@ -1686,7 +1724,139 @@ Sept1
- Des Efforts! - Des Efforts!
- AUXiliaire - AUXiliaire
## Images. ## 2025 11 SovieTeuf
,
,@,
,@@@,
,@@@@@,
`@@@@@@@@@@@@@@@@@@@`
`@@@@SOVIET@@@@`
`@@@-TEUF@@@`
,@@@@@@`@@@@@@,
@@@@` `@@@@
;@` `@;
- *Quand on Decolle*
- *Fabuleux*
- *Paris*
- Liquid Finale
- Sunshine
- *WAP*
- *The Secret*
- *Bain Electrique*
- **La Fin de l'insouciance*
- **TECHNO OLIGARCHIE**
- Piment Bresilien
- PERFECT
- L'or Bleu
- Sunny Side Up
- L'été à MauerPark
- Sept 1
## NOUVEAU Novembre set
- Quand on decolle
- Liquid Finale
- Sept1
- I'M PERFECT <3
- SoGood
# CCC
# Day 1 - Secret Toilet Rave
- Perfect Party
- WAP
- Piment Bresilien
- JeuDrill
- L'or Bleu?
- Sept1
- Sunny Side Up
- My Sunshine
- L'été à MauerPark?
- TECHNOLIGARCHIE?
- My Sunshine
- Suns of Gold
-
- END: Liquid Finale
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# PARVAGUES LIVECODING
# CCC 39c3 ALGORAVE <3
# Un live tout doux
# Pour Un Thé Dansant
# par ParVagues
# avec TidalCycles
## INTRO
-- Quand on décolle
-- Because it's there
- Ere de jeu
## TECHNO HIGH
-- Sunny
-- TechnOrage
-- L'Ete a Mauerpark
-- Piment Bresilien
-- Venons Ensemble <3
# DNB...ish
-- _Paris you want?_: Something about **Drums**
# Nujazz Low
-- Cafe Bouillant
-- **Cafe Tiede*
-- **Force motrice**
-- Cafe Glacé
## OUTRO
-- *Sept1**
# VORTEX26
# ParVagues
## INTRO
-- *Quand on décolle*
-- *Because it's there*
-- *Ere de jeu*
## TECHNO HIGH
-- 🌟 *Take 5 Drops* 🌟 [NOUVELLE]
-- **Sunny **
-- *TechnOrage*
-- **L'Ete a Mauerpark**
-- Piment Bresilien
-- Venons Ensemble <3
## SURPRISE IT'S A DANCEFLOOR
-- Perfect PARTY
# DNB...ish
-- _Paris you want?_: Something about **Drums**
-- Plosive!!1!
-- L'amour d'Abord
# Nujazz Low
-- Cafe Bouillant
-- **Cafe Tiede*
-- **Force motrice**
-- Cafe Glacé
## OUTRO
-- *Sept1**
## Rappel? Bonus?
-- Ton Numero
-- Contre Visite
## Images
-- "/home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif" -- "/home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif"
-- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif" -- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif"
url: "/home/pln/Work/Web/www/next/public/images/parvagues/bg_live.gif" url: "/home/pln/Work/Web/www/next/public/images/parvagues/bg_live.gif"
......
once $ "bond:14" # cut 23 # gain 2 -- BUCKINGHAM
once $ "bond:13" # cut 23 # gain 2 -- LOST CHARM
once $ "bond:15" # cut 23 # gain 2 -- Audiovisual
...@@ -86,11 +86,11 @@ d7 -- Claps ...@@ -86,11 +86,11 @@ d7 -- Claps
$ stut 2 0.6 "s" $ stut 2 0.6 "s"
$ "~ c ~ c*2" # "superclap" $ "~ c ~ c*2" # "superclap"
# n 2 # n 2
# room 0.1 -- # room 0.1
# size 0.8 -- # size 0.8
# rate 50 # rate 50
# pitch1 (range 1 1.5 perlin) -- # pitch1 (range 1 1.5 perlin)
# gain 1.5 # gain 1.9
d4 -- Brass voice d4 -- Brass voice
$ jux ((|+ room 0.1)) $ jux ((|+ room 0.1))
$ superimpose ((# "kurt:2") . (|* gain 0.7) . (|+ pan 0.1)) $ superimpose ((# "kurt:2") . (|* gain 0.7) . (|+ pan 0.1))
...@@ -186,7 +186,7 @@ d4 -- Brass voice ...@@ -186,7 +186,7 @@ d4 -- Brass voice
# "brass" # "moogBass" -- FIXME RESTORE BRASS SAMPLES! # "brass" # "moogBass" -- FIXME RESTORE BRASS SAMPLES!
# legato "<0.75!7 1>" # legato "<0.75!7 1>"
# room 0.2 # room 0.2
# gain 0.6 # gain 0.7
d6 -- synth Chorus d6 -- synth Chorus
$ note (cat [ $ note (cat [
"","","","","","","","", -- Intro "","","","","","","","", -- Intro
......
once $ "bassWarsaw" once $ "bassWarsaw"
do do
-- resetCycles
setcps (110/60/4) setcps (110/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) 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 gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
...@@ -17,38 +18,43 @@ d1 $ gF1 $ gM2 ...@@ -17,38 +18,43 @@ d1 $ gF1 $ gM2
$ midiOff "^42" (<| "k") $ midiOff "^42" (<| "k")
$ fix ((|* gain 0.9) . (# lpf 1000)) "jazz" $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]" $ "[808bd:1,808bd:2,jazz,kick:4]"
d2 $ gF1 $ gM $ "~ sn ~ sn" # "[snare:5,snare:19]" d2 $ gF1 $ gM $ "~ sn <~ [~ sn]> sn" # note "0 0 -1 0" # legato "1 1 0.75 1"
d3 $ gF1 $ gM -- Hats ouverts legers # "[snare:5,snare:19]"
# room 0.4 # sz 0.1 # dry 1.1
d3 $ gF1 $ gM -- Hats ouverts legers
$ midiOn "^76" (ply 2) $ midiOn "^76" (ply 2)
$ midiOff "^44" (mask "t(4,8)") $ midiOff "^44" (mask "t(4,8,1)")
$ "ho:0*8" $ "ho:0*8"
# att 0.25 # att 0.25
# rel 0.05 # rel 0.05
# gain "1 0.9 1 0.8 <0.9!3 1.05> 1" # gain (1 * "1 0.9 1 0.8 <0.9!3 1.05> 1")
d4$ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^57" ((|+ note 12) . (# freeze 0.8)) $ midiOn "^57" ((|+ note 12) . (# freeze 0.8))
$ sometimesBy (1 - "^17") (mask "[t@6 <f!3 t> <f t>]") $ sometimesBy (1 - "^17") (mask "[t@6 <f!3 t> <f t>]")
$ note "[cs3@6 gs3 ds3]" $ note "[cs2@6 gs2 ds2]"
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 5 "^33") # octersubsubbus 43 (range 0 5 "^33")
# squizbus 44 (range 0 2 "^17") # squizbus 44 (range 0 2 "^18")
# roombus 45 (range 0 0.5 "^53") # roombus 45 (range 0 0.5 "^53")
# "bassWarsaw" # "bassWarsaw"
d7 $ note "<b4 as4 gs4 ~>" # gain 1.2
# legato 0.125 d5 $ gF3 $ gM3
# room 0.8 $ midiOn "^90" (stut 4 0.6 "e")
# sz 0.4 # dry 1 $ midiOn "^58" (|+ note 12)
# "ikedaBass" $ note ("[<b5 as5 gs5 gs5>]"
# modIndex 0 |+| "0 ~ ~ 0 ~ <~!2 0 ~> 0 ~"
# crushbus 71 (range 16 4.5 "^55") -- + (slow 8 "<0 12 0 24>")
# lpf 1500 - 12)
# att 0.4 # "FMRhodes1"
# rel 0.9 # room 0.48 # sz 0.71
# delay 0.9 # dry 1.3
# delayfb 0.2 # gain 1.5
# delayt 0.75 # octersubsubbus 51 (range 0 1.4 "^34")
# modIndex (range 0 16 "^54")
# rel 2
# orbit 4
d9 $ gF3 $ gM3 -- Aterrissage sur venus d9 $ gF3 $ gM3 -- Aterrissage sur venus
$ note "gs5/2" $ note "gs5/2"
# "FMRhodes1" # "FMRhodes1"
...@@ -59,20 +65,36 @@ d9 $ gF3 $ gM3 -- Aterrissage sur venus ...@@ -59,20 +65,36 @@ d9 $ gF3 $ gM3 -- Aterrissage sur venus
# modIndex 0 # modIndex 0
# pan "0.1" # pan "0.1"
d10 d10
$ struct "<~!12 t ~ ~ ~>"
$ "risers:8" # speed 0.25
# room 0.4 # sz 0.9
# cut 10
# gain 0.8
d11 $ gMute3
$ note "<b4 as4 gs4 ~>" $ note "<b4 as4 gs4 ~>"
# "90s_synatm:0" # "90s_synatm:0"
# room 0.4 # sz 0.9 # room 0.4 # sz 0.9
# cut 10 # cut 11
# lpfbus 101 (slow 8 $ range 3000 1500 sine) # lpfbus 101 (slow 8 $ range 3000 1500 sine)
d7 $ note ("<e4 ds4 cs4 cs4>" + "0(3,8) 0(3,8)" + "[0,12]") # gain 0.7
d7 $ gF2 $ gM3
$ midiOff "^91" (mask "t(3,8) t(3,8)")
$ note (
"<e4 b3 cs4 cs4>" + "0(<3!3 5>,8) 0(5,8)"
)
# "giorgio_syn:7" # "giorgio_syn:7"
-- # lpf 500
# orbit 6
# octersubbus 102 (range 0 2 "^55") # octersubbus 102 (range 0 2 "^55")
# gain 0.8 # gain 1.8
d5 $ note "[<b5 as5 gs5 gs5>]" |+| "0 ~ ~ 0 ~ <~!2 0 ~> 0 ~" d8 $ gF1 $ gM
# "FMRhodes1" $ midiOn ("^60" - "^92") (ply "1!2 <1!3 <2 1 1 2>>!2" . mask "f(4,8)")
# room 0.8 # sz 0.1 # dry 1 $ midiOn ("^36" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:45")) -- Clochettes?
# rel 2 $ midiOn ("^56" - "^92") ((loopAt 1) . (# hpf 1500) . (# "jungle_breaks:30")) -- Clochettes?
# gain 0.7 $ midiOn ("^92") ( -- Bouton Nassim <3
# orbit 4 slice 16 "[0 .. 7] . <[0 .. 7]!7 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165") . (# octersub 2)
)
$ chop 16
$ loopAt 2
$ "jungle_breaks:74"
# room 0
# gain 1.4
...@@ -92,20 +92,18 @@ let gMute3 = (midiOn "^75" (mask "f*16")) ...@@ -92,20 +92,18 @@ let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
-- 16-bar chord cycle: Bbm(4) | F(4) | Bbm(4) | Ebm(4) -- Harmonic foundation: 16-bar cycle (each chord = 2 bars)
-- Faders for live timbral control (the "wider before drop" sweep): -- Main Bbm/F vamp with Db/Ebm variation at the end
-- ^34: arp FM1 depth ^54: arp FM2 ^18: arp detune/width let rt = slow 2 "<bf3 f3 bf3 f3 bf3 f3 df3 ef3>"
-- ^55: arp brightness ^53: bass cutoff ^56: pad openness d1 $ gF1 $ gMute2 -- KICK: Deep 4otf house kick
-- ^35: lead FM
d1 $ gF1 $ gMute2 -- KICK: 808 sub + clubkick body, 4otf
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>") $ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k") $ midiOff "^42" (<| "k")
$ "[808bd:2,clubkick:2]" $ fix ((# att 0.01) . (# rel 0.5) . (# lpf 2000)) "kick:4"
# lpf 5000 $ "[techno:0,808bd:2,kick:4]"
# gain 1.3 # gain 1.3
d2 $ gF1 $ gM -- CLAP: h2o natural handclap, reverbed d2 $ gF1 $ gM -- CLAP: h2o natural handclap, reverbed
$ midiOn "^43" (<| "~ cp ~ [cp <~ cp>]") $ midiOn "^43" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^43" (<| "~ cp ~ cp") $ midiOff "^43" (<| "~ cp ~ <~ cp*<1 2>>")
$ "h2ogmcp" $ "h2ogmcp"
# room (slow 32 $ range 0.3 0.6 saw) # room (slow 32 $ range 0.3 0.6 saw)
# sz (slow 32 $ range 0.1 0.45 cosine) # sz (slow 32 $ range 0.1 0.45 cosine)
...@@ -118,90 +116,75 @@ d3 $ gF1 $ gM -- HATS: h2o sparse offbeat + light flourish ...@@ -118,90 +116,75 @@ d3 $ gF1 $ gM -- HATS: h2o sparse offbeat + light flourish
$ "~ h ~ h ~ h ~ <h!3 h*2>" $ "~ h ~ h ~ h ~ <h!3 h*2>"
# "h2ogmhh" # "h2ogmhh"
# n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- occasional open hat flourish # n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- occasional open hat flourish
# gain "~ 0.7 ~ 0.8 ~ 0.65 ~ <0.7!3 [0.7 0.5]>" # gain (1.5 * "~ 0.7 ~ 0.8 ~ 0.65 ~ <0.7!3 [0.7 0.5]>")
# gain 0.85 d4 $ gF2 $ gM3 -- BASS: Sub drone, one root per bar
d4 $ gF2 $ gM3 -- BASS: MiOmi sub, melodic through chord tones $ midiOn "^57" (
$ midiOn "^57" (rev) off "e" ((|+ note 12) . (|* gain 0.65) . (# legato 0.3))
$ midiOn "^89" (ply 2) ) -- octave ghost echo
$ note ( $ midiOn "^89" (struct "t <t(3,8) t*[2 <2 4>]>") -- Bass goes wild
slow 4 $ cat [ $ note (rt - 12)
"bf2 ~ df3 ~ bf2 ~ f2 ~", -- Bbm: root → m3rd, root → 5th # "bassWarsaw"
"f2 ~ a2 ~ f2 ~ c3 ~", -- F: root → maj3rd, root → 5th # dec 0.3 # sus 0.8
"bf2 ~ df3 ~ bf2 ~ f2 ~", -- Bbm # lpfbus 41 (range 300 900 "^53")
"ef2 ~ gf2 ~ ef2 ~ bf2 ~" -- Ebm: root → m3rd, root → 5th # crushbus 42 (range 16 3 "^33")
])
# "miomi"
# fm1 0.08 # fm2 0
# level1 0.6 # level2 0.2
# omicutoff (range 0.25 0.5 "^53") -- fader: bass brightness
# reson 0.15
# room 0.15 # room 0.15
# cut 4
# gain 1.3 # gain 1.3
d5 $ gF3 $ gM3 -- ARPEGGIO: MiOmi 2-note 16th oscillation (from MIDI) d5 $ gF3 $ gM3 -- ARPEGGIO: 2-note 16th oscillation (from MIDI)
$ midiOn "^90" (stut 4 0.5 "e") $ midiOn "^90" (stut 4 0.5 "e")
$ midiOn "^58" (|+ note 12) -- octave up $ midiOn "^58" (superimpose ( -- bloom: octave shimmer + pan spread
(|+ note 12) . (|* gain 0.55) . (|+ pan 0.2) . (# room 0.5)
))
$ mask "<t(11,16) t(13,16) t(14,16) t(15,16)>" -- breathes: sparse → full over 4 bars
$ note ( $ note (
slow 4 $ cat [ "<[bf4 f4]*8!2 [f4 bf4]*8!2 [bf4 f4]*8!2 [ef4 gf4]*8!2>"
"[bf4 f4]*8", -- Bbm: Bb on downbeats )
"[f4 bf4]*8", -- F: F on downbeats (order flips!) # "FMRhodes1"
"[bf4 f4]*8", -- Bbm # modIndex (range 0.5 8 "^34")
"[ef4 gf4]*8" -- Ebm: Eb/Gb oscillation # crushbus 51 (range 15 2.8 "^54")
]) # lpfbus 52 (slow 8 $ range 800 6000 sine)
# "miomi" # room 0.35 # sz 0.5 # dry 1.2
# fm1 (range 0.05 0.6 "^34") -- fader: FM depth → wider/brighter # legato 0.5
# fm2 (range 0 0.3 "^54") -- fader: FM2 → extra harmonics
# detune (range 0 0.4 "^18") -- fader: stereo width / phaser-like
# omicutoff (range 0.4 0.95 "^55") -- fader: brightness
# level1 0.5 # level2 0.3
# reson 0.1
# room 0.3 # sz 0.4 # dry 1.2
# legato 0.4
# pan 0.6 # pan 0.6
# gain 1.1 # gain 1.9
d9 $ gF2 $ gM3 -- PAD: MiOmi detuned warm bed d9 $ gF2 $ gM3 -- PAD: Warm evolving harmonic bed
$ note ( $ note (
slow 4 $ cat [ slow 2 $ cat [
"[bf4,df5,f5]", -- Bbm "[bf4,df5,f5]", "[f4,a4,c5]",
"[f4,a4,c5]", -- F "[bf4,df5,f5]", "[f4,a4,c5]",
"[bf4,df5,f5]", -- Bbm "[bf4,df5,f5]", "[f4,a4,c5]",
"[ef4,gf4,bf4]" -- Ebm "[df4,f4,af4]", "[ef4,gf4,bf4]"
]) ])
# "miomi" # "90s_synatm:0"
# detune 0.35 # lpfbus 71 (slow 16 $ range 1500 5000 sine)
# level1 0.5 # level2 0.5
# fm1 0.02 # fm2 0
# omicutoff (range 0.3 0.6 "^56") -- fader: pad openness
# reson 0.2
# room 0.6 # sz 0.8 # dry 0.9 # room 0.6 # sz 0.8 # dry 0.9
# legato 4 # legato 4
# pan 0.4 # pan 0.4
# cut 7 # cut 7
# gain 0.6 # gain 0.95
d7 $ gF3 $ gMute3 -- LEAD: MiOmi counter-melody, high register zd7 $ gF3 $ gMute3 -- CELLO: Bowed answer phrase + sustained note
$ sometimesBy "^19" (superimpose ( $ midiOn "^91" (ply 2) -- doubles for urgency
(|+ note "[0,7]") $ midiOn "^59" (# "[cpluck:6,cpluck:7]") -- pizzicato mode
. (|+ pan 0.15) $ note ( -- held note then descending answer at end of bar (4→3→2)
. (# cut 91) "<[bf5@5 ~ [ef5 df5 c5] ~] [f5@5 ~ [bf5 af5 gf5] ~] [bf5@5 ~ [ef5 df5 c5] ~] [ef5@5 ~ [af5 gf5 f5] ~]>"
)) )
$ midiOff "^58" (mask "t(2,4)") # "cbow:2" -- C4 bowed long vibrato
$ note ( # room 0.4 # sz 0.6
slow 4 $ cat [ # legato 1.2
"bf5 ~ df6 ~ f5 ~ df6 bf5", -- Bbm # pan 0.8
"c6 ~ a5 ~ f5 ~ a5 c6", -- F # cut 7
"bf5 ~ df6 ~ f5 ~ df6 bf5", -- Bbm # gain 1.0
"ef5 ~ gf5 ~ bf5 ~ gf5 ef5" -- Ebm d8 $ gF1 $ gM1
]) $ midiOff "^60" (mask "t(4,8,1)")
# "miomi" $ midiOn "^36" (# "jungle_breaks:74")
# fm1 (range 0.1 0.4 "^35") -- fader: lead FM character $ midiOn "^56" (# "jungle_breaks:19")
# fm2 0.1 $ chop 16
# omicutoff 0.7 $ loopAt 2
# level1 0.4 # level2 0.3 $ "jungle_breaks:42"
# room 0.5 # sz 0.7 # gain 1.5
# legato 1.5 # room (slow 8 $ range 0 0.3 perlin)
# pan 0.7 # sz 0.05
# cut 9 # octersub 0.5
# gain 0.85 # delay "[0 0.5]*2"
d10 -- RISER: Transition sweeps d10 -- RISER: Transition sweeps
$ struct "<~!14 t ~>" $ struct "<~!14 t ~>"
$ "risers:8" # speed 0.25 $ "risers:8" # speed 0.25
......
...@@ -40,5 +40,3 @@ $ s "blip" ...@@ -40,5 +40,3 @@ $ s "blip"
# note "<0 [3,7] 0 [0,7]>" # note "<0 [3,7] 0 [0,7]>"
# pan (0.25 + rand / 2) # pan (0.25 + rand / 2)
# gain 0.6 # gain 0.6
d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique
--
once $ s "bd" d1
# speed 6 $ speed "1 1 1 <1 -4>"
# s "bd"
# gain 1
d1 -- kick d1 -- kick
-- $ euclid "<4 6>" 4 -- $ euclid "<4 6>" 4
...@@ -15,40 +17,40 @@ $ every' 16 7 degrade ...@@ -15,40 +17,40 @@ $ every' 16 7 degrade
$ every 16 (# gain 0) $ every 16 (# gain 0)
$ s "bd(5,8)" $ s "bd(5,8)"
# note "<50 <55 <60 65>>>" # note "<50 <55 <60 65>>>"
# pan 0.8 -- # pan 0.8
# gain 1.3 -- # gain 1.3
--
d3 -- vibration montante! -- d3 -- vibration montante!
$ sometimesBy 0.01 (# crush 4) -- $ sometimesBy 0.01 (# crush 4)
$ every 4 (rev) -- $ every 4 (rev)
$ sound "bd" -- $ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>" -- # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed ( -- >| speed (
segment 200 -- segment 200
$ range 2 4 cosine -- $ range 2 4 cosine
) -- )
# gain 0.8 -- # gain 0.8
--
d8 -- helico -- d8 -- helico
$ every' 4 3 (off 0.125 id) -- $ every' 4 3 (off 0.125 id)
$ every 8 (# gain 0) -- $ every 8 (# gain 0)
$ every' 8 7 (# gain 1.2) -- $ every' 8 7 (# gain 1.2)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd" -- $ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 2.5 -- # gain 2.5
# pan 0.3 -- # pan 0.3
--
d5 -- cordes guitare pincée -- d5 -- cordes guitare pincée
$ someCycles (fast 2 . degrade) -- $ someCycles (fast 2 . degrade)
$ someCycles (slow 2 . off 0.125 (|- up 12)) -- $ someCycles (slow 2 . off 0.125 (|- up 12))
$ off 0.125 (|+ up 12) -- $ off 0.125 (|+ up 12)
$ off 0.125 (|+ up 12) -- $ off 0.125 (|+ up 12)
$ off 0.25 (|- up 12) -- $ off 0.25 (|- up 12)
$ up "40 47" -- $ up "40 47"
# s "bd" -- # s "bd"
--
--
d6 -- clap! -- d6 -- clap!
$ stut 2 1.05 0.05 -- $ stut 2 1.05 0.05
$ s "~ ~ bd ~" -- $ s "~ ~ bd ~"
# hpf 400 -- # hpf 400
# lpf 1000 -- # lpf 1000
...@@ -10,10 +10,28 @@ let gMute3 = (midiOn "^75" (mask "f*16")) ...@@ -10,10 +10,28 @@ let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM1
$ midiOn "^42" (fast 2 . (<|"k k k <k [<~ k> k]>"))
$ midiOff "^42" (<| "k k k k*<1 2>" )
$ "jazz"
d2
$ midiOn "^43" (fast 2)
$ "~ s ~ s*<1 1 2 [4 2]>"
# "vec1_snare:20"
d3 $ "hh(3,8) hh(5,8)"
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ loopAt 1 $ loopAt 1
$ chop 8 $ chop 8
$ midiOn "^36" (# n 95)
$ midiOn "^56" (# n 45) $ midiOn "^56" (# n 45)
$ "jungle_breaks:22" $ "jungle_breaks:22"
# cut 8 # cut 8
# gain 1.1 # gain 1.1
d4 $ gF2 $ gM3 $ note "<cs2 ef2 cs2 <cs2 gs3>>/2"
# "bassWarsaw"
# room 0.2
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 2.5 "^33")
d5 $ note (
"[cs cs ef cs]" + 12) # "moog:3" # cut 5
...@@ -50,8 +50,9 @@ d4 $ gF2 $ gM3 -- Bassline faite main avec un violoncelle californien ...@@ -50,8 +50,9 @@ d4 $ gF2 $ gM3 -- Bassline faite main avec un violoncelle californien
-- # octersubbus 43 (range 0 2.5 "^33") -- # octersubbus 43 (range 0 2.5 "^33")
# cut 41 # cut 41
# lpf 20000 # lpf 20000
# gain 1.4
d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable d5 $ gF3 $ gM3 -- Piano nostalgique, temps inexorable
-- $ midiOn "^" $ midiOn "^90" (superimpose ((# cut 51) . (# delay 0.95). (# delayt 0.125) . (# delayfb 0.7) . (# room 0) .(|* gain 0.8)))
$ stack [ $ stack [
midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano midiOn "^58" (# silence) $ slow 2 "<begin ~ begin ~ begin ~ ~ ~>/2" # cut 51 # begin 0 # end 0.2 # pan 0.4, -- Main piano
midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano midiOn "^58" (# silence) $ slow 2 "<~ mid ~ mid ~ mid ~ ~>/2" # cut 52 # begin 0.25 # end 0.6 # pan 0.4, -- side piano
...@@ -76,14 +77,14 @@ d8 $ gF1 $ gM1 -- Break multi-facette, assez complexe, comme chacun d'entre nous ...@@ -76,14 +77,14 @@ d8 $ gF1 $ gM1 -- Break multi-facette, assez complexe, comme chacun d'entre nous
$ chop 16 $ chop 16
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:1" # cut 8 $ "jungle_breaks:1" # cut 8
# gain 0.8 # gain 1.4
d9 $ gF3 $ gM3 d9 $ gF3 $ gM3
$ note ("<e e c b4>/2" - "e") $ note ("<e e c b4>/2" - "e")
# "rhadamanthe_melo:4" # "rhadamanthe_melo:4"
# legato 4 # legato 4
# rel 2 # rel 2
# sus 2 # sus 2
# room 0.4 # lpf 2000 # room 0.6 # sz 0.6 # lpf 2000
d11 $ gM3 $ gF3-- Intro doux piano d11 $ gM3 $ gF3-- Intro doux piano
$ gF3 $ gF3
$ whenmod 8 6 (slice 2 "0*2") $ whenmod 8 6 (slice 2 "0*2")
...@@ -96,4 +97,13 @@ d11 $ gM3 $ gF3-- Intro doux piano ...@@ -96,4 +97,13 @@ d11 $ gM3 $ gF3-- Intro doux piano
# delayt ("<2!3 3>"/3) # delayt ("<2!3 3>"/3)
# delayfb 0.5 # delayfb 0.5
# gain 1.3 # gain 1.3
d12 $ "hh(3,8) hh(3,8)" # "h2ogmhh" d12 $ gF1 $ gM1 $ "hh(3,8) hh(3,8)" # "h2ogmhh"
d10
$ mask "<f!24 t!8>"
$ loopAt 8
$ "risers"
# cut 10
# room 0.4
# dry 1.4
# octersubsub 0.5
# gain 0.8
-- Hello world <3
-- This is ParVagues
-- Wait, should start silent!
-- This was just a soundcheck :P
-- T - 20 :rocket:
do
setcps (120/60/4)
-- TODO: Suggestion gM1/2/3 filtres partiels
-- let gM3 =
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t t")
$ midiOff "^42" (struct "t . t(3,8)")
$ "jazz"
# gain 1.5
d2 $ gF1 $ gM1
$ "~ sn ~ sn" # "snare:30"
# gain 1.4
d3 $ gF1 $ gM1
-- $ degradeBy "0.2 0.8"
$ "hh([12 16],16)" # "h2ogmhh:3"
# gain 1.8
d4 $ gF2 $ gM3
$ note (scale "dorian" ("0 0 4 <2 1 2 7>") + "fs2") # "bassWarsaw"
# cut 4
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 2.5 "^53")
d5 $ gF3 $ gM3
-- $ degradeBy 0.4
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:5"
# cut 5
# gain 1.7
# octersubbus 51 (range 0 2.5 "^54")
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)" . chop 8) -- TECHNO MASK !!
$ chop 8
$ loopAt 2
$ midiOn "^36" (# n 74) -- Savoie <3
$ midiOn "^56" (# n 19)
$ "jungle_breaks:45"
# cut 8 -- 45 orleans rpz <3
# hpf 200
# gain 1.6
d9 $ gF3 $ gM3
$ fix ((# begin 0.15)) (n 0)
$ fix ((# end 0.7)) (n 1)
$ mask "<t!3 f>"
$ "love"
# n (slow 4 "<0 1 2 4>")
# cut 9
# room 0.3 # sz 0.4 # dry 1.3
do
d1 $ gM2 $ 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
$ midiOff "^43" (struct "~ t")
$ midiOn "^43" (struct "~ t ~ t")
$ "vec1_snare:30"
d3 $ gM1 $ gF1 $ "hh*16" # "h2ogmhh"
d4 $ gM3 $ gF2
-- $ midiOn "^89" (ply "<4 8 8 16>")
$ n (scale "dorian" "<0 0 4 <2 7>>" + "fs")
# s "bassWarsaw"
# octave 2
# gain 1.3
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 5 "^53")
# leslie 0.85
# lrate (slow 16 $ range 2 16 saw)
# lsize 0.7
# bandf 300
# pan 0.3
# room 0.2 # sz 0.8 # dry 0.8
d5 $ gM3 $ gF3
$ midiOff "^58" (mask "t(<1 2 3 4 5 6 7 8>,16)" . chop 16)
$ midiOn "^90" (ply "4 <4 8 8 16>")
$ slice 8 (slow 2
$ ply "<1!8 2!3 4 2!3 8>"
$ "<0 1 2 3 4 5 6 7>")
$ "gfunk_lead:5"
# gain 1.2 # cut 5
# pan 0.8
# octersubbus 51 (range 0 2.5 "^54")
d8 $ gM1 $ gF1
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ chop 8
$ loopAt 2
$ midiOn "^36" (# n 74) -- Le savoyard
$ midiOn "^56" (# n 19)
$ "jungle_breaks:45"
# cut 8
# hpf 300
# gain 1.3
once $ note "fs2" # "bassWarsaw"
# gain 1.8 # lpf 4000
# octer 0.8
once $ "gfunk_lead:5"
do
setcps (120/60/4)
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t*4" )
$ midiOff "^42" (struct "t . t(<3 [3 <1 5 [5 3] 8>]>,8)")
$ "jazz" # lpf 300
d2 $ gF1 $ gM1
$ 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"
d4 $ gF2 $ gM3
$ note (scale "dorian" "0@3 0 4@2 <2 7>" + "fs2")
# "bassWarsaw"
d5 $ gF3 $ gM3
$ ply "1 2"
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:5"
# cut 5
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)" . chop 16)
$ midiOn "^56" (# n 19)
$ midiOn "^36" (# n 74)
$ chop 8 $ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.4
d9 $ gF3 $ gM3
$ fix (
(# begin 0.15) . (# att 0.04) . (# rel 1)
) (n 0)
$ fix (
(# begin 0)
. (# att 0.04) . (# rel 4)
) (n 1)
$ "~ ~ ~ <~ love>"
# cut 1
# gain 1.8
# room 0.4 # sz 0.8 # dry 1.5
# n (slow 4 $ "<1 1 1 2 4 2 4>")
once $ "movie_dawn:11" # gain 1.4 # cut 3 # room 0.4 # end 0.5
do
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
-- DARK NOIR CHORDS (matching the A->E->D pad progression)
let chords1 = "<Am9 Em7 [Dm9 Dm9]>" -- Section 1: D held 2x
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
$ 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
$ midiOn "^43" (fast 2)
$ "~ s ~ [s*<1!3 2> <~ <s s*[4 2]>>]"
# "hh27:12"
# cut 2
# gain 1.4
# lpf 1500
# legato 0.5
d3 $ gF1 $ gM1
$ 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]>]"
# "h2ogmsn:4"
# gain (0.8 * "1 1 0.9 1 0.8 0.9 0.8 <0.9 0.8 0.9 [1.1|1]>")
d4 $ gF2 $ gM3
$ struct "t ~ t t ~ t ~ t?" -- Offbeat groove with probability
$ chordsRoot -- Auto-switches at bar 32!
|+| n "0 7 0 <4 2> 7 0 <[0 12] [7 4]>" -- Melodic bass line
-- |+| n "0 7 4 <0 2> 7 <0 4> [7|12] 0" -- Alt: More melodic movement
-- |+| n "0 ~ 7 ~ [4|0] ~ 7 <0 2>" -- Alt: Sparser, half-time feel
# "bassWarsaw"
# octave 2
# lpf (slow 16 $ range 300 800 sine) -- Higher range for DNB
# resonance (slow 8 $ range 0.1 0.3 sine)
# room 0.3 # sz 0.4 -- Tighter reverb for punch
# gain (1.3 * "<1 [0.9|1] 1 0.9>") -- Consistent power with subtle variation
# legato (slow 8 $ range 0.5 1 perlin) -- Not always full
# crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3
-- $ struct "<[t ~ ~ t? ~ t ~ ~] [t ~ t? ~ ~ ~ t ~]>" -- Alternating patterns + random hits
-- $ struct "t ~ [~|t] t ~ <t t?> ~ ~" -- Alt: More random variation
$ superimpose (id -- TODO ARPEGIATE PLZ)
(midiOn "^90" (stut 4 "e" 0.9)) .
struct "t(12,8)" .
slow 4
. arp "up"
. (# cut 51)
. (|* gain (1.4 * "^34"))
. (|+ octave 1)
. (# pan 0.8)
. (# modIndex 0)
)
$ struct "t(3,8) t(<3 4 5 8>,8,<0!3 1>)"
$ slow 8
$ chords -- Auto-switches at bar 32!
# "FMRhodes1"
# octave 4
# modIndex (slow 8 $ range 0.1 5 sine)
# gain (0.85 * "1 [0.8|1] [0.9|1.1] 1 <1 [0.7|0.9]> [0.8|1|1.2] 1 0.9") -- Human dynamics
# room 0.6 # sz 0.8 # dry 1.2
# lpf (slow 24 $ range 2500 5500 sine)
# pan ("<0.3 0.7 [0.5|0.6]>" + (slow 32 $ range (-0.1) 0.1 sine)) -- Drift + variation
# attack (0.01 + (rand * 0.02)) -- Slight timing humanization
# release (slow 16 $ range 0.8 1.5 sine)
# crushbus 41 (range 16 3.5 "^54")
d7 $ gF3 $ gM3
$ slow 16 $ chordsRoot -- Very slow, ambient
-- |+| n "[0,7] ~ ~ ~ [7,12]? ~ ~ ~" -- Fifth chords, sparse hits
|+| n "[0,7] ~ [0,7,12]? ~ ~ ~ [7,12] ~" -- Alt: More hits, triple voicing
# "cbow"
# octave "<3 3 4 3>" -- Breathe with the progression
# lpf (slow 32 $ range 1200 3000 sine)
# lpq 0.3
# room 0.8 # sz 0.9 # dry 0.8 -- Very ambient
# gain (0.6 * "<1 [0.8|0.9] 1 [0.7|1]>")
# pan (slow 24 $ range 0.2 0.8 sine)
# attack (0.3 + (rand * 0.2)) -- Slow bowed attack
# release 2
d8 $ gF1 $ gM1
$ midiOn "^60" (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")
$ midiOn "^56" (# "jungle_breaks:45")
-- $ loopAt 0.5
$ "breaks165"
# bandf 1400
# room 0.3
# dry 1.2 # sz 0.8
# cut 8
# gain 0.93
# delay "<0 [0!3 0.4]>"
# delayfb 0.5
# delayt "[0.25]"
d11 $ gF3 $ gM3
$ degradeBy 0.1
$ "noir_angels:15/4"
# cut 11
# gain 1.2
# pan (slow 16 $ range 0.6 0.1 perlin)
# delay 0.5 # delayt "1.25"
# delayfb 0.8
# hpf (slow 32 $ range 0 5000 cosine)
d12 $ gF3 $ gM3
$ mask "<f f t f>"
$ "noir_angels:4"
# cut 12
# gain 0.7
# pan (slow 4 $ range 0.4 0.9 perlin)
# hpf (slow 32 $ range 0 5000 sine)
# room 0.4 # dry 1.1 # sz 0.8 # lpf 4500
# delay 0.5 # delayt "1.25" # delayfb 0.8
do
setcps (114/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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
d1 $ gF1 $ gMute2 -- 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
$ 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
$ midiOff "^44" (mask "t(4,8,1)")
$ "o([8 . 8 <8 16> 4],8,1)"
# "ho"
# gain 1.2
# att 0.1 # rel 0.9
# room 0.5
# drybus 31 (range 1 0 "^51")
# legato (range "s" 2 "^52")
d5 $ gF2 $ gM3
$ midiOn "^90" (ply 4)
$ midiOn "^58" (# n 1)
-- $ slice 4 (ply 2 $ "<0 1 2 3>" + "0 0*2")
$ slice 4 (ply 2 $ "<0 0 0 3>")
$ "aux_heart"
# cut 4
# gain 1.4
# room 0.4
# pan 0.8
# crushbus 51 (range 16 2.5 "^54")
# octerbus 52 (range 0 1 "^34")
# gain 1.7
d4 $ gF2 $ gM3
$ midiOn "^89" (chop "<8 8 8 8 8 7 8 7>")
$ note ("<a <a [a@7 b]> fs <fs [fs@7 e]>>"
-- + "[0,<0 7>,7,12]"
- "[24]"
)
# "bassWarsaw"
# gain 1.5
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
d7 $ gF3 $ gM3
$ midiOn "^91" ((ply "8 <16 [16 32]>"))
$ slow 2
$ slice 4 ("<0 1 2 3>")
$ "aux_heart:3"
# cut 7
# gain 1.5
# room 0.5
# sz "<0.3!3 1.2>"
# cut 7
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.5
-- d4 $ gF2 $ gM3 -- WAP BASS
-- $ midiOff "^81" (# silence)
-- $ midiOn "^89" (
-- slice 8 ("~ 0 ~ 5 ~ 3 <~!4 5!4> <3!4 [3 0]!4>")
-- -- . (superimpose (# cut 41))
-- )
-- $ midiOn "^57" (
-- slice 8 ("~ 0 <~ ~ 5 5> 3 <~ 0!3> <~!4 0!10 ~ 0*4> 5 <~ 5>")
-- -- $ (0.125 ~>)
-- . (# gain 1.3 )
-- . (# crushbus 43 (range 16 3.4 "^53") )
-- . (# lpf 3000)
-- -- . (# note "-12")
-- -- . ( #octersub 1.2)
-- -- . (# room 0.2) . (# room 0.2) . (# dry 0.9)
-- )
-- -- $ midiOff ("^57" - "^89") ("0.25" ~>) -- TODO: Decalage de Bruno
-- $ "wap/2"
-- # lpf 2400
-- # cut 4
-- # gain 1.9
-- -- # room 0.4
-- # octersubsubbus 42 (range 0 1.4 "^53")
-- # octerbus 41 (range 0 1.4 "^53")
-- d5 $ gF3 $ gMute3 -- WAP HOES v1 magic repeat
-- $ midiOn "^34" (# 7) -- FORCE INTRO
-- $ midiOff ("^34"+"^90") (slow 4)
-- $ stut 4 1 1 -- Four repeats each
-- $ slow 4
-- $ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
-- $ midiOn "^90" (
-- ply "[1!3 4]*4" . chop 4 . -- Magic Repeat: next segment instead
-- stut "4" 0.9 (fast 4 "s") -- Magic Repeat: repeater
-- . (# att 0.08)
-- . (# rel 10)
-- )
-- $ "wap:0" # n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
-- # cut 5
-- # room 0
-- # sz 0
-- # gain 1.4
-- d5 $ gF3 $ gMute3 -- WAP HOES v1 science of repeat
-- $ midiOn "^90" ((slice 4 "0*4"))
-- $ midiOn "^34" (# 7) -- FORCE INTRO
-- $ midiOff ("^34" + "^90") (slow 4) -- 4 bars
-- $ stut 4 1 1 -- Four repeats each
-- $ slow 4 -- times Four bits
-- $ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
-- $ "wap:0" # n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
-- # cut 5
-- # room 0
-- # sz 0
-- # gain 1.4
-- d7 $ gF1 $ gM1 --Les WAP DRUMS
-- $ midiOff "^59" (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.2
-- d8 $ gF1 $ gM1 -- 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
-- $ midiOn "^56" ((# 7) . (|* gain 0.9)) -- BREAK JUNGLE
-- $ loopAt 2 $ chop 8
-- $ "jungle_breaks:84" # cut 8
-- # gain 1.3
-- d9 $ gF2 $ gM3 $ slow 2
-- $ superimpose ((
-- # "acidOto3091"-- V1 Bass
-- )
-- . (|- note 12)
-- . (|* gain "^18")
-- . (# cut 91))
-- -- $ off 1 (|- note "0 12")
-- $ note (cat [
-- "~ f f f fs f ef f cs@8",
-- "~ f f f fs f ef f cs@8",
-- "~ f f f fs f fs f cs@8",
-- "~ f f f fs f ef f [cs ef f ef]@8"
-- ])
-- -- "[b@3 ~@2 c@3 <cs <[cs@2 ~ g e] [cs@2 ~ g e g e]>>@5]"
-- -- # "bassWarsaw" |- note "[36,24]"
-- -- # "vec2_synth_acid:25" |- note 12-- Alternative2
-- # "vec1_acid:25" -- Alternative
-- # crushbus 91 (range 16 6.5 "^19")
-- # room 0.4
-- # gain 1.4
-- # cut 9
do
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (140/60/4)
d1 $ gM2 $ gF1
$ superimpose ( -- Technique ine*fable : la basse du kick
(# "vec2_bass_ob:190")
. (# att 0.2) . (# rel 1))
$ midiOff "^42" (mask "t f f t")
$ fix ((|* gain 1.2) . (# lpf 300)) "clubkick:2"
$ fix ((|* gain 1) . (# hpf 300)) "hardkick_rha"
$ 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]>>>"
# "vec1_snare:3"
d3 $ gM1 $ 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"
# "bassWarsaw"
# gain 1.3
# crushbus 41 (range 16 3.5 "^53")
d4 $ gF2 $ gM3
$ note ("<[cs ~!3 . gs] [c ~!3 . < g [g@3 c6]>]>" - 24)
# "bassWarsaw"
# pan 0.3
# room 0.3 # gain 1.2
d5 $ gF3 $ gM3
$ note ("cs4"
+ scale "minor" ("<[0 2 3 5] [7 10 12 10] [7 5] [3 2]>"))
# s "moogBass"
# legato 1.2
# room 0.6 # size 0.6
# pan 0.7
# att 0.22
# rel 4
# gain 0.9
d8 $ gM1 $ gF1
$ midiOn "^92" (ply "<1 2 4 8>")
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 16
$ loopAt 2
$ "jungle_breaks:74"
# gain 1.3
# hpf 500
# crush 3.5
# delay 0.2 # delayt "s" # delayfb 0
# room 0.3 # sz 0.4 # dry 1.4
-- GLANES: rhadamanthe_divers:37
do
d1 $ "jazz*4"
d2 $ "~ cp ~ cp"
d3 $ "dr*16"
d4
$ freq "102 108 110 ~ 105 130 52 33"
# "bassWarsaw"
# gain 1.3
once $ note "g3" # "bassWarsaw" # gain 1.3
-- /home/pln/Downloads/PerfectSunriseLoop.gif
do
setcps (104/60/4)
let gMask = (midiOn "^41" (mask "<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 modIndex = pF "modIndex"
d1 $ gF1 $ gMute2
$ 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 [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
# lpf 200
# cut 11,
""
]
# "[techno:1,jazz]"
# gain 1.2
d2 $ gF1 $ gM1
$ "~ s ~ s"
# "gretsch:14"
# begin 0.2
# gain 1.4
# room 0.4 # dry 1.14 # sz 0.1
# legato 0.25
# lpf (range 20000 200 $ (fast 4 $ envL))
# lpq 0
d3 $ gF1 $ gM1
$ "dr*[16 16 8 <16 8 64 [128 64]>]"
# gain 0.8
# "gretsch:14"
# begin 0.5
# gain 1.7
d4 $ gF2 $ gM3
$ note ("<bf af ef@2>" - 24)
# "bassWarsaw"
# crushbus 41 (range 16 3.5 "^53")
# room 0.4 # sz 0.5 # dry 1.4
d5 $ gF3 $ gM3
$ mask "<f t f f>"
$ "gfunk_lead:15"
# cut 5
# gain 1.3
once $ arp"up"
$ "FMRhodes1" # note "[c4'min]" # gain 1.8
-- /home/pln/Downloads/PerfectSunriseLoop.gif
do
setcps (124/60/4)
let gMask = (midiOn "^41" (mask "<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 modIndex = pF "modIndex"
let chord = "<Dm79 FM79 CM79 CM79>"
d1 $ gF1 $ gMute2
$ 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 [
"kick" # lpf 10000 # cut 1,
"rumble" |* gain 1.3
# lpf 200
# cut 11,
""
]
# "[techno:1,jazz]"
# gain 0.9
d2 $ gF1 $ gM1
$ "~ s ~ <s!3 [s ~ [~ s ~]]>"
# "gretsch:14"
# begin 0.2
# gain 1.4
# room 0.4 # dry 1.14 # sz 0.1
# rel 0.08
# lpf 2500
d3 $ gF1 $ gM1
$ "dr*[16 16 8 <16 8 64 [128 64]>]"
# gain 0.8
# "gretsch:14"
# begin 0.5
# gain 1.7
d4 $ gF2 $ gM3
-- $ degradeBy "0 0.2 <0.2!3 0.8> 0"
-- $ fast 2
$ slice 3 (
"<0!8 3!8> <0 1> <2 3 0 3> <3 1 2 3>" -- Note
+ "0(3,8) 0(<3 3 1 <5 2>>,8)"
)
$ arp "[updown|thumbupdown|pinkyup]"
-- $ arp "up"
$ jchord chord
# "bassWarsaw"
# octave 2
# crushbus 41 (range 16 3.5 "^53")
# lpfbus 41 (range 40 260 (fast 32 $ ((0.2 ~>) $ sine)))
-- # lpf 340
# lpq 0.3
# legato "1 [1|1|0.6]!7"
# gain 1.2
# cut 4
# legato 0.55
d5 $ gF3 $ gM3
$ jchord (chord)
# octave 3
# "FMRhodes1"
# gain 1.3
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "jungle_breaks:45"
# cut 8
# octersub 0.5
# gain 1.2
d1 $ fast 2 $ degradeBy 0.2 $ "hh" # gain 1.4
-- # att 0.05
once $ arp"up"
$ "FMRhodes1" # note "[c4'min]" # gain 1.8
// Full M00N
// Based on 'full moon photography' By Mike Petrucci
// https://unsplash.com/photos/uIf6H1or1nE
s0.initImage("https://git.plnech.fr/pln/Hydra/raw/master/biarritz/fullmoon.avif")
src(s0)
.scale(0.9, 1.05)
.contrast(1.4)
.out(o0)
src(o0)
.out(o1)
src(o1)
.blend( // Dark Night
src(o1)
.sub(
noise(() => 10 + 80 * Math.sin(time / 1000))
.luma(() => Math.sin(time / 23))
.invert())
,
() => 0.8 + 0.65 * Math.sin(time / 42)
)
.out(o2)
src(o2)
.modulateRotate(voronoi(10, 0.05).rotate(() => time /120 % 360)
.mask(shape(30).scale(
() => 1.75 + 0.1 * Math.sin(time / 40),
() => 0.9 + 0.1 * Math.sin(time / 13)
))
)
.scale(1.3)
.out(o3)
render(o3)
...@@ -15,14 +15,13 @@ d1 $ gF1 $ gM2 ...@@ -15,14 +15,13 @@ d1 $ gF1 $ gM2
-- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]" -- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
$ midiOn "^42" (<| "k k k k*<2 4>") $ midiOn "^42" (<| "k k k k*<2 4>")
$ midiOff "^42" (<|"k . ~ k ~ ~") $ midiOff "^42" (<|"k . ~ k ~ ~")
$ "[clubkick,jazz]" $ "[jazz,kick:5]"
# att 0.02 -- # att 0.02
# rel 0.5 -- # rel 0.5
# lpf 4000 # lpf 4000
-- # note "-8"
# gain 1.3 # gain 1.3
d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>" d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>"
# "snare:42" # "vec1_snare:40"
-- # lpf 2000 -- # lpf 2000
-- # room 0.5 # sz 0.8 # dry 1.1 -- # room 0.5 # sz 0.8 # dry 1.1
# gain 1.2 # gain 1.2
......
...@@ -90,9 +90,9 @@ d5 $ gF2 $ gM3 -- Keys ...@@ -90,9 +90,9 @@ d5 $ gF2 $ gM3 -- Keys
-- # room 0.4 -- # room 0.4
d7 $ gF3 $ gM3 -- VOICES TODO Refine loops d7 $ gF3 $ gM3 -- VOICES TODO Refine loops
-- $ midiOn "^91" (ply "<2>" . off 1 id . off 2 id . chop "<1!3 4>" . (# cut 7)) -- $ midiOn "^91" (ply "<2>" . off 1 id . off 2 id . chop "<1!3 4>" . (# cut 7))
$ midiOn "^91" (ply "8 4" . chop "<1 2>". (# cut 7)) $ midiOn "^91" (ply "8 4" . chop "<1 2>". (# cut 7) . (# room 0.3))
$ midiOn "^19" ( -- Intro: Your love $ midiOn "^19" ( -- Intro: Your love
(>| n "<~!3 [~ 11]>") . (# end "<0.2!3 0.45>")) (>| n "<~!3 11>") . (# end (slow 4 "<0.2 0.55>")))
$ midiOn ("^59"-"^19") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS $ midiOn ("^59"-"^19") ((>| n "<<7 8 9 10> ~ <~!7 11> ~>") . (|* gain 1.1)) -- CHORUS
$ midiOff ("^59"+"^19") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD $ midiOff ("^59"+"^19") (>| n "<<4 5 <5 6> 6> ~ ~ <~!3 11> ~>") -- LEAD
$ "sogood" $ "sogood"
......
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (166/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
-- $ 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>")
$ "[jazz]"
-- # lpf 300 -- TODO Sound design this kick <3
# cut 1
# gain 1.5
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
-- # room 0.5 # dry 1.1
-- # delay "<0!15 0.6!1>"
-- # delayt 0.25
d3 $ gF1 $ gM1
$ "~ 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"
# "h2ogmhh:2"
# gain 1.7
-- # att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
d4 $ gF2 $ gM3
$ midiOn "^57" (
superimpose (("e" ~>) .(|+ note 12) . (# cut 41)))
$ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c"
+ "<0 0 0 0 7 7 5 0>"
)
-- # "moog:1"
# "bassWarsaw" |- note 24
# crushbus 41 (range 16 3.5 "^53")
# pan 0.4
# cut 4
# gain 1.4
d5 $ gF3 $ gM3 -- Les ptites keys de fin de session tranquilou
$ midiOn "^90" (ply "4 <8 16>")
$ slow 2
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "gfunk_lead:10" # cut 4
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# pan 0.9
# room 0.3
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "breaks165"
# cut 8
# octersub 0.5
# gain 1.2
d9 $ gF3 $ gM3
$ midiOn "^19" (ply "4 8")
$ midiOff "^18" (mask "<f!3 t>")
$ "ouais" # n (slow 4 "<0 1 2 3>" )
# cut 9
# end "<1!12 0.47!3 1>"
# room 0.4
# gain 1.4
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
do
setcps (120/60/4)
d1 $ "k k k k*<1 2>" # "jazz"
d2 $ "~ cp"
90s_matrix:0
d8 $ "jungle_breaks"
-- Released as "l'ACID d'abord" -- Released as "l'ACID d'abord"
do do
-- resetCycles resetCycles
setcps (135/60/4) setcps (135/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
......
...@@ -67,6 +67,7 @@ d7 $ gF3 $ gM3 ...@@ -67,6 +67,7 @@ d7 $ gF3 $ gM3
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 2.5 "^33") # octerbus 42 (range 0 2.5 "^33")
# gain 1.1 # gain 1.1
# width (range 0 5 "^19")
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOn ("^60" - "^92") (mask "f(4,8)") $ midiOn ("^60" - "^92") (mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ $ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ
......
do
setcps (160/60/4)
-- resetCycles
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 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
-- 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
$ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ midiOff "^42" (<| "k")
$ fix ((# att 0.01) . (# rel 0.5) . (# lpf 2000)) "kick:4"
$ "[techno:0,808bd:2,kick:4]"
# gain 1.3
d2 $ gF1 $ gM -- CLAP: h2o natural handclap, reverbed
$ midiOn "^43" (<| "~ cp ~ [cp <~ cp>]")
$ midiOff "^43" (<| "~ cp ~ <~ cp*<1 2>>")
$ "h2ogmcp"
-- # room (slow 32 $ range 0.3 0.6 saw)
-- # sz (slow 32 $ range 0.1 0.45 cosine)
# dry 1
# gain 1.1
d3 $ gF1 $ gM -- HATS: h2o sparse offbeat + light flourish
$ midiOn "^76" (ply 2) -- double time on button
$ midiOff "^44" (mask "t(3,8)")
-- n: 0-4 closed Hard→Soft, 5-9 open, 15-19 semi-open
$ "~ h ~ h ~ h ~ <h!3 h*2>"
# "h2ogmhh"
# n "~ 3 ~ 2 ~ 4 ~ <3!3 [3 6]>" -- occasional open hat flourish
# gain (1.5 * "~ 0.7 ~ 0.8 ~ 0.65 ~ <0.7!3 [0.7 0.5]>")
d4 $ gF3 $ gM3
$ loopAt 16 $ chop 8
$ "gfunk_lead:7"
# gain 1.2
# room 0.3
# crushbus 41 (range 16 3.5 "^53")
# lpfbus 42 (range 300 1200 "^33")
d5 $ gF3 $ gM3 $ loopAt 16 $ chop 8
$ "gfunk_lead:7"
# octersubbus 51 (range 0 2.9 "^34")
# hpf 1000
# gain 1.3
d8 $ gF1 $ gM1
$ loopAt 2 $ chop 8
$ midiOn "^56" ((|* gain 1.2) . loopAt 2 . (>| "jungle_breaks:19"))
$ "jungle_breaks:74"
...@@ -14,15 +14,16 @@ let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>" ...@@ -14,15 +14,16 @@ let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (140/60/4) setcps (140/60/4)
-- d1 $ gF1 $ gM2 -- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2 d1 $ gF1 $ gMute2
$ midiOff "^42" (<| "<k [~!7 k*<1 2>]>") -- $ midiOff "^42" (<| "<k [~!7 k*<1 2>]>")
-- $ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>") $ midiOff "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
$ midiOn "^42" (<| "k k . k <k [~ k] k k*2>") $ midiOn "^42" (<| "k k . k <k [~ k] k k*2>")
$ "[kick:5,clubkick]" $ "[kick:5,clubkick]"
# room 0.2 # dry 1.1 # room 0.2 # dry 1.1
# lpf 3000 -- TODO Sound design this kick <3 # lpf 3000 -- TODO Sound design this kick <3
# cut 1 # cut 1
# gain 1.5 # gain 1.6
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOn "^43" (fast 2)
$ someCyclesBy "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>") $ 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 ~]>]>") $ someCyclesBy "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
$ "[snare:24,snare:51]" $ "[snare:24,snare:51]"
...@@ -62,7 +63,7 @@ d8 $ gF1 $ gM1 -- Come on breaks! ...@@ -62,7 +63,7 @@ d8 $ gF1 $ gM1 -- Come on breaks!
$ loopAt 2 $ loopAt 2
$ "jungle_breaks:26" $ "jungle_breaks:26"
# cut 8 # cut 8
# gain 1.4 # gain 1.8
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
-- $ midiOn "^57" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>")) -- $ midiOn "^57" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
$ slow 2 $ note ( $ slow 2 $ note (
...@@ -91,7 +92,7 @@ d5 $ gM3 $ gF3 -- Marimba fondamental ...@@ -91,7 +92,7 @@ d5 $ gM3 $ gF3 -- Marimba fondamental
-- # squizbus 51 (range 0 2.5 "^54") -- # squizbus 51 (range 0 2.5 "^54")
-- # delay 0 # delayfb 0.8 # delayt 0.25 -- # delay 0 # delayfb 0.8 # delayt 0.25
# pan 0.9 # pan 0.9
# gain 1.4 # gain 1.6
# room 0.3 # room 0.3
d10 $ gF3 $ gM3 -- Menace d10 $ gF3 $ gM3 -- Menace
$ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>") $ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>")
...@@ -139,6 +140,7 @@ d8 $ gF1 $ gM1 ...@@ -139,6 +140,7 @@ d8 $ gF1 $ gM1
# cut 8 # cut 8
# octersub 0.5 # octersub 0.5
# gain 1.2 # gain 1.2
once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
......
do do
-- resetCycles
setcps (124/60/4) setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
...@@ -8,43 +9,57 @@ let gM1 = gMask . gMute1 ...@@ -8,43 +9,57 @@ let gM1 = gMask . gMute1
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k*4") $ midiOn "^42" (<| "k k k <k [<~!3 k> k]>")
-- $ midiOff "^42" (<| "k . ~ k") $ midiOff "^42" (<| "k . <[~ k] k(<3 5>,8)>")
$ "kick:5" $ "[techno:0,808bd:2,909,kick:4]"
# gain 1.5 -- $ "kick:5"
# gain 1.7
# lpf 400
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]" $ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
# "vec1_claps" # n 10 # "vec1_claps" # n 10
# gain 1.8 # gain 1.3
# lpf 2000
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ "[~ h*<1!3 <1 2 [4 2] 1?>>]*4" $ midiOn "^44" (<| "[~ h*<1!3 <1 2 [4 2] 1?>>]*4" )
# "h2ogmhh" # gain 1.4 $ midiOff "^44" (<| "h(4,8,1)")
$ "h2ogmhh"
# gain 1.4
# room 0.3 # room 0.3
# dry (slow 16 $ range 0.2 1.8 perlin) # dry (slow 16 $ range 0.2 1.8 perlin)
# sz 0.4 # sz 0.4
d4 $ gF3 $ gM3 d4 $ gF3 $ gM3
$ note "<bf2 bf2 bf2 [bf2@7 cs3]>" $ struct "t . t(<1 3 5>,8)"
# "bassWarsaw" $ note (
"<bf2 bf2 bf2 [bf2@7 cs3]>"
+ "[0,12]"
+ (arp "up" "c'min'4")
)
# "bassWarsaw"
-- |+ note 12
# room 0.3 # room 0.3
# crushbus 41 (range 16 3.5 "^53") # crushbus 41 (range 16 3.5 "^53")
# room 0.2 # dry 1.2 # sz 0.7 # room 0.2 # dry 1.2 # sz 0.7
# gain 1.2 # gain 1.4
d5 $ gF3 $ gM3 -- LE PIMENT BRESILIEN d5 $ gF3 $ gM3 -- LE PIMENT BRESILIEN
$ midiOn "^90" (ply "<4!3 8>") $ midiOn "^90" (ply "<4!3 8>")
$ midiOn "^58" (striate "2" . chop 8) $ midiOn "^58" (striate "2" . chop 8)
$ slice 4 "<0 1 2 3>" $ slice 8 "<[0 1] [2 3] [4 5] <[6 7] 5*<2 4 4 8>>>"
-- $ slice 4 "<0 1 2 3>"
-- $ slice 4 "<0 1 2 3>"
$ "gfunk_lead:2" # cut 5 $ "gfunk_lead:2" # cut 5
# gain 1.7 # gain 1.7
# room 0.3 # room 0.3
# octerbus 51 (range 0 1.4 "^54") # octerbus 51 (range 0 1.4 "^54")
# octersubbus 52 (range 0 2 "^34") # octersubbus 52 (range 0 2 "^34")
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
$ midiOn "^91" (ply 2)
$ note ("[f3 cs3 c3 cs3 f3 cs3 <c3 f3> <cs3 fs3>]" $ note ("[f3 cs3 c3 cs3 f3 cs3 <c3 f3> <cs3 fs3>]"
-- + "[0,12]" -- + "[0,12]"
+"<0!4 12!4 24!4 36!4>" +"<0!4 12!4 24!4 36!4>"
) )
# "FMRhodes2" # "FMRhodes2"
# gain 1.5 # gain 1.8
# modIndex (range 0 16 "^55") # modIndex (range 0 16 "^55")
-- # cut 9 -- # cut 9
d10 $ gF3 $ gM3 -- Menace d10 $ gF3 $ gM3 -- Menace
......
do
setcps (160/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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
d1 $ gF1 $ gM2 -- 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
$ 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"
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
d9 $ "playa/4" # begin 0 # end 0.18 # cut 9 # lpf 1200 # room 0.4
once
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
do do
-- resetCycles resetCycles
setcps (140/60/4) setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
......
-- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif"
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 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
$ 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"
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]"
# gain 1.1
# lpf 300
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
$ fix (# lpf 4000) "snare:30"
$ "[vec1_snare:38]"
# lpf 4800
# gain 1.3
# cut 2
d3 $ gF1 $ gM1 -- 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>>"
-- # "db:0"
# "h2ogmhh"
-- # attbus 32 (slow 32 $ range 0.4 0.04 saw)
# legato (range 0.1 0.5 "^52")
# room 0.2
# dry 1.3
# gain 2.9
# pan 0.3
d8 $ gF1 $ gM1 -- BROKEN BEAT | BREAKS STACK
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
$ loopAt 2 $ chop 16
$ midiOn "^92" (ply "<2 [2 4]>")
$ midiOn "^60" ( -- Broken Beat!
whenmod 8 "<7 7 7 3>" rev
. splice 8 "0 3 2 7 . [1 5]*<1!3 2> [4 6]*<1 2>")
$ midiOn "^36" ((|* gain 1.1) . (# n "29"))
$ midiOn "^56" (loopAt 2 . (# n "19"))
$ loopAt 0.5 $ "jungle_breaks:95"
# pan 0.7
# gain 1.45
# lpf 4000
d7 $ gF1 $ gM1
$ midiOff "^59" (mask "t(4,8,1)" . chop 4)
-- $ jux (rev . (# cut 71))
-- $ slice 16 (run 8)
$ loopAt 2
$ chop 8
$ "trance_loops:1"
# pan "0.2 0.8"
# cut 7
# gain 1.3
d10 -- FIXME Other RISER
$ chop 4
$ mask "<f!24 t!8>"
$ loopAt 8
$ "risers:8"
# cut 10
# hpf 2000
d11 $ gF1 $ gM1
$ "~ h ~ [h*2 ~]"
# "h2ogmcy" # n "<1 1 1 1 2 2 3 2 3 4 3 2>"
# gain 1.2
# room 0.4 # sz 0.9
# delay 0.4
# pan (slow 16 $ range 0.2 0.8 sine)
-- # octer 0.5
# cut 11
-- /home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif
do
setcps (80/60/4)
-- resetCycles
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMute
let gM2 = gMute2
let gM3 = gMute3
let width = pF "width"
let lagTime = pF "lagTime"
let rq = pF "rq"
let filterRange = pF "filterRange"
-- lagTime = 0.12, filterRange = 6, width = 0.51, rq = 0.3;
d1 $ gF1 $ gM2
$ midiOn ("^41"-"^42") ((<| "k(3,8) ~"))
$ midiOff ("^42"+"^41") (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ midiOn "^42" (fast 2 . (<| "k k k*<1!8 2!8> k*<1 <2!2 4>>"). (# "kick:4") . (|* gain 0.54))
$ "[808bd:1,808bd:11]" -- 1 4 6 9 11
# octersubsub 1.2
# gain 2
d2 $ gF1 $ gM2
$ midiOn "^43" (fast 2 . (<| "~ c ~ c*<1!7 <2 [4 2]>>"))
$ midiOff "^43" (<| "~ . ~ c")
$ "vec1_claps:18"
# gain 1.4
d3 $ gF1 $ gM1
$ midiOn "^76" (fast "2 <2 2 4 8>")
$ midiOff "^44" (mask "f(4,32)" . chop 16)
$ (# pan "[0.25 0.75]*4")
$ ply (slow 16 "<2 [2 <4!3 [4 2]>] 4 [4 8 4] [8 4] 8 [8 16 8] 16>")
$ chop 16
$ loopAt 4
$ "trance_loops:2"
# cut 3
# gain 1.4
# room (slow 32 $ range 0 0.4 saw)
# dry 0.4
# sz 0.3
d4 $ gF2 $ gM3
$ midiOn "^89" (struct "t*16")
$ midiOff "^89" (mask "[f [t f t] t t@2]") -- SILENCES
$ midiOn "^57" (stutWith 4 "q" ((|* gain 0.9) . (|+ pan 0.1). (|+ cut 1)))
$ note "[cf4 [f4 cf4 f4] <[<cs4 fs4> cs4]!3 fs4> bf3@2]"
# "giorgio_syn:43" # n (slow 16 $ "<47 48 47 46>")
# cut 40
# crushbus 41 (range 16 2.5 "^53")
# octerbus 42 (range 0 1.5 "^33")
# pan 0.2
# legato 1.5
# room 0.5
# sz 0.4
# dry 1.8
d5 $ gF3 $ gM3
$ midiOn "^90" (# rq (slow 8 $ range 0.1 0.01 saw))
$ fast 2 $ arp "up"
$ note (cat [
"[bf4,cs5,f5,bf4,cs5,f5,bf4,cs5]",
"[bf4,cs5,f5,bf4,cs5,f5,fs5,f5]",
"[bf4,cs5,f5,bf4,cs5,cs6,c6,bf5]",
"[bf4,cs5,f5,bf4,cs5,<cs6!3 f5>,c6,<cs6 <ef6 f6>>]"
--BOOYAH ARPEGE INTENSE!
-- "bf4"
]
- "<12!16 0!16>"
- 12
+ "[0,12]"
)
# "FMRhodes1"
-- # "giorgio_syn:20" |+ note (12 - 2)
# "acidOto3092"
-- lagTime = 0.12, filterRange = 6, width = 0.51, rq = 0.3;
-- 18 │
# width (range 0.02 0.8 "^54") -- /!\ FIXME EXPLOSIF /!\
# filterRange (range 0 8 "^34")
# room 0.4 # dry 0.8
# gain 1.2
# att 0.01 # rel 10
-- # pan "[0.4|0.6]*8"
d8 $ gF1 $ gM1
-- $ midiOff "^60" (mask "f(8,16)" . chop 8)
$ slice 8 "<~!3 0> <1!3 ~> 2 <3!3 ~> 4 <5!3 ~> 6? 7*<1 2>"
$ chop 16
$ loopAt 2
$ "drums_nes:5"
# cut 8
# gain 1.4
d9 $ gF3 $ gM3
$ ((# att 0.45) . (# rel 2))
$ slice 8 "~ ~ ~ 7"
$ "molotov:7"
# cut 9
# gain 1.5
# speed 0.9
d10 $ gF3 $ gM3 -- GIMME THAT
$ "~!3 v" # end 0.1
# "vocal_bordel"
# cut 10
# gain 1.4 # lpf 3000 # room 0.3 # octersub 0.8
d11 $ gF3 $ gM3 -- GIMME THAT
$ ((0.25 ~>) . (# begin 0.1))
$ "~!3 v"
# end 0.245
# "vocal_bordel"
# cut 11
# gain 1.3 # lpf 3000 # room 0.3 # octersub 0.8
...@@ -36,13 +36,14 @@ d4 $ f3 -- Atmospheric synth: aerial questions ...@@ -36,13 +36,14 @@ d4 $ f3 -- Atmospheric synth: aerial questions
$ midiOn "^89" (|+ note "<2 2 4 <4 12>>") $ midiOn "^57" (chop "<[16@3 32] [32@3 64]>") $ midiOn "^89" (|+ note "<2 2 4 <4 12>>") $ midiOn "^57" (chop "<[16@3 32] [32@3 64]>")
$ "90s_synatm:8/4" # cut 4 # room 0.8 # legato 4 # dry 1 # pan 0.45 $ "90s_synatm:8/4" # cut 4 # room 0.8 # legato 4 # dry 1 # pan 0.45
# legato 2 # legato 2
# crushbus 41 (range 16 2.5 "^53")
d5 $ f2 -- Synth: ELECTRONIC ANSWERS d5 $ f2 -- Synth: ELECTRONIC ANSWERS
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>")) $ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>") $ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4" # cut 5 # room 0.85 # sz 0.8 # pan 0.43 # dry 1 $ "90s_synatm:14/4" # cut 5 # room 0.85 # sz 0.8 # pan 0.43 # dry 1
# delayfb 0.25 # delayt 0.25 # delay 0.8 # delayfb 0.25 # delayt 0.25 # delay 0.8
# panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^54") # panbus 51 (range 0.8 0.65 saw) # crushbus 52 (range 16 2.85 "^54")
# octersubbus 53 (range 0 1.85 "^34") # gain 1.5 # octersubbus 53 (range 0 1.85 "^34") # gain 1.6
d7 $ f3 -- High lead: Winds of truth d7 $ f3 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3 $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>") $ whenmod 8 6 (swing "<4 2>")
...@@ -73,9 +74,6 @@ d8 $ f1 $ gMute2 -- Breaks divins ...@@ -73,9 +74,6 @@ d8 $ f1 $ gMute2 -- Breaks divins
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4" # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
-- # midiG' "^84" 0 1.2 -- # midiG' "^84" 0 1.2
# pan 0.8 # pan 0.8
d10 $ f1 -- RANDOM FOREST NOISES d10 $ f1 -- RANDOM FOREST NOISES
$ fix ( $ fix (
-- kCrush . -- kCrush .
......
-- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif" -- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/decolle.gif"
do do
-- resetCycles resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
...@@ -17,6 +17,7 @@ d1 $ gF1 $ gM2 ...@@ -17,6 +17,7 @@ d1 $ gF1 $ gM2
-- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4" -- $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[jazz,kick:4]" $ "[jazz,kick:4]"
# gain 1.1 # gain 1.1
# lpf 300
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>") $ midiOff "^43" (<| "~ . s@3 <~ s*<1 <2 [4 2]>>>")
$ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>") $ midiOn "^43" (<| "~ s ~ <s!3 s*<2 [4 2]>>")
...@@ -32,7 +33,7 @@ d3 $ gF1 $ gM1 ...@@ -32,7 +33,7 @@ d3 $ gF1 $ gM1
# att (slow 32 $ range 0.4 0.04 saw) # att (slow 32 $ range 0.4 0.04 saw)
# rel 2 # rel 2
# room 0.2 # dry 1.3 # room 0.2 # dry 1.3
# gain 1.4 # gain 1.6
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^57" (sometimesBy 0.5 ((|- note 12) . (# cut 41))) $ midiOn "^57" (sometimesBy 0.5 ((|- note 12) . (# cut 41)))
$ midiOn "^89" (ply 2) $ midiOn "^89" (ply 2)
...@@ -59,17 +60,17 @@ d5 $ gF3 $ gM3 ...@@ -59,17 +60,17 @@ d5 $ gF3 $ gM3
# room 0.4 # sz 0.8 # dry 1.1 # room 0.4 # sz 0.8 # dry 1.1
-- # crushbus 51 (range 16 3.5 "^54") -- # crushbus 51 (range 16 3.5 "^54")
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
$ midiOn "^91" (ply "<2 4 <8 [16 8]>>") -- $ midiOn "^91" (ply "<2 4 <8 [16 8]>>")
$ slow 4 -- $ slow 4
$ midiOn "^55" (slow 4) $ midiOn "^55" (slow 4)
$ slice 16 (run 6) -- $ slice 16 (run 6)
$ chop 16 $ slice 16 (8 + (slow 2 $ "<0 4 8 12>"))
$ "airports" # cut 5 # speed 0.5 $ "airports" # cut 5 # speed 0.5
# gain 1.2 # gain 1.2
# room 0.4 # room 0.4
# att 0.02 # att 0.02
# rel 2 # rel 2
# freezebus 71 "^55" -- # freezebus 71 "^55"
# pan 0.8 # pan 0.8
d8 $ gF1 $ gM1 -- BROKEN BEAT | BREAKS STACK d8 $ gF1 $ gM1 -- BROKEN BEAT | BREAKS STACK
$ loopAt 2 $ chop 16 $ loopAt 2 $ chop 16
......
...@@ -50,7 +50,7 @@ d4 -- Basse convaincante ...@@ -50,7 +50,7 @@ d4 -- Basse convaincante
# gain 1.4 # gain 1.4
# pan 0.4 # pan 0.4
|* gain ("1@5 0.95 0.98 0.95" * 1.1 ) |* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux d5 $ gM3 $ gF3 -- Appel oiseau joyeux oiseau joyaux
$ midiOn "^58" ( -- Oiseau de nuit $ midiOn "^58" ( -- Oiseau de nuit
rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>") rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
) )
...@@ -90,7 +90,7 @@ d6 $ gF1 $ gM1 -- HAWKS ...@@ -90,7 +90,7 @@ d6 $ gF1 $ gM1 -- HAWKS
# dry 1.025 # dry 1.025
-- # room 0 -- # room 0
-- # midiG' "^31" 0 1.5 -- # midiG' "^31" 0 1.5
d7 d7 $ gM3 $ gF3 -- CHORUS OF HCs
$ gM3 $ gF3 -- High carillon! $ gM3 $ gF3 -- High carillon!
$ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e")) $ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
$ midiOn "^59" ( -- Basse reponse $ midiOn "^59" ( -- Basse reponse
...@@ -106,7 +106,7 @@ d7 ...@@ -106,7 +106,7 @@ d7
# octersubbus 72 (range 0 1.4 "^55") # octersubbus 72 (range 0 1.4 "^55")
# room 0.2 # dry 1.08 # sz 0.3 # room 0.2 # dry 1.08 # sz 0.3
# gain 1.4 # gain 1.4
d9 $ gF3 -- Pads atmospheriques d9 $ gF3 $ gM3-- Pads atmospheriques
$ off 0.25 ((# pan 0.8) . (# cut 91)) $ off 0.25 ((# pan 0.8) . (# cut 91))
$ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>" $ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
-9 -- calage -9 -- calage
......
...@@ -11,7 +11,7 @@ let gM = gMask . gMute ...@@ -11,7 +11,7 @@ let gM = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gM2 $ gF1 d1 $ gM2 $ gF1
$ midiOn "^42" (fast 2 . (<| "k k k <k [k*2 <k [~ k]>]>")) $ midiOn "^42" (fast 1 . (<| "k k k <k [k*2 <k [~ k]>]>"))
$ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)") $ midiOff "^42" (<| "k . k(<3 [3 <5 4 5 8>]>,8)")
$ "[jazz, kick:5,808bd:2]" $ "[jazz, kick:5,808bd:2]"
# gain 0.8 # gain 0.8
......
...@@ -46,7 +46,7 @@ d5 $ gF3 $ gM3 ...@@ -46,7 +46,7 @@ d5 $ gF3 $ gM3
$ note ("[0,12]" $ note ("[0,12]"
- 24 - 24
+ "<[f4 [~ g4] [gs4 ~] as4 c5@4] [f5 [~ f5] . ef5 df5 c5@2] [bf4@3 bf4 . gs4 g4 f4@2] f4>" + 12) + "<[f4 [~ g4] [gs4 ~] as4 c5@4] [f5 [~ f5] . ef5 df5 c5@2] [bf4@3 bf4 . gs4 g4 f4@2] f4>" + 12)
# "superfork seewe r5" # "superfork"
# room 0.3 # room 0.3
# pan "0.2 0.8 0.8 0.2" # pan "0.2 0.8 0.8 0.2"
# octersubbus 52 (range 0 16 "^54") # octersubbus 52 (range 0 16 "^54")
......
...@@ -37,13 +37,15 @@ d1 $ gF1 $ gM2 ...@@ -37,13 +37,15 @@ d1 $ gF1 $ gM2
$ midiOff "^42" (>| n "0 . ~ [~ <~!2 0!2>]") $ midiOff "^42" (>| n "0 . ~ [~ <~!2 0!2>]")
$ midiOn "^42" (>| n "0 0 0 0*<1 2 1 4 1 2 2 1>") $ midiOn "^42" (>| n "0 0 0 0*<1 2 1 4 1 2 2 1>")
$ "[rampleK1,jazz]" $ "[rampleK1,jazz]"
# gain 1.8
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ "~ s ~ s" $ "~ s ~ s*<1!7 <2 [4 2]>>"
-- $ "~ <s!3 [s s*2 . ~]>" -- $ "~ <s!3 [s s*2 . ~]>"
# "[rampleD4:3,snare:30]" # "[rampleD4:3,snare:30]"
-- # lpf 2000 -- # lpf 2000
# gain 1.4 # gain 1.4
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2)
$ "~ h ~ h ~ h ~ h*<1 2>" $ "~ h ~ h ~ h ~ h*<1 2>"
# "h2ogmhh:3" # "h2ogmhh:3"
# gain 1.8 # gain 1.8
...@@ -55,6 +57,7 @@ d4 $ gF2 $ gM3 ...@@ -55,6 +57,7 @@ d4 $ gF2 $ gM3
# octersubbus 42 (range 0 1.5 "^53") # octersubbus 42 (range 0 1.5 "^53")
# room 0.4 # room 0.4
# lpf 1500 # lpf 1500
# gain 1.6
d5 $ gF3 $ gM3 -- Synth Marimba d5 $ gF3 $ gM3 -- Synth Marimba
$ superimpose (struct "t(<2 2 3 3>,8) t(<0 1 3 <1 5>>,8)" $ superimpose (struct "t(<2 2 3 3>,8) t(<0 1 3 <1 5>>,8)"
. (|+| note (arp "<up!3 down>" "c'min'8"))) . (|+| note (arp "<up!3 down>" "c'min'8")))
...@@ -78,7 +81,7 @@ d7 $ gF3 $ gM3 ...@@ -78,7 +81,7 @@ d7 $ gF3 $ gM3
$ chop 4 $ chop 4
$ "leon" # n "<0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 16 17 18!4>" $ "leon" # n "<0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 16 17 18!4>"
# cut 7 # cut 7
# gain 1.2 # gain 1.7
# roombus 71 (range 0.0 0.8 saw) # roombus 71 (range 0.0 0.8 saw)
# panbus 72 (slow 4 $ range 0.2 0.8 (sine + (slow 4 $ sine))) # panbus 72 (slow 4 $ range 0.2 0.8 (sine + (slow 4 $ sine)))
# tremrbus 51 (range 0 8 "^55") # tremrbus 51 (range 0 8 "^55")
......
do
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (93/60/4)
d1 $ gF1 $ gM1
$ midiOn "^42" (<| "k k k k(<1 [3 1] 3 [3 8]>,8)")
$ midiOff "^42" (<| "k . k(3,8)")
$ "jazz"
# gain 1.4
# lpf 4000
d2 $ gF1 $ gM1
$ "~ s ~ s"
# "vec1_snare:33"
d3 $ gF1 $ gM1 $ fast "1 [1|2]!6 [2|2|4|2]*4" $ "hh*16" # "h2ogmhh"
# gain "1 [1|0.9|0.93|0.97]!14 1"
d4 $ gF2 $ gM3 $ midiOn "^89" (ply 8)
$ slice 4 "<0 1 2 3>" $ "noir_bass:5" # cut 4
# room 0.4 # sz 0.4 # dry 1.1
# crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
d7 $ gM3 $ gF3
$ midiOn "^91" (ply 4)
$ midiOn "^35" ((# n "<1 ~>") . (# end "<0.4!3 <0.8 1>>")) -- PUTAINN!!
$ midiOn ("^59" - "^35") ((>| n "<2 ~>") -- THE JUICE
. (# end (slow 2"<0.45 <0.8 1>>"))
. (# begin (slow 2 "<0 <0.45 0.8>>"))
)
$ midiOff ("^59"+"^35") (-- THE MOMENT
# n "<0!3 1 0 0 1 ~>")
$ "alexis"
# cut 7
# pan 0.3
d5 $ gM3 $ gM3
$ (0.5 ~>)
$ midiOn ("^58" - "^34") (>| n "<6 5 6 6*2 10 ~ 11 ~ 12 ~ ~ ~ 12 ~ 13 13>")
$ midiOn "^34" ((>| n "<15 16>") . (# end "<1!4 0.45 0.5 0.45 0.5>"))
$ midiOff "^58" (slow 2 . (>| n "<2 0 1 ~ 2 1 3 ~>"))
$ "sarko"
# pan 0.8
# cut 5
# gain 1.3
d8 $ gF1 $ gM1
$ chop 8
$ loopAt 2
$ midiOn "^56" (# n 45)
$ "jungle_breaks:40"
# cut 8
d12 $ gF3 $ gM3
-- $ gF3 $ gM3
$ note "<[ef4 . ef4@3 d4@2 ef4@2] [ef4 . ef4@3 f4@2 d4@2] [c4 . ef4@3 f4@2 g4@2] [c4]>"
# "FMRhodes1"
# modIndex "[0,0.5]"
# gain 1
# room 0.3 # sz 0.4
once $ "alexis"
# cut 7
once $ "sarko"
-- Bain Electrique, ex Bain Bouillant -- Bain Electrique, ex Bain Bouillant
do do
resetCycles -- resetCycles
setcps (128/60/4) setcps (128/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
...@@ -40,7 +40,7 @@ d3 $ gF1 $ gM1 -- Contretemps ...@@ -40,7 +40,7 @@ d3 $ gF1 $ gM1 -- Contretemps
-- $ "~ 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]" # "[snare:38]"
# room 0 # room 0
# gain 0.9 # gain 1.3
d4 $ gO $ gF2 $ gMute3 -- SUBSUB INFRABASS d4 $ gO $ gF2 $ gMute3 -- SUBSUB INFRABASS
$ superimpose ( $ superimpose (
# crushbus 41 (range 12 2 "^53") # crushbus 41 (range 12 2 "^53")
...@@ -56,7 +56,7 @@ d4 $ gO $ gF2 $ gMute3 -- SUBSUB INFRABASS ...@@ -56,7 +56,7 @@ d4 $ gO $ gF2 $ gMute3 -- SUBSUB INFRABASS
# cut 4 # cut 4
# att 0.1 # rel 1 # att 0.1 # rel 1
# octersubsubbus 42 (range 0 1.2 "^33") # octersubsubbus 42 (range 0 1.2 "^33")
# gain 1 # gain 1.8
# pan 0.3 # pan 0.3
d5 d5
-- $ superimpose ((# distortbus 51 (range 0 1.2 "^34")) . (|+ cut 1)) -- $ superimpose ((# distortbus 51 (range 0 1.2 "^34")) . (|+ cut 1))
......
...@@ -44,7 +44,7 @@ d4 $ gF2 $ gM3-- Basse Magie Noire Meta-Programmation. :sorcerer: ...@@ -44,7 +44,7 @@ d4 $ gF2 $ gM3-- Basse Magie Noire Meta-Programmation. :sorcerer:
# cut 4 # cut 4
# room 0.7 # room 0.7
# sz 0.3 # dry 1.5 # sz 0.3 # dry 1.5
# gain 1.2 # gain 1.5
d5 $ gF2 $ gM3 -- Giorgio Friendo d5 $ gF2 $ gM3 -- Giorgio Friendo
$ slow 2 $ slow 2
$ stack [ $ stack [
......
...@@ -56,7 +56,7 @@ d4 $ gF2 $ gMute3 ...@@ -56,7 +56,7 @@ d4 $ gF2 $ gMute3
-- # distortbus 41 (range 0 5 "^53") -- # distortbus 41 (range 0 5 "^53")
# gain (1.1 - 0.1 * "^33" - 0.1 * "^29") # gain (1.1 - 0.1 * "^33" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>" # room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3 -- Mario's 8-bit Harp
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e")) $ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^58" (superimpose ( $ midiOn "^58" (superimpose (
(|- note 12) . (# cut 51) . (# pan 0.2)) (|- note 12) . (# cut 51) . (# pan 0.2))
...@@ -72,13 +72,13 @@ d5 $ gF3 $ gM3 ...@@ -72,13 +72,13 @@ d5 $ gF3 $ gM3
# pan 0.85 # pan 0.85
# modIndex 0.3 # modIndex 0.3
# legato 2 # legato 2
# gain 1.2 # gain 1.5
d7 $ silence -- FIXME add d7, maybe arps/moog? d7 $ silence -- FIXME add d7, maybe arps/moog?
d9 $ gF2 $ gM3 -- Essouflement amoureux d9 $ gF2 $ gM3 -- Essouflement amoureux
$ arp "up" $ arp "up"
$ note ( $ note (
-- "<a a g5 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>" -- "<a a g5 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>"
"<a a g5 e5> ~ <~!0 d6!3 d5> <a a g5 cs6> ~ ~ ~ ~" "<a a g5 e5> ~ <~!0 d6!3 d5> <a a g5 cs6> ~ ~ <~ <~ e6> ~ g6> ~"
-- "c8'maj'4" -- "c8'maj'4"
+ 4 + 4
+ 12 + 12
...@@ -88,7 +88,8 @@ d9 $ gF2 $ gM3 -- Essouflement amoureux ...@@ -88,7 +88,8 @@ d9 $ gF2 $ gM3 -- Essouflement amoureux
# rel 2 # rel 2
# "jungbass:1" # cut 9 # "jungbass:1" # cut 9
# room 0.3 # dry 1.4 # sz 0.9 # room 0.3 # dry 1.4 # sz 0.9
d10 $ gF3 -- Angels of constance # gain 1.5
d10 $ gM3 $ gF3 -- Angels of constance
$ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>" - "[12,24]")) $ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>" - "[12,24]"))
# "moogBass" # "moogBass"
# room 0.2 # room 0.2
...@@ -114,3 +115,6 @@ d8 $ gM1 $ gF1 ...@@ -114,3 +115,6 @@ d8 $ gM1 $ gF1
-- # lpf 5000 -- # lpf 5000
# cut 8 # cut 8
# gain 0.9 # gain 0.9
once $ note "d%'maj" # "harpsichord2"
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (110/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
-- $ 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>")
$ "jazz"
# gain 1.4
# cut 1
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
# room 0.5 # dry 1.1
# delay "<0!15 0.6!1>"
# delayt 0.25
d3 $ gF1 $ gM1
$ "~ 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"
# "h2ogmhh:2"
# att (range 0.02 0.5 "^32")
# rel 1
# gain 1.7
# att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
-- d4 $ gF2 $ gM3
-- $ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c")
-- -- # "moog:1"
-- # "bassWarsaw" |- note 24
-- # crushbus 41 (range 16 3.5 "^53")
-- # pan 0.4
-- # cut 1
d4 $ gF3 $ gM3
$ note "d" # "bassWarsaw"
d5 $ gF3 $ gM3
$ "nujazz_keys125"
# n (slow 4 "<37 38 39 40>")
# cut 5
d7 $ gF3 $ gM3
$ chop 8
$ loopAt 8
$ "rhadamanthe_vocal:31"
# cut 7
# gain 1.3 # sz 0.5 # dry 1.1 # room 0.4
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "breaks165"
# cut 8
# octersub 0.5
# gain 1.2
d9 $ gF3 $ gM3
$ loopAt 4 $ chop 8
$ "rhadamanthe_vocal:61/2" # cut 9
-- $ midiOn "^19" (ply "4 8")
-- $ midiOff "^18" (mask "<f!3 t>")
-- $ "ouais" # n (slow 4 "<0 1 2 3>" )
-- # cut 9
-- # end "<1!12 0.47!3 1>"
-- # room 0.4
--
--
-- d9 -- Bogdan the Grime sample provider
-- $ whenmod 16 12 ( -- I'm from Cardiff!
-- (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
-- )
-- $ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3
-- $ end "<~ <0.42 <0.66 1>>>"
-- # "bogdan_grime:3"
-- -- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG
-- # delay "<0 <0.7 0>>"
-- # delayt "h"
-- # delayfb 0
-- # speed 0.92
-- -- # room 0.4
-- # gain 1.6
-- d8 $ gF1 $ gM1 -- Come on breaks!
-- $ chop 8
-- $ midiOn "^60" (mask "t(4,8,1)" . chop 4)
-- $ midiOn "^92" (ply 4)
-- $ midiOn "^36" (loopAt 2 . (# n "<61>")) --
-- $ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
-- -- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
-- $ midiOff "^60" (mask "t(4,8)")
-- $ loopAt 2
-- $ "jungle_breaks:26"
-- # cut 8
-- # gain 1.8
-- d4 $ gF2 $ gMute3 -- 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>"
-- "<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
-- -- "c g"
-- - 12
-- + 2
-- )
-- # "giorgio_syn:1"
-- -- # "bassWarsaw"
-- # cut 4
-- # pan 0.3
-- # room 0.4
-- # octersubsub 0
-- # crushbus 41 (range 16 3.5 "^53")
-- # octersubsubbus 42 (range 0 2 "^33")
-- # gain 1.7
-- d5 $ gM3 $ gF3 -- Marimba fondamental
-- $ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
-- $ juxBy 0.4 rev
-- $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
-- # "marimba1"
-- -- # att (range 0.8 0.2 "^34")
-- # rel 1
-- -- # squizbus 51 (range 0 2.5 "^54")
-- -- # delay 0 # delayfb 0.8 # delayt 0.25
-- # pan 0.9
-- # gain 1.6
-- # room 0.3
-- d10 $ gF3 $ gM3 -- Menace
-- $ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>")
-- -- Variante Adrianesque
-- $ someCyclesBy "<0!16 1!32 0!16>" (>| note "<b3 ~ ~ [ c4@2 ~ . ef4 fs4 c4]>")
-- -- Variante Adrianesque Folle
-- $ someCyclesBy "<0!16 1!32 1!12 0!4>" (>| note "<b3 ~ [g4 a4 b4 a4 es4 a4 fs4 a4 c4] [~ ~ as4 ~]>")
-- -- Variante Adrianesque Folle2
-- $ someCyclesBy "<0!16 1!32 0!12 1!4>" (>| note "<[b3 ~] [as3 bs3 g3 cs4 ~ d4] [~ gs4 ~ ~] [~ ~ [as4 as4] ~]>")
-- $ "90s_synatm:10"
-- # room 0.3 # sz 0.8
-- # gain 2
-- # att 0.10
-- # rel 10
-- # crushbus 101 (range 16 3.5 "^14")
-- # legato 2
-- # octersub 1
-- # cut 9
-- d7 $ gM3 $ gF2
-- -- $ ply 2
-- $ midiOn "^59" (# speed "-0.25")
-- $ midiOn "^91" (struct "t*<8!3 [8 4]>")
-- $ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
-- $ chop 16
-- $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- -- # octersubsubbus 73 (range 0 8 "^19")
-- -- # octersubbus 72 (range 0 4 "^35")
-- -- # octerbus 71 (range 0 1.7 "^55")
-- # 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
-- $ 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!
-- $ midiOn "^92" ( -- Bouton Nassim <3
-- slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
-- . loopAt 1 . (# "breaks165")
-- -- . (# octer 0.4) . ( octersubsub 4)
-- . (# lpf 2500)
-- . (# room 0)
-- )
-- $ chop 16
-- $ "breaks165"
-- # cut 8
-- # octersub 0.5
-- # gain 1.2
--
--
-- once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
--
-- once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
--
-- once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
--
-- once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
--
once $ "rhadamanthe_melo"
--
--
--
--
--
-- 90s_matrix:0
--
-- d8 $ "jungle_breaks"
...@@ -10,12 +10,12 @@ let gM1 = gMask . gMute ...@@ -10,12 +10,12 @@ let gM1 = gMask . gMute
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k k*2")) $ midiOn "^42" (fast 2 . (<| "k k k <k [<k k*2 ~ k*[1|2]> k]>"))
$ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>") $ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
$ fix (# lpf 1200) "kick" $ fix (# lpf 1200) "kick"
$ "[jazz, kick:3]" $ "[jazz,kick:3]"
-- # room 0.2 # sz 0.3 # dry 1.4 -- # room 0.2 # sz 0.3 # dry 1.4
# gain 1.7 # gain 2
d2 $ gF1 $ gM2 d2 $ gF1 $ gM2
$ midiOn "^42" (fast 2) $ midiOn "^42" (fast 2)
$ midiOff "^42" (mask "<f!3 [t <f t>]>") $ midiOff "^42" (mask "<f!3 [t <f t>]>")
...@@ -31,12 +31,12 @@ d3 $ gF1 $ gM1 ...@@ -31,12 +31,12 @@ d3 $ gF1 $ gM1
# drumFrom "rolandtr909" "hh:2" # cut 3 # drumFrom "rolandtr909" "hh:2" # cut 3
# gain 1.8 # gain 1.8
# legato (range 0.05 0.9 "^32") # legato (range 0.05 0.9 "^32")
d7 $ gF1 $ gM1 d7 $ gF1 $ gM1 -- Breaks Demoniaques
$ midiOn "^91" (ply "2 <2!2 <3 4> <4 8>>") $ midiOn "^91" (ply "2 <2!2 <3 4> <4 8>>")
$ midiOn "^55" (slice 4 "<[0 1 2 3]!6 3*8 3 32 8 8 4]>" $ midiOn "^55" (slice 4 "<[0 1 2 3]!6 3*8 3*[16 . 32 8 8 4]>"
. (loopAt 1) . (loopAt 1)
. (# "jungle_breaks:19") . (# "jungle_breaks:19")
. (|* gain 1.2)) -- Pure COMEON! . (|* gain 1.3)) -- Pure COMEON!
$ slice 4 "0 1 <2 ~ ~ 2*<2 4>> 3*<1!3 <2 [2 <4 8>]>>" $ slice 4 "0 1 <2 ~ ~ 2*<2 4>> 3*<1!3 <2 [2 <4 8>]>>"
$ loopAt 1 $ loopAt 1
$ "temptation:4" $ "temptation:4"
...@@ -52,7 +52,7 @@ d4 $ gF2 $ gM3 -- TEMPT MY BASS ...@@ -52,7 +52,7 @@ d4 $ gF2 $ gM3 -- TEMPT MY BASS
# crushbus 41 (range 12 3 "^53") # crushbus 41 (range 12 3 "^53")
# octersubbus 42 (range 0 2 "^33") # octersubbus 42 (range 0 2 "^33")
# gain 1.8 # gain 1.8
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3 -- ANGEL MOOG CHOIR
$ midiOn "^90" (ply "<4 [4 8]>") $ midiOn "^90" (ply "<4 [4 8]>")
$ midiOn "^58" (fast 4 . slice 8 "<0 0 1 1 2 2 3 3>/2") $ midiOn "^58" (fast 4 . slice 8 "<0 0 1 1 2 2 3 3>/2")
$ "temptation:0" $ "temptation:0"
...@@ -74,9 +74,9 @@ d8 $ gF1 $ gM1 ...@@ -74,9 +74,9 @@ d8 $ gF1 $ gM1
# gain 1.4 # gain 1.4
d9 $ gF3 $ gM3 -- TEMPTATION VOICES d9 $ gF3 $ gM3 -- TEMPTATION VOICES
$ midiOn "^16" (# n 8) -- Bring it to your knees $ midiOn "^16" (# n 8) -- Bring it to your knees
$ midiOn "^17" (chop "8 <16!8 64!8>")
$ midiOn "^19" (rev . chop 4)
$ midiOff "^16" (# end "<0.8!8 1!8>") $ midiOff "^16" (# end "<0.8!8 1!8>")
$ midiOn "^17" (chop "8 <16!8 64!8>")
$ midiOn "^18" (rev . chop 4)
$ n "7/2" -- Base: Listen - I'm the one $ n "7/2" -- Base: Listen - I'm the one
# "temptation" # "temptation"
# cut 9 # cut 9
......
...@@ -98,8 +98,10 @@ d5 $ gF3 $ gM3 -- Donne moi ton Private Number <3 FIXME Decalage? ...@@ -98,8 +98,10 @@ d5 $ gF3 $ gM3 -- Donne moi ton Private Number <3 FIXME Decalage?
# sz 0.8 # sz 0.8
# room 0.4 # room 0.4
# sz 0.65 # sz 0.65
# legato "<0.9!7 0.5>" -- # legato "<0.9!7 0.5>"
# gain 1.3 # gain 1.2
# att 0.15
# rel 2
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
$ stack [ $ stack [
n "<<~ 22> ~ <21 24 24 33> ~>" n "<<~ 22> ~ <21 24 24 33> ~>"
......
do do
-- resetCycles resetCycles
setcps (120/60/4) setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16")) let gMute1 = (midiOn "^73" (mask "f*16"))
......
do ydo
-- resetCycles -- resetCycles
setcps (124/60/4) setcps (124/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
...@@ -8,7 +8,7 @@ let gMute3 = (midiOn "^75" (mask "f*16")) ...@@ -8,7 +8,7 @@ let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1 let gM1 = gMask . gMute1
let gM2 = gMask . gMute2 let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF1 = (y# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) 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"))
d1 $ gMute2 $ gF1 -- Kick solide d1 $ gMute2 $ gF1 -- Kick solide
......
...@@ -46,7 +46,8 @@ d3 $ gF1 $ gM1 ...@@ -46,7 +46,8 @@ d3 $ gF1 $ gM1
# cut 3 # cut 3
# legato (slow 13 $ range 0.3 2 saw) # legato (slow 13 $ range 0.3 2 saw)
# delaybus 31 (range 0 1 "^52") # delayt "e" # delayfbbus 32 "^32" # delaybus 31 (range 0 1 "^52") # delayt "e" # delayfbbus 32 "^32"
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3 -- La GROSSE BASSE MOLOTOVAH
$ midiOn "^89" (ply "<4 4 2 4> <4 8>")
$ midiOn "^57" (chop 4) $ midiOn "^57" (chop 4)
$ midiOn "^17" ((# n 1) . (|* gain 0.8)) $ midiOn "^17" ((# n 1) . (|* gain 0.8))
$ "molotov:0/2" $ "molotov:0/2"
...@@ -57,6 +58,7 @@ d4 $ gF2 $ gM3 ...@@ -57,6 +58,7 @@ d4 $ gF2 $ gM3
# octerbus 42 (range 0 0.8 "^33") # octerbus 42 (range 0 0.8 "^33")
d5 $ gF3 $ gM3 d5 $ gF3 $ gM3
$ midiOff "^58" (mask "t(8,16)") $ midiOff "^58" (mask "t(8,16)")
$ midiOn "^90" (ply 2)
$ note ( $ note (
"a4!15 <<a4!4 c4!3 d4> <g4 c5>>" "a4!15 <<a4!4 c4!3 d4> <g4 c5>>"
-- + "[0*16]" -- + "[0*16]"
...@@ -68,14 +70,13 @@ d5 $ gF3 $ gM3 ...@@ -68,14 +70,13 @@ d5 $ gF3 $ gM3
# filterRange (range 0 7 "^18") # filterRange (range 0 7 "^18")
# width (range 0.05 0.5 "^34") # width (range 0.05 0.5 "^34")
# crushbus 51 (range 16 3.5 "^54") # crushbus 51 (range 16 3.5 "^54")
# legato 0.25
# rq 0.3 -- TODO EXPLORE <3 # rq 0.3 -- TODO EXPLORE <3
d7 $ gF3 $ gM3 d7 $ gF3 $ gM3
$ midiOn "^35" ( $ midiOn "^35" ( -- A-a-a-a-ACID!
-- slice 4 "[0 1 2 3]/2" chop 8 . (# n 7)
chop 8 .
(# n 7)
) )
$ midiOn "^91" ( $ midiOn "^91" ( -- DANSE COMME UN CHEVAL
fast 2 . slice 4 "<[0 1 2 3] [0 1 2 3] <[0 1 2 3] [0 2 3 0]> [0*4]>" . fast 2 . slice 4 "<[0 1 2 3] [0 1 2 3] <[0 1 2 3] [0 2 3 0]> [0*4]>" .
(# n 5) (# n 5)
) )
...@@ -89,13 +90,14 @@ d7 $ gF3 $ gM3 ...@@ -89,13 +90,14 @@ d7 $ gF3 $ gM3
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOn "^60" (mask "t(4,8,1)" . chop 4) $ midiOn "^60" (mask "t(4,8,1)" . chop 4)
$ chop 8 $ chop 8
$ midiOn "^56" (loopAt 2 . (# n 16)) $ midiOn "^36" (loopAt 2 . (# n 45)) -- Break Orleans
$ midiOn "^36" (loopAt 2 . (# n 45)) $ midiOn "^56" (loopAt 2 . (# n 16)) -- Classique
$ loopAt 1 $ loopAt 1
$ "jungle_breaks:11" $ "jungle_breaks" # n "71 <71!3 <72 [72 71*2]>>"
# cut 8 # cut 8
# gain 1.5 # gain 1.5
d9 $ gF3 $ gF3 d9 $ gF3 $ gF3
$ (0.125 ~>)
$ "molotov:2/2" $ "molotov:2/2"
# cut 5 # cut 5
# octersub 2 # octersub 2
......
resetCycles
do
-- setcps(144/60/4)
setcps(166/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 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 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 $ gMute2
$ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
$ midiOn "^42" (<| "k k k <k <k*2 [k k k ~]>>")
$ midiOff "^42" (<| "k . ~ k ~ ~")
$ "[kick:5,tech:5,jazz]"
# gain 1.8
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 <2 [2 4]>>")
$ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
$ "rampleS37:5"
# gain 1.8
# lpf 2650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ sometimesBy "0!3 <0 0.5>" (# n 12)
$ sometimesBy "0!3 <0.1 0>" (# n 13)
$ "~ d ~ d d d d*<1 1 2 1> d"
# "rampleS34:6"
# cut 3
# legato (range 0.28 1 sine)
# gain (1.1 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.14 # sz 0.4 # dry 1
# pan 0.8
-- Emphasize "and" of beats
d4 $ gF2 $ gM3
$ superimpose (const $ gF2 $ gM3 -- Second BASS!
$ midiOff "^57" (slow 2)
$ note "~ [a3 c4] ~ [e3 g3] ~ [a3 e3] ~ g3"
# "bassWarsaw" |- note 12
# cut 41 # gain (range 0.5 2 "^33")
# crushbus 43 (range 16 2.5 "^53")
)
$ whenmod 4 3 (ply "1 2")
$ chop 8
$ loopAt 4
$ "no_sunshine:5"
# gain (1.8- 0.6 * "^33")
# lpf 4000
# room 0.4 # sz 0.8
# delay 0.3 # delayt 0.25 # delayfb 0.5
-- # octersubbus 41 (range 0 2 "^53")
# crushbus 42 (range 16 2.5 "^53")
d5 $ gF3 $ gM3
$ midiOn "^58" ( -- I KNOW
(# n "<16 ~!3>")
. (# cut 5)) -- FIXME VOICE OFF
$ midiOff "^58" (>| n ("<~ ~ [~ 0] ~>"
+ (slow 4 "<9 9 10 11 ~ 12 13 14 ~>")))
$ "no_sunshine"
# gain 1.5
# cut 5
# room 0.3 # sz 0.3
d7 $ gF3 $ gM3 -- Guitar Sunshine
$ midiOn "^91" (ply 2)
$ juxBy 0.8 (rev . (#cut 71))
$ midiOn "^59" ( -- SLICE!
ply "1 2" . slow 4 . chop 8 . (# n 24)
)
$ "no_sunshine/2"
# n (slow 2 "<20 20 21 22 23 24 25 26>")
# cut 7
# gain 1.4
# room 0.3
d11 $ gF3 $ gM3
$ chop 4
$ "no_sunshine:4/4"
# cut 5
# room 0.3 # sz 0.5
# gain 1.2
d9 $ gF3 $ gM3
$ "no_sunshine/4" # n (slow 4 "<0 1 2 3>" )
# cut 9
# room 0.3
d8 $ gF1 $ gM1 -- JazzyBelle JazzyBreak
$ juxBy 0.5 (# cut 81)
$ midiOn "^92" (slice 4 "0*2 [1 2] 2*2 3*<1 1 1 2>")
$ chop 16
$ midiOn "^36" (loopAt 1 . (# "org_jungle_breaks:24"))
$ midiOn "^56" (slice 4 "0 <1 1 1 3> <2 2 3 2> <3 3 2 <1 3>>" .
loopAt 1 . (# "breaks165"))
$ loopAt 1
-- $ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
$ "org_jungle_breaks:1"
# pan 0.26
# gain 0.9
# octersub 1.2
# octersubsub 2
# cut 8
# room 0.3 # sz 0.5 # dry 0.9
# gain 1.5
...@@ -77,7 +77,8 @@ d5 $ gF3 $ gM3-- RIFFs <3 ...@@ -77,7 +77,8 @@ d5 $ gF3 $ gM3-- RIFFs <3
# n "<0!12 <32 33 34 35>!4>" # n "<0!12 <32 33 34 35>!4>"
# cut 5 -- RIFF # cut 5 -- RIFF
d7 $ gF3 $ gM3 -- VOICES d7 $ gF3 $ gM3 -- VOICES
$ midiOn "^59" (# n "<24!2 25 <26 27>>") $ midiOn "^91" (ply "2 <4 4 4 8>")
$ midiOn "^59" (# n "<24!2 25 <26 27>>") -- Real Dogs
$ (midiOff "^59" (superimpose (chop 16) $ (midiOff "^59" (superimpose (chop 16)
. (# cut 61) . (# cut 61)
. (# pan "[0.2 0.8]*2")) ) . (# pan "[0.2 0.8]*2")) )
...@@ -86,8 +87,11 @@ d7 $ gF3 $ gM3 -- VOICES ...@@ -86,8 +87,11 @@ d7 $ gF3 $ gM3 -- VOICES
# cut 7 # cut 7
# gain 1.2 # gain 1.2
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(8,16,1)" . chop 8)
$ chop 8 $ chop 8
$ loopAt 0.5 $ loopAt 0.5
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:39"))
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:42"))
$ "breaks165" # bandf 1400 # room 0.3 # dry 1.2 # sz 0.8 $ "breaks165" # bandf 1400 # room 0.3 # dry 1.2 # sz 0.8
# cut 8 # cut 8
# gain 1.4 # gain 1.4
......
...@@ -14,11 +14,11 @@ let gM2 = gMask . gMute2 ...@@ -14,11 +14,11 @@ let gM2 = gMask . gMute2
let gM3 = gMask . gMute3 let gM3 = gMask . gMute3
let modIndex = pF "modIndex" let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick d1 $ gF1 $ gM2 -- Kick
$ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOff "^42" (<| "k . ~ k ~ ~ ")
$ midiOn "^42" (<| "k . ~ k ~ ~ ") $ midiOn "^42" (<| "k k k <k <k*2 [~ k]>>")
$ "[bskick,jazz]" $ "[bskick,jazz]"
# gain 1.2 # gain 1.2
# gain 1.4 # gain 1.8
d2 $ gF1 $ gM1 -- Snare melancolie fromagere d2 $ gF1 $ gM1 -- Snare melancolie fromagere
$ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>") $ midiOff "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
$ midiOn "^43" (<| "~ s ~ s*<1!3 2>") $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
...@@ -26,7 +26,7 @@ d2 $ gF1 $ gM1 -- Snare melancolie fromagere ...@@ -26,7 +26,7 @@ d2 $ gF1 $ gM1 -- Snare melancolie fromagere
# gain 1.45 # gain 1.45
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^44" (ply 2) $ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2) $ midiOn "^76" (struct "t*16")
$ "d d d <d [<d ~> d]>" # "drum:2" $ "d d d <d [<d ~> d]>" # "drum:2"
# gain 0.8 # gain 0.8
-- # midiG' "^80" 0 1 -- # midiG' "^80" 0 1
...@@ -69,7 +69,7 @@ d7 $ gF2 $ gM3 ...@@ -69,7 +69,7 @@ d7 $ gF2 $ gM3
# delay 0.7 # delay 0.7
# delayt 0.125 # delayt 0.125
# delayfb 0.5 # delayfb 0.5
# gain 1.2 # gain 1.4
d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux? d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux?
-- $ superimpose ((arp "up") . (|+ note 12)) -- $ superimpose ((arp "up") . (|+ note 12))
$ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0))) $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
...@@ -87,7 +87,7 @@ d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux? ...@@ -87,7 +87,7 @@ d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux?
|+ note 2 -- Adjust to C |+ note 2 -- Adjust to C
# modIndex (range 0 2 "^54") # modIndex (range 0 2 "^54")
# room 0.4 # room 0.4
# gain 1.1 # gain 1.7
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ midiOff "^60" (mask "f(4,8)" . chop 8) $ midiOff "^60" (mask "f(4,8)" . chop 8)
$ midiOn "^92" (ply 4) $ midiOn "^92" (ply 4)
...@@ -99,7 +99,7 @@ d8 $ gF1 $ gM1 ...@@ -99,7 +99,7 @@ d8 $ gF1 $ gM1
$ "break:2" $ "break:2"
-- # n 4 -- # n 4
# cut 8 # cut 8
# gain 1 # gain 1.5
d9 -- Alright Paris <3 d9 -- Alright Paris <3
$ begin ("<<0.0 0.08> <~ <0.2!3 0.4 0.4!4>>>") $ begin ("<<0.0 0.08> <~ <0.2!3 0.4 0.4!4>>>")
# end ("<0.2!3 <0.4!2 0.64!2>>") -- 0.2 - 0.35 - 0.4 - 0.6 # end ("<0.2!3 <0.4!2 0.64!2>>") -- 0.2 - 0.35 - 0.4 - 0.6
......
...@@ -95,6 +95,7 @@ d7 $ gF3 -- together yeah! ...@@ -95,6 +95,7 @@ d7 $ gF3 -- together yeah!
# crushbus 71 (range 16 "<5 10>" "^55") # crushbus 71 (range 16 "<5 10>" "^55")
# hpfbus 72 (range 0 3500 "^55") # hpfbus 72 (range 0 3500 "^55")
# cut 7 # cut 7
# gain 1.4
d8 $ gM1 $ gF1 -- Angel Breaks d8 $ gM1 $ gF1 -- Angel Breaks
$ midiOn "^92" (ply "<2 2 4 8>") $ midiOn "^92" (ply "<2 2 4 8>")
$ midiOn "^60" (mask "f <t t f t>") $ midiOn "^60" (mask "f <t t f t>")
......
...@@ -15,50 +15,99 @@ d1 $ gF1 $ gM2 -- Kick ...@@ -15,50 +15,99 @@ d1 $ gF1 $ gM2 -- Kick
# gain 1.2 # gain 1.2
# lpf 400 # lpf 400
d2 $ gF1 $ gM1 d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ s") $ midiOff "^43" (slow 2 . (<| "~ ~ ~ s"))
$ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" ) $ midiOn "^43" (<| "~ s ~ s*<1 2 [2 1] [4 <2 8>]>" )
$ "cp" # hpf 1400 # gain 1.3 $ "cp" # hpf 1400 # gain 1.3
d3 $ gF1 $ gM1$ "hh(3,8) hh(3,8,1)" # "vec1_snare:11" d3 $ gF1 $ gM1
$ midiOn "^44" (<| "h(4,8,1)")
$ midiOff "^44" (<| "hh(3,8) hh(<3 [3 5] 8>,8,1)")
$ "vec1_snare:11"
# legato (range 0.25 2 "^52")
d4 $ gF2 $ gM3 -- WAP BASS d4 $ gF2 $ gM3 -- WAP BASS
$ midiOn "^57" (# n 1) $ midiOn "^89" (
slice 8 ("~ 0 ~ 5 ~ 3 <~!4 5!4> <3!4 [3 0]!4>")
-- . (superimpose (# cut 41))
)
$ midiOn "^57" (
slice 8 ("~ 0 <~ ~ 5 5> 3 <~ 0!3> <~!4 0!10 ~ 0*4> 5 <~ 5>")
-- $ (0.125 ~>) :
. (# gain 1.3 )
. (# crushbus 43 (range 16 3.4 "^53") )
. (# lpf 3000)
-- . (# note "-12")
-- . ( #octersub 1.2)
-- . (# room 0.2) . (# room 0.2) . (# dry 0.9)
)
-- $ midiOff ("^57" - "^89") ("0.25" ~>) -- TODO: Decalage de Bruno
$ "wap/2" $ "wap/2"
# bandf 400 # cut 4 # lpf 2400
# cut 4
# gain 1.9 # gain 1.9
# room 0.4 -- # room 0.4
# octersubsubbus 42 (range 0 1.4 "^53") # octersubsubbus 42 (range 0 1.4 "^53")
# octerbus 41 (range 0 1.4 "^53") # octerbus 41 (range 0 1.4 "^53")
d5 $ gF3 $ gM3 -- WAP HOES d5 $ gF3 $ gMute3 -- WAP HOES v1 magic repeat
$ midiOn "^34" (# 7) -- FORCE INTRO $ midiOn "^34" (# 7) -- FORCE INTRO
$ midiOff ("^34"+"^90") (slow 4) $ midiOff ("^34"+"^90") (slow 4)
$ stut 4 1 1 -- Four repeats each $ stut 4 1 1 -- Four repeats each
$ slow 4 $ slow 4
$ midiOn "^58" (stut "4" 0.9 (fast 4 "e")) $ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
$ midiOn "^90" (ply "[1!3 4]*4" . chop 4 . stut "4" 0.9 (fast 4 "s") . (# att 0.08) . (# rel 10)) $ midiOn "^90" (
ply "[1!3 4]*4" . chop 4 . -- Magic Repeat: next segment instead
stut "4" 0.9 (fast 4 "s") -- Magic Repeat: repeater
. (# att 0.08)
. (# rel 10)
)
$ "wap:0" # n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
# cut 5
# room 0
# sz 0
# gain 1.4
d5 $ gF3 $ gMute3 -- WAP HOES v1 science of repeat
$ midiOn "^90" ((slice 4 "0*4"))
$ midiOn "^34" (# 7) -- FORCE INTRO
$ midiOff ("^34" + "^90") (slow 4) -- 4 bars
$ stut 4 1 1 -- Four repeats each
$ slow 4 -- times Four bits
$ midiOn "^58" (stut "4" 0.9 (fast 4 "e"))
$ "wap:0" # n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete $ "wap:0" # n ("<8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31>") -- Rotation complete
# cut 5 # cut 5
# room 0 # room 0
# sz 0 # sz 0
# gain 1.4 # gain 1.4
d7 $ gF1 $ gM1 --Les WAP DRUMS d7 $ gF1 $ gM1 --Les WAP DRUMS
$ midiOff "^60" (mask "t(4,8,1)" . chop 8) $ midiOff "^59" (mask "t(4,8,1)" . chop 8)
$ midiOn "^91" (ply "2 <2 4>") $ midiOn "^91" (ply "2 <2 4>")
$ loopAt 2 $ chop 8 $ loopAt 2 $ chop 8
$ "wap" # n "<3!4 4!4 5!4 6!4>" $ "wap" # n "<3!4 4!4 5!4 6!4>"
# cut 7 # gain 1.8 # cut 7
# gain 1.2
d8 $ gF1 $ gM1 -- La stack de breaks d8 $ gF1 $ gM1 -- La stack de breaks
$ midiOff "^60" (mask "t(4,8,1)" . chop 8 ) -- BREAK JUNGLE $ midiOff "^60" (mask "t(4,8,1)" . chop 8 ) -- BREAK JUNGLE
$ midiOn "^92" (ply 2) -- BREAK JUNGLE $ midiOn "^92" (ply 2) -- BREAK JUNGLE
$ midiOn "^36" (# 45) -- BREAK ORLEANS $ midiOn "^36" (# 45) -- BREAK ORLEANS
$ midiOn "^56" (# 7) -- BREAK JUNGLE $ midiOn "^56" ((# 7) . (|* gain 0.9)) -- BREAK JUNGLE
$ loopAt 2 $ chop 8 $ loopAt 2 $ chop 8
$ "jungle_breaks:84" # cut 8 $ "jungle_breaks:84" # cut 8
# gain 1.6 # gain 1.3
d9 $ gF2 $ gM3 $ slow 2 d9 $ gF2 $ gM3 $ slow 2
$ fast 2 $ off 1 (|- note "0 12") $ superimpose ((
$ note "[b@3 ~@2 c@3 <cs <[cs@2 ~ g e] [cs@2 ~ g e g e]>>@5]" # "acidOto3091"-- V1 Bass
)
. (|- note 12)
. (|* gain "^18")
. (# cut 91))
-- $ off 1 (|- note "0 12")
$ note (cat [
"~ f f f fs f ef f cs@8",
"~ f f f fs f ef f cs@8",
"~ f f f fs f fs f cs@8",
"~ f f f fs f ef f [cs ef f ef]@8"
])
-- "[b@3 ~@2 c@3 <cs <[cs@2 ~ g e] [cs@2 ~ g e g e]>>@5]"
-- # "bassWarsaw" |- note "[36,24]" -- # "bassWarsaw" |- note "[36,24]"
# "acidOto3091" -- V1 Bass -- # "vec2_synth_acid:25" |- note 12-- Alternative2
# "vec2_synth_acid:25" -- Alternative2
# "vec1_acid:25" -- Alternative # "vec1_acid:25" -- Alternative
# crushbus 91 (range 16 6.5 "^19") # crushbus 91 (range 16 6.5 "^19")
# room 0.4 # room 0.4
......
do
setcps (140/60/4)
let gMask = (midiOn "^41" (mask "t!7 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 giantA = jchord "<Bmaj7 D7 Gmaj7 Bb7 Ebmaj7 [Am7 D7] Gmaj7 [Bb7 Ebmaj7] [F#7 Bmaj7] [Fm7 Bb7] Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7]>"
let giantB = jchord "<Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7] Ebmaj7 [C#m7 F#7] Bmaj7>"
let giantSimple = jchord "<Bmaj7 Gmaj7 Ebmaj7 Bmaj7>"
let giantVar1 = slow 2 $ jchord "<Bmaj7 Bmaj7 D7 Gmaj7 Gmaj7 Bb7 Ebmaj7 F#7>"
let giantFull = slow 8 $ giantA
let giantBass = slow 8 $ jroot "<Bmaj7 D7 Gmaj7 Bb7 Ebmaj7 [Am7 D7] Gmaj7 [Bb7 Ebmaj7] [F#7 Bmaj7] [Fm7 Bb7] Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7]>"
d1 $ gF1 $ gM2 $ midiOn "^42" (struct "t t*<1 2> t t*<1 2 [2 4]>") $ "808bd:13" # gain 0.95 # lpf 250
d2 $ gF1 $ gM1 $ "~ s ~ [s <~ s*2>]" # "hh27:12" # gain 1.3 # lpf 2000 # legato 0.4
d3 $ gF1 $ gM1 $ degradeBy 0.5 $ "dr*16" # "h2ogmsn:4" # gain 0.7
d4 $ gF2 $ gM3
$ struct "t ~ t? ~ t ~ t? ~"
$ fast 4 $ giantBass |+| n "<0 7> <0 12> [0 7] 0"
# "bassWarsaw"
# octave 2
# lpf (slow 16 $ range 200 600 sine)
# resonance 0.2 # room 0.2 # sz 0.3 # gain (1.4 * "<1 0.9 1 [0.9|1.1]>")
# legato 0.6 # crushbus 41 (range 16 4 "^53")
d5 $ gF3 $ gM3
$ superimpose (
(struct "t f t") . (|+ note 12) . arp "pinkyup")
$ fast 4
$ giantFull # "superpiano"
# octave 4
-- # modIndex (slow 8 $ range 0.5 4 sine)
-- # gain (0.9 * "1 [0.8|1] 0.9 1 [0.7|0.9] 0.9 1 0.8") # room 0.5 # sz 0.7 # dry 1.1 # lpf (slow 16 $ range 3000 6000 sine) # pan (slow 32 $ range 0.3 0.7 sine)
-- # attack (0.01 + (rand * 0.015))
-- # release (slow 12 $ range 0.9 1.4 sine)
-- # crushbus 41 (range 16 4 "^54")
d7 $ gF3 $ gM3
$ fast 4 $ giantBass
# "cbow"
# octave 4
# lpf (slow 24 $ range 1500 4000 sine)
# room 0.7 # sz 0.8
# gain (0.65 * "<1 0.8 0.9 1>")
# pan (slow 16 $ range 0.2 0.8 sine)
# attack 0.04 # release 1
# legato 0.85
s0.initVideo("/home/pln/Videos/HARDKORRIGANS/Dancers/C'mon and Swim - Bobby Freeman (480p_30fps_H264-128kbit_AAC).mp4")
s2.initVideo("/home/pln/Videos/HARDKORRIGANS/Dancers/Best 60s Dancer Boy Ever - The Nitty Gritty (480p_30fps_H264-128kbit_AAC).mp4")
s1.initVideo("/home/pln/Videos/HARDKORRIGANS/Dancers/Keep on Dancing - The Gentrys (480p_30fps_H264-128kbit_AAC).mp4")
s2.initVideo("/home/pln/Videos/HARDKORRIGANS/animation_WTF_trip_bonnenuitlespetits.mp4")
s0.src.playbackRate = 1.4
s0.src.currentTime = 10
s0.src.loop = true
s2.src.playbackRate = 0
s2.src.currentTime = 0
s2.src.loop = true
a.setSmooth(0)
a.show()
a.setScale(14)
src(s0)
.scale(() => 1 + 0.5 * a.fft[0])
.saturate(() => 0.1 + 2 * a.fft[2] + 0.5 * a.fft[3])
.out(o0)
src(o0)
.modulate(src(s0).scale(() => 1.09 + a.fft[0]))
.diff(src(s1).scale(() => 0.2 + 0.5 * a.fft[3])
.kaleid(() => 2.4 + 4 * a.fft[2])
)
.colorama(() => 0.4 * a.fft[2])
// .rotate(() => (time * (a.fft[0]) % 360))
.out(o1)
src(s1)
// .modulateRotate(src(s1).scale(0.8))
// .add(src(s2).scale(2))
.out(o2)
src(s2)
// .colorama(() => 0.5 * a.fft[2])
// .diff(src(o0).mask(shape(4).scale(() => 1.2 + 0.5 * a.fft[1] + 0.82 * a.fft[3])))
.out(o3)
render(o1)
once $ "gfunk_lead"
do
setcps (60/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" ((|> "808bd:4") . fast "<2!6 4 8>" . (<|"k k k k"))
$ midiOff "^42" ((|> "808bd:4") . (<|"k . k(<3 [3 5] [5 3] [8 <8 16>]>,8)"))
-- $ fast 2
$ "808bd:4"
# gain 1.4
d2 $ gF2 $ gM2
$ fast "<1!8 4!24>" $ "~ s*<1!7 [4 <2 4>]>"
# "snare:32"
# gain 1.3 # legato 0.35
# hpf 1300
d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2 . (>| "~ hh ~ hh ~ hh ~ hh"))
$ midiOff "^44" (<| "dr*[8 <8 8 16 [32 16 32 16]>]")
$ "dr"
d4 $ gF2 $ gM2
$ midiOn "^57" (
(|+| note ("0 . [<0 2 0 0> <7 7 8 7>](<3!3 5>,8)"))
)
$ midiOn "^89" (struct "t . t(3,8)")
$ note "<fs3 d3 cs3 <b2 e2>>"
# "bassWarsaw"
# crushbus 41 (range 16 2 "^53")
# octerbus 42 (range 0 1.5 "^33")
# octersubbus 43 (range 0 2.5 "^33")
# room 0.4
# gain 1.2
d5 $ gF3 $ dMask $ gM3 -- Evasif
$ superimpose (const
$ (0.125 ~>)
$ midiOn "^42" (fast 2)
$ slice 4 "<0 1 2 3>"
$ "numb:27/2"
# room 0.3
# cut 51
# lpf 3000
|* gain ("^34")
)
$ midiOn "^90" (ply "<4!3 [8 8 16 <8 16>]>")
-- $ slow 16 $ mask "t(8,16) t(8,16)"
$ chop 8
$ "numb/2"
# crushbus 51 (range 16 4.1 "^54")
# octersubbus 52 (range 0 1.1 "^34")
# cut 5
# room 0.3
d6 $ gF3 $ gM3 -- MoRE LIKE ME // LESS LIKE YOU
$ whenmod 64 32 (stut 2 0.7 "e")
$ (0.625 ~>)
$ "numb/2" # n (slow 2 $ ply 2 $ "<20 21>")
# end 0.9
-- # cut 6
# room 0.4
d7 $ gF3 $ gM3 -- SO NUMB
$ midiOn "^91" (superimpose (
const
$ slow 8
$ ply 4 $ chop 4 $ "numb:11"
# cut 71 # hpf 5000 # pan "<0.8 0.2>" # gain 1.3)
)
$ slice 16 (slow 2 $ run 16)
$ n "<1 2>/2"
# "numb"
# gain 0.55
# room 0.3
d8 $ gF1 $ gM1 $ chop 8
$ midiOff "^60" (mask "t(8,16,1)" . chop 16)
$ midiOn "^36" (loopAt 2 . (>| "jungle_breaks:44"))
$ midiOn "^56" (loopAt 0.5 . (>| "jungle_breaks:19"))
$ loopAt 2 $ "jungle_breaks:42"
# cut 8
# gain 1.4
d9 $ gF3 $ gF3
$ "numb:18"
# cut 9
# begin "<0!3 0.32>"
# end "<0.32!3 <0.6 1>>"
d10 $ gF3 $ gM3 -- Keys cloche
$ "numb:24"
# cut 10
d11 $ gF3 $ gM3
$ "numb:25/2" -- Keys joie
# cut 11
# room 0.4
d12 $ gF3 $ gM3 $ "numb:26" -- KEYS ORAGE
# cut 12
# octerbus 120 (slow 32 $ range 0 "^16" perlin)
# room 0.2
# freezebus 121 (range 0 1 "^31")
-- Chester Bennington]
-- I'm tired of being what you want me to be
-- Feeling so faithless, lost under the surface
-- I don't know what you're expecting of me
-- Put under the pressure of walking in your shoes
--
-- [Pre-Chorus: Chester Bennington & Mike Shinoda]
-- Caught in the undertow, just caught in the undertow
-- Every step that I take is another mistake to you
-- Caught in the undertow, just caught in the undertow
--
-- [Chorus: Chester Bennington]
-- I've become so numb, I can't feel you there
-- Become so tired, so much more aware
-- I'm becoming this, all I want to do
-- Is be more like me and be less like you
--
-- [Verse 2: Chester Bennington]
-- Can't you see that you're smothering me?
-- Holding too tightly, afraid to lose control
-- 'Cause everything that you thought I would be
-- Has fallen apart, right in front of you
--
-- [Pre-Chorus: Chester Bennington & Mike Shinoda]
-- Caught in the undertow, just caught in the undertow
-- Every step that I take is another mistake to you
-- Caught in the undertow, just caught in the undertow
-- And every second I waste is more than I can take
-- You might also like
-- In the End
-- Linkin Park
-- Heavy Is the Crown
-- Linkin Park
-- ROSÉ & Bruno Mars - APT. (Romanized)
-- Genius Romanizations
-- [Chorus: Chester Bennington]
-- I've become so numb, I can't feel you there
-- Become so tired, so much more aware
-- I'm becoming this, all I want to do
-- Is be more like me and be less like you
--
-- [Bridge: Chester Bennington]
-- And I know
-- I may end up failing too
-- But I know
-- You were just like me with someone disappointed in you
--
-- [Chorus: Chester Bennington]
-- I've become so numb, I can't feel you there
-- Become so tired, so much more aware
-- I'm becoming this, all I want to do
-- Is be more like me and be less like you
--
-- [Outro: Chester Bennington]
-- I've become so numb, I can't feel you there
-- I'm tired of being what you want me to be
-- I've become so numb, I can't feel you there
-- I'm tired of being what you want me to be
do
setcps (65/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (fast 2 . (<| "k k k k"))
$ midiOff "^42" (<| "<k ~> . ~ ~ ~ <~ [<k ~ ~ k> <k <~ k>>]>")
$ "[jazz,kick:5,808bd:3]"
# room 0.3 # sz 0.9 # dry 1
d2 $ gF1 $ gM1 $ dMask
-- $ fix (
-- (# lpf 800) .
-- (|* gain (slow 16 $ range 0.5 1.35 saw))
-- ) "cp"
$ fast 2 "~ cp ~ cp*<1!3 2>"
# "[snare:29]"
# gain 0.9
d3 $ gF1 $ gM1 $ dMask
$ "[~ h]*8"
# "h2ogmhh:19"
# legato "<0.33!16 0.5!16 0.75!16 1!16>"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM2
$ note (
"<g g <gf bf> g g g bf d>" + (fast 2 $ arp "pinkyup" ("<c!7 g>" + "c'min'4"))
- 36
) # "bassWarsaw"
# crushbus 41 (range 16 4.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
# gain 1.3
d5
$ gF3 $ gM3
$ midiOn "^90" (off 25 id . ply "4 8")
$ midiOn "^58" (ply 4 . slice 4 "<0 1 2 3>")
$ "law_adri"
# n "<1!24 2!8>"
# cut 5
# gain 1.5
# room 0.4
d7 $ gM3 $ gF3
$ midiOn "^91" (off 0.25 (id) . ply 4)
$ midiOff "^59" (chop 8)
$ "law_adri"
# n "<5 6 5 6 5 6 5 6 7 8 7 8 9 10 9 10>"
# cut 7
# delay "<0!6 0.8 0.9>"
# delayt 0.25
# delayfb 0.5
# gain 1.5
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "2 2 4 2")
$ chop 8
$ loopAt 1
$ midiOn "^36" (# n "23")
$ midiOn "^56" (# n "45")
$ "jungle_breaks:22"
# gain 1.3
# room 0.4 # sz 0.9
# hpf 400
# pan "[0.2 0.8]*4"
once $ "law_adri" # cut 1 # n 21
-- # room 0.2
-- # lpf 2000
-- # octer 0.
d8 $ gF1 $ gM1
$ loopAt 1 $ chop 8
$ "jungle_breaks:45"
# cut 8 # hpf 500
d4 $ gF2 $ gM3
$ midiOn "^57" (superimpose ((0.25 ~>)
. (|+| note (
"[0 7 0 12]*2" +
"0 0 0*<1!4 2!4> 0*<1 2 1 2 2!3 4>"
+ "<12!6 24 [24 . 12 0]>"
))))
$ midiOn "^89" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
$ note "<g3 g3 bf3 d3>"
# "bassWarsaw"
# gain 1.2
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# room 0.2
# sz 0.2
d5 $ gF3 $ gM3
$ midiOn "^90" (ply "4 8")
$ n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>"
# "law_adri"
# cut 5
# pan 0.8
d7 $ gF3 $ gM3
$ midiOn "^91" (ply "<2 2 [4 2] 8>")
$ "law_adri"
# n "<4!4 5!4 5!4 8 8 5 89 10 9*2 9*2 11 12 13 14>"
# room 0.3
# pan 0.3
# cut 7
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)")
$ chop 16
$ midiOn "^36" (loopAt 2 . (# "jungle_breaks:45"))
$ midiOn "^56" (loopAt 2 . (# "jungle_breaks:19"))
$ loopAt 1 $ "breaks165"
# gain 1.1
-- /home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif
-- L'Été a MauerPark <3
do
setcps (120/60/4)
let gF = (# 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 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"
let lagamount = pF "lagamount"
let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
d1 $ gF $ gMute2
$ fix (|* gain 0.9)"kick:4"
$ 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
# lpf 4000
# gain 1.5
d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" ((|* gain "0 1 <0.9 0.8> 1") . (<| "~ c <~ [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# gain 1.2
d3 $ gF $ gMute
$ 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"
$ "~ 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 $ gM3 $ gF2
$ midiOn "^89" (# n "20")
$ midiOn "^57" (ply "4 4 <1 1 1 4> <1 2 2 4>")
$ "zombie" # n "<4 6 4 6 11 11 11 11>"
# cut 4
# begin "<0!4 0 0.2 0.2 0.4>"
# gain 1.3
# pan 0.4 # room 0.3
# crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3
$ "zombie" # n "<12!4 6!4 2!3 1 2 2 1 2>"
# cut 5
# pan 0.8
# crushbus 51 (range 16 4.5 "^54")
# octerbus 52 (range 0 1.5 "^34")
# octersubbus 53 (range 0 2.5 "^34")
# room 0.4
# gain 1.2
d7 $ gF3 $ gM3
$ midiOn "^59" (chop 4)
$ midiOn "^91" (ply "2 2 2 4")
$ "zombie:24"
# cut 7
d8 $ gM $ gF -- Breaks divins
$ midiOn "^92" (off "e" id)
$ 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
$ "jungle_breaks:1"
# cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# gain 1
d9 $ gF2 $ gM2
$ fix ((# cut 91)
. ply "<1!4 2 2 1 [4 8]>"
. (|* gain 1.1)
. (# legato 0.9)) "cbow"
$ note ("<e e g c>"
- 24)
# "[90s_matrix:4,cbow:2]"
-- # cut 9
# gain 1.3
# crushbus 91 (range 16 3.5 "^19")
# room 0.2 # sz 0.8 # dry 1.1
d10 $ gF3 $ gM3
$ midiOn "^29" (slow 4 . ply 4)
$ slice 16 "<[0 1 2 3] [4 5 6 7] [8 9 10 11] [12 13 14 15]>" $ "zombie:19"
# cut 10
# gain 1.4 # room 0.3
d11 $ gF2 $ gM3
$ mask "<t!4 f!3 t>"
$ "zombie:22" # cut 11
# pan (slow 32 $ range 0.3 0.7 sine)
# gain 1.4
# room 0.4
# hpf (slow 32 $ range 500 8500 perlin)
d12 $ gF3 $ gM3
$ mask "<t t t f>"
$ "zombie:23" # cut 12
# pan (slow 32 $ range 0.7 0.3 sine)
# hpf (slow 16 $ range 500 8500 perlin)
# gain 1.4
...@@ -58,7 +58,7 @@ d7 $ gF3 ...@@ -58,7 +58,7 @@ d7 $ gF3
$ "aoc_fr" $ "aoc_fr"
# cut 7 # cut 7
# octerbus 71 (range 0 0.9 "^55") # octerbus 71 (range 0 0.9 "^55")
# gain 1.2 # gain 1.5
# room 0.4 # sz 0.8 # dry 1 # room 0.4 # sz 0.8 # dry 1
d8 $ gF1 $ gM1 d8 $ gF1 $ gM1
$ chop 8 $ chop 8
......
do
setcps (91/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k ~>")
$ fix (|* gain 0.6) "jazz"
$ "[808bd:13,jazz]"
# gain 1.8
d2 $ gF1 $ gM1
$ sometimesBy "<0!3 [0 1]>" (superimpose (("s" <~) . (|* gain 0.9)))
$ "~ s ~ s"
# "vec1_snare:31"
d3 $ gF1 $ gM1 $ often (ply 2) $ "hh*8" # "h2ogmhh"
d4 $ gF2 $ gM3
$ (0.125 ~>) -- Decalade de Bruno
$ struct "t(<[12 12 12 <12 16>]!3 16>,16)"
$ note (
"<g3 d4 g3 bf3 g3 a3 g3 d3>" + (fast 4 $ arp "up" "<c'min'4!7 c'maj'4>")
)
# "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# gain 1.4
d5 $ gF3 $ gM3 -- Handmade grinder piano
$ slow 2
$ note ("<[~ d5@2 c5@2 <bf4 bf4 f5 f5>@2 <c5 c5 ef4 ef5> <a4 <ef5 d5>>@8]>" )
# "FMRhodes2"
# modIndex (range 0 12 "^54")
# gain 1.5
d12 $ gF3 $ "gfunk_lead:19/4" # cut 12 # room 0.4 # panbus 120 (slow 16 $ range 0.2 0.8 sine) # octersub 2.5
d10 $ gF3 $ "gfunk_lead:17/2" # cut 10 # pan 0.2 # gain 1.2
d9 $ gF3 $ "gfunk_lead:18/2" # cut 9 # pan 0.8 # sz 0.4 # room 0.3 # dry 0.5
d8 $ gF1 $ gM1
$ 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") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ chop 16
$ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# att 0.04
# rel 2
# gain 1.2
# hpf 1200
do
-- resetCycles
let gF1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (125/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
-- $ 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>")
$ "jazz"
# gain 1.4
# cut 1
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ s ~ [s*<1!3 2> ~]")
$ midiOn "^43" (<| "~ . s*<1!3 2> ~")
$ "[snare:24,snare:51]"
# "h2ogmcp"
# gain (1.0 * "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>")
# room 0.5 # dry 1.1
# delay "<0!15 0.6!1>"
# delayt 0.25
d3 $ gF1 $ gM1
$ "~ 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"
# "h2ogmhh:2"
# gain 1.7
-- # att 0.03 # rel 0.9
# legato (range 0.05 0.9 "^32")
-- d4 $ gF2 $ gM3
-- $ note ("0(3,8) . 0(3,8)" + "f bs c . f bs c")
-- -- # "moog:1"
-- # "bassWarsaw" |- note 24
-- # crushbus 41 (range 16 3.5 "^53")
-- # pan 0.4
-- # cut 1
d5 $ gF3 $ gM3 -- Phone line
-- $ midiOn "^90" (ply "4 <8 16>")
-- $ slow 2
-- $ fast 2 $ slice 8 "<0 1 2 3 4 5 6 7>"
$ "nujazz_keys125" # n "<21!16 22!6 21 21 23!8>"
# cut 5
# gain 1.8
# crushbus 51 (range 16 3.5 "^54")
# pan 0.9
# room 0.3
d7 $ gF3 $ gM3 -- Laser!!!
-- $ midiOn "^90" (ply "4 <8 16>")
-- $ slow 2
$ midiOn "^59" (ply 2)
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "nujazz_keys125:10"
# cut 7
# gain 1.8
# crushbus 71 (range 16 2.7 "^55")
# pan 0.9
# room 0.3
d8 $ gF1 $ gM1
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn "^36 " (loopAt 4 . (# "jungle_breaks:22")) -- Raise COMEON!
$ midiOn "^56" (loopAt 4 . (# "jungle_breaks:23")) -- Raise COMEON!
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 1 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ chop 16
$ "breaks165"
# cut 8
# octersub 0.5
# gain 1.2
-- d9 $ gF3 $ gM3
-- $ midiOn "^19" (ply "4 8")
-- $ midiOff "^18" (mask "<f!3 t>")
-- $ "ouais" # n (slow 4 "<0 1 2 3>" )
-- # cut 9
-- # end "<1!12 0.47!3 1>"
-- # room 0.4
--
--
-- d9 -- Bogdan the Grime sample provider
-- $ whenmod 16 12 ( -- I'm from Cardiff!
-- (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
-- )
-- $ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3
-- $ end "<~ <0.42 <0.66 1>>>"
-- # "bogdan_grime:3"
-- -- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG
-- # delay "<0 <0.7 0>>"
-- # delayt "h"
-- # delayfb 0
-- # speed 0.92
-- -- # room 0.4
-- # gain 1.6
-- d8 $ gF1 $ gM1 -- Come on breaks!
-- $ chop 8
-- $ midiOn "^60" (mask "t(4,8,1)" . chop 4)
-- $ midiOn "^92" (ply 4)
-- $ midiOn "^36" (loopAt 2 . (# n "<61>")) --
-- $ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
-- -- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
-- $ midiOff "^60" (mask "t(4,8)")
-- $ loopAt 2
-- $ "jungle_breaks:26"
-- # cut 8
-- # gain 1.8
-- d4 $ gF2 $ gMute3 -- 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>"
-- "<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
-- -- "c g"
-- - 12
-- + 2
-- )
-- # "giorgio_syn:1"
-- -- # "bassWarsaw"
-- # cut 4
-- # pan 0.3
-- # room 0.4
-- # octersubsub 0
-- # crushbus 41 (range 16 3.5 "^53")
-- # octersubsubbus 42 (range 0 2 "^33")
-- # gain 1.7
-- d5 $ gM3 $ gF3 -- Marimba fondamental
-- $ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
-- $ juxBy 0.4 rev
-- $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
-- # "marimba1"
-- -- # att (range 0.8 0.2 "^34")
-- # rel 1
-- -- # squizbus 51 (range 0 2.5 "^54")
-- -- # delay 0 # delayfb 0.8 # delayt 0.25
-- # pan 0.9
-- # gain 1.6
-- # room 0.3
-- d10 $ gF3 $ gM3 -- Menace
-- $ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>")
-- -- Variante Adrianesque
-- $ someCyclesBy "<0!16 1!32 0!16>" (>| note "<b3 ~ ~ [ c4@2 ~ . ef4 fs4 c4]>")
-- -- Variante Adrianesque Folle
-- $ someCyclesBy "<0!16 1!32 1!12 0!4>" (>| note "<b3 ~ [g4 a4 b4 a4 es4 a4 fs4 a4 c4] [~ ~ as4 ~]>")
-- -- Variante Adrianesque Folle2
-- $ someCyclesBy "<0!16 1!32 0!12 1!4>" (>| note "<[b3 ~] [as3 bs3 g3 cs4 ~ d4] [~ gs4 ~ ~] [~ ~ [as4 as4] ~]>")
-- $ "90s_synatm:10"
-- # room 0.3 # sz 0.8
-- # gain 2
-- # att 0.10
-- # rel 10
-- # crushbus 101 (range 16 3.5 "^14")
-- # legato 2
-- # octersub 1
-- # cut 9
-- d7 $ gM3 $ gF2
-- -- $ ply 2
-- $ midiOn "^59" (# speed "-0.25")
-- $ midiOn "^91" (struct "t*<8!3 [8 4]>")
-- $ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
-- $ chop 16
-- $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
-- -- # octersubsubbus 73 (range 0 8 "^19")
-- -- # octersubbus 72 (range 0 4 "^35")
-- -- # octerbus 71 (range 0 1.7 "^55")
-- # 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
-- $ 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!
-- $ midiOn "^92" ( -- Bouton Nassim <3
-- slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
-- . loopAt 1 . (# "breaks165")
-- -- . (# octer 0.4) . ( octersubsub 4)
-- . (# lpf 2500)
-- . (# room 0)
-- )
-- $ chop 16
-- $ "breaks165"
-- # cut 8
-- # octersub 0.5
-- # gain 1.2
--
--
-- once $ "bogdan:3" # cut 9 # orbit 8 # gain 1.7 -- HEY BRO
--
-- once $ "bogdan:5" # cut 9 # orbit 8 # gain 1.7 -- THAT's Right
--
-- once $ "bogdan:4" # cut 9 # orbit 8 # gain 1.7 -- Moneyyyy
--
-- once $ "bogdan:6" # cut 9 # orbit 8 # gain 1.7 -- ETA
--
--
--
--
--
--
-- 90s_matrix:0
--
-- d8 $ "jungle_breaks"
once $ "gfunk_lead"
do
setcps (120/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ "[jazz,kick:5]*4"
d2 $ gF1 $ gM1 $ dMask $ "~ cp ~ cp*<1!3 2>" # "h2ogmcp" # gain 1.3
d3 $ gF1 $ gM1 $ dMask
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "~ t ~ t ~ t*<1 2 1 1> ~ t*<1!3 2>")
)
$ midiOff "^44"(<| "~ h ~ h ~ h*2 ~ h*<1!15 2>" )
$ "h2ogmhh:19"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3
$ midiOn "^57" (ply 2)
$ midiOn "^89" (slice 8 "<6>*<2 2 2 4 2 2 4 8 2 8 8 16 8 16 16 16>")
$ chop (8 * 8) -- 8 chops times 8 loops
$ loopAt 8
$ "gfunk_bass:1"
# cut 4
# room 0.8 # sz 0.5 # dry 1.2
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 1.5 "^33")
# gain 1.3
d9 $ gF3 $ gM3
$ midiOn "^18" (superimpose (
(# n "2") . (# cut 91) . (# room 0) . (|* gain 0.9))
)
$ note "<b b b g>@7 <cs6!3 fs6>"
# "moog" # cut 9
# crushbus 91 (range 16 1.5 "^19")
# pan 0.8
d5 $ gF3 $ gM3
$ midiOn "^58" (superimpose (("s" ~>) . (|+ note 12)))
$ note ("b4!4 . <[b4 b4 <b4 a4 g4 g4> <b4!7 fs4>] [b4 b4 d5 cs5]>")
# "acidOto3092"
# width (range 0.05 0.5 "^54")
# crushbus 51 (range 16 3.5 "^34")
# room 0.3
d7 $ gF1 $ gM1 $ dMask -- Tracey Trancey's loop art
$ midiOff "^59" (mask "t(4,8,1)" . chop 16) -- TECHNO MASK
$ midiOn "^55" (# n 2) -- UPDOWN
$ chop 8
$ loopAt 4
$ "trance_loops:0"
# cut 7
# gain 1.3
d8 $ gF1 $ gM1 $ dMask -- BYOB: Bring your own Breaks
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7]"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff "^60" (mask "t([4!3 8],8,1)" . chop 16) -- TECHNO MASK
$ midiOn "^36" (loopAt 2 . (# n 23))
$ midiOn "^56" (loopAt 2 . (# n 19))
$ midiOff "^56" (slice 4 "0 <~ 1> 2*<1 2 4 <4 [8 <8 4>]>> 3*<1 2>")
$ chop 4
$ loopAt 1 $ "jungle_breaks:78"
# gain 1.4
d10 $ gF3 $ gF3
$ iter "1 4"
$ note ((scale "mixolydian" "0 1 2 3 3 4 5 6") + "<a4!4 a5!4>")
# s "giorgio_syn:5"
# cut 10
# gain 1.4
# room 0.4 # sz 0.3 # dry 0.8
-- TODO: FIND FRIENDS 10-12
d11 $ gF3 $ gM3
$ struct "t(3,8) t(<3 5>,8)"
$ arp (slow 4 "<up down updown converge>" )
$ note ((scale "mixolydian" "[0,2,4] [1,3,5] [2,4,6]") + "a")
# s "giorgio_syn:14" -- 13
# cut 11
# gain 1.1
# room 0.6 # sz 0.4
-- Pinky up arpeggio with faster movement
d11 $ every 4 (fast 2)
$ arp "pinkyup thumbupdown"
$ note ((scale "mixolydian" "[0,2,4,6] [3,5,0]") + "a")
# s "giorgio_syn:8"
# cut 11
# lpf 1200 # gain 1.0
-- Diverging arpeggio pattern
d11 $ arp "diverge disconverge"
$ note ((scale "mixolydian" "[0,2,4] [5,3,1] [6,4,2]") + "a")
# s "giorgio_syn:17"
# cut 11 # octave 5
--
--
--
do
-- setcps (134/60/4)
-- resetCycles
setcps (123/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
$ midiOff "^42" (<| "<k [~ <~!7 k*4>]>")
-- $ fix (|* gain 0.6) "jazz"
$ "[808bd:13,jazz,kicklinn]"
# gain 1.4
d2 $ gF1 $ gM1
$ 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"
# gain 1
# room (slow 16 $ range 0 0.8 perlin)
# sz 0.67
# dry 0.9
-- # att 0.03 # rel 2
d3 $ gF1 $ gM1
$ midiOff "^44" (mask "t(4,8,1)")
$ "h h h h*<1!4 2 1 <1 2 [4 2]>> h h h h*<1 2 1 <1 2>>"
# "h2ogmhh:4"
# gain 1.5
# room 0.3 # dry 0.8
d4 $ gF2 $ gM3
$ midiOn "^89" (off "0.125" (struct "t*4"))
$ midiOn "^57" ( -- OFFBEAT FIFTH DANCE
(off 0.125 (|+ note 7))
. (struct "t(4,8,1)")
. (|+ pan 0.2)
. (|* gain 0.9)
)
$ note "<<g3 [g3@2 g3 a3@2]> <e3!3 [e3 c3]>>"
# "bassWarsaw"
# gain 1.4
# crushbus 41 (range 16 3.5 "^53")
# octersubbus 42 (range 0 2.5 "^33")
# room 0.4
# sz 0.5
# pan 0.6
-- SOLEIL DU SOIR <3
d7 $ gF3 $ gM3
$ midiOn "^91" (ply 2 . (# legato 0.25))
$ midiOn "^59" ((|+ note 12))
$ fast 2
$ note "e3 b3 <e3 <c4 e4>> <b3!15 ~>"
# "FMRhodes1"
# modIndex (range 0 2.4 "^35")
# crushbus 71 (range 16 2.4 "^55")
# gain 1.8
# room 0.5 # dry 1.3 # sz 0.9
-- # crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3 -- guitar+synth mariés pour toujours
$ midiOn "^90" (ply "<4!4 [[4 8 4 8] <8 [16 <8 16>]>]!4>")
$ midiOn "^58" (iter 4 . chop 8)
$ chop 8
$ "gfunk_lead:4/8"
# cut 5
# gain 1.3
# bandfbus 51 (range 200 6800 "^54")
# crushbus 52 (range 16 5.7 "^34")
# room 0.4 # sz 0.8 # dry 0.5
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.5
d9 $ gF3 $ gM3 -- Gong de la Rentrée
$ superimpose ((|- note 12) . (# pan 0.4))
$ slow 2 $ note (
"<[b@3 a@5 <b b b e b!4 e!4 e e b e>@3 g@5] [b@3 a@5 a b ~ g@5]>"
+5 -- calage
)
# pan 0.7
# room 0.4
# "giorgio_syn:70"
-- # cut 9
d11 $ gF3 $ gM3 -- Sunset pianos
$ n "<[11 ~] ~ ~ ~ 12 ~ 12 ~ 12 ~ 12 ~ 13 ~!3 13 ~!3 14 ~!3 14 ~!3 15 ~ 15 ~>"
# "fepiano"
# room 0.3 # cut 11
# hpfbus 110 (slow 16 $ range 200 6800 perlin)
# hpqbus 111 (range 0.2 0.6 perlin)
# lpf 5000
# gain 0.9
d10 -- Woosh
$ mask "<f!12 t!4>"
$ loopAt 4
$ "risers:10" # cut 10
...@@ -21,7 +21,7 @@ d1 $ gF1 $ gM2 ...@@ -21,7 +21,7 @@ d1 $ gF1 $ gM2
$ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4" $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 400)) "kick:4"
$ "[kick:4,jazz]" $ "[kick:4,jazz]"
# lpf 5000 # lpf 5000
# gain 1.4 # gain 1.6
d2 $ gF1 $ gM d2 $ gF1 $ gM
$ "~ sn <~ [~ sn]> sn*<1!3 2>" $ "~ sn <~ [~ sn]> sn*<1!3 2>"
-- # note "0 0 -1 0" -- # note "0 0 -1 0"
...@@ -62,6 +62,7 @@ d4 $ gF2 $ gMute3 $ chop 8 -- La super sunny bass on the other side of the sunny ...@@ -62,6 +62,7 @@ d4 $ gF2 $ gMute3 $ chop 8 -- La super sunny bass on the other side of the sunny
# delay "<0!3 [0 0.8]>" # delay "<0!3 [0 0.8]>"
# delayt 0.25 # delayfb 0 # delayt 0.25 # delayfb 0
# pan 0.4 # pan 0.4
-- # bandf 400
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^33")
# octersubsubbus 43 (range 0 2.5 "^33") # octersubsubbus 43 (range 0 2.5 "^33")
d5 $ gF3 $ gM3 -- On the Sunny side of the sample d5 $ gF3 $ gM3 -- On the Sunny side of the sample
...@@ -108,7 +109,7 @@ d7 $ gM3 $ gF2 -- LA ACID BASS ARE YOU SUNNY NOW ?? <3 ...@@ -108,7 +109,7 @@ d7 $ gM3 $ gF2 -- LA ACID BASS ARE YOU SUNNY NOW ?? <3
# room 0.5 # room 0.5
# pan 0.3 # pan 0.3
# sz 0.5 # sz 0.5
# gain 1.3 # gain 1.6
d8 $ gF1 $ gM d8 $ gF1 $ gM
$ midiOn ("^60" - "^92") (mask "f(4,8)") $ midiOn ("^60" - "^92") (mask "f(4,8)")
$ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ $ midiOn ("^36" - "^92") ((loopAt 2) . (# hpf 1500) . (# "jungle_breaks:45")) -- ORL RPZ
...@@ -123,7 +124,7 @@ d8 $ gF1 $ gM ...@@ -123,7 +124,7 @@ d8 $ gF1 $ gM
-- $ loopAt 2 -- $ loopAt 2
$ "jungle_breaks:28" -- BREAKS LOVER <3 $ "jungle_breaks:28" -- BREAKS LOVER <3
# room 0 # room 0
# gain 1.3 # gain 1
d11 $ gM3 $ gF3-- Sunny doux piano c'est cadeau d11 $ gM3 $ gF3-- Sunny doux piano c'est cadeau
$ gF3 $ gF3
$ (slice 2 "0*2") $ (slice 2 "0*2")
......
do
setcps (124/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
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~!3 k> k]>")
$ midiOff "^42" (<| "k . <[~ k] k(<3 5>,8)>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "kick:5"
# gain 1.5
# lpf 400
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]")
$ midiOff "^43" (<| "~ s")
$ "vec1_claps:10"
# gain 1.3
# lpf 2000
d3 $ gF1 $ gM1
$ midiOn "^44" (<| "[~ h*<1!3 <1 2 [4 2] 1?>>]*4" )
$ midiOff "^44" (<| "h(4,8,1)")
$ "h2ogmhh"
# gain 1.4
# room 0.5
# dry (slow 16 $ range 0.2 1.8 perlin)
# sz 0.4
# legato (range 0.3 2 "^52")
d5 $ gF3 $ gM3
$ midiOn "^18" (fast 2)
$ midiOn "^90" (ply "<2 2 1 2 2 4 [4 2 8 4] 8>")
$ slice 4 "<0 1 2 3*<1!3 <2 4 [4 1]>>>"
$ midiOn "^34" (
mask "<t <f!4 t!4> <f t t t> <f!8 t!6 f t>>" .
(>| n (slow 8 $ "<18 19 20 21 22 23 24 26>"))
)
$ midiOn ("^58" - "^34") (>| n (slow 4 $ "<10 11 12 13 13 13 14 13 14 15 15 13 15 16 15 13>"))
$ midiOff ("^58" + "^34") (>| n (slow 4 $ "<9 9 10 9>"))
$ fix (|* gain 1.2) "take5:9"
$ "take5"
# cut 5
# gain 1.5
# room (slow 64 $ range 0 0.8 sine)
# sz (slow 1312 $ range 0.2 0.95 cosine)
# dry (slow 4 $ 1 + 0.4 * perlin)
# pan 0.8
d4 -- BASSLINE GENERATIVE
$ gF3 $ gM3
$ midiOn "^57" (superimpose (
degradeBy "0 <0!3 0.2>!6 <0.2!3 0.5>" .
(|+| note "[0 7 2 12]*4")
. (|+ note 12)
. (|* gain (slow 32 $ range 0.6 1.1 saw))
. (
# octersubbus 42 (range 0 3.5 "^33")
)
))
$ struct "[t,[~ . t(<1 3 5>,8)]]"
$ note ("<ef2 ef2 <fs2 fs2 cs2 bf2> ef2>" + "[0,12]")
# "bassWarsaw"
# pan 0.4
# gain 1.4
# room 0.3
# crushbus 41 (range 16 3.5 "^53")
# room 0.2 # dry 1.2 # sz 0.7
# gain 1.8
d7 -- CHOEUR GENERATIF ALONG THE BASS
$ gF3 $ gM3
$ midiOn "^59" (superimpose (
arp "up <up <converge pinkyup>>"
. (ply 2)
. (# pan "0.85 0.15")
. (|* gain (range 0.2 1.5 "^55"))
. (|+ note 12)
)
)
$ note ("<ef3 ef3 <fs3 fs3 cs3 bf3> ef3>" + "c6'maj'4")
# "moogBass"
-- # pan 0.4
# gain 1.4
# room 0.3
# crushbus 41 (range 16 3.5 "^53")
# room 0.2 # dry 1.2 # sz 0.7
# gain 1.4
# pan 0.4
d11 $ gF3 $ gM3 -- THE FLUTIST
$ slice 4 "<0 1 2 3>"
$ n (slow 8 $ "<13 14>")
# "take5" # cut 11
# room 0.3 # sz 0.5 # dry 0.2
# gain 1.3
d12 $ gF3 $ gM3 -- THE SLEEPWALKER
$ slice 4 "<0 1 2 3>"
$ n (slow 8 $ "<18 19 20 31 22 23 24 24>")
# "take5" # cut 11
# room 0.3 # sz 0.5 # dry 0.2
# gain 1.5
d8 $ gF1 $ gM1 -- 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") (loopAt 0.5 . (# "jungle_breaks:22")) -- Hmmm Break
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:23")) -- Raise COMEON!
$ chop 8
$ midiOff ("^56" + "^36") (-- DEFAULT TO RUN AND THUNDER VARIATION
# n "<0!16 1 1 2 1 1 2 1 3 2 3 4 5 6 7 8 8>"
)
$ chop 16
$ loopAt 4
$ "take5:0"
# cut 8
# gain 1.4
d10 -- A FAIR RISER
$ mask "<f!24 t!8>"
$ loopAt 8
$ "risers"
# cut 10
# room 0.4
# dry 1.4
# octersubsub 0.5
# gain 0.8
--
--
--
--
--
--
--
--
--
do do
resetCycles -- resetCycles
setcps(120/60/4) setcps(120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16")) let gMute = (midiOn "^73" (mask "f*16"))
...@@ -51,13 +51,13 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse? ...@@ -51,13 +51,13 @@ d4 $ gF2 $ gM3 -- TODO: Varier basse?
# crushbus 41 (range 16 4 "^53") # crushbus 41 (range 16 4 "^53")
# gain 1.4 # gain 1.4
d5 $ gF3 $ gM3 -- NuJazz Keys d5 $ gF3 $ gM3 -- NuJazz Keys
$ midiOn "^58" ((# freeze 0.2)) $ midiOn "^58" ((# freeze 0.1))
$ midiOn "^90" (chop "4 <2 4 4 8>") $ midiOn "^90" (chop "4 <2 4 4 8>")
$ chop 8 $ chop 8
$ loopAt 4 $ loopAt 4
$ "nujazz_keys120" $ "nujazz_keys120"
# n (slow 4 "<5 6 7 8>") # n (slow 4 "<5 6 7 8>")
# gain 1.4 # gain 1.6
# cut 5 # cut 5
# crushbus 51 (range 16 6.4 "^54") # crushbus 51 (range 16 6.4 "^54")
# octerbus 52 (range 0 0.7 "^34") # octerbus 52 (range 0 0.7 "^34")
......
...@@ -58,6 +58,7 @@ d5 $ gM3 $ gF3 ...@@ -58,6 +58,7 @@ d5 $ gM3 $ gF3
# pan 0.6 # pan 0.6
# gain 1.4 # gain 1.4
d7 $ gM3 $ gF3 d7 $ gM3 $ gF3
$ midiOn "^59" (ply "<2 2 <4 8> <8 4>>")
$ chop 8 $ chop 8
$ loopAt 2 $ loopAt 2
$ "nujazz_keys125" # n "<66!4 67!4>" $ "nujazz_keys125" # n "<66!4 67!4>"
......
...@@ -28,7 +28,7 @@ d2 $ gF1 $ gM1 ...@@ -28,7 +28,7 @@ d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
$ "cp" $ "cp"
-- # note "-2" -- # note "-2"
# gain 1.4 # gain 1.8
d6 $ gF1 $ gM1 -- Cymbales sol d6 $ gF1 $ gM1 -- Cymbales sol
$ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>") $ midiOn "^44" (<| "~ cy ~ cy ~ cy ~ <cy [~ cy]>")
$ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>") $ midiOff "^44" (<| "~!7 <~ <cy ~> ~ cy>")
......
once $ "gfunk_lead"
do
setcps (60/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ fast 2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . <~ k(3,8)>")
$ "[jazz]"
d2 $ gF1 $ gM1 $ dMask
$ fast 2
$ "~ cp ~ cp*<1!3 2>"
# "h2ogmcp"
# gain 1.3
d3 $ gF1 $ gM1 $ dMask
$ fast 2
$ midiOn "^44" ((# "vec1_snare") -- Mechant drum-snare!!
. (struct "~ t ~ t ~ t*<1 2 1 1> ~ t*<1!3 2>")
)
$ midiOff "^44"(<| "~ h ~ h ~ h*2 ~ h*<1!15 2>" )
$ "h2ogmhh:19"
# hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3 -- NUMB TO WEATHER
$ midiOn "^89" (ply 8)
$ slow 2
$ chop 8
-- $ loopAt 4
$ "numb" # n "<1!4 4 5 6 6>"
# cut 4
# octerbus 42 (range 0 1.5 "^33")
# crushbus 41 (range 16 2 "^53")
# room 0.4
# sz 0.4
# dry 1.9
d5 $ gF3 $ gM3
$ chop 8
$ "zombie:0/2"
# cut 5
d7 $ gF3 $ gM3 -- ZOMBIE GUITAR INFECTION
$ ply 8
$ chop 4
$ midiOff "^90" (slow 4)
$ midiOn "^59" (>| n "<0 1 2 3>")
$ midiOff "^59" ((>| n "<5 7 9 10>"))
$ "zombie"
# cut 7
# gain 1.4
d9 $ gF3 $ gM3
$ slow 2
$ chop 4
$ n "<11!4 12!4 18 19 20 21 18 19 20 21>"
# "numb" # cut 9
d11 $ gM3 $ gF3
$ n "<22 23>/2" # "zombie"
# cut 11
# gain 1.3
# room 0.4
# sz 0.45
d12 $ gM3 $ gF3
$ "zombie:22"
# cut 11
# gain 1.3
d8 $ gF1 $ gM1 $ dMask -- BYOB: Bring your own Breaks
$ midiOn "^92" ( -- Bouton Nassim <3
slice 16 "[0 .. 7]"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff "^60" (mask "t([4!3 8],8,1)" . chop 16) -- TECHNO MASK
$ midiOn "^36" (loopAt 2 . (# n 23))
$ midiOn "^56" (loopAt 1 . (# n 19))
$ midiOff "^56" (slice 4 "0 <~ 1> 2*<1 2 4 <4 [8 <8 4>]>> 3*<1 2>")
$ chop 4
$ loopAt 1 $ "jungle_breaks:78"
# gain 1.4
-- d4 $ gF2 $ gM3
-- $ midiOn "^57" (ply 2)
-- $ midiOn "^89" (slice 8 "<6>*<2 2 2 4 2 2 4 8 2 8 8 16 8 16 16 16>")
-- $ chop (8 * 8) -- 8 chops times 8 loops
-- $ loopAt 8
-- $ "gfunk_bass:1"
-- # cut 4
-- # room 0.8 # sz 0.5 # dry 1.2
-- # crushbus 41 (range 16 3.5 "^53")
-- # octersubbus 42 (range 0 1.5 "^33")
-- # gain 1.3
-- d9 $ gF3 $ gM3
-- $ midiOn "^18" (superimpose (
-- (# n "2") . (# cut 91) . (# room 0) . (|* gain 0.9))
-- )
-- $ note "<b b b g>@7 <cs6!3 fs6>"
-- # "moog" # cut 9
-- # crushbus 91 (range 16 1.5 "^19")
-- # pan 0.8
-- d5 $ gF3 $ gM3
-- $ midiOn "^58" (superimpose (("s" ~>) . (|+ note 12)))
-- $ note ("b4!4 . <[b4 b4 <b4 a4 g4 g4> <b4!7 fs4>] [b4 b4 d5 cs5]>")
-- # "acidOto3092"
-- # width (range 0.05 0.5 "^54")
-- # crushbus 51 (range 16 3.5 "^34")
-- # room 0.3
-- d7 $ gF1 $ gM1 $ dMask -- Tracey Trancey's loop art
-- $ midiOff "^59" (mask "t(4,8,1)" . chop 16) -- TECHNO MASK
-- $ midiOn "^55" (# n 2) -- UPDOWN
-- $ chop 8
-- $ loopAt 4
-- $ "trance_loops:0"
-- # cut 7
-- # gain 1.3
-- d10 $ gF3 $ gF3
-- $ iter "1 4"
-- $ note ((scale "mixolydian" "0 1 2 3 3 4 5 6") + "<a4!4 a5!4>")
-- # s "giorgio_syn:5"
-- # cut 10
-- # gain 1.4
-- # room 0.4 # sz 0.3 # dry 0.8
-- -- TODO: FIND FRIENDS 10-12
-- d11 $ gF3 $ gM3
-- $ struct "t(3,8) t(<3 5>,8)"
-- $ arp (slow 4 "<up down updown converge>" )
-- $ note ((scale "mixolydian" "[0,2,4] [1,3,5] [2,4,6]") + "a")
-- # s "giorgio_syn:14" -- 13
-- # cut 11
-- # gain 1.1
-- # room 0.6 # sz 0.4
--
-- -- Pinky up arpeggio with faster movement
-- d11 $ every 4 (fast 2)
-- $ arp "pinkyup thumbupdown"
-- $ note ((scale "mixolydian" "[0,2,4,6] [3,5,0]") + "a")
-- # s "giorgio_syn:8"
-- # cut 11
-- # lpf 1200 # gain 1.0
--
-- -- Diverging arpeggio pattern
-- d11 $ arp "diverge disconverge"
-- $ note ((scale "mixolydian" "[0,2,4] [5,3,1] [6,4,2]") + "a")
-- # s "giorgio_syn:17"
-- # cut 11 # octave 5
once $ "menthe:0" # cut 4 -- INTRO VOIX
# room 0.5
# sz 0.9
# gain 1
once $ "menthe:1" # cut 4 -- LONGUE MULTIPLE
# gain 1.3
do
resetCycles
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 double = (midiOn "^29" $ fast 2)
setcps (80/60/4)
d1 $ gF1 $ gM2 $ double
$ "k . ~ k ~ <~ k*<1 2>>"
# "[techno:0,kick:4]"
-- # "[cpu,kick:4]"
d2 $ gF1 $ gM1 $ double $ "~ s ~ s*<1!3 2>"
# "vec1_snare:26"
d3 $ gF1 $ gM1 $ "~ h ~ h ~ h ~ h ~ h ~ h ~ h h? h*<1!3 2>"
# "ho:1" # gain 0.5 # cut 3
d4 $ gF2 $ gMute3
$ midiOn "^89" (loopAt "<0.5!7 0.25>")
$ midiOn "^57" (# n "<3!8 4!8>")
$ chop 8
$ loopAt 2
$ "menthe" # n "<2!16 5!16>"
# room 0.3
# cut 1
d8 $ gF1 $ gM1
$ loopAt 0.5
$ chop 8
$ midiOn "^36" (loopAt 4 . (|> "jungle_breaks:75"))
$ midiOn "^56" (loopAt 2 . (|> "jungle_breaks:19"))
-- $ whenmod 8 7 (striate "1 <2 4>")
$ "breaks165"
...@@ -38,7 +38,7 @@ d3 $ gF1 $ gM1 -- Highest hats ...@@ -38,7 +38,7 @@ d3 $ gF1 $ gM1 -- Highest hats
-- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>" -- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>"
$ sometimesBy "0!3 <0 0.5>" (# n 12) $ sometimesBy "0!3 <0 0.5>" (# n 12)
$ sometimesBy "0!3 <0.1 0>" (# n 13) $ sometimesBy "0!3 <0.1 0>" (# n 13)
$ "d*[4 2]" $ "~ d ~ d d d d*<1 1 2 1> d"
# "h2ogmsn:14" # "h2ogmsn:14"
# cut 3 # cut 3
# legato (range 0.28 1 sine) # legato (range 0.28 1 sine)
......
...@@ -20,21 +20,26 @@ d1 $ gF1 $ gMute2 ...@@ -20,21 +20,26 @@ d1 $ gF1 $ gMute2
$ "[jazz,clubkick]" $ "[jazz,clubkick]"
# cut 1 # cut 1
# gain 1.5 # gain 1.5
d2 d2 $ gF2 $ gM1
$ midiOn "^43" (<| "~ s ~ [s*<1 2> <~!7 [~ s]>]") $ midiOn "^43" (<| "~ s ~ [s*<1 2> <~!7 [~ s]>]")
$ midiOff "^43" (<| "~ s") $ midiOff "^43" (<| "~ s")
$ "snare:45" $ "snare:45"
# "h2ogmcp" # gain 1.3 # "h2ogmcp"
# gain 1.5
# room 0.08 # sz 0.3
d3 $ gF1 $ gM1 d3 $ gF1 $ gM1
$ midiOn "^44" (ply "2 <2!3 [2|4|[4 8]]>")
$ "~ h ~ h ~ h*<1!3 2> ~ h*<1 [1|2]>" $ "~ h ~ h ~ h*<1!3 2> ~ h*<1 [1|2]>"
# "h2ogmhh" # n "<0!4 1!3 2>" # "h2ogmhh" # n "<0!4 1!3 2>"
# gain (1.4 * (range 0.9 1.2 perlin)) # gain (1.4 * (range 0.9 1.2 perlin))
d4 $ gF2 $ gM3 d4 $ gF2 $ gM3
$ midiOn "^89" (ply 4) -- HIGHER
$ chop 8 $ chop 8
$ loopAt 4 $ loopAt 4
$ midiOn "^57" ( -- HIGHER $ midiOn "^57" ( -- HIGHER
slow 2 . ply 2 . slow 2 . ply 2 .
(# n "<1 1 2 2 6 6 6 1 16 16 17 18>" ) (# n "<1 1 2 2 6 6 6 1 16 16 17 18>" )
. (|* gain 0.9)
) )
$ midiOff "^57" ( -- LOWER $ midiOff "^57" ( -- LOWER
(# n "<5 5 5 6>") (# n "<5 5 5 6>")
...@@ -47,16 +52,16 @@ d4 $ gF2 $ gM3 ...@@ -47,16 +52,16 @@ d4 $ gF2 $ gM3
# octersubbus 42 (range 0 2.5 "^33") # octersubbus 42 (range 0 2.5 "^33")
# octersubbus 43 (range 0 5 "^17") # octersubbus 43 (range 0 5 "^17")
# cut 4 # cut 4
# gain 1.4 # gain 1.5
d5 $ gF3 $ gM3 -- COUNT TO SUPERSTARDOM d5 $ gF3 $ gM3 -- COUNT TO SUPERSTARDOM
-- $ slow 2
$ midiOn "^29" ( $ midiOn "^29" (
slice 16 "<<[0 1 2 3] [<0 10> <1 11> 10 11]> <[8 9 10 11] [<12!3 15> <13!3 15> <14 12> <15 13>]>>" slice 16 "<<[0 1 2 3] [<0 10> <1 11> 10 11]> <[8 9 10 11] [<12!3 15> <13!3 15> <14 12> <15 13>]>>"
. (>| "perfect") . (>| "perfect")
) )
$ midiOn "^90" (ply "<2 4>") $ midiOn "^90" (ply "<2 4>")
$ midiOn ("^34" - "^18") ( -- THE HIPS THE FACE THE LIPS THE MICROPHONE $ midiOn ("^34" - "^18") ( -- THE HIPS THE FACE THE LIPS THE MICROPHONE
slice 4 (fast 2 slice 4 "<0 1 0 1 2 2 [2 2] 3>"
. ply "<1!16 <2 1>!16>" $ "<0 1 2 3>")
. (# n 14) . (|* gain 0.8) . (# n 14) . (|* gain 0.8)
) )
$ midiOn "^18" -- SUPERSTAR $ midiOn "^18" -- SUPERSTAR
...@@ -68,18 +73,18 @@ d5 $ gF3 $ gM3 -- COUNT TO SUPERSTARDOM ...@@ -68,18 +73,18 @@ d5 $ gF3 $ gM3 -- COUNT TO SUPERSTARDOM
. mask "<t!4 t f t t>" . mask "<t!4 t f t t>"
. (# end "<0.18!3 0.45 1!4>") . (# end "<0.18!3 0.45 1!4>")
. (# begin "<0!4 0.5!4>") . (# begin "<0!4 0.5!4>")
. (|* gain 1.3) . (|* gain 0.9)
) )
$ midiOn ("^58") ( -- Slice 1 2 3 4! $ midiOn ("^58") ( -- Slice 1 2 3 4!
slice 8 "<[0 1] [0 1] [0 0 <0 1> <1 0>] [2 3]>" ) slice 8 "<[0 1] [0 1] [0 0 <0 1> <1 0>] [2 3]>" )
$ midiOff ("^58"+"^29") ( -- WATCH ME WORK IT $ midiOff ("^58"+"^29" + "^34") ( -- WATCH ME WORK IT
slice 8 "<[0 1] [2 3] [4 5] [6 <7 <6 6*2>>]>" slice 8 "<[0 1] [2 3] [4 5] [6 <7 <6 6*2>>]>"
) )
$ "perfect" $ "perfect"
# cut 5 # cut 5
# room 0.4 # sz 0.39 # room 0.4 # sz 0.39
# pan "0.2 0.8 0.2 0.8" # pan "0.2 0.8 0.2 0.8"
# gain 1.8 # gain 1.5
# octersub 0.8 # octersub 0.8
d6 $ gF1 $ gM3 d6 $ gF1 $ gM3
$ mask "f t" $ mask "f t"
...@@ -91,7 +96,7 @@ d6 $ gF1 $ gM3 ...@@ -91,7 +96,7 @@ d6 $ gF1 $ gM3
# delay 0.8 # delayt 0.125 # delayfb 0.5 # delay 0.8 # delayt 0.125 # delayfb 0.5
# gain 1.4 # gain 1.4
# cut 6 # cut 6
d7 -- $ gF3 $ gM3 d7 $ gF3 $ gM3
$ midiOn "^59" (off (1/16) (|+ note 7)) $ midiOn "^59" (off (1/16) (|+ note 7))
$ note ( $ note (
fast 2 fast 2
......
once $ "coffee" # cut 1
do
-- resetCycles
setcps(140/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 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 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 $ gMute2
$ 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"
-- $ "[techno:0,kick:4]"
$ "jazz"
# gain 1.2
# room 0.2
# dry 1
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
-- $ "[rampleM2:12,rampleD3:1,rampleD4:1]"
$ "[snare:10,snare:20]"
-- # note "-4"
# lpf 2000
# gain 1.5
# pan 0.6
# rel (slow 16 $ range 0.6 0.2 saw)
d3 $ gF1 $ gM1 -- 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>")
$ 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"
# cut 3
# gain (1.4 * (range 0.85 1.05 (fast 4 perlin)))
# room 0.2 # dry 0.99 # sz 0.25
d4 $ gF2 $ gM3
$ note (
"0 0(<3 3 5 [3 8]>,8)" +
"<ef4!4 gs4!4 fs4!4 ef!4>"
+ (arp "up" "c'maj'4" )
- 12
)
# "giorgio_syn:9"
# cut 4
# room 0.3
# bandf 400
# gain 1.1
# crushbus 41 (range 16 3.5 "^53")
d5 $ gF3 $ gM3
$ midiOn "^90" (slice 4 "0 0 <0 0*2 1 2> <0*2 0 2 3>*<1!3 2>")
$ midiOn "^58" (>| n "2/4")
$ midiOff "^58" (>| n "1/2")
$ "coffee"
# cut 5
d7 $ gF3 $ gM3
$ midiOn "^91" (ply 8)
$ (0.25 ~>)
$ slow 8
$ ply 4
$ n "<3 4 5 6>"
# "coffee"
# cut 7
# room 0.4
# dry 1.3
# gain 1.4
# sz 0.4
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "1 <2!3 4>")
$ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
$ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
$ midiOn "^56" ((# n "23")) -- Raise COMEON!
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# gain 1.5
-- d4 $ gF2 $ gMute3 -- BASSLINE VIOLENTE PAR VALENTIN <3
-- $ superimpose (
-- (# crushbus 41 (range 16 3.5 "^53"))
-- . (# hpf 500)
-- )
-- $ 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
-- # octersubbus 42 (range 0 2 "^33")
-- # octerbus 43 (range 0 0.52 "^33")
-- # gain 2
-- # legato "[0.8 0.5]*4"
-- d5 $ gM3 $ gF3 -- Suns of Gold Keys, samples
-- $ midiOn "^90" (ply "2 <2 <4 8>>")
-- $ midiOn "^58" (slice 8 "<0 1 2 3>(<3 <5 [5 3]> <3!3 [1]> <8!3 [8 4]>>,8)")
-- $ midiOff "^58" (slice 8 "<0 1 2 3 4 5 6 7>")
-- $ "suns_keys" # n "<0 <1 2> 3 3>"
-- # pan 0.8
-- # room 0.8 # sz 0.5
-- # hpf 500
-- # cut 5
-- # tremrbus 51 (range 0 "<0 8>" "^78")
-- # tremdp 2
-- # gain 1.2
-- d7 $ gMute3 $ gF3 -- Suns of Gold Guitars, sampled and cut
-- $ superimpose ((# cut 71) .
-- (# crushbus 73 (range 16 2.9 "^55")) -- CRASH THIS GUITAR
-- )
-- $ midiOn "^91" (ply "1 . 2 <2 <4 8>>")
-- $ slice 8 "0 0 0 <0 <1 2>>"
-- $ "suns_guitar:0/2"
-- # cut 7
-- # octersubbus 71 (range 0 1.9 "^35") -- BURN THIS GUITAR
-- # lpfbus 72 (range 10000 200 "^35")
-- # pan 0.2
-- # gain 1.1
-- d8 $ gF1 $ gM1
-- $ 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 "^36" ((loopAt 1) . (# "jungle_breaks:19")) -- Clochettes?
-- $ midiOn "^56" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
-- $ chop 16
-- $ loopAt 2
-- $ "jungle_breaks:45"
-- # cut 8
-- # 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>>")
-- $ "suns_voice:0"
-- # octerbus 91 (slow 16 $ range 0.5 0.2 sine)
-- # hpf 1500
-- # cut 9
-- d10 -- CUES AND NOISES TODO Rework following
-- $ 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
-- # room 0.8
-- # sz 0.5
-- # dry 1.2
-- # pan "<0.3!16 0.7!16>"
-- # legato 4
-- d12 $ gM3 $ gF3 -- Falling angel guitar
-- $ whenmod 16 8 (ply "<4 2 [4 2] [4 8]>")
-- $ slice 2 ("<0 1>")
-- $ "suns_guitar:1"
-- # cut 12
-- # pan "<0.7!16 0.3!16>"
-- # room 0.4
-- # sz 0.5
-- # hpf 1500
-- # dry 1.2
-- # gain 1.8
-- # legato 1.2
--
-- once
-- $ sound "suns_keys:0"
--
-- once $ "jazz"
--
-- setcps 0.25
--
-- d1 $ fastcat ["bd:0*2", "hh()", "dr*4", "[cp*<1 2> . ~]"]
-- -- # ""
-- # gain 1.8
-- -- # hpf 5000
...@@ -2,6 +2,7 @@ ...@@ -2,6 +2,7 @@
-- L'Été a MauerPark <3 -- L'Été a MauerPark <3
do do
setcps (120/60/4) setcps (120/60/4)
-- resetCycles
let gF = (# djfbus 1 (range 0.05 0.95 "^49")) let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) 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"))
...@@ -27,13 +28,13 @@ d1 $ gF $ gMute2 ...@@ -27,13 +28,13 @@ d1 $ gF $ gMute2
# rel 0.5 # rel 0.5
# att 0.015 # att 0.015
# lpf 4000 # lpf 4000
# gain 1.2 # gain 1.5
d2 $ gF $ gMute -- Clap timer d2 $ gF $ gMute -- Clap timer
$ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c")) $ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
$ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>")) $ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
$ drumFrom "[sakatadpm48,rolandr8]" "cp" $ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000 # lpf 2000
# gain 1.2 # gain 1.6
d7 $ gF3 $ gM3 -- High Cello Dauphin d7 $ gF3 $ gM3 -- High Cello Dauphin
$ midiOn "^91" (ply 2) $ midiOn "^91" (ply 2)
$ midiOn (1 - "^35") (struct "t . f") $ midiOn (1 - "^35") (struct "t . f")
...@@ -48,7 +49,7 @@ d7 $ gF3 $ gM3 -- High Cello Dauphin ...@@ -48,7 +49,7 @@ d7 $ gF3 $ gM3 -- High Cello Dauphin
# pan 0.9 # pan 0.9
# crushbus 71 (range 16 2.5 "^55") # crushbus 71 (range 16 2.5 "^55")
-- # midiG' "^83" 0 1.2 -- # midiG' "^83" 0 1.2
# gain 0.7 # gain 1.2
d3 $ gF $ gMute d3 $ gF $ gMute
$ midiOff "^44" (mask "t([8 4 <4 <8 16>>],16)") $ 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>]>]") $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
...@@ -74,6 +75,7 @@ d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique ...@@ -74,6 +75,7 @@ d4 $ gF2 $ gM3 $ slow 2 -- Basse Germanique
# room 0.2 # room 0.2
# pan 0.4 # pan 0.4
# crushbus 41 (range 16 2.5 "^53") # crushbus 41 (range 16 2.5 "^53")
# octersubbus 42 (range 0 5 "^33")
# gain 1.6 # gain 1.6
# cut 4 # cut 4
d5 $ gF3 $ gMute3 -- Leads reponse TODO moins carre? d5 $ gF3 $ gMute3 -- Leads reponse TODO moins carre?
...@@ -107,7 +109,7 @@ d8 $ gM $ gF -- Breaks divins ...@@ -107,7 +109,7 @@ d8 $ gM $ gF -- Breaks divins
$ "jungle_breaks:1" $ "jungle_breaks:1"
# cut 8 # cut 8
# pan "[<0.35!3 0.65> <0.65!3 0.35>]*4" # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
# gain 1 # gain 1.3
d9 $ gF3 -- Nano-angels chorus of machines d9 $ gF3 -- Nano-angels chorus of machines
$ sometimesBy "^19" (superimpose ( $ sometimesBy "^19" (superimpose (
(# cut 101) (# cut 101)
......
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