Jazz Standard: Round Midnight

[opmo]

Round Midnight

Theme

(setq theme 
      '(-q s bb3 eb4 f4 bb4 q. gb4 e bb3
           q. eb4 s d4 eb4 e bb4 ab4 -q
           - s eb4 gb4 bb4 db5 q. c5 e eb4
           a4 s fs4 d4 q gs4 e s f4 db4 q g4
           - s ab4 b4 eb5 gb5 q. f5 e b4
            h._e bb4 s eb4 f4
           q. gb4 s f4 eb4 q. f4 e eb4
           d4 hq. bb3

           -q s bb3 eb4 f4 bb4 q. gb4 e bb3
           q. eb4 s d4 eb4 e bb4 ab4 -q
           - s eb4 gb4 bb4 db5 q. c5 e eb4
           a4 s fs4 d4 q gs4 e s f4 db4 q g4
           - s ab4 b4 eb5 gb5 q. f5 e b4
           h._e bb4 s eb4 f4
           q gb4 e f4 eb4 q f4 e eb4 d4
           h._e eb4 e f4

           q gb4 e f4 eb4 q. f4 e eb4
           d4 eh bb4 e eb4 f4
           q gb4 e f4 eb4 q. f4 e eb4
           d4 eh bb3 q bb4
           q. b4 e q. bb4 e
           q ab4 gb4 f4 bb4
           e eb5 = q e db5 = q
           q. b4 s eb4 d4 h bb4))

 

Chords

(setf chords
      '(h (eb3 m7) p (c3  m7b5)
          h (f3 m7b5) (bb3 7)
          (eb3 m7) (ab3 7)
          q (b3 m7) (e3 7) (bb3 m7) (eb3 7)
          h (ab3 m7 :rotate 1) (db3 7)
          (eb3 m7) (ab3 7 :rotate -2)
          q (c3 m7b5) (b3 7b5) h (bb3 7sus4)
          w (bb3 7)
          
          h (eb3 m7) (c3 m7b5)
          (f3 m7b5) (bb3 7)
          (eb3 m7) (ab3 7)
          q (b3 m7) (e3 7) (bb3 m7) (eb3 7)
          h (ab3 m7 :rotate -1) (db3 7 :rotate -1)
          (eb3 m7) (ab3 7)
          q (c3 m7b5 :rotate 1) (b3 7b5) h (bb3 7sus4)
          w (eb3 m7)
          
          h (c3 m7b5) (f3 7)
          (f3 m7) (bb3 7)
          (c3 m7b5) (f3 7)
          (f3 m7) (bb3 7)
          (ab3 m7) (db3 7 :rotate -1)
          (b3 7) (bb3 7 :rotate -1)
          q (bb3 m7) (eb3 7) (ab3 m7) (db3 7)
          (gb3 m7 :rotate -1) (b3 7 :rotate -2)
          h (bb3 7 :rotate -3)))

 

Score

(def-score round-midnight
           (:title "Round Midnight"
            :composer "Thelonious Monk"
            :key-signature '(eb minor)
            :time-signature (get-time-signature theme)
            :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))