Practice: Batavia

parent a9a67985
-- Batavia...
do
setcps (105/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ "[jazz,cpu:8]"
# midiG' "^78" 0 1.2
d2 $ gF2 $ gMask -- Coupe de feu
$ midiOn "^43" (struct "~ t ~ t ~ t ~ [<t ~ ~ t> <~ t>]")
$ midiOff "^43" (slow 2)
$ "~ cp"
# lpf 2000
# note (-4)
# midiG' "^79" 0 1.2
d3 -- weird memories
$ gF2
$ "90s_weird:1"
# cut 3
# note 0
# crushbus 31 (range 16 2.5 "^56")
# panbus 32 (range "<0.1 0.2 0.3 0.4>" "<0.4 0.5 0.6 0.7>" (fast 16 sine))
# room 0.74 # dry 1.4
# sz 0.1
# midiG' "^84" 0 0.9
d4 $ gF $ gMute -- roll till you can
$ whenmod 64 48 (ply "<2!3 4>")
$ "d*<1!4 0 1 2 1 1> d*<1!4 0!3 8> d*4 d*<1 2 2 1>"
# "[dr,drum:2]"
# midiG' "^80" 0 1.2
d5 $ gF2 $ gMask
$ sometimesBy "^33*8" ( (ply 1
. mask "t f"
. (arp "down")
. (|+ note "[12,24,36,48]")
. (|+ pan 0.12)
))
$ midiOn "^57" (euclid "<3 [3 5] 5 [5 <4 8>]>" 8)
$ note (slow 2 "[gs3@2,<gs2'maj'4 c3'maj'4 gs2'maj'4 f2'maj'4>]")
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# room 0.2
# midiG' "^81" 0 1.3
d6 $ gF $ gM -- Break rayon laser =------------>
$ midiOn "^91" (ply 8)
$ midiOn "^59" (ply "1 <1!3 2>")
$ midiOff "^59" (slow 4)
$ slice 8 (run "<8!7 16>")
$ "break:4"
# cut 6
# speed (range 0 2 "^55")
# midiG' "^83" 0 1.5
-- Before
-- Ils arrivent
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1
$ midiOn "^14" (fast 2)
$ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
-- $ midiOff "^42" (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
$ midiOff "^42" (<| "t")
$ "[808bd:13,cpu]" -- 4 6
# midiG' "^78" 0 1.2
d2 $ gF -- Slow clap
$ midiOn "^41" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
$ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
$ midiOff ("^43" + "^42") (struct "~ t")
$ "clap"
# hpqbus 22 (range 0 (1 - "^41") "^31")
# hpfbus 21 (range 0 5000 "^51")
# midiG' "^79" 0 1.2
d3 $ gM $ gF -- Broken drummer
$ sometimesBy (1 - "^52") (mask "t(3,8)")
$ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
$ sometimesBy "0!7 1" (ply 2)
$ n (run 16)
# "amencutup"-- V2: FrankAmenBreak
-- $ chop 32 $ loopAt 1 $ "fbreak80" -- V1: Existing
# midiG' "^80" 0 1.2
# cut 3
d6 $ gMute
$ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
# "drum:2"
# midiG' "^83" 0 1.1
d7 $ gM $ gF -- Final cymbal
$ mask "<f!16 t!7 f t t f t t f t t>"
$ "808cy:4" # gain 0.8
# room 0.5 # dry (slow 8 $ range 0 0.8 saw)
# lpf 3400
d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
# delay 0.2
# delayfb 0.8
# delayt 0.125
# crushbus 41 (range 16 1.2 "^56")
# pan 0.7
# midiG' "^84" 0 0.9
d5 $ gMask $ gF2-- La Basse qui devance
$ midiOn "^57" (
superimpose (off 0.5 (|* gain 0.9) . arp "up" . (|+| note "<c'min'4!3 c'maj'4 c'min'4!2 c'maj'4>")
. mask "t(1,4)"
)
-- chop "4 <[4 8]> 4 <4!3 16>"
)
$ juxBy 0.3 (
(# crushbus 51 (range 16 2.2 "^53"))
. (|* gain 0.8)
)
$ note ("<a <f [f@7 g]> e@2>"
- "[0,12]"
- 24)
# "bassWarsaw"
# room 0.2 # sz 0.5
# pan 0.3
# midiG' "^81" 0 1.2
d8 $ gM $ gF2-- Mothership
$ whenmod 64 32 (off 4 (# crush 4) . (# cut 81))
$ "<~!8 ~ fx ~ ~>"
# "fx_commodore:8"
# cut 8
# midiG 0.6
# room 0.2 # dry 1 # szbus 81 (slow 4 $ range 0.2 0.8 saw)
# pan "<0.8!8 0.2!8>"
once $ "90s_synatm:1" # cut 1 # gain 0.98
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4)
d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (fast "<2!3 <4 [4 8]>>")
$ "~ snare" # n "[22,26]"
# midiG' "^79" 0 1.5
# room 0.8 # dry 1
# lpf 2000
d3 $ gF $ n (stack [
"0", "~ 2*<1 2 4 8>", "~ 3 <~ 3>"
])
# "amencutup"
# midiG' "^80" 0 1.2
d4 $ gF
$ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)")
$ chop 16
$ whenmod 32 24 (iter "1 4")
-- $ superimpose ((|+ note 12) . (# cut 41))
-- $ midiOn "^57" (rev)
$ loopAt 2
$ chop 8
$ "bass_commodore:6" # cut 4
# midiG' "^81" 0 1.2
# crushbus 41 (range 16 1.2 "^53")
d7 -- ACID BUS
$ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
$ midiOff "^58" (slice 8 "<0 1 2 3>")
$ loopAt 8 $ "synth_commodore:0"
# midiG' "^82" 0 1.2
# cut 7
d8 $ gF
$ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^55")))
$ "90s_synatm:1" # lpf 2000
# lpq (slow 32 $ range 0 0.4 saw)
# cut 8 # midiG' "^83" 0 1
# room 0.2
# crushbus 82 (range 16 1.2 "^35")
once $ "dr"
_______________________________________
|,---"-----------------------------"---,|
||___ 16 bit.................... ||
||====\ :HHHHHHHHHHHHHHHHHHHHHHHHHHH ||
||=====):H c> ATA-RIGHT??? # H ||
||====/ :H H ||
||""" :H H ||
|| :H H ||
|| :HHHHHHHHHHHHHHHHHHHHHHHHHHH ||
||_____,_________________________,_____||
|)_____)-----.| /I\ATARI |.------(_____(|
//"""""""|_____|=----------=|______|"""""""\
// _| _| _| _| _| _| _| _| _| _| _| _| _| _| \
// ___| _| _| _| _| _| _| _| _| _| _| _| | | \
|/ ___| _| _| _| _| _| _| _| _| _| _| _| ______| \
/ __| _| _| _| _| _| _| _| _| _| _| _| _| _| ___| \
/ _| _| _| _| ________________________| _| _| _| _| \
|------"--------------------------------------"-------|
`-----------------------------------------------------'
[] ,----.___ [] ,----.___
__||_/___ '. __||_/___ '.
/ O|| /| ) / O|| /| )
/ "" / / =._/ / "" / / =._/
/________/ / /________/ /
|________|/ |________|/
-- Thanks dew & PORTFO for the ASCII art <3
do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
setcps (120/60/4)
d1 $ g1 -- THE ROAD
$ midiOn "^41" (fast 2)
$ midiOn "^42" (struct "t*2")
$ midiOff "^42" (struct "t t t <t t*2 t [~ t]>")
d1 $ g1 $ gM -- THE ROAD
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (struct "t*2")
$ "[jazz,808bd:6]"
# midiG' "^78" 0 1
d2 $ g1 -- THE FUEL
# midiG' "^78" 0 1.4
d2 $ g1 $ gMute -- THE FUEL
$ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^75" (ply 2)
$ loopAt 4
......@@ -20,17 +48,18 @@ d2 $ g1 -- THE FUEL
# midiG' "^79" 0 1.2
# lpf 2800
# cut 2
d3 $ g2 -- THE GUIDELINES
d3 $ gM $ g1 -- THE GUIDELINES
$ midiOn ("^44" - "^76")
(sometimesBy (slow 8 $ range 0.3 0.95 saw)
$ mask "t(3,8)")
$ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN
$ struct "t*[<8!3 <16 [[16|32]*4]>>!3 <16!3 [12|24]*4> 12!4]"
$ "h2ogmhh"
# midiG' "^80" 0 1
# midiG' "^80" 0 1.2
# n "<0!4 1 2 3>"
d4 -- THE THUNDER
d4 $ gMask -- THE THUNDER
$ g2
$ midiOn "^57" (off "0.75" id)
$ midiOn "^89" (off "1" id . chop "8")
$ fix (|* gain 0.8) (note "a4")
$ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>"
......@@ -43,17 +72,26 @@ d4 -- THE THUNDER
# pan "<0.8!3 0.5>"
# midiG' "^81" 0 1.8
# room 0.4
d5 -- THE RAIN
$ g2
d5 $ g2 $ gMask -- THE RAIN
$ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^90" (striate "<2!3 4>" . ply 2)
$ struct "t(<3!7 [3 8]>,8,<0!3 3>)"
$ note (
arp "down"
("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3"))
("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12))
# "FMRhodes2"
# modIndex (range 0 128 "^54")
# crushbus 41 (range 16 4 "^34")
# roombus 42 (range 0 0.2 "^34")
# sz 0.5
# pan 0.8
# midiG' "^82" 0 1.5
# midiG' "^82" 0 1.9
d8 $ g1 $ gM -- THE UNAVOIDABLE BREAKS
$ mask "t(16,64)"
$ midiOn "^60" (ply 2) --
$ midiOn "^92" (fast 2) -- FIXME
$ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
$ loopAt 2
$ "fbreak120:3"
# cut 8
# midiG' "^84" 0 1.3
......@@ -41,7 +41,7 @@ d5 $ g2 -- THE BASS REMNANTS
# legato 2 # cut 5
# midiG' "^81" 0 1
d6 -- TODO BASSLINE <3
$ "bassWarsaw"
$ note (-24) # "bassWarsaw"
# midiG' "^82" 0 1.3
d8 $ g2
$ midiOn "^59" (chop 2)
......@@ -49,9 +49,12 @@ d8 $ g2
$ "90s_glassatm:3" -- Scintillant espoir
# crushbus 81 (range 16 1.8 "^55")
# cut 8
# midiG' "^83" 0 0.8
# midiG' "^83" 0 1.2
# pan (0.9 - 0.3 * perlin)
d9
$ slice 8 "0 1 2*<1!4 2 1!3> 3 0 <~!3 1> 3 7*<1!3 2>"
$ "fm:7"
# midiG' "^84" 0 1.2
once $ "90s_glassatm:1"
......
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.2 0.8 "^50"))
let gM = midiOn "^73" (mask "f*16")
d1 $ gF $ gM
$ (|* midiG' "^78" 0 1.4)
$ superimpose (const $ "~ s ~ s*<1 2 1 [1|2]>" # "snare:24" # gain 1.3 # note (8))
$ fix (|* gain 0.9) "jazz"
$ fix (|* gain 1.2) "kick:5"
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k ~ [~ k] <~!3 k>")
$ "[kick:5,jazz]"
d2 $ gF $ gM
$ midiOn "^43" (fast 2)
$ "~ s ~ s"
-- $ "~ ~ s ~"
-- $ "~ ~ ~ ~ s ~ ~ ~"
# "snare:24" # gain 1.3
# midiG' "^79" 0 1.5
d3 $ gF $ gM
$ ply "2!3 1"
$ "dr*8"
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^80" 0 1.5
d5 $ gF2 $ gM
$ chop 8
$ "90s_matrix:3"
# crushbus 51 (range 16 2.5 "^53")
# sz 0.9
# room 0.3
# cut 5
# midiG' "^81" 0 1.2
d7 $ gF2
$ midiOn "^57" (off "e" (mask "t!7 f"))
-- $ struct "t*4"
$ note (arp "<up down>" $ "<c3'nine'5!2 g3'min7'5!2>")
-- $ note (arp "<up up>" $ "<>")
# "bassWarsaw"
# crushbus 71 (range 16 2.5 "^54")
# midiG' "^82" 0 1.8
d6 $ gF2 $ gM
$ midiOn "^57" (ply "4 8")
$ "90s_matrix:0"
# crushbus 61 (range 16 2.5 "^55")
# sz 0.9
# cut 6
# midiG' "^83" 0 2
d8 $ gF2
$ struct "t*16"
-- $ superimpose (|+| note "[0 12]")
$ arp "up"
$ note ("a3'min'4" + "[0,<12!3 24>]")
# "acidOto3092"
# crushbus 81 (range 16 3.5 "^56")
# rel 2
# midiG' "^84" 0 2
d9 $ gF -- Breaks silence pesant.
$ slice 8 "<0 1 2 3> . <~!4 5 6 7>"
$ loopAt 4
$ "drums_atari:15"
# midiG' "^20" 0 2
# cut 9
do
let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])])
setcps (65/60/4)
let mFast = midiOn "^41" (fast 2)
d1 $ mFast
$ midiOn "^42" ((<| "k k k <k [~ k]>"))
$ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
$ "jazz"
# midiG' "^78" 0 1.8
d2
$ often (ply "1 . [2 <2!3 [2|4]>]")
$ fast 8
$ "~ jungle:8"
# midiG' "^79" 0 1.8
d10 $ whenmod 32 16 (fast 2)
$ whenmod 4 3 (mask "<t!15 f>" . off "e" (# pan 0.1))
$ "~ h2ogmcp"
# midiG' "^79" 0 1.8
d3 -- Broken break
$ slice 4 "0*<<1 2> 1 1 2> <1 ~> <2 ~ ~ 2> 3*<1 1 2 <1 4>>"
$ loopAt 1 $ "fbreak80:2"
# midiG' "^80" 0 1.8
d4
$ slice 16 ("0 0 0 <0 0 1 2>" + "<0!4 1!8 2!3 3>")
$ loopAt 16
$ "latin"
# rel 1
# cut 4
# midiG' "^82" 0 2
# room 0.42 # sz 0.8 # dry 1
d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12)
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^81" 0 2
d6
$ note (scale "latin" (arp "up" "1*<1 1 2 1 2 1!3> ~ . <[1 3 2 3 <5 6 6 7>] [1 3 <5 6>]>")
- 1) -- Adjuste jvbass-1
# "jvbass:3"
# midiG' "^82" 0 2
d7
$ slow 4 $ "fmono:12"
# cut 7 # gain 0.8
-- Contre Visite
-- Un deuxième regard n'est jamais de trop.
do
-- TRIGGER INTRO :)
resetCycles
once $ "90s_synatm:8" # gain 0.45 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
let kCrush = midiOn "^74" ((# crush 2.5) . (# legato 0.25))
setcps (90/60/4)
d1 $ f1
$ kCrush
$ midiOn ("^73") (fast 2) -- RUN
$ midiOn ("^42") (slow 4) -- PAUSE
-- $ kCrush
$ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>")
$ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ midiOff "^42" (maskLoops)
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>") . (# legato 0.6))
$ midiOff "^41" (<| "<k k ~ k> . ~ ~ ~ <~!3 k>")
-- $ "[reverbkick,808bd:6,kick:8]"
$ "[jazz]"
# lpf 1000
# crush 16
$ "[808bd:6,kick:8]"
-- $ "[jazz,kick:5]"
# room 0
# midiG' "^78" 0 1.3
d2 $ f1
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
......@@ -69,8 +65,8 @@ d5 $ f2 -- Synth: ELECTRONIC ANSWERS
# pan 0.43
# dry 1
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 12 2.85 "^54")
# midiG' "^82" 0 1.4
# crushbus 52 (range 16 2.85 "^54")
# midiG' "^82" 0 1.8
d6 $ f1 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
......@@ -93,7 +89,7 @@ d6 $ f1 -- High lead: Winds of truth
# cut 6
d10 $ f1 -- RANDOM FOREST NOISES
$ fix (
kCrush .
-- kCrush .
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "[future:1,jazz]")
. (# midiG' "^13" 0 1.8)
......
d1 $ "dr*8" # gain 0.8
--
-- c=====e
-- H
-- ____________ _,,_H__
-- (__((__((___()()__________________________// |0101|
-- (__((__((___() //|1010|
-- (__((__((___()()()------------------------' |0111|
-- EMPREINTE DU NUM3R1QU3
do
let gLPF = ((# djfbus 1 (slow 8 $ range 0.2 0.5 saw)))
let gHPF = ((# djfbus 2 (slow 8 $ range 0.5 0.85 saw)))
let gPont2 = (someCyclesBy "<0!32 1!16 0!16>" gHPF)
let gPont1 = (whenmod 32 24 gLPF)
-- let g = gPont1
let g = (# djfbus 1 (range 0.05 0.95 "^49"))
let modIndex = pF "modIndex"
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (110/60/4)
d1 $ g
d1 $ g $ gMute
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "jazz"
# midiG' "^78" 0 1.3
d2 $ g
$ "[jazz,808bd:6]"
# midiG' "^78" 0 1.5
d2 $ g $ gM
$ midiOn "^43" (fast "<1!3 2 2 2 4 <8 [8 4]>>")
$ "~ s" # "[sn:40,snare:20]"
# note "<-2!3 -4>"
# midiG' "^79" 0 1.8
d3 $ g
d3 $ g $ gMute
$ midiOn "^76" (fast 2)
$ midiOff "^44" (slow "2!3 <1 <2 [4 1]>>")
$ "d*[8 . 8 <8 [16 <8 16>]>]" # "electro1:0"
......@@ -29,7 +35,7 @@ d3 $ g
# dry 0.95
# midiG' "^80" 0 (1.6 * "1.2 1!6 <1 1 1.1 <1.2 1>>")
d4 -- Break bonus banane
$ g
$ g $ gM
$ midiOn "^92" (ply "2!3 1 2!3 <2 4>")
$ midiOn "^60" ( -- Aerial mask
mask "t <f t> <f f t f> <t t f t> f <f t> <f!3 t> t"
......@@ -41,6 +47,8 @@ d4 -- Break bonus banane
# cut 4
# midiG' "^84" 0 1.3
d5 $ g $ gPont2 -- BASSLINE BoomRang!
$ midiOn "^57" (# n "50")
$ midiOn "^89" (ply "2 4" . chop "2 <2 4>")
-- $ whenmod 64 32 (# crushbus 41 (range 16 2.5 (slow 32 saw)))
$ slice 2 "<0!3 1>"
$ "fbass:51"
......@@ -52,7 +60,7 @@ d5 $ g $ gPont2 -- BASSLINE BoomRang!
# lesliebus 52 "^33"
# pan 0.3
# crushbus 53 (range 10 1.61 "^53")
# midiG' "^81" 0 0.9
# midiG' "^81" 0 1.4
d7 $ g -- Back solar mandoline
$ midiOn "^59" (off "s" (|+ note "<7 9 5 <7 12>>"))
$ midiOn "^91" (off "e" (|+ note 12))
......@@ -62,10 +70,10 @@ d7 $ g -- Back solar mandoline
# pan 0.8
# room (range 0 0.3 "^55")
# crushbus 71 (range 10 3.61 "^55")
# midiG' "^83" 0 1.3
# midiG' "^83" 0 1.5
d6 -- RHODES FOLIE <33
$ g
$ midiOn "^58" (off "h" id)
$ midiOn "^58" (off "e" id)
$ mask "t(<[12!3 16] [12!3 8] <12 12 8 16> <4!3 [4 <8 16>]>>,16)"
$ swing (1 + ("0 2" * "^58") + (2 * "^90"))
$ note ("d4/2" + scale "<augmented!6 diminished2!2>" (run 16))
......
once
$ off 3 id
$ off 2 id
$ "90s_weird:0"
# speed 0.8 -- TODO Slowly move to 0.5
# gain 0.68 # cut 13 -- Spooky intro!
# gain 0
-- (ParVagues ------ live)
# speed 0.35 -- TODO Slowly move to 0.5
# gain 0.9 # cut 13 -- Spooky intro!
-- # gain 0
-- (.ParVagues ----- L1VE.)
-- T""""""""""""""""""""T
-- |.;....,..........;..|
-- |;;:: . . . |
......@@ -36,24 +39,26 @@ once
-- (For 0rbit.l0ve <3)
-- """"""""""""""""""""""
do
setcps (110/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d10 -- Ready player two
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d10 -- Ready playerm two
$ mask "<f!3 t f!3 t f!3 t t!4>"
$ slice 8 "0 <0!3 1>"
$ loopAt 4
$ "fx_gameboy:5"
# crushbus 101 (slow 32 $ range 1.8 0.61 saw)
# midiG' "^20" 0 0.85
d1 $ gF -- Tradition never disappoints: 4 on the fl00r...
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
$ midiOn "^42" (<| "k k k <k k*2 k <~ [<~ k> k]>>")
$ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
$ "[kick:5,808bd:4]"
# midiG' "^78" 0 1.1
d2 $ gF -- Break "80s' Apocalypse in a Box™"
# midiG' "^78" 0 1.3
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
$ midiOn "^44" (fast "1 2")
$ midiOn "^76" -- L'Esprit de Nassim
(
......@@ -63,19 +68,22 @@ d2 $ gF -- Break "80s' Apocalypse in a Box™"
(# "breaks165") . (# cut 2)
. (|* gain 1.1)
)
$ chop 8
$ loopAt 4
$ chop 4
$ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
# cut 2
# gain 0.77
# midiG' "^80" 0 1.1
# midiG' "^80" 0 1.2
# pan 0.4
d3 $ gF -- Un peu d'encouragement?
$ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
$ "~ clap"
# midiG' "^79" 0 1.1
# midiG' "^79" 0 1.4
-- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH
$ midiOn "^57" (superimpose ( -- chain of wicked thoughts
(|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
. (|* gain "<1 1 1.05 1.1>")
. (chop "8 . <8!3 16>") . (# cut 41)))
$ midiOn "^89" (chop (slow 4 $ "[16 32 64 128]"))
$ "synth/4"
# "90s_synatm:9"
......@@ -85,10 +93,11 @@ d4 $ gF2 -- BURN THE BASS WITCH
# dry 1
# cut 4
# midiG' "^81" 0 1.1
d5 $ gF2 -- Ghosts from an easier time
d5 $ gM $ gF2 -- Ghosts from an easier time
$ midiOn "^58" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
$ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
# "90s_synatm:8/4" # cut 5
# crushbus 51 (range 16 2.5 "^54")
# midiG' "^82" 0 1.1
d6 $ gF2 -- Jump aboard the BASIC BUS
$ midiOn "^59" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
......@@ -99,14 +108,17 @@ d6 $ gF2 -- Jump aboard the BASIC BUS
# squizbus 62 (range 0 1.5 "^35")
# roombus 63 (range 0 0.5 "^19")
# midiG' "^83" 0 1.45
# panbus 64 (range 0.13 0.87 (slow 16 saw))
# cut 6
d7 -- Break from the past
d7 $ gM -- Break from the past
$ (# speed (range 0 (1) "^56"))
$ midiOn "^60" (often (ply 2))
$ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2)
$ loopAt 1
$ midiOff "^92" (splice 8 "0 <0 1 2*<1 2> 3*<1 2>>")
-- $ midiOff "^92" (splice 8 "0 <0 1 2*<1 2> 3*<1 2>>")
$ "fbreak100" # n "<0!3 [0 4]>"
# cut 7
# pan 0.8
# room 0.3
# dry 1
# midiG' "^84" 0 1.45
# midiG' "^84" 0 1.8
......@@ -21,6 +21,7 @@ d3 $ g1 $ m -- Clap contretemps stable
$ "~ clap:1"
# room 0.8 # sz 0.6 # dry 0.9
# midiG' "^79" 0 1.0
# pan "^15"
d2 $ g1 $ m -- BREAKs divers
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 2)
......
-- Solar - breakbeat nostalgic playground
d1 $ "jazz*4"
do
setcps (110/60/4)
......@@ -83,6 +85,7 @@ d9 $ g1 $ m
# midiG' "^84" 0 1.0
-- REGION BACKYARD
d8 $ g2 -- FIXME REMOVE OR SAVE
......
......@@ -6,16 +6,17 @@ setcps (160/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw))
d1 $ g1 -- KICK
let gM = (midiOn "^73" (mask "f*16"))
d1 $ g1 $ gM -- KICK
$ midiOn "^74" (fast 2)
$ midiOn "^41" (<| "k k k <k!3 k*2>") -- RUN!
$ midiOn "^41" (<| "k k k <k [~ k] k k*2>") -- RUN!
$ midiOn "^42" (<| "b . ~ b ~ <~!3 b>") -- WAIT?
$ midiOff ("^41" + "^42") (<| "k*2") -- ST0P.
$ fix (|* gain 0.9) "kick:5"
$ "[jazz,kick:5]"
# release 0.8
# midiG' "^78" 0 1.5
d2 $ g1 -- Snare tchak!
d2 $ g1 $ gM -- Snare tchak!
$ midiOn "^43" (ply 2)
$ midiOn "^75" --BOUTON NASSIM
(
......@@ -34,7 +35,7 @@ d2 $ g1 -- Snare tchak!
# note (range "-7" 7 "^51")
# room 0.8 # dry 0.99 # sz 0.2
# midiG' "^79" 0 1.2
d3 $ g1-- Running Hats
d3 $ g1 $ gM -- Running Hats
$ g32Bridge
$ midiOn "^44" (slow 2)
$ midiOn "^76" (fast 2)
......@@ -59,7 +60,7 @@ d4 $ g1 -- Resolute Bass
# pan 0.15
-- # room 0.125 # sz 0.1 # dry 1
# crushbus 41 (range 16 1.25 "^53")
# midiG' "^81" 0 1.5
# midiG' "^81" 0 1.6
# cut 4
d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ g2
......@@ -71,7 +72,7 @@ d6 -- Guitar A -- L'attente (18=0) TODO Rework?
$ "fguitar:24"
# pan 0.8
# crushbus 51 (range 10 3.5 "^54")
# midiG' "^82" 0 (1 * (range 1.4 0 "^18"))
# midiG' "^82" 0 (1 * (range 1.2 0.5 "^18"))
# cut 6
d7 -- Guitar B -- Le run (18=127)
$ g2
......@@ -95,8 +96,8 @@ d8 $ g1 -- Clave de l'été pitchable
$ (|* gain "0.75 1 1 1 0.75 1 1 1")
$ "d ~ ~ d d ~ d <~!3 d>"
# "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
# speed (range 0.5 2 "^55")
# midiG' "^83" 0 1.5
# speed (range 0 2 "^55")
# midiG' "^83" 0 1.8
d10 $ g2 -- Nappes crushées indépendantes
$ midiOn "^92" (ply "<2 4 [8 16 [4|6|4]!6]>")
-- $ superimpose ((|- note 12) . (# cut 101))
......@@ -121,7 +122,7 @@ d11 $ g2 -- Sirene indépendante
# room 0.4 # sz (slow 32 $ range 0.125 0.9 saw)
# dry (slow 32 $ range 0 2 perlin)
# cut 11
d9 $ g1 -- CLAPS! -- FIXME Broken whenmod 4 3
d9 $ g1 -- CLAPS!
$ "~ c ~ <c!3 c*2>" # "cp"
# midiG' "^84" 0 1.5
......
......@@ -16,21 +16,21 @@ do
setcps (60/60/4)
d1 $ g -- Beat
$ fast 2
$ midiOn "^41" (<| "k k k <k!3 k?>")
$ midiOn "^41" (<| "k k k <k!3 <k k*2>>")
$ midiOn "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ midiNo "^41" "^42" (<| "<k <k*2 k(3,8)>>")
$ "[jazz,kick:5]"
# midiG' "^78" 0 1.1
# midiG' "^78" 0 1.5
d2 $ g -- Break
$ midiOn "^43" (scramble 4 . often (ply 2))
$ midiOn "^75" (struct "t*[8 16]")
$ slice 4 (run 8)
$ loopAt 1
$ "break:15"
# midiG' "^79" 0 1.2
# pan 0.35
# speed (range 0 2 "^51")
# cut 2
# speed (range 0 2 "^51")
# midiG' "^79" 0 1.6
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
......@@ -71,6 +71,7 @@ do
# cut 6
# midiG' "^82" 0 1.8
# room 0.2 # dry 2 # sz 0.8
# pan 0.8
# crush (range 10 3.7 "^54")
# modIndex (range 0 4.19 "^34")
d7 $ g2 -- Hope's Hammond
......@@ -93,8 +94,8 @@ do
# pan 0.74
# sustain (range 0.125 0.5 "^55")
# midiG' "^83" 0 1
d10 $ g
d10 $ g -- Le clap des abysses
$ "~ c ~ [c*<1 2> ~]" # "cp"
# midiG' "^84" 0 1
# room 0 # sz 0 # dry 1
# note "-4"
# midiG' "^84" 0 1.2
......@@ -16,10 +16,10 @@ let g2 = gDJF2
setcps 0.5
d1 $ g1
$ fix (|* gain 0.75) "kick:5"
$ midiOn "^41" ( -- KICK RUN
$ midiOn "^42" ( -- KICK RUN
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.8))
)
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ midiOff "^42" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "[jazz,cpu]"
# midiG' "^78" 0 1.4
d2 $ g1 -- Breathing snare contretemps
......@@ -55,7 +55,7 @@ d6 $ g2 -- Guitar riffs
# room "<0.13!3 0.05>"
# sz "<0.6!3 0.9>"
# midiG' "^81" 0.4 1.5
d4 -- Rhodes base + chords
d4 -- Rhodes base + chordsQ
$ g2
$ midiOn "^58" (superimpose ( -- ARPS <3
(|+ note 12)
......@@ -100,6 +100,6 @@ d5 $ g2 -- Choirs + arps
# note (prog + "[0,24]")
# octave 3
# crushbus 51 (range 13 1.5 "^56")
# midiG' "^84" 0 1.2
# midiG' "^84" 0 1.6
# pan 0.2
# chorus 0.6
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (83/60/4)
d1 $ g
$ fix (|* gain 0.8) "jazz"
$ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
$ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
$ "[808bd:4,jazz]"
# room 0 # sz 0
# midiG' "^78" 0 1.2
d2 $ g -- Snare contretemps
$ mask "<t!3 <f t <f!3 t> <f t>>>" -- Some breaks
$ whenmod 4 3 (off (-1/16) (|- note 3)) -- Double shot
$ "~ c"
# "snare:42"
# midiG' "^79" 0 1.8
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>"
$ "[amencutup]*8"
# n "[3!3 <3 4> 3!3 4]"
# midiG' "^80" 0 1.8
d4 $ g2
-- $ superimpose (|- note 24)
$ note (
"0 . <0 0([<1 3> 3],8)>" |+
-- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
)
# "FMRhodes1"
# modIndex (range 0 32 "^54")
# pan 0.8
# midiG' "^82" 0 1.8
d5 $ g2 -- Programmatic bass robot
$ midiOn "^57" (mask "t f!6 t?") -- Take a break my dear
$ whenmod 64 32 (sometimesBy "0 1" rev) -- Run in circles
$ swing 8
$ arp "<up!8 downup!8 updown!8 thumbupdown!8>"
$ superimpose ((|+ note 12) . (# cut 51))
$ note (
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b,<g6 b6>]>"
- 36
)
# "bassWarsaw"
# pan 0.2
# crushbus 51 (range 16 4 "^53")
# room 0.6 # dry 1 # sz 0.83
# legato 8 # cut 5
# midiG' "^81" 0 0.98
d8 $ g -- Nes Drumfest
$ midiOn "^92" (ply 2)
$ midiOn "^60" (superimpose (const $ g
$ chop 16 $ loopAt 4 $ "drums_nes:5" # cut 81 # midiG' "^84" 0 1.2)
)
$ loopAt 2
$ slice 4 (run 4)
$ "drums_nes"
# n ("<1!3 [1 <1 1 2 [2 3]>]>")
# cut 8
# midiG' "^84" 0 0.98
......@@ -10,25 +10,25 @@ let gLPQ = (# lpqbus 3 (range 0 0.95 "^13"))
let gHPQ = (# hpqbus 4 (range 0 0.95 "^14"))
let g1 = (gDJF1 . gLPQ . gHPQ)
let g2 = (gDJF2 . gLPQ . gHPQ)
d1 $ g1
d1 $ g1 -- Le pouvoir de voler
$ midiOn "^74" (fast 2)
$ midiOn "^42" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix (|* gain 1) "808bd"
$ fix ((|* gain 0.8)) "909"
$ "[jazz,909,808bd:4,kick:5]"
# midiG' "^78" 0 1
d2
# midiG' "^78" 0 1.4
d2 -- Every superhero needs a clap
$ midiOn "^43" (fast 2)
$ g1
$ superimpose (
(# "clap:1")
. (|* gain (slow 16 $ range 0.5 0.8 saw))
)
$ midiOn "^43" (fast 2)
$ "~ cp"
# note (-2)
# midiG' "^79" 0 1.1
d3 $ g1
d3 $ g1 -- Gretsch frappe ton os pour le renforcer
$ midiOn "^44" (fast "1 2")
$ sometimesBy "^52" (ply "1 2 1 2")
$ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch"
......@@ -50,7 +50,7 @@ d9 $ g2 -- G0dz1ll4
# dry 2
# sz 0.9
# pan 0.7
# midiG' "^84" 0 0.9
# midiG' "^84" 0 1.4
d4 $ g1 -- BASSLINE VOLTAIQUE
$ midiOn "^57" ((|+ note 12) . (# legato 4))
$ note ("<bf g bf g bf g bf c c!4 g bf c6@2>" - 24)
......
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- ____ _ ____ _ _____ _ _ ____ ____ ____ ____ _ __
-- / __\/ \ /\/ __\/ \ /| /__ __\/ \ /|/ \/ ___\ / __\/ _ \/ _ \/ |/ /
-- | | //| | ||| \/|| |\ || / \ | |_||| || \ | | //| / \|| / \|| /
-- | |_\\| \_/|| /| | \|| | | | | ||| |\___ | | |_\\| \_/|| \_/|| \
-- \____/\____/\_/\_\\_/ \| \_/ \_/ \|\_/\____/ \____/\____/\____/\_|\_\
-- 🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥
--
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ g
d1 $ g $ gM
$ midiOn "^42" (<| "kick*4" )
$ midiOff "^42" (<| "k . k(3,8)" )
$ midiOff "^42" (<| "k . k(3,8)")
$ "jazz"
# midiG' "^78" 0 1.8
d2 $ g $ "~ cp" # note "<8!3 -2>" # lpf 4000
d2 $ g $ gM
$ midiOn "^43" (fast 2)
$ "~ cp" # note "<8!3 -2>" # lpf 4000
# midiG' "^79" 0 1.8
d5 $ g
d5 $ g $ gM $ gM -- Le comburant
$ midiOn "^76" (off "e" id) -- TODO Validate
$ midiOn "^44" (ply 2)
$ "~ t*<1!8 2 1!6 2> ~ t ~ <t!3 t*<2!3 1>> ~ <t!7 t*2>" # "cpu2:3"
# midiG' "^80" 0 1.65
d3
d3 $ g $ gM -- L'étincelle
$ someCyclesBy "^36" (slow "<2!3 [2 1]>")
$ midiOn "^92" ((iter 4))
$ midiOn "^60" (
(# delay 0.85)
......@@ -27,16 +51,40 @@ do
$ "drums_nes:3"
# midiG' "^84" 0 1.3
# pan 0.2
d4 $ g2
d4 $ g2 -- Le combustible
$ midiOn "^57" (
(superimpose (arp "up <up up updown up>" . (|+ note "c'min'8"))) .
(# "bassWarsaw") . (|- note 24)
)
$ note (scale "aeolian" (
"<0 [0, <<7 7 8 9>!3 <8 8 8 7>>]>"
))
# "cpluck:0"
# roombus 42 (range 0 0.8 "^33") # sz 0.6
# crushbus 41 (range 16 1.4 ("^53" - 0.12 * (fast 2 perlin)))
# midiG' "^81" 0 1.65
d6 $ g2
# pan 0.3
d6 $ g2 $ gMask -- La fumee
$ note (scale "aeolian" (arp "up" ("<0!2 3 [0 3]>" |+| "c'maj'4")))
# "cpluck:1"
# crushbus 61 (range 16 1.4 ("^54"))
# cut 6 # gain 0.9
# cut 6
# midiG' "^82" 0 1.65
# pan 0.7
d7 $ loopAt 8 -- L'auteur
$ "90s_synatm:16"
# cut 7
# midiG' "^83" 0 0.93
# octerbus 71 (range 0 2.4 ("^55"))
# room 0.2 # dry 1
d8
$ mask "<f!14 t t>"
$ "90s_megafx:268@2"
# release 3
# att 0.1
# cut 8
# note (-4)
-- # n (4 + "<1 1 [2|3|4] <1 4>>")
# midiG' 1 0 0.8
-- # room 0.2 # dry 1
-- # pan "<0.3!3 <0.7 0.3>>"
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