-- Solitude hivernale do resetCycles setcps (80/60/4) let chords = "<f'maj7 <g'sus4 a'sus4> <f'maj7 a4'min7> e'min7>" d1 $ fix ( mask "<f!16 t!112>" . (# "[jazz,808bd:1]") . (# lpf (slow 16 $ range 10000 200 isaw)) ) ("b") $ fix ( mask "<f!3 [f t] f!3 t t!120>" . (# "sn:1") . (# lpf 5000) . (# cut 12) . (# pan 0.52) ) ("s") $ "b [s . <~!3 [b s]>] . <~!3 [b s]> b s ~" # gain 0.85 d2 -- Drumroll hésitant $ mask "<f!4 [f t]!4 t!120>" $ rarely ("q" ~>) -- $ mask "<t!16 f!8 t [t f!7] t t f t t t>" $ every' 8 6 (degradeBy "<0.5 0.75>") $ every' 4 3 (fast "2 <1!3 [2 1]>") $ "dr*<8!10 12!4 8 12>" # gain 0.55 d3 $ loopAt 2 $ whenmod 8 6 (mask "<t f> f . t") $ whenmod 16 8 (fast 2) $ every' 16 3 (fast 2) $ slice 8 ("[0 <1!4 1 2 3 4 4!4 4 3 2 1>]*4") $ "fbreak80" # gain (slow 64 $ range 0.2 0.7 saw) # cut 3 d4 -- Chords nappes Rhodes $ note (chords) # "<FMRhodes1!8 FMRhodes2!8>" # octave 3 # legato 1 # room 0.2 # gain 0.75 d5 $ whenmod 64 16 (superimpose ( (|+ note 24) . sometimesBy "0 <0 0 0.5 1>" (ply 2) . (swing 2) . (|+ pan 0.1) . (|- velocity 0.1) . (|+ gain 0.1) )) $ every' 4 3 (always ("q" ~>)) $ arp "up" $ note (chords) # "superpiano" # octave "<4!16 3!8 4!8>" # velocity 0.45 # legato 1 # pan 0.6 # gain (slow 16 $ range 0.55 0.85 saw) once $ "jazz"