*** empty log message ***

[lilypond.git] / input / test / mensural-ligatures.ly

diff --git a/input/test/mensural-ligatures.ly b/input/test/mensural-ligatures.ly
index 44a6f2bc926c119319eacdfe1956140bb93887d2..63aebc30baabecd4c8c5aedd04b919440e1c1967 100644 (file)
--- a/input/test/mensural-ligatures.ly
+++ b/input/test/mensural-ligatures.ly
@@ -1,20 +1,21 @@
-\version "1.3.146"
-\header {
-    title      = "mensural ligature test"
-    date       = "2002"
+\version "2.4.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 the horizontal alignment of the fermatas that obeys to the
+
+% 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'' {
-  \property Score.timing = ##f
-  \property Score.defaultBarType = "empty"
-  \property Voice.NoteHead \set #'font-family = #'ancient
-  \property Voice.NoteHead \override #'style = #'mensural
+voice =  \transpose c c' {
+  \set Score.timing = ##f
+  \set Score.defaultBarType = "empty"
   g\longa c\breve a\breve f\breve d'\longa^\fermata
   \bar "|"
   \[
@@ -31,48 +32,55 @@ voice = \notes \transpose c'' {
   \bar "||"
 }
 
-upperStaff = \context Staff = upperStaff <
-  \context MensuralVoice <
-    \voice
-  >
->
-
-lowerStaff = \context Staff = lowerStaff <
-  \context TranscribedVoice <
-    \voice
-  >
->
-
+\paper {
+    linethickness = \staffspace / 5.0
+}
 \score {
-    \context ChoirStaff <
-       \upperStaff
-       \lowerStaff
-    >
-    \paper {
-       stafflinethickness = \staffspace / 5.0
-       \translator {
-           \VoiceContext
+    \context ChoirStaff <<
+       \new MensuralStaff <<
+           \context MensuralVoice <<
+               \voice
+           >>
+       >>
+       \new Staff <<
+           \context Voice <<
+               \voice
+           >>
+       >>
+    >>
+    \layout {
+       \context {
+           \Voice
            \name MensuralVoice
            \alias Voice
            \remove Ligature_bracket_engraver
            \consists Mensural_ligature_engraver
+           \override NoteHead #'style = #'mensural
        }
-       \translator {
-           \VoiceContext
-           \name TranscribedVoice
-           \alias Voice
-           \remove Mensural_ligature_engraver
-           \consists Ligature_bracket_engraver
-       }
-       \translator {
-           \StaffContext
+       \context {
+           \Staff
+           \name MensuralStaff
+           \alias Staff
            \accepts MensuralVoice
-           \accepts TranscribedVoice
-        }
-       \translator {
-           \HaraKiriStaffContext
+           \consists Custos_engraver
+           \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 = #-1
+           clefGlyph = #"clefs.petrucci.g"
+           clefPosition = #-2
+           clefOctavation = #-0
+       }
+       \context {
+           \RemoveEmptyStaffContext
            \accepts MensuralVoice
-           \accepts TranscribedVoice
         }
+       \context {
+           \Score
+           \accepts MensuralStaff
+       }
     }
 }
+