-\version "1.7.6"
-\header {
- title = "mensural ligature test"
- date = "2002"
+\version "2.6.0"
+% TODO:
+% check with ancient- stuff. rename, merge, something. -gp
+
+\header { texidoc = "@cindex Ancient Mensural Ligatures
+In mensural ligatures, notes with ancient durations are printed
+in a tight manner."
}
-\include "paper26.ly"
+
% Note that the horizontal alignment of the fermatas obeys to the
% graphical width of the ligatures rather to the musical moment in time.
% This is intended behaviour.
-voice = \notes \transpose c c' {
- \property Score.timing = ##f
- \property Score.defaultBarType = "empty"
+voice = \transpose c c' {
+ \set Score.timing = ##f
+ \set Score.defaultBarType = "empty"
g\longa c\breve a\breve f\breve d'\longa^\fermata
\bar "|"
\[
\bar "||"
}
+\paper {
+ linethickness = \staffspace / 5.0
+}
\score {
- \context ChoirStaff <
- \context MensuralStaff = upperStaff <
- \context MensuralVoice <
+ \context ChoirStaff <<
+ \new MensuralStaff <<
+ \context MensuralVoice <<
\voice
- >
- >
- \context Staff = lowerStaff <
- \context Voice <
+ >>
+ >>
+ \new Staff <<
+ \context Voice <<
\voice
- >
- >
- >
- \paper {
- stafflinethickness = \staffspace / 5.0
- \translator {
- \VoiceContext
+ >>
+ >>
+ >>
+ \layout {
+ \context {
+ \Voice
\name MensuralVoice
\alias Voice
\remove Ligature_bracket_engraver
\consists Mensural_ligature_engraver
- NoteHead \set #'style = #'mensural
+ \override NoteHead #'style = #'mensural
}
- \translator {
- \StaffContext
+ \context {
+ \Staff
\name MensuralStaff
\alias Staff
\accepts MensuralVoice
\consists Custos_engraver
- TimeSignature \set #'style = #'mensural
- KeySignature \set #'style = #'mensural
- Accidental \set #'style = #'mensural
- Custos \set #'style = #'mensural
- Custos \set #'neutral-position = #3
- Custos \set #'neutral-direction = #-1
- Custos \set #'adjust-if-on-staffline = ##t
- clefGlyph = #"clefs-petrucci_g"
+ \override TimeSignature #'style = #'mensural
+ \override KeySignature #'style = #'mensural
+ \override Accidental #'style = #'mensural
+ \override Custos #'style = #'mensural
+ \override Custos #'neutral-position = #3
+ \override Custos #'neutral-direction = #down
+ clefGlyph = #"clefs.petrucci.g"
clefPosition = #-2
clefOctavation = #-0
}
- \translator {
- \HaraKiriStaffContext
+ \context {
+ \RemoveEmptyStaffContext
\accepts MensuralVoice
}
- \translator {
- \ScoreContext
+ \context {
+ \Score
\accepts MensuralStaff
}
}
}
-%% new-chords-done %%
+