9 \description "Hard coded entry point for LilyPond. Cannot be tuned."
10 \grobdescriptions #all-grob-descriptions
14 \type "Engraver_group"
17 \consists "Output_property_engraver"
18 \consists "Bar_engraver"
19 %% Bar_engraver must be first so default bars aren't overwritten
22 \consists "Font_size_engraver"
23 \consists "Volta_engraver"
24 \consists "Separating_line_group_engraver"
25 \consists "Dot_column_engraver"
27 %% perhaps move to Voice context?
28 \consists "Ottava_spanner_engraver"
29 \consists "Clef_engraver"
30 \consists "Key_engraver"
31 \consists "Time_signature_engraver"
32 \consists "Ledger_line_engraver"
33 \consists "Staff_symbol_engraver"
34 \consists "Collision_engraver"
35 \consists "Rest_collision_engraver"
36 \consists "Accidental_engraver"
37 \consists "Piano_pedal_engraver"
38 \consists "Instrument_name_engraver"
39 \consists "String_number_engraver"
40 \consists "Axis_group_engraver"
42 minimumVerticalExtent = #'(-4 . 4)
43 extraVerticalExtent = ##f
45 localKeySignature = #'()
48 %% explicitly set instrument, so we don't get
49 %% weird effects when doing instrument names for
59 \description "Handles clefs, bar lines, keys, accidentals. It can contain
60 @code{Voice} contexts."
66 \type "Engraver_group"
69 \remove "Accidental_engraver"
70 \remove "Ottava_spanner_engraver"
71 \remove "Key_engraver"
72 \remove "Piano_pedal_engraver"
73 \remove "String_number_engraver"
75 \description "Handles typesetting for percussion."
79 \defaultchild DrumVoice
81 clefGlyph = #"clefs.percussion"
83 \override Script #'staff-padding = #0.75
88 \type "Engraver_group"
90 \consists "System_start_delimiter_engraver"
91 systemStartDelimiter = #'SystemStartBracket
95 \accepts "RhythmicStaff"
100 \defaultchild "Staff"
107 \defaultchild "Staff"
108 \accepts "InnerChoirStaff"
109 \accepts "InnerStaffGroup"
110 \description "Identical to @code{StaffGroup} except that the
111 contained staves are not connected vertically."
117 \type "Engraver_group"
119 minimumVerticalExtent = ##f
120 extraVerticalExtent = ##f
122 localKeySignature = #'()
125 squashedPosition = #0
129 \override BarLine #'bar-size = #4
130 \override VoltaBracket #'staff-padding = #3
131 \override StaffSymbol #'line-count = #1
133 \override Stem #'neutral-direction = #UP
134 \override Beam #'neutral-direction = #UP
136 \consists "Output_property_engraver"
137 \consists "Font_size_engraver"
138 \consists "Volta_engraver"
139 \consists "Separating_line_group_engraver"
140 \consists "Dot_column_engraver"
141 \consists "Bar_engraver"
142 \consists "Ledger_line_engraver"
143 \consists "Staff_symbol_engraver"
144 \consists "Pitch_squash_engraver"
145 \consists "Time_signature_engraver"
146 \consists "Instrument_name_engraver"
147 \consists "Axis_group_engraver"
151 \defaultchild "Voice"
154 A context like @code{Staff} but for printing rhythms. Pitches are
155 ignored; the notes are printed on one line.
161 \type "Engraver_group"
165 Corresponds to a voice on a staff. This context handles the
166 conversion of dynamic signs, stems, beams, super- and subscripts,
167 slurs, ties, and rests.
169 You have to instantiate this explicitly if you want to have
170 multiple voices on the same staff."
172 localKeySignature = #'()
173 \consists "Font_size_engraver"
175 \consists "Pitched_trill_engraver"
176 \consists "Output_property_engraver"
177 \consists "Arpeggio_engraver"
178 \consists "Multi_measure_rest_engraver"
179 \consists "Text_spanner_engraver"
180 \consists "Trill_spanner_engraver"
181 \consists "Grob_pq_engraver"
182 \consists "Forbid_line_break_engraver"
183 \consists "Laissez_vibrer_engraver"
184 \consists "Note_head_line_engraver"
185 \consists "Glissando_engraver"
186 \consists "Ligature_bracket_engraver"
187 \consists "Breathing_sign_engraver"
188 %% \consists "Rest_engraver"
189 \consists "Note_heads_engraver"
190 \consists "Rest_engraver"
192 \consists "Stem_engraver"
193 \consists "Beam_engraver"
194 \consists "Grace_beam_engraver"
195 \consists "Auto_beam_engraver"
196 \consists "New_fingering_engraver"
197 \consists "Chord_tremolo_engraver"
198 \consists "Percent_repeat_engraver"
199 \consists "Slash_repeat_engraver"
200 \consists "Melisma_translator"
201 \consists "Part_combine_engraver"
203 \consists "Text_engraver"
204 \consists "Dynamic_engraver"
205 \consists "Fingering_engraver"
207 \consists "Script_engraver"
208 \consists "Script_column_engraver"
209 \consists "Rhythmic_column_engraver"
210 \consists "Phrasing_slur_engraver"
211 \consists "Cluster_spanner_engraver"
212 \consists "Slur_engraver"
213 \consists "Tie_engraver"
214 \consists "Tuplet_engraver"
215 \consists "Grace_engraver"
217 \consists "Skip_event_swallow_translator"
226 \override Stem #'lengths = #'(2.5 2.5 3.0 3.0)
234 \description "A voice on a percussion staff."
235 \remove "Arpeggio_engraver"
236 \consists "Multi_measure_rest_engraver"
237 \consists "Text_spanner_engraver"
238 \consists "Grob_pq_engraver"
240 \remove "Note_head_line_engraver"
241 \remove "Glissando_engraver"
242 \remove "Ligature_bracket_engraver"
243 \remove "Note_heads_engraver"
244 \consists "Drum_notes_engraver"
245 \remove "New_fingering_engraver"
247 \remove "Fingering_engraver"
249 \remove "Cluster_spanner_engraver"
250 \consists "Tuplet_engraver"
252 \consists "Skip_event_swallow_translator"
256 \type "Engraver_group"
258 localKeySignature = #'()
260 \description " A group of staffs, with a brace on the left
261 side, grouping the staves together. The bar lines of the
262 contained staves are connected vertically. "
264 \consists "Span_bar_engraver"
265 \consists "Span_arpeggio_engraver"
266 \consists "System_start_delimiter_engraver"
267 systemStartDelimiter = #'SystemStartBrace
278 "Just like @code{GrandStaff} but with a forced distance between
279 the staves, so cross staff beaming and slurring can be used."
281 verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
282 \override VerticalAlignment #'forced-distance = #12
283 \override VerticalAlignment #'self-alignment-Y = #0
284 \override VerticalAlignment #'after-line-breaking-callback
285 = #Align_interface::stretch_after_break
287 \consists "Vertical_align_engraver"
288 \consists "Instrument_name_engraver"
295 \type "Engraver_group"
296 \name InnerStaffGroup
298 \consists "Span_bar_engraver"
299 \consists "Span_arpeggio_engraver"
300 \consists "Output_property_engraver"
301 systemStartDelimiter = #'SystemStartBracket
303 \consists "System_start_delimiter_engraver"
305 \defaultchild "Staff"
307 \accepts "RhythmicStaff"
309 \accepts "GrandStaff"
310 \accepts "PianoStaff"
313 \accepts "ChordNames"
322 "Groups staffs while adding a bracket on the left side, grouping
323 the staves together. The bar lines of the contained staves are
324 connected vertically. "
326 \accepts "InnerChoirStaff"
327 \accepts "ChoirStaff"
328 \accepts "InnerStaffGroup"
329 \accepts "FiguredBass"
334 \type "Engraver_group"
335 minimumVerticalExtent = #'(-1.2 . 2.4)
336 extraVerticalExtent = ##f
339 \description " Corresponds to a voice with lyrics. Handles the
340 printing of a single line of lyrics. "
343 \consists "Separating_line_group_engraver"
344 \consists "Lyric_engraver"
345 \consists "Extender_engraver"
346 \consists "Hyphen_engraver"
347 \consists "Stanza_number_engraver"
348 \consists "Vocal_name_engraver"
349 \consists "Skip_event_swallow_translator"
350 \consists "Font_size_engraver"
351 \consists "Hara_kiri_engraver"
352 \override RemoveEmptyVerticalGroup #'remove-first = ##t
353 \override SeparationItem #'padding = #0.2
357 \type "Engraver_group"
359 \consists "Axis_group_engraver"
361 minimumVerticalExtent = ##f
362 extraVerticalExtent = ##f
366 \consists "Rest_swallow_translator"
367 \consists "Skip_event_swallow_translator"
368 \consists "Tie_engraver"
369 \consists "Note_name_engraver"
370 \consists "Separating_line_group_engraver"
374 \type "Engraver_group"
376 \description "Typesets chord names."
378 \consists "Volta_engraver"
380 \consists "Rest_swallow_translator"
381 \consists "Output_property_engraver"
382 \consists "Separating_line_group_engraver"
383 \consists "Chord_name_engraver"
384 \consists "Skip_event_swallow_translator"
385 \consists "Hara_kiri_engraver"
387 voltaOnThisStaff = ##f
388 minimumVerticalExtent = #'(0 . 2.5)
389 extraVerticalExtent = ##f
390 \override SeparatingGroupSpanner #'padding = #0.8
391 \override RemoveEmptyVerticalGroup #'remove-first = ##t
396 RemoveEmptyStaffContext= \context {
398 \remove "Axis_group_engraver"
399 \consists "Hara_kiri_engraver"
400 \override Beam #'auto-knee-gap = #'()
403 AncientRemoveEmptyStaffContext = \context {
404 %% why not add by default?
406 \RemoveEmptyStaffContext
407 \accepts "VaticanaVoice"
408 \accepts "GregorianTranscriptionVoice"
409 \accepts "MensuralVoice"
416 \description "This is the top level notation context. No
417 other context can contain a @code{Score} context. This context
418 handles the administration of time signatures. It also makes sure
419 that items such as clefs, time signatures, and key-signatures are
420 aligned across staves.
422 You cannot explicitly instantiate a Score context (since it is
423 not contained in any other context). It is instantiated
424 automatically when an output definition (a @code{\score} or
425 @code{\layout} block) is processed."
428 \consists "Paper_column_engraver"
429 \consists "Vertically_spaced_contexts_engraver"
430 \consists "Repeat_acknowledge_engraver"
431 \consists "Staff_collecting_engraver"
433 %% move the alias along with the engraver.
435 \consists "Timing_translator"
436 \consists "Default_bar_line_engraver"
437 \consists "Output_property_engraver"
438 \consists "System_start_delimiter_engraver"
439 \consists "Mark_engraver"
440 \consists "Metronome_mark_engraver"
441 \consists "Break_align_engraver"
442 \consists "Spacing_engraver"
443 \consists "Vertical_align_engraver"
444 \consists "Stanza_number_align_engraver"
445 \consists "Bar_number_engraver"
446 \consists "Span_arpeggio_engraver"
448 \defaultchild "Staff"
450 \accepts "RhythmicStaff"
452 \accepts "VaticanaStaff"
453 \accepts "GregorianTranscriptionStaff"
454 \accepts "MensuralStaff"
455 \accepts "StaffGroup"
458 \accepts "ChordNames"
459 \accepts "GrandStaff"
460 \accepts "ChoirStaff"
461 \accepts "PianoStaff"
464 \accepts "FiguredBass"
467 soloIIText = #"Solo II"
469 printPartCombineTexts = ##t
470 systemStartDelimiter =#'SystemStartBar
472 drumStyleTable = #drums-style
474 melismaBusyProperties = #default-melisma-properties
476 clefGlyph = #"clefs.G"
478 middleCPosition = #-6
481 defaultBarType = #"|"
482 barNumberVisibility = #first-bar-number-invisible
485 explicitClefVisibility = #all-visible
486 explicitKeySignatureVisibility = #all-visible
487 autoBeamSettings = #default-auto-beam-settings
489 autoBeamCheck = #default-auto-beam-check
490 scriptDefinitions = #default-script-alist
492 verticalAlignmentChildCallback = #Align_interface::alignment_callback
494 pedalSustainStrings = #'("Ped." "*Ped." "*")
495 pedalSustainStyle = #'text
496 pedalUnaCordaStrings = #'("una corda" "" "tre corde")
497 pedalUnaCordaStyle = #'text
499 %% These are in ordinary italic font, including the *,
500 %% but they are unlikely to be used,
501 %% as the default pedal-style for SostenutoPedal is 'mixed':
502 %% i.e. Sost. Ped_____________________
503 pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
504 pedalSostenutoStyle = #'mixed
507 harmonicAccidentals = ##t
508 fingeringOrientations = #'(up down)
509 stringNumberOrientations = #'(up down)
510 tupletNumberFormatFunction = #denominator-tuplet-formatter
511 markFormatter = #format-mark-letters
516 autoAccidentals = #'(Staff (same-octave . 0))
517 autoCautionaries = #'()
519 printKeyCancellation = ##t
520 keyAlterationOrder = #`(
521 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
522 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
523 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
524 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
527 barCheckSynchronize = ##f
530 chordNameFunction = #ignatzek-chord-names
531 majorSevenSymbol = #whiteTriangleMarkup
532 chordNameSeparator = #(make-simple-markup "/")
533 chordNameExceptions = #ignatzekExceptions
534 chordNoteNamer = #'()
535 chordRootNamer = #note-name->markup
536 chordPrefixSpacer = #0
537 chordNameExceptionsFull = #fullJazzExceptions
538 chordNameExceptionsPartial = #partialJazzExceptions
541 bassStaffProperties = #'((assign clefGlyph "clefs.F")
542 (assign clefPosition 2)
543 (assign middleCPosition 6))
545 stringOneTopmost = ##t
548 %% One may change the strings tuning as following :
549 %% The lenght of the list must be equal to the number of string
550 stringTunings = #guitar-tuning
551 tablatureFormat = #fret-number-tablature-format
554 newFiguredBassFormatter = #format-new-bass-figure
555 metronomeMarkFormatter = #format-metronome-markup
557 (Voice Stem direction 1)
558 ;; TODO: should take from existing definition.
559 ;; c&p from define-grobs.scm
561 (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
562 (Voice Stem stem-shorten (0.4 0.4))
563 (Voice Stem font-size -3)
564 (Voice NoteHead font-size -3)
565 (Voice Dots font-size -3)
566 (Voice Stem beamed-lengths
567 ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
568 (Voice Stem beamed-minimum-free-lengths
569 ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
570 (Voice Stem beamed-extreme-minimum-free-lengths
571 ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
573 (Voice Stem no-stem-extend #t)
574 (Voice Beam thickness 0.384)
575 (Voice Beam space-function ,(lambda (beam mult)
576 (* 0.8 (Beam::space_function
578 (Voice Accidental font-size -4)
579 (Voice Slur direction -1)
582 keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface)
583 quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event)
584 instrumentTransposition = #(ly:make-pitch 0 0 0)
586 verticallySpacedContexts = #'(Staff)
595 \type "Engraver_group"
598 %% \consists "Figured_bass_engraver"
599 \consists "New_figured_bass_engraver"
600 \consists "Note_swallow_translator"
601 \consists "Skip_event_swallow_translator"
602 \consists "Separating_line_group_engraver"
603 \consists "Hara_kiri_engraver"
604 \override RemoveEmptyVerticalGroup #'remove-first = ##t
605 minimumVerticalExtent = #'(-0.5 . 2.5)
610 \type "Engraver_group"
612 %% don't want to route anything out of here:
615 \consists "Swallow_engraver"
616 \description "Silently discards all musical information given to this context. "
623 \consists "Tab_note_heads_engraver"
624 \remove "Note_heads_engraver"
625 \remove "Fingering_engraver"
626 \remove "New_fingering_engraver"
628 \description "Context for drawing notes in a Tab staff. "
630 %% Draws all stems/beams out of the staff (and not in the middle of the staff !)
631 %% This feature is now disabled because most of the tab does not use it.
632 %%\override Beam #'damping = #100000
633 %%\override Stem #'up-to-staff = ##t
635 %% TabStaff increase the staff-space, which in turn
636 %% increases beam thickness and spacing; beams are
637 %% too big. We have to adjust the beam settings:
638 \override Beam #'thickness = #0.32
639 \override Beam #'space-function =
640 #(lambda (beam mult) (* 0.62 (Beam::space_function beam mult)))
642 %% No accidental in tablature !
643 \remove Accidental_engraver
651 \remove "Staff_symbol_engraver"
652 \consists "Tab_staff_symbol_engraver"
654 \description "Context for generating tablature. [DOCME]"
657 \defaultchild "TabVoice"
660 \override StaffSymbol #'staff-space = #1.5
662 %% Don't draw stems over the tablature figures !
663 \override Stem #'avoid-note-head = ##t
665 %% No accidental in tablature !
666 \remove "Accidental_engraver"
667 \remove "Key_engraver"
668 \remove "String_number_engraver"
669 %% Special "TAB" clef
670 clefGlyph = #"clefs.tab"
674 %% TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
675 %% but this does not work (is this a bug or intended behaviour?):
677 %% If I try to do so, I get "error: unknown escaped string:
678 %% `\VaticanaStaff'" in params-init.ly. If I also move
679 %% "\context { \Vaticana*Context }" from params-init.ly to the end
680 %% of gregorian-init.ly, then I get "error: parse error, unexpected
681 %% TRANSLATOR: \context { \VaticanaStaff }" in
682 %% gregorian-init.ly. --jr
686 \name "VaticanaVoice"
688 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
690 \remove "Slur_engraver"
691 \remove "Stem_engraver"
692 \remove "Ligature_bracket_engraver"
693 \consists "Vaticana_ligature_engraver"
695 %% Set default head for notes outside of \[ \].
696 \override NoteHead #'style = #'vaticana.punctum
698 %% Put some space before and after divisiones.
699 %% FIXME: This does not seem to show any effect.
700 \override Script #'padding = #0.5
702 %% There are no beams in Gregorian Chant notation.
705 %% Prepare TextSpanner for \episem{Initium|Finis} use.
707 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
708 %% always produce dashed lines, regardless of the style property.
710 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
711 %% required to force the articulation signs being placed vertically
712 %% tightly to the correpsonding note heads.
714 \override TextSpanner #'dash-fraction = #'()
715 \override TextSpanner #'style = #'line
716 \override TextSpanner #'edge-height = #'(0 . 0)
717 \override TextSpanner #'padding = #-0.1
718 \override TextSpanner #'enclose-bounds = #1
719 \override TextSpanner #'edge-text = #'("" . "")
722 %% FIXME: need something like
723 %% \remove "Bar_number_engraver" (which lives on score level)
724 %% for vaticana and gregorian transcription staves
728 \name "VaticanaStaff"
731 \accepts "VaticanaVoice"
732 \defaultchild "VaticanaVoice"
734 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
736 \remove "Time_signature_engraver"
737 \consists "Custos_engraver"
739 %% We can not remove Bar_engraver; otherwise clefs and custodes will
740 %% not show up any more among other line breaking issues.
741 %% Instead, we make the grob transparent.
742 \override BarLine #'transparent = ##t
744 \override StaffSymbol #'line-count = #4
745 \override StaffSymbol #'thickness = #0.6
747 %% FIXME: unit on StaffSymbol's width should be \linewidth.
748 %% \override StaffSymbol #'width = #60.0
750 %% Choose vaticana do clef on 3rd line as default.
751 clefGlyph = #"clefs.vaticana.do"
756 %% Select vaticana style font.
757 \override KeySignature #'style = #'vaticana
758 \override Accidental #'style = #'vaticana
759 \override Custos #'style = #'vaticana
760 \override Custos #'neutral-position = #3
761 \override Custos #'neutral-direction = #DOWN
763 %% Score.timing = ##f
764 %% Score.barAlways = ##t
769 \name "GregorianTranscriptionVoice"
772 %% Removing ligature bracket engraver without replacing it by some
773 %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
774 %% warning for every "\[" and "\]". Therefore, we make the grob
775 %% transparent instead.
776 \override LigatureBracket #'transparent = ##t
778 %% Put some space before and after divisiones.
779 %% FIXME: This does not seem to show any effect.
780 \override Script #'padding = #0.5
782 %% There are no beams in Gregorian Chant notation.
785 %% Prepare TextSpanner for \episem{Initium|Finis} use.
787 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
788 %% always produce dashed lines, regardless of the style property.
790 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
791 %% required to force the articulation signs being placed vertically
792 %% tightly to the correpsonding note heads.
794 \override TextSpanner #'dash-fraction = #'()
795 \override TextSpanner #'style = #'line
796 \override TextSpanner #'edge-height = #'(0 . 0)
797 \override TextSpanner #'padding = #-0.1
798 \override TextSpanner #'enclose-bounds = #1
799 \override TextSpanner #'edge-text = #'("" . "")
804 \name "GregorianTranscriptionStaff"
807 \accepts "GregorianTranscriptionVoice"
808 \defaultchild "GregorianTranscriptionVoice"
810 %% We can not remove Bar_engraver; otherwise clefs and custodes will
811 %% not show up any more among other line breaking issues.
812 %% Instead, we make the grob transparent.
813 \override BarLine #'transparent = ##t
818 \name "MensuralVoice"
820 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style."
822 \remove "Slur_engraver"
823 \remove "Ligature_bracket_engraver"
824 \consists "Mensural_ligature_engraver"
826 %% Set default head for notes outside of \[ \].
827 \override NoteHead #'style = #'petrucci
829 %% There are no beams in mensural notation.
835 \name "MensuralStaff"
838 \defaultchild "MensuralVoice"
839 \accepts "MensuralVoice"
840 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style."
842 \consists "Custos_engraver"
844 %% We can not remove Bar_engraver; otherwise clefs and custodes will
845 %% not show up any more among other line breaking issues.
846 %% Instead, we make the grob transparent.
847 \override BarLine #'transparent = ##t
849 \override StaffSymbol #'thickness = #0.6
851 %% FIXME: unit on StaffSymbol's width should be \linewidth.
852 %% \override StaffSymbol #'width = #60.0
854 %% Choose petrucci g clef on 2nd line as default.
855 clefGlyph = #"clefs.petrucci.g"
856 middleCPosition = #-6
860 %% Select mensural style font.
861 \override TimeSignature #'style = #'mensural
862 \override KeySignature #'style = #'mensural
863 \override Accidental #'style = #'mensural
864 \override Custos #'style = #'mensural
865 \override Custos #'neutral-position = #3
866 \override Custos #'neutral-direction = #DOWN
868 %% Score.timing = ##f
869 %% Score.barAlways = ##t
873 RemoveEmptyRhythmicStaffContext= \context {
875 \remove "Axis_group_engraver"
876 \consists "Hara_kiri_engraver"