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

(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 = - - - - - -))))

(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))))

(setf sopline (ambitus '(c4 f5) ph1a))
(setf altline (ambitus '(a3 a4) ph1b))
(setf tenline (ambitus '(c3 c4) ph1c))
(setf basline (ambitus '(a2 a3) ph1d))

(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"))

(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"))

(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"))

(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.