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"
