Jump to content

Gloria from "Messe Brève en Forme de de Haikus"


Recommended Posts

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy