input/test/vaticana.ly

   1 \version "1.7.19"
   2 % possible rename to ancient-something.
   3
   4 \header { texidoc       = "Ancient Vaticana
   5 Vaticana ligature test. "
   6 }
   7
   8 \include "gregorian-init.ly"
   9
  10 %
  11 % FIXME: custodes and clefs do not show on all staves
  12 %
  13
  14 %
  15 % FIXME: move VaticnaStaff/VaticanaVoice definition to engraver-init.ly?
  16 % Or rather to gregorian-init.ly?
  17 %
  18
  19 cantus = \notes \relative c {
  20   \clef "vaticana_fa2"
  21   \[ f \quilisma g \auctum \descendens a \]
  22   \[ \virga a g \pes a \inclinatum f \inclinatum d
  23      c \pes d \quilisma e \pes f \virga g
  24      a \flexa f \pes g \inclinatum f \inclinatum e \]
  25   \[ d \quilisma e f \flexa e \pes f \]
  26   \[ e \flexa d \]
  27 }
  28
  29 verba = \context Lyrics = verba \lyrics {
  30   Al-4*3 le-4*15 lu-4*5 ia.4*2
  31 }
  32
  33 \score {
  34   \context VaticanaStaff <
  35     \context VaticanaVoice <
  36       \cantus
  37       \verba
  38     >
  39   >
  40   \paper {
  41     stafflinethickness = \staffspace / 5.0
  42     linewidth = 15.0 \cm
  43     indent = 0.0
  44         raggedright = ##t
  45 %
  46 % FIXME: packed alignment is currently broken
  47 %
  48
  49     \translator {
  50       \VoiceContext
  51       \name VaticanaVoice
  52       \alias Voice
  53       \remove "Stem_engraver"
  54       \remove Ligature_bracket_engraver
  55       \consists Vaticana_ligature_engraver
  56       NoteHead \set #'style = #'vaticana_punctum
  57 %     TextScript \set #'padding = #0.0
  58     }
  59     \translator {
  60       \StaffContext
  61       \name VaticanaStaff
  62       \alias Staff
  63       \accepts VaticanaVoice
  64       \remove Bar_engraver
  65       \consists Custos_engraver
  66       StaffSymbol \set #'line-count = #4
  67       TimeSignature \set #'transparent = ##t
  68       KeySignature \set #'style = #'vaticana
  69       Accidental \set #'style = #'vaticana
  70       Custos \set #'style = #'vaticana
  71       Custos \set #'neutral-position = #3
  72       Custos \set #'neutral-direction = #-1
  73       Custos \set #'adjust-if-on-staffline = ##t
  74     }
  75     \translator {
  76       \RemoveEmptyStaffContext
  77       \accepts VaticanaVoice
  78     }
  79     \translator {
  80       \ScoreContext
  81       \accepts VaticanaStaff
  82       \remove Bar_number_engraver
  83     }
  84   }
  85 }