opmo Posted November 3, 2014 Share Posted November 3, 2014 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)) 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.