3 title = "vaticana ligature test"
8 \include "gregorian-init.ly"
11 % FIXME: custodes and clefs do not show on all staves
15 % FIXME: move VaticnaStaff/VaticanaVoice definition to engraver-init.ly?
16 % Or rather to gregorian-init.ly?
19 cantus = \notes \relative c {
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 \]
29 verba = \context Lyrics = verba \lyrics {
30 Al-4*3 le-4*15 lu-4*5 ia.4*2
34 \context VaticanaStaff <
35 \context VaticanaVoice <
41 stafflinethickness = \staffspace / 5.0
45 % FIXME: ragged-right alignment is currently broken
48 % gourlay_maxmeasures = 30.
49 % arithmetic_basicspace = 3.8
50 % arithmetic_multiplier = 8.\pt
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
66 \accepts VaticanaVoice
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
81 \accepts VaticanaVoice
85 \accepts VaticanaStaff
86 \remove Bar_number_engraver