input/test/vaticana.ly

   1 \version "1.7.19"
   2 \header {
   3     texidoc     = "vaticana ligature test"
   4 }
   5
   6 \include "gregorian-init.ly"
   7
   8 %
   9 % FIXME: custodes and clefs do not show on all staves
  10 %
  11
  12 %
  13 % FIXME: move VaticnaStaff/VaticanaVoice definition to engraver-init.ly?
  14 % Or rather to gregorian-init.ly?
  15 %
  16
  17 cantus = \notes \relative c {
  18   \clef "vaticana_fa2"
  19   \[ f \quilisma g \auctum \descendens a \]
  20   \[ \virga a g \pes a \inclinatum f \inclinatum d
  21      c \pes d \quilisma e \pes f \virga g
  22      a \flexa f \pes g \inclinatum f \inclinatum e \]
  23   \[ d \quilisma e f \flexa e \pes f \]
  24   \[ e \flexa d \]
  25 }
  26
  27 verba = \context Lyrics = verba \lyrics {
  28   Al-4*3 le-4*15 lu-4*5 ia.4*2
  29 }
  30
  31 \score {
  32   \context VaticanaStaff <
  33     \context VaticanaVoice <
  34       \cantus
  35       \verba
  36     >
  37   >
  38   \paper {
  39     stafflinethickness = \staffspace / 5.0
  40     linewidth = 15.0 \cm
  41     indent = 0.0
  42 %
  43 % FIXME: ragged-right alignment is currently broken
  44 %   width = 12.0 \cm
  45 %   raggedright = ##t
  46 %   gourlay_maxmeasures = 30.
  47 %
  48     \translator {
  49       \VoiceContext
  50       \name VaticanaVoice
  51       \alias Voice
  52       \remove "Stem_engraver"
  53       \remove Ligature_bracket_engraver
  54       \consists Vaticana_ligature_engraver
  55       NoteHead \set #'style = #'vaticana_punctum
  56 %     TextScript \set #'padding = #0.0
  57     }
  58     \translator {
  59       \StaffContext
  60       \name VaticanaStaff
  61       \alias Staff
  62       \accepts VaticanaVoice
  63       \remove Bar_engraver
  64       \consists Custos_engraver
  65       StaffSymbol \set #'line-count = #4
  66 %     StaffSymbol \set #'width = #60.0 % FIXME: how to get same as \linewidth?
  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 }