input/test/mensural-ligatures.ly

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