opmo Posted November 3, 2014 Share Posted November 3, 2014 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)) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.