Re: Ancient notation: spacing, ligatures, bar lines: some ideas...

[Till Rettig]

Sorry, I meant to append a file demonstrating the spacing. Here it comes.

Till

\version "2.11.33"

global = {
  \key f \major
  \time 2/2
  \override Staff.TimeSignature #'style = #'neomensural
  %\override Voice.NoteHead #'style = #'neomensural
  %\override Voice.NoteHead #'style = #'mensural
  \override Voice.NoteHead #'style = #'petrucci
  \override Voice.Rest #'style = #'neomensural
  \set Staff.printKeyCancellation = ##f 
  \override Staff.Accidental #'glyph-name-alist = 
#alteration-mensural-glyph-name-alist
                    \override Staff.KeySignature #'glyph-name-alist = 
#alteration-mensural-glyph-name-alist
                    \override Stem #'flag-style = #'mensural
                    \override Stem #'thickness = #1.0
                    \autoBeamOff
        }

noten = {
        c'1\melisma bes a g\melismaEnd
        f\breve
        \[ f1\melisma a c'\breve d'\melismaEnd \]
        c'\longa
        c'\breve\melisma a2 as2 g1\melismaEnd
        fis\longa^\signumcongruentiae
        a4 g8 e d c e1 fis\breve d4 e2 g f gis 
        f bes c\longa
        }


%Options to show the "real" spacing of noteheads
\paper{
  indent = 0\mm
  ragged-right = ##t
}

\score { \context Staff = "lower" 
                                        \with {
                                         \consists Custos_engraver
                                        \override Custos #'style = #'mensural
                                        }
                                         \context Voice=mensural \with {
                                          \remove Forbid_line_break_engraver
                                           \remove Ligature_bracket_engraver
                                        \consists Mensural_ligature_engraver
                                         }{%\cadenzaOn%ligatures get crazy
                    \set Timing.defaultBarType = " " %Change this to see the 
space taken by bar lines
                    \override Staff.Accidental #'glyph-name-alist = 
#alteration-mensural-glyph-name-alist
                    \override Staff.KeySignature #'glyph-name-alist = 
#alteration-mensural-glyph-name-alist
                    \override Stem #'flag-style = #'mensural
                    \override Stem #'thickness = #1.0
                    \autoBeamOff
                    \stemUp
                    \clef "mensural-f"
 
 %Testing the different mensural styles
                    
                \global
                a^\markup{Petrucci}
                \noten
                \bar "|." 
                \break
                \override Voice.NoteHead #'style = #'neomensural
                a^\markup{neomensural}
                \noten
                \bar "|." 
                \break
                \override Voice.NoteHead #'style = #'mensural
                a^\markup{mensural}
                \noten
                \bar "|."   }                   
        }
        
%normal notation
      
         \score { \context Staff=traditional <<
                                \context Voice  = "normal" 
                                \with {\remove 
Forbid_line_break_engraver}%doesn't work in cadenza
                                {%\cadenzaOn
                                \set Timing.defaultBarType = " "
                                \clef bass
                                 \key f \major
                                 \time 2/2
                                a^\markup{Normal}
                                \noten  \noten 
                                \bar "|."
                                }
                                
                                >>
                                 
 }
 
 %All spacing stuff is hidden in the layout block
 % space taken by bar lines, clefs (see the gap in the beginning of each line) 
etc. should eventually also be removed
 %mensural clefs are smaller than normal clefs

\layout{
    \context { \Score 
        \override SpacingSpanner #'spacing-increment = #0
        \override SpacingSpanner #'common-shortest-duration = #(ly:make-moment 
1 1)
        %Why can it not be a longer note than a whole?
        \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 4 
1)
        \override SpacingSpanner #'shortest-duration-space = #1
       }
     

}