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)