input/test/mensural-ligatures.ly

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