sunny_march.tidal 2.88 KB

do
let lofiBliss = "<[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]>"
let lofiBlissEq = "<[a,c6,e6,g6,b6,d7] [fs,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,c7] [c,e,g,e6,g6,b6]>"
let lofiBlissMin = "<[a,c6,e6,g6] [fs,c6,d6,fs6] [f,a,c6,e6] [c,e,g6,b6]>"
setcps (86/60/4)
-- resetCycles
once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1
let mask86 = (whenmod 8 6 (mask "f"))
let mask86' = (whenmod 8 6 (mask "f . <f t>"))
let low86 = (whenmod 8 6 (|* gain 0.8))
let modIndex = pF "modIndex"
let g1 = whenmod 16 12 (# djfbus 1 (slow 4 $ range 0.5 0.25 saw))
let g2 = (# djfbus 2 (range 0.05 0.95 "^49"))
let g = g1 . g2
d1 $ g $ mask86'
  $ mask "<f!6 t f t!56>" -- Intro nokick
  $ fix (# cut 11) "jazz"
  $ fix (# cut 12) "808bd:4"
  $ fix (# cut 13) "808bd:22"
  $ struct "<t!3 ~> . ~ [<~ t*<1 2 1 <1 2>>> <~!3 t>]"
  $ "[jazz,808bd:4,808bd:22]"
  # gain 1.4
  # room 1.2
  # sz 0.5
  # dry 1
  # legato 2
d2 $ g $ mask86
  $ mask "<f!8 t!24>" -- Intro snare
  -- $ whenmod 32 16 (fast 2) -- Faster snare?
  $ "~ db:12"
  # hpf 500
  # gain 0.7
d3 $ g
  $ sometimesBy (slow 8 $ range 0 0.2 saw) ( -- Begaye
    off "[e|s]" (|* gain 0.9)
  )
  $ mask86 -- Jumpy hats
  $ mask "<f!8 t!24>"
  $ someCyclesBy "<1!16 0!16>" (slow 2)
  $ "~ h ~ h ~ h*<1!3 2 1 2!3> ~ h*<1!6 2 2>"
  # "db:7"
  # gain 0.65
  # pan 0.6
d4 $ g -- Wobble bassline
  $ mask "<f!12 t!52>" -- Intro nobass
  $ mask "<t!3 [<t f> . f t]>" $ low86 -- Dégradation
  -- $ whenmod 8 7 (>| note "c f fs a") -- Complément descente
  $ whenmod 32 16 ( -- Complément LofiBlissBass
    superimpose ((|+ note 12) . (|* gain 0.65) . (|+ pan 0.08))
  )
  $ note (
    (struct "t([<5!3 3 5!3 3 5 5 [5 3] 3 3 3 [3 5] 5 8 5 8 5 8 8 5 5 5 8 5 8 5 5 8 5> <5!15 8>],8)" $ arp "up" lofiBlissEq - 12)
    -- "a fs . <[f <c!3 c6>*<1 2>] [~ f c <~ <c [c f fs]>>]>" -- Descente
  )
  # "wobble"
  # gain (slow 32 $ range 0.75 1 saw)
  # room 0.74
  # pan 0.23
  # sz 0.8
  # legato 2
d5 $ g -- Blissed keys
  $ someCyclesBy "<t!8 f!58>" (|* gain (slow 8 $ range 0.5 1 saw)) -- Intro keys
  $ whenmod 32 24 (superimpose ( -- STELLAR RAIN
    ("<0.15 <0.25!3 0.45>>" ~>)
    . (|+ note 12)
    . (|+ pan 0.12)
    . (# hpf 2500)
    . (|* gain 0.68)
    . (# room 0.9)
    . (# legato 2.9)
    ))
  $ note (lofiBliss
    + "<0!8 [<0*2!3 0>]!8> . <~!4 12!11 <12 ~>>" -- Echo [0 12] travaillé
    - 12
    )
  # "FMRhodes1"
  # pan 0.65
  # modIndex "[0.5]"
  # gain 0.7
  # room 0.84
  # dry 0.8
  # sz 0.25
d6 $ g2 -- Nappes gratos
  $ (0.5 ~>)
  $ note (lofiBlissMin
    + "<0!7 [0 12 . ~]>"
    - 24
    )
  # "moogBass"
  # gain 0.46
d7 $ g2 $ mask86 -- Break inéluctable
  $ mask "<f!16 t!48>" -- Intro
  $ mask "<f!8 t!16 <t!8 f!8>>" -- masque /32
  $ ply 1 -- TODO HAVE FUN ;)
  $ slice 8 ("0 1*<1 2> 2 3*<1!3 4>" + "<0 4>")
  $ loopAt 2
  $ "break:1"
  # cut 8
  # pan (slow 32 $ range 0.95 0.58 saw)
  # gain (slow 32 $ range 0.5 0.75 saw)