do let gG a = (gain ("^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gF = (# djf ("^49")) let gRm = (# room 0.12) let g = (gF . gRm) let g = (id) setcps (120/60/4) d1 $ g $ every' 8 6 (# silence) $ sometimesBy "^42" (slow 2) $ fast 4 $ "[jazz,tech:5]" # gM' 0 1.2 "^78" d2 $ g $ every' 8 7 (mask "f . f t") $ rarely (ply 2) $ rarely (mask "t(3,4)") $ "hh*8" # gM' 0 1.3 "^79" d3 $ g $ sometimesBy "^57" ( -- OFF ARP! off "q" id . (arpeggiate . (# legato 1)) ) $ note "<e'min7 f'maj7 d'sus4 a4'min7>" # octave 4 # "bassWarsaw" # gM' 0 1.1 "^81" # room 0.5 # sz 0.5 # crush (range 16 5.2 "^53") d4 $ g $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8))) $ fast 2 $ "~ cp*<1!3 2 2 1 0 2>" # lpf 2000 # gM' 0 0.9 "^83"