feat: Rainbow race

parent d5139803
do
setcps (100/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw))
d1 $ g
$ fix (# att 0) "909"
$ "k*<2!16 1!16> . <k*2!16 <k k(<3 3 5 3 3 3 5 5>,8)>!16>"
# "[jazz,909]"
# gain 1.2
d2 $ g $ "~ cp" # gain 0.8 # lpf 2000
d3 $ g
$ note (scale "aeolian" ("<c e f g>" + arp "up" "c4'min'4"))
# "distortedGuitar"
d4 $ g
$ slice 4 ("0 1 2 <0 1 2 3>")
$ "break:0"
# cut 4
# gain 0.8
d5
$ whenmod 32 16 (off 0.5 ((# cut 52) . (# crush 5)))
$ superimpose ((# cut 51) . (ply 4) . (|+ note 12) . (# pan 0.8))
$ note (scale "aeolian" ("<0 [3@3 <2!3 4>]>")
- 12)
# "bassWarsaw" # gain 0.6
# room 0.4
# pan 0.2
# sz 0.8
do
setcps (160/60/4)
let g1 = ( # djfbus 1 (range 0.05 0.95 "^49"))
let g2 = ( # djfbus 2 "^50")
-- let g1 = id
-- let g2 = id
d1 $ g1
$ superimpose (
(# att 0.08) . (# rel 0.05)
. (# "drums_atari") . (# cut 1) . (|* gain "^30"))
$ midiOn "^41" (slow 2)
$ midiOn "^42" (<| "k k k <k k*2>")
$ midiOff "^42" (<| "k ~ <~ k> k . ~ ~ <~ k> ~")
$ "kick:5"
# midiG' "^78" 0 1
d2
$ midiOn "^75" (sometimesBy "0!3 <0!3 1>" (fast 2) . fast 2 . (|* speed 2))
$ g1 $ chop 16 $ loopAt 2 $ "break:15"
# cut 2
# midiG' "^79" 0 1.5
d3 $ g2
$ midiOn "^44" (mask "f(5,8)")
$ midiOn "^76" (ply "2 <2!3 4>")
$ "drum:2*[8 <8 [8!3 16] 8 [16 32]>]"
-- # cut 3
# pan (slow 16 $ range 0.2 0.8 (sine + perlin))
# midiG' "^80" 0 1
d4 $ g2
$ midiOff "^90" (mask "t(<8!4 8 [8 16] 8 [8c4 . 32 16]>,32)") $ chop 32
$ slice 8 "<0 1 2 3 4 5 6 7>"
$ "synth_nes:0"
# cut 4
# gain 0.65
# room 0.4
# pan 0.8
# squizbus 4 (range 0 16 "^54")
# midiG' "^82" 0 1
d5 $ g2
$ note ("0(3,8) <7!3 [12 <7 7 7 7>]>*<1!3 2>" + "<f3 gs3 c4 <bf3!3 ds4>>")
# "bassWarsaw"
# crushbus 5 (range 16 2 "^53")
# ampbus 52 (range 0 0.94 ("^81" * "^77"))
-- GRAVEYARD
d2 $ g1
$ midiOn "^43" (ply 2)
$ slice 8 "2"
$ "drums_gameboy"
# n (slow 4 $ "<6 5>")
# pan 0.8
# cut 2
# midiG' "^79" 0 1
d1 $ ""
do
setcps (95/60/4)
let gDJF1 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.1 0.4 saw)))
let g = gDJF1
d1 $ g
$ "k . k(<3!3 <2 4 8 [5 1]>>,8)" # "[808bd,808bd:2]"
# gain 1.3
d2 $ g $ ply "<1!3 2>" $ "~ cpu:3" # gain 1.4
d4 $ g
$ slice 4 "0 1 2 3"
$ n "<7!3 8>"
# "scratch_short"
# cut 4
# gain 1.1
d3
$ loopAt 1
$ "break:4"
# cut 3
-- LUNAR RESTART
-- Lunar - et bim! l'esbrouffe
-- TODO: CBOW Kill melody, reboot alongside rhodes
-- TODO: Bassline Kill riff, reboot alongside rhodes
do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]"
-- # release "<0.7!3 1>"
# midiG' "^78" 0 1.9
d3 $ g1 $ m -- Clap contretemps stable
$ superimpose ((# lpf 2000) . (# "cp:0"))
$ "~ clap:1"
# room 0.8 # sz 0.6 # dry 0.9
# midiG' "^79" 0 1.0
d2 $ g1 $ m -- BREAK
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 2)
$ loopAt 2
$ whenmod 8 6 (off "h" id . mask "t . f")
$ slice 8 (run 8)
$ "break" # n "<13!12 14!4 15!16>"
# midiG' "^80" 0 2
# speed (range 0 2 "^52")
# cut 2
d4 $ g2 $ m -- Basse avec du repondant
-- $ midiOn "^57" (chop "8 1")
-- $ superimpose ((# cut 41)
-- . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
-- )
$ midiOn "^57" (superimpose ((# cut 41)
. (|+| note "[12 7]*4")
))
$ note (scale "aeolian" (
"<0 0 -2 <0 -4>>"
)
- 24
)
# "bassWarsaw"
# crushbus 4 (range 16 1.5 "^53")
# cut 4
# pan 0.2
# midiG' "^81" 0 1.7
d5 $ g2 $ m -- Rhodes piano questionnant
-- $ midiOn "^58" (superimpose (
-- (# cut 51)
-- . (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
-- . (|* gain 0.9)
-- ))
$ struct "t*4"
$ note (scale "aeolian" (arp "up" ("<c'min'4!2 d'min'4 f'min'4>"))
- 12
)
# "FMRhodes1"
# midiG' "^82" 0 2
# modIndex (range 0.1 32 "^54")
# cut 5
# pan 0.8
d5 -- NES arps
$ (# crush 4)
$ midiOn "^58" (struct "t . t(3,8)")
$ g2
$ slow 2
$ chop "<8!8 4!8 2!8 1!8>"
$ splice 16 ("<0 1 2 3>" + (slow 8 $ "<0 4 8 12>"))
$ "synth_nes:0"
# cut 5
-- # speed 0.5
# midiG' "^83" 0 1.4
# pan 0.8
d4 -- Basse frere
$ g1 $ m
$ mask "t . <t f> t"
$ chop 4
$ splice 32 ("<0!8 2!8>" + "<0!4 4!4 8!4 12!4>")
$ "synth_nes:0"
# cut 4
# pan 0.2
# room 0.4
# midiG' "^81" 0 1.7
d4 -- NES BASS!
$ chop 16
$ loopAt 8
$ "bass_nes" # n "<0!4 1!8 2!4>"
# cut 4
-- # gain 0.6
# midiG' "^81" 0 2
d5 $ "bass_gameboy/2" # gain 0.6
d1 $ loopAt 16 $ "drums_gameboy:0" # cut 1 # gain 0.9
do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
$ midiOn "^42" (<| "k k k <k [<~ k> k]>")
$ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
$ "[jazz,hh:5]"
d2 $ "~ cp"
# gain 0.9
d3 $ "drum:2*[4!3 [4 <4 8 16 8>]]" # gain 1.1
d4 $ g2
$ slice 4 ("<0 1 2 3>")
$ "synth_gameboy:2"
# cut 4 # gain 0.65
d5 $ "breaks"
d8 $ "90s_glassatm:1/2" # cut 8 # gain 0.9
once $ "drums_atari" # gain 0.8 # cut 3
-- d2 $ "~ cp" # gain 0.8
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