Commit 2dd4a901 by PLN (Algolia)

update: Rhadamanthe

parent dc145feb
do
resetCycles
once $ "igor:4" # cut 7 # gain 0.6
setcps (150/60/4)
let gF = whenmod 64 48 (# djfbus 1 (slow 16 $ range 0.5 0.05 saw))
d1 $ gF
$ mask "<t!8 f!7 t t!16 f t!15 f t!15 f!16 t!16 f!4 t!12 f t!15>"
$ "k*4"
# "[bd,jazz]"
# lpf 200
# att 0
# rel 0.7
# room 2.7
# sz 0.2
# dry 1
# gain 0.7
# crush 8
# note "-2"
d2 $ gF -- Running hats
$ mask "<t!8 t!2 f!6 f!8 t!8 t!48>"
$ someCyclesBy "<0!32 1!32>" (<| "h([<12!3 16> <6 8>],<12!3 8>)")
$ someCyclesBy "<1!32 0!32>" (<| "[~ h h <~!7 h>]*4")
$ "h2ogmhh"
# n "[0,1]"
# pan 0.4
# dry 1
# room 0.4
# gain (slow 16 $ range 0.3 0.4 saw)
d4 -- BURNING MOOG
$ mask "<f!8 t!56 f!16 t!16 f!16 t!16>"
$ whenmod 32 16 (off "h" (
(# cut 41)
. (|+ note 12)
. (|* gain 0.75)
. (# leslie perlin)
. (# crush 5.10)
))
$ someCyclesBy "<1!16 0.5!16 0!32>" (# delay 0)
$ note (scale "aeolian" ("<0 0 0 4> <1 2 3 1> . ~!3 <~ 2>"))
# "moog"
# legato 2
# delay (slow 16 $ range 0.25 0.65 saw)
# delayfb (0.5 + 0.25 * perlin)
# delaytime (slow 4 $ "<<q e> <h 1>>")
# gain (slow 16 $ range 0.37 0.5 (fast 4 $ cosine))
# crushbus 40 (slow 32 $ range 16 5 (saw + 0.2 * perlin))
# cut 4
d5 -- Phantom Choirs
$ mask "<f!64 t!32 f!16 t!16>"
$ note (scale "aeolian" "<0 <0 4>(3,3)> . <1 2 <3 5> 12>"
- 12
)
# "moogBass"
# gain 0.5
d5
$ mask "<f!16 t!8 f!8 t!48>"
$ "[dr,drum:2](<4 <8 <12 16>>>,12)"
# gain 0.45
# pan 0.8
d10 -- Announcing cymbals
$ mask "<f!64 t!8 <t f>!8 f!48>"
$ "h2ogmcy:3"
# cut 10
# gain (slow 8 $ range 0.35 0.65 saw)
# hpf (slow 16 $ range 0 6500 saw)
-- Igor ressort - TODO rework
d9
$ "igor:15"
# cut 7
# gain 0.56
# begin (0 + "<0 0.1 0.2 0.3>")
# end (0.02 + "<0 0.1 0.2 0.3>")
# att 0
# rel 2
once $ "moog:4" # cut 4
once $ "fbass:40" # cut 4 # gain 0.7
d3
$ "<w!3 [w|w*2] w w w*2!2>"
# "wobble"
# crush (slow 16 $ range 16 3.5 saw)
# gain 0.8
# legato 2
# pan 0.6
resetCycles
once $ "dr"
-- TODO:
-- Add lead - or use it to improvise? <3
-- Add wind noises at transition points - or equivalent spacey sounds
do
setcps (90/60/4)
let chords = "<[a,c,e,g,b,d] [d,fs,a,c] [f,a,c,e] [c,e,g,b]>"
-- TODO: Chords could vary a bit, try manual nostalgic vars
let chordsMin = "<<a c e> <d!3 fs> [f] [c]>" -- TODO confirm/finish/validate
let gFilter = whenmod 32 24 (# djf (slow 8 (range 0.5 0.05 saw)))
let gFilter2 = whenmod 32 24 (# djf (slow 8 (range 0.45 0.75 saw)))
let g = gFilter
let g2 = gFilter2
d1 $ g
$ mask "<t!16 f!4 t!12>" -- First break
$ mask "<t!32 f!8 t!24>" -- Post-filter break
$ mask "<f!6 t f t!24>" -- Intro mask
$ "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]"
# "[bd:2,kick:5]"
# gain 0.8
# legato 2
# att 0.1
# rel 0.8
d2 $ g -- Aerian snare
$ mask "<t!16 f!3 t t!12>" -- First break
$ mask "<f!10 t!6 f!5 t!13>" -- Snare mask
$ n "~ <~!3 [~ 10]>. 9"
# "sn"
# gain 0.8
# lpf 1500
d3 $ g2
$ mask "<f!16 t!12 f!4 t!16 f!4 t!12>"
$ "d*[<<4!4 [8 <4 8>]!4> 16!4> <16!3 8 16 16 8 8 16 16 8 16 16 8 16 16>]"
# "drum:2"
# pan 0.35
# gain (slow 8 $ range 0.4 0.6 saw)
d5 $ g -- BREAKBEAT BUDDY
$ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
$ mask "<f!8 t!14 f f t!16>"
$ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]"))
$ chop 16
$ loopAt 2
$ "fbreak100"
# gain 0.69
# pan 0.65
d4 $ g2
$ superimpose ((|* gain "0 0.79") . (|+ note 12)) -- Depth
$ whenmod 16 12 (someCyclesBy "0 1" rev)
$ note (chords
- 24
)
# "FMRhodes1"
# gain 0.75
# room 0.4
d6 $ g
$ mask "<f!4 f!12>"
$ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin
- 24
)
# "supersaw"
# voice 0.1
# pan 0.3
# hpf (range 0 500 perlin)
# gain 0.4
d5 $ g -- BREAKBEAT BUDDY
$ mask "<t!16 f!4 t!12>" -- First break
$ mask "<t!32 f!12 t!20>" -- Post-filter break
$ mask "<f!12 t!10 f f t!4 f t f f>"
$ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]"))
$ chop 16
$ loopAt 2
$ "fbreak100"
# gain 0.69
# pan 0.65
......@@ -73,6 +73,8 @@ d8 $ g2
# cut 8
# pan 0.8
once $ "cbow:3" # gain 0.57 # cut 21
-- TODO MOVE OR REMOVE
......
-- Tentative SynthWave #2
-- Docs:
-- https://recording-voice.com/how-to-make-synthwave/
-- https://www.orpheusaudioacademy.com/synthwave-chords/
-- Noises pacman-like
"tacscan:4"
......
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