-- CC1 General MIDI Acoustic Guitar
-- Accord parfait Si Ré Fa# Si
-- Impro Si Ré Mi Fa Fa# La Si
-- Metal march
do
  setcps (70/60/4)
  d1
    -- $ fast (slow 8 "<1 2 4 <8 [8 0]>>")
    $ "[cpu,jazz]*4"
    # room 0.8 # sz 0.8
    # dry 1.02
    # lpf 2000
    # gain 0.75
  d2
    -- $ mask "<f!4 t!28>"
    $ slice 4 (
      whenmod  32 24 (>| "<3 3 0 0> <2 1> <1 2> <0!3 3> ")
      $ whenmod 32 16 (>| "4 0 4 0")
      "<0 [~ 0]> 1 2 3*<1!3 <2 4>>"
      )
    $ loopAt 4
    $ "break"
    # gain (slow 42 $ range 0.35 0.7 perlin)
    # cut 2
  d3
    $ whenmod 8 0 (
      sometimesBy "0!7 [0 1]" (
      (# "ho:5")
      . (|* gain 0.6)
      . (|+ room 0.2)
      . (# note "<0 0 3 0 3 3 0 0 3 0 3 0 0 0 -1 0>")
      -- . ("e" ~>)
    )
    )
    $ swing (slow 16 "<1 4>")
    $ fast (8 * "1 <1!3 [2 1]>") $ "h"
    # "hh"
    # gain (slow 16 $ range 0.4 0.8 saw)
    # room 0.1
    # sz 0.5
    # pan 0.9
    # cut 3
  d4 $ "~!7 cp" # lpf 200
  d9
    $ "<g!16 g(<3 3 5 <8 [8 4]>>,8)!16>"
    # "glitch:2"
    # crush (range 4 5 perlin)
    # gain 0.57
    # room 0.5