Stephane Boussuge Posted November 17, 2014 Share Posted November 17, 2014 Gloria from "Messe Brève en Forme de de Haikus" Melodic base. (setf base1 (pitch-transpose -2 '((e a4 = f4 = c5 = g4 =) (e a4 = f4 = c5 = g4 =) (e a4 = f4 = c5 = g4 =) (e d5 = a4 = e5 = b4 =) (-w) (e a4 = f4 = c5 = g4 =) (e a4 = f4 = c5 = g4 =) (e d5 = a4 = e5 = c5 =) (e f5 e5 f5 g5 a5 = - -) (-w) (e a4 = f4 = c5 = g4 =) (e a4 = f4 = c5 = g4 =) (e d5 = a4 = e5 d5 c5 d5) (e e5 f5 g5 d5 a5 = - -) (-w) (e b5 = f5 = a5 = e5 =) (e g5 = d5 = a5 = e5 =) (e b5 = f5 = c6 = = =) (e c6 = - - - - - -)))) Create some shifted phrases and cut them to the correct length with GEN-TRIM. (setf ph1a base1) (setf ph1b (gen-trim 18 (gen-pause (gen-rotate -1 base1) :section '(0)))) (setf ph1c (gen-trim 17 (gen-pause (gen-rotate -2 base1) :section '(0 1)))) (setf ph1d (gen-trim 16 (gen-pause (gen-rotate -3 base1) :section '(0 1 2)))) Ambitus control. (setf sopline (ambitus '(c4 f5) ph1a)) (setf altline (ambitus '(a3 a4) ph1b)) (setf tenline (ambitus '(c3 c4) ph1c)) (setf basline (ambitus '(a2 a3) ph1d)) Lyrics Soprano (setf soptext1 '("glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o")) Alto (setf alttext1 '("glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o")) Tenor (setf tentext1 '("glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o")) Bass (setf bastext1 '("glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria glo ria in ex cel sis de o")) Score definition (def-score Gloria-1-02 (:title "Gloria" :key-signature '(c maj) :time-signature '(4 4) :composer "S.Boussuge" :copyright "Copyright © 2014 S.Boussuge" :tempo 112 :layout (choir-satb-layout 'sop 'alt 'tnr 'bas)) (sop :omn sopline :text soptext1 :sound 'gm :port 0 :program 'acoustic-grand-piano) (alt :omn altline :text alttext1) (tnr :omn tenline :text tentext1) (bas :omn basline :text bastext1)) SB. Gloria.opmo GloriaPianoRender.mp3 Gloria.mp3 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.