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: ragged-right alignment is currently broken
  47         % I don't think it is any more.  -gp
  48 %   width = 12.0 \cm
  49 %   gourlay_maxmeasures = 30.
  50 %
  51
  52     \translator {
  53       \VoiceContext
  54       \name VaticanaVoice
  55       \alias Voice
  56       \remove "Stem_engraver"
  57       \remove Ligature_bracket_engraver
  58       \consists Vaticana_ligature_engraver
  59       NoteHead \set #'style = #'vaticana_punctum
  60 %     TextScript \set #'padding = #0.0
  61     }
  62     \translator {
  63       \StaffContext
  64       \name VaticanaStaff
  65       \alias Staff
  66       \accepts VaticanaVoice
  67       \remove Bar_engraver
  68       \consists Custos_engraver
  69       StaffSymbol \set #'line-count = #4
  70 %     StaffSymbol \set #'width = #60.0 % FIXME: how to get same as \linewidth?
  71       TimeSignature \set #'transparent = ##t
  72       KeySignature \set #'style = #'vaticana
  73       Accidental \set #'style = #'vaticana
  74       Custos \set #'style = #'vaticana
  75       Custos \set #'neutral-position = #3
  76       Custos \set #'neutral-direction = #-1
  77       Custos \set #'adjust-if-on-staffline = ##t
  78     }
  79     \translator {
  80       \RemoveEmptyStaffContext
  81       \accepts VaticanaVoice
  82     }
  83     \translator {
  84       \ScoreContext
  85       \accepts VaticanaStaff
  86       \remove Bar_number_engraver
  87     }
  88   }
  89 }