Re: Compressing mensural notation

[Vaughan McAlley]

On 31 October 2011 02:46, Phil Holmes <address@hidden> wrote:
> \include "gregorian.ly"
> \paper {
>  ragged-right = ##t
> }
>
>
> \score {
>  \new MensuralStaff \with { \remove "Time_signature_engraver" }
>  <<
>   \new MensuralVoice = "Tenor" {
>     \key f \major
>     \tempo 1 = 120
>     \override Score.BarNumber #'transparent = ##t
>     \override NoteHead #'style = #'petrucci
>     {
>       \stemUp
>       \clef "petrucci-c3"
>       c' \breve d'1 \[ e' \longa f' \breve \] d'2 c' e'1 g'1. f'2
>       \[ e' \longa
>       \override NoteHead #'ligature-flexa = ##t
>       d' \breve \]
>       c'1
>       \[ e' \longa
>       \override NoteHead #'ligature-flexa = ##t
>       d' \breve \]
>       c' \breve
>       \divisioMaior
>       c' \breve a1 bes2 g2 a1 g \breve g1
>       a2 bes2 c'1 bes2 \[ c' \longa d' \] c'1
>       \divisioMinima
>       c' \breve \[ d' \longa e' \] d'2 f'1 e'2 c' d'1 c'2 a1 bes2 c'1 g1 a2
> bes2 g2 c'1 bes2 c'2 e'2 d'1 c' \longa
>     }
>   }
>  >>
>  \layout {
>   \context {
>   \Score
>   \override SpacingSpanner
>     #'common-shortest-duration = #(ly:make-moment 32 1)
>   }
>  }
>  \midi { }
> }
>

Fiddling with a couple of other SpacingSpanner variables seems to
tighten it a bit. Also note that ligatures with upward stems are _cum
opposita proprietate_, ie. 2 semibreves, which also helps with the
spacing. The tempo marking was also elongating the first breve.

\version "2.14.2"

\include "gregorian.ly"
\paper {
 ragged-right = ##t
}


\score {
  \new MensuralStaff \with { \remove "Time_signature_engraver" }
  <<
    \new MensuralVoice = "Tenor" {
      \key f \major
%      \tempo 1 = 120
      \override Score.BarNumber #'transparent = ##t
      \override NoteHead #'style = #'petrucci
      {
        \stemUp
        \clef "petrucci-c3"
        c' \breve d'1 \[ e' f' \] d'2 c' e'1 g'1. f'2
        \[ e'1
        \once \override NoteHead #'ligature-flexa = ##t
        d' \]
        c'1
        \[ e'1
        \once \override NoteHead #'ligature-flexa = ##t
        d'1 \]
        c' \breve
        \divisioMaior
        c' \breve a1 bes2 g2 a1 g \breve g1
        a2 bes2 c'1 bes2 \[ c'1 d' \] c'1
        \divisioMinima
        c' \breve \[ d'1 e'1. \] d'2 f'1 e'2 c' d'1 c'2 a1 bes2 c'1 g1
a2 bes2 g2 c'1 bes2 c'2 e'2 d'1 c' \longa
        \finalis
      }
    }
  >>
  \layout {
    \context {
      \Score
      \override SpacingSpanner
        #'common-shortest-duration = #(ly:make-moment 1 2)
      \override SpacingSpanner
        #'base-shortest-duration = #(ly:make-moment 1 2)
       \override SpacingSpanner
        #'spacing-increment = #0.0

    }
  }
  \midi { }
}


Cheers,
Vaughan