Jazz Standard: My Funny Valentine

[opmo]

My Funny Valentine

Theme

(setq theme
      '((h c4 q d4 eb4) (q. d4 e eb4 h d4)
        (h c4 q d4 eb4) (q. d4 e eb4 h d4)
        (h c4 q d4 eb4) (h bb4 q ab4 g4)
        (w f4 tie) (w f4) (h eb4 q f4 g4)
        (q. f4 e g4 h f4) (h eb4 q f4 g4)
        (q. f4 e g4 h f4) (h eb4 q f4 g4)
        (q. d5 e c5 q. bb4 e a4)
        (w ab4 tie) (h ab4 q g4 f4)
        (q. d5 e eb4 q eb4 d4) (h eb4 q eb4 d4)
        (q. c5 e eb4 q eb4 d4) (h eb4 q eb4 d4)
        (q. d5 e eb4 q eb4 d4) (h eb4 q f4 g4)
        (w c5 tie) (h c5 d4)
        (h c4 q d4 eb4) (q. d4 e eb4 h d4)
        (h eb4 q f4 g4) (h c5 q d5 eb5)
        (q. d5 e eb5 h d5) (w eb5 tie)
        (w eb5) (h eb4 q f4 g4)
        (q. f4 e g4 h f4) (w eb4)
        (-w)))

 

Chords

(setq chords
      '((w (c3 m)) (w (c3 mmaj7))
        (w (c3 m7)) (w (c3 m6))
        (w (ab3 maj7)) (h (ab3 m69) (f3 m7b5))
        (w (d3 m7b5)) (w (g3 7b9))
        (w (c3 m)) (w (c3 mmaj7))
        (w (c3 m7)) (w (c3 m6))
        (w (ab3 maj7)) (w (f3 m6))
        (w (ab3 m6)) (w (bb3 7b9))
        (h (eb3 maj7) (f3 m7)) (h (g3 m7) (f3 m7))
        (h (eb3 maj7) (f3 m7)) (h (g3 m7) (f3 m7))
        (h (eb3 maj7) (g3 7)) (q (c3 m7) (c3 m7) (bb3 m7) (a3 13))
        (w (ab3 maj7)) (h (d3 m7b5) (g3 7b9))
        (w (c3 m)) (w (c3 mmaj7))
        (w (c3 m7)) (w (c3 m6))
        (w (ab3 maj7)) (h (d3 m7b5) (g3 7b9))
        (w (c3 m)) (h (bb3 m7) (a3 7s11))
        (h (f3 m7) (bb3 7b9)) (w (eb3 6))
        (h (d3 m7b5) (g3 7b9))))

 

Score

(def-score my-funny-valentine
           (:title "My Funny Valentine"
            :composer "Roger/Hard"
            :key-signature '(c minor)
            :time-signature '(4 4)
            :tempo 84
            :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))