Jazz Standard: Goodbye Pork Pie Hat

[opmo]

Goodbye Pork Pie Hat

Theme

(setq theme
      '((-h.. e c4)
        (e f4 e_3q ab4 3q f4 ab4 e bb4 q ab4 s f4 db4)
        (e f4 q ab4 s f4 eb4 q. f4 e c4)
        (e f4 e_3q ab4 3q f4 ab4 e b4 q bb4 s f4 eb4)
        (e f4 q ab4 s f4 eb4 q. f4 e)
        (e c5 e_3q eb5 3q f4 ab4 e bb4 q ab4 s f4 ab4)
        (e c5 e_3q f5 3q f4 bb4 3h eb5 3q c4 ab4 e4 db4)
        (3h ab4 b4 f4 e4 b4 g4)
        (h ab4 q. f4 s b4 bb4)
        (h ab4 f4)
        (e bb4 ab4 f4 eb4 b4 bb4 ab4 f4)
        (h ab4 f4)
        (3h c4 bb4 ab4 f4 eb4 c4)
        (w f4)))

 

Chords

(setf chords
      '((-w)
        (h (f3 7s9) p (db3 9))
        (h (gb3 maj7) (b3 7b5 :rotate -2))
        (h (eb3 7) (db3 7))
        (h (eb3 7) (f3 7))
        (h (bb3 m7) (db3 7))
        (h (g3 7b5) (c3 7))
        (h (d3 7) (g3 7 :rotate -1))
        (h (db3 7) (gb3 maj7))
        (h (b3 6/7 :rotate -1) (bb3 7 :rotate -1))
        (h (c3 7) (eb3 7))
        (h (f3 7s9) (db3 7))
        (h (gb3 maj7s11) (b3 7b5 :rotate -1))
        (w (f3 m11 :rotate -1) p)))

 

Score

(def-score Goodbye-Pork-Pie-Hat
           (:title "Goodbye Pork Pie Hat"
            :composer "Charles Mingus"
            :key-signature '(f minor)
            :time-signature '(4 4)
            :tempo 56
            :layout (piano-solo-layout 'theme 'chords))
  
  (theme :omn theme
         :channel 1
         :sound 'gm
         :program 'Electric-Piano-1
         :volume 127
         :pan 64)
  
  (chords :omn chords
          :channel 2))