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
}
}
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel
