3 title = "Puer natus est nobis"
4 subtitle = "Antiphona ad introitum VII"
7 Demonstrate gregorian chant notation
9 This file pretty nicely demonstrates what still does
10 not work among ligatures: (i) horizontal spacing between ligatures and
11 lyrics aligment is broken; (ii) the clef does not show on each line;
12 (iii) lily crashes when removing Stem_engraver, but still using
13 Slur_engraver (this is useful needed for the \addlyrics feature when
14 no slurs are to be typeset); (iv) episem causes a parse error (this
15 used to work a while ago); (v) pitches are typeset half a staff space
16 too high (the second note is a d, but it appears on the line of the do
17 clef; this bug must have been introduced only recently); (vi) support
18 for augmentum dots is missing; (vii) accidentals must be placed before
19 the ligature (not demonstrated in this example)."
24 \include "gregorian-init.ly"
26 %%% N.B.: Yes, I know, the formatting of the following looks awful,
27 %%% but this is intentional for editorial purposes (simplifies some
28 %%% global search/replace operations in emacs).
30 cantus = \notes \transpose c c {
105 verba = \context Lyrics = verba \lyrics {
106 Pu- er na- tus est no- bis,
107 et fi- li- us da- tus est no- bis:
108 cu- ius im- pe- ri- um
112 \context StaffGroup <
113 \context VaticanaStaff <
114 \context VaticanaVoice <
122 stafflinethickness = \staffspace / 5.0
128 % width = 15.0 \cm %%% no effect?
135 % Can not `\remove "Slur_engraver"', since \addlyrics needs
136 % slurs working. Hence, set slurs transparent instead.
137 Slur \override #'transparent = ##t
139 % N.B.: Warnings of the type "Degenerate bow: infinite steepness
140 % reqd" arise from the fact that all noteheads of a ligature are
141 % in the same paper column. Therefore, the (transparent) slurs
142 % often start and end in the same column, producing the above
143 % warning. TODO: supress this warning; we need slurs only for
144 % \addlyrics, not for printing.
146 % `\remove "Stem_engraver"' currently produces a crash (see
147 % below). Hence, set stems transparent instead.
148 Stem \set #'transparent = ##t
149 % \remove "Stem_engraver"
155 When removing Stem_engraver from VoiceContext (but still using
156 Slur_engraver), lily will crash while trying to typeset slurs, since
157 `()' is not a valid stem:
160 ?: 0* [Slur::after_line_breaking #<Grob Slur >]
161 ?: 1* [#<procedure #f (slur dir)> #<Grob Slur > -1]
162 In /home/reuter/project/lilypond-1.7/share/lilypond/scm/slur.scm:
164 43: 3* [attached-to-stem #<Grob Slur > -1]
165 10: 4 (let* ((note-columns #) (col #) (stem #)) (and (eq? col #) stem ...))
167 16: 5 [ly:get-grob-property () heads]
169 /home/reuter/project/lilypond-1.7/share/lilypond/scm/slur.scm:16:6: In procedure ly_get_grob_property in expression (ly:get-grob-property stem (quote heads)):
170 /home/reuter/project/lilypond-1.7/share/lilypond/scm/slur.scm:16:6: Wrong type argument in position 1 (expecting grob): ()
174 \remove Ligature_bracket_engraver
175 \consists Vaticana_ligature_engraver
176 NoteHead \set #'style = #'vaticana_punctum
177 Script \set #'padding = #0.0
179 % prepare TextSpanner for \episem{Initium|Finis} use
180 TextSpanner \set #'style = #'line
181 TextSpanner \set #'edge-height = #'(0 . 0)
182 TextSpanner \set #'padding = #0.5
183 TextSpanner \set #'edge-text = #'("" . "")
187 \name GregorianTransciptionVoice
189 Stem \set #'transparent = ##t
190 % \remove "Stem_engraver"
191 % Slur \override #'transparent = ##t
192 \remove "Slur_engraver"
196 \name GregorianTranscriptionStaff
198 \accepts GregorianTranscriptionVoice
199 BarLine \override #'transparent = ##t
205 \accepts VaticanaVoice
207 \consists Custos_engraver
208 clefGlyph = #"clefs-vaticana_do"
209 centralCPosition = #0
212 StaffSymbol \set #'line-count = #4
213 StaffSymbol \set #'width = #60.0 % FIXME: unit should be \linewidth
214 TimeSignature \set #'transparent = ##t
215 KeySignature \set #'style = #'vaticana
216 Accidental \set #'style = #'vaticana
217 Custos \set #'style = #'vaticana
218 Custos \set #'neutral-position = #3
219 Custos \set #'neutral-direction = #-1
220 Custos \set #'adjust-if-on-staffline = ##t
223 \HaraKiriStaffContext
224 \accepts VaticanaVoice
225 \accepts GregorianTranscriptionVoice
229 \accepts VaticanaStaff
230 \accepts GregorianTranscriptionStaff
231 \remove Bar_number_engraver
232 % SpacingSpanner \set #'spacing-increment = #0.5
235 % Don't do this except for transcription -- it will produce