input/test/mensural-ligatures.ly

   1 \version "2.2.0"
   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 = \notes \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 \score {
  36     \context ChoirStaff <<
  37         \new MensuralStaff <<
  38             \context MensuralVoice <<
  39                 \voice
  40             >>
  41         >>
  42         \new Staff <<
  43             \context Voice <<
  44                 \voice
  45             >>
  46         >>
  47     >>
  48     \paper {
  49         linethickness = \staffspace / 5.0
  50         \context {
  51             \VoiceContext
  52             \name MensuralVoice
  53             \alias Voice
  54             \remove Ligature_bracket_engraver
  55             \consists Mensural_ligature_engraver
  56             \override NoteHead #'style = #'mensural
  57         }
  58         \context {
  59             \StaffContext
  60             \name MensuralStaff
  61             \alias Staff
  62             \accepts MensuralVoice
  63             \consists Custos_engraver
  64             \override TimeSignature #'style = #'mensural
  65             \override KeySignature #'style = #'mensural
  66             \override Accidental #'style = #'mensural
  67             \override Custos #'style = #'mensural
  68             \override Custos #'neutral-position = #3
  69             \override Custos #'neutral-direction = #-1
  70             clefGlyph = #"clefs-petrucci_g"
  71             clefPosition = #-2
  72             clefOctavation = #-0
  73         }
  74         \context {
  75             \RemoveEmptyStaffContext
  76             \accepts MensuralVoice
  77         }
  78         \context {
  79             \ScoreContext
  80             \accepts MensuralStaff
  81         }
  82     }
  83 }
  84