input/test/mensural-ligatures.ly

   1 \version "2.3.22"
   2 % TODO:
   3 % check with ancient- stuff.  rename, merge, something.  -gp
   4
   5 \header { texidoc = "@cindex Ancient Mensural Ligatures
   6 In mensural ligatures, notes with ancient durations are printed
   7 in a tight manner."
   8 }
   9
  10
  11
  12 % Note that the horizontal alignment of the fermatas obeys to the
  13 % graphical width of the ligatures rather to the musical moment in time.
  14 % This is intended behaviour.
  15
  16 voice =  \transpose c c' {
  17   \set Score.timing = ##f
  18   \set Score.defaultBarType = "empty"
  19   g\longa c\breve a\breve f\breve d'\longa^\fermata
  20   \bar "|"
  21   \[
  22     g\longa c\breve a\breve f\breve d'\longa^\fermata
  23   \]
  24   \bar "|"
  25   e1 f1 a\breve g\longa^\fermata
  26   \bar "|"
  27   \[
  28     e1 f1 a\breve g\longa^\fermata
  29   \]
  30   \bar "|"
  31   e1 f1 a\breve g\longa^\fermata
  32   \bar "||"
  33 }
  34
  35 \paper {
  36     linethickness = \staffspace / 5.0
  37 }
  38 \score {
  39     \context ChoirStaff <<
  40         \new MensuralStaff <<
  41             \context MensuralVoice <<
  42                 \voice
  43             >>
  44         >>
  45         \new Staff <<
  46             \context Voice <<
  47                 \voice
  48             >>
  49         >>
  50     >>
  51     \layout {
  52         \context {
  53             \Voice
  54             \name MensuralVoice
  55             \alias Voice
  56             \remove Ligature_bracket_engraver
  57             \consists Mensural_ligature_engraver
  58             \override NoteHead #'style = #'mensural
  59         }
  60         \context {
  61             \Staff
  62             \name MensuralStaff
  63             \alias Staff
  64             \accepts MensuralVoice
  65             \consists Custos_engraver
  66             \override TimeSignature #'style = #'mensural
  67             \override KeySignature #'style = #'mensural
  68             \override Accidental #'style = #'mensural
  69             \override Custos #'style = #'mensural
  70             \override Custos #'neutral-position = #3
  71             \override Custos #'neutral-direction = #-1
  72             clefGlyph = #"clefs-petrucci-g"
  73             clefPosition = #-2
  74             clefOctavation = #-0
  75         }
  76         \context {
  77             \RemoveEmptyStaffContext
  78             \accepts MensuralVoice
  79         }
  80         \context {
  81             \Score
  82             \accepts MensuralStaff
  83         }
  84     }
  85 }
  86