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"
41 \consists "Figured_bass_engraver"
42 \consists "Figured_bass_position_engraver"
44 \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4)
45 extraVerticalExtent = ##f
47 localKeySignature = #'()
50 %% explicitly set instrument, so we don't get
51 %% weird effects when doing instrument names for
61 \description "Handles clefs, bar lines, keys, accidentals. It can contain
62 @code{Voice} contexts."
68 \type "Engraver_group"
72 \remove "Accidental_engraver"
73 \remove "Ottava_spanner_engraver"
74 \remove "Key_engraver"
75 \remove "Piano_pedal_engraver"
76 \remove "String_number_engraver"
78 \description "Handles typesetting for percussion."
82 \defaultchild "DrumVoice"
84 clefGlyph = #"clefs.percussion"
86 \override Script #'staff-padding = #0.75
91 \type "Engraver_group"
92 \name "InnerChoirStaff"
93 \consists "System_start_delimiter_engraver"
94 systemStartDelimiter = #'SystemStartBracket
100 \accepts "RhythmicStaff"
101 \accepts "GrandStaff"
102 \accepts "PianoStaff"
104 \accepts "ChordNames"
105 \defaultchild "Staff"
112 \defaultchild "Staff"
113 \accepts "InnerChoirStaff"
114 \accepts "InnerStaffGroup"
115 \description "Identical to @code{StaffGroup} except that the
116 contained staves are not connected vertically."
121 \type "Engraver_group"
123 \override VerticalAxisGroup #'minimum-Y-extent = ##f
124 extraVerticalExtent = ##f
126 localKeySignature = #'()
129 squashedPosition = #0
133 \override BarLine #'bar-size = #4
134 \override VoltaBracket #'staff-padding = #3
135 \override StaffSymbol #'line-count = #1
137 \override Stem #'neutral-direction = #UP
138 \override Beam #'neutral-direction = #UP
140 \consists "Output_property_engraver"
141 \consists "Font_size_engraver"
142 \consists "Volta_engraver"
143 \consists "Separating_line_group_engraver"
144 \consists "Dot_column_engraver"
145 \consists "Bar_engraver"
146 \consists "Staff_symbol_engraver"
147 \consists "Pitch_squash_engraver"
148 \consists "Time_signature_engraver"
149 \consists "Instrument_name_engraver"
150 \consists "Axis_group_engraver"
151 \consists "Ledger_line_engraver"
155 \defaultchild "Voice"
158 A context like @code{Staff} but for printing rhythms. Pitches are
159 ignored; the notes are printed on one line.
165 \type "Engraver_group"
169 Corresponds to a voice on a staff. This context handles the
170 conversion of dynamic signs, stems, beams, super- and subscripts,
171 slurs, ties, and rests.
173 You have to instantiate this explicitly if you want to have
174 multiple voices on the same staff."
176 localKeySignature = #'()
177 \consists "Font_size_engraver"
179 \consists "Pitched_trill_engraver"
180 \consists "Output_property_engraver"
181 \consists "Arpeggio_engraver"
182 \consists "Multi_measure_rest_engraver"
183 \consists "Text_spanner_engraver"
184 \consists "Trill_spanner_engraver"
185 \consists "Grob_pq_engraver"
186 \consists "Forbid_line_break_engraver"
187 \consists "Laissez_vibrer_engraver"
188 \consists "Repeat_tie_engraver"
189 \consists "Note_head_line_engraver"
190 \consists "Glissando_engraver"
191 \consists "Ligature_bracket_engraver"
192 \consists "Breathing_sign_engraver"
193 \consists "Note_heads_engraver"
194 \consists "Rest_engraver"
196 %% switch on to make stem directions interpolate for the
198 % \consists "Melody_engraver"
200 \consists "Stem_engraver"
201 \consists "Beam_engraver"
202 \consists "Grace_beam_engraver"
203 \consists "Auto_beam_engraver"
204 \consists "New_fingering_engraver"
205 \consists "Chord_tremolo_engraver"
206 \consists "Percent_repeat_engraver"
207 \consists "Slash_repeat_engraver"
208 \consists "Melisma_translator"
209 \consists "Part_combine_engraver"
211 \consists "Text_engraver"
212 \consists "Dynamic_engraver"
213 \consists "Fingering_engraver"
214 \consists "Fall_engraver"
216 \consists "Script_engraver"
217 \consists "Script_column_engraver"
218 \consists "Rhythmic_column_engraver"
219 \consists "Phrasing_slur_engraver"
220 \consists "Cluster_spanner_engraver"
221 \consists "Slur_engraver"
222 \consists "Tie_engraver"
223 \consists "Tuplet_engraver"
224 \consists "Grace_engraver"
226 \consists "Skip_event_swallow_translator"
235 \override Stem #'length-fraction = #(magstep -4)
236 \override Beam #'length-fraction = #(magstep -4)
244 \description "A voice on a percussion staff."
245 \remove "Arpeggio_engraver"
246 \consists "Multi_measure_rest_engraver"
247 \consists "Text_spanner_engraver"
248 \consists "Grob_pq_engraver"
250 \remove "Note_head_line_engraver"
251 \remove "Glissando_engraver"
252 \remove "Ligature_bracket_engraver"
253 \remove "Note_heads_engraver"
254 \consists "Drum_notes_engraver"
255 \remove "New_fingering_engraver"
257 \remove "Fingering_engraver"
259 \remove "Cluster_spanner_engraver"
260 \consists "Tuplet_engraver"
262 \consists "Skip_event_swallow_translator"
266 \type "Engraver_group"
268 localKeySignature = #'()
270 \description " A group of staffs, with a brace on the left
271 side, grouping the staves together. The bar lines of the
272 contained staves are connected vertically. "
274 \consists "Span_bar_engraver"
275 \consists "Span_arpeggio_engraver"
276 \consists "System_start_delimiter_engraver"
277 systemStartDelimiter = #'SystemStartBrace
288 "Just like @code{GrandStaff} but with a forced distance between
289 the staves, so cross staff beaming and slurring can be used."
291 \override VerticalAlignment #'forced-distance = #12
292 \override VerticalAlignment #'self-alignment-Y = #0
294 \consists "Vertical_align_engraver"
295 \consists "Instrument_name_engraver"
302 \type "Engraver_group"
303 \name InnerStaffGroup
305 \consists "Span_bar_engraver"
306 \consists "Span_arpeggio_engraver"
307 \consists "Output_property_engraver"
308 systemStartDelimiter = #'SystemStartBracket
310 \consists "System_start_delimiter_engraver"
312 \defaultchild "Staff"
314 \accepts "RhythmicStaff"
316 \accepts "GrandStaff"
317 \accepts "PianoStaff"
320 \accepts "ChordNames"
329 "Groups staffs while adding a bracket on the left side, grouping
330 the staves together. The bar lines of the contained staves are
331 connected vertically. StaffGroup only consists of a collection of
332 staffs, with a bracket in front and spanning bar lines. "
334 \accepts "InnerChoirStaff"
335 \accepts "ChoirStaff"
336 \accepts "InnerStaffGroup"
337 \accepts "FiguredBass"
342 \type "Engraver_group"
343 \override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 2.4)
344 extraVerticalExtent = ##f
347 \description " Corresponds to a voice with lyrics. Handles the
348 printing of a single line of lyrics. "
351 \consists "Lyric_engraver"
352 \consists "Extender_engraver"
353 \consists "Hyphen_engraver"
354 \consists "Stanza_number_engraver"
355 \consists "Instrument_name_engraver"
356 \consists "Skip_event_swallow_translator"
357 \consists "Font_size_engraver"
358 \consists "Hara_kiri_engraver"
359 \override VerticalAxisGroup #'remove-first = ##t
360 \override VerticalAxisGroup #'remove-empty = ##t
361 \override SeparationItem #'padding = #0.2
362 \override InstrumentName #'self-alignment-Y = ##f
364 %% sync with define-grobs.scm ;
365 \override InstrumentName #'font-size = #1.0
367 %% make sure that barlines aren't collapsed, when
368 %% Bar_engraver is there.
369 \override BarLine #'bar-size = #0.1
374 \type "Engraver_group"
376 \consists "Axis_group_engraver"
378 \override VerticalAxisGroup #'minimum-Y-extent = ##f
379 extraVerticalExtent = ##f
383 \consists "Rest_swallow_translator"
384 \consists "Skip_event_swallow_translator"
385 \consists "Tie_engraver"
386 \consists "Note_name_engraver"
387 \consists "Separating_line_group_engraver"
391 \type "Engraver_group"
393 \description "Typesets chord names."
395 \consists "Volta_engraver"
397 \consists "Rest_swallow_translator"
398 \consists "Output_property_engraver"
399 \consists "Separating_line_group_engraver"
400 \consists "Chord_name_engraver"
401 \consists "Skip_event_swallow_translator"
402 \consists "Hara_kiri_engraver"
404 voltaOnThisStaff = ##f
405 \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2.5)
406 extraVerticalExtent = ##f
407 \override SeparatingGroupSpanner #'padding = #0.8
408 \override VerticalAxisGroup #'remove-first = ##t
409 \override VerticalAxisGroup #'remove-empty = ##t
414 RemoveEmptyStaffContext= \context {
416 \remove "Axis_group_engraver"
417 \consists "Hara_kiri_engraver"
418 \override Beam #'auto-knee-gap = #'()
419 \override VerticalAxisGroup #'remove-empty = ##t
422 AncientRemoveEmptyStaffContext = \context {
423 %% why not add by default?
425 \RemoveEmptyStaffContext
426 \accepts "VaticanaVoice"
427 \accepts "GregorianTranscriptionVoice"
428 \accepts "MensuralVoice"
432 \type "Score_engraver"
435 \description "This is the top level notation context. No
436 other context can contain a @code{Score} context. This context
437 handles the administration of time signatures. It also makes sure
438 that items such as clefs, time signatures, and key-signatures are
439 aligned across staves.
441 You cannot explicitly instantiate a Score context (since it is
442 not contained in any other context). It is instantiated
443 automatically when an output definition (a @code{\score} or
444 @code{\layout} block) is processed."
447 \consists "Paper_column_engraver"
448 \consists "Vertically_spaced_contexts_engraver"
449 \consists "Repeat_acknowledge_engraver"
450 \consists "Staff_collecting_engraver"
452 %% move the alias along with the engraver.
454 \consists "Timing_translator"
455 \consists "Default_bar_line_engraver"
456 \consists "Output_property_engraver"
457 \consists "System_start_delimiter_engraver"
458 \consists "Mark_engraver"
459 \consists "Metronome_mark_engraver"
460 \consists "Break_align_engraver"
461 \consists "Spacing_engraver"
462 \consists "Grace_spacing_engraver"
463 \consists "Vertical_align_engraver"
464 \consists "Stanza_number_align_engraver"
465 \consists "Bar_number_engraver"
466 \consists "Tweak_engraver"
467 \consists "Parenthesis_engraver"
469 \defaultchild "Staff"
472 \accepts "RhythmicStaff"
474 \accepts "VaticanaStaff"
475 \accepts "GregorianTranscriptionStaff"
476 \accepts "MensuralStaff"
477 \accepts "StaffGroup"
480 \accepts "ChordNames"
481 \accepts "GrandStaff"
482 \accepts "ChoirStaff"
483 \accepts "PianoStaff"
486 \accepts "FiguredBass"
489 soloIIText = #"Solo II"
491 printPartCombineTexts = ##t
492 systemStartDelimiter =#'SystemStartBar
494 drumStyleTable = #drums-style
496 melismaBusyProperties = #default-melisma-properties
498 clefGlyph = #"clefs.G"
500 middleCPosition = #-6
503 defaultBarType = #"|"
504 barNumberVisibility = #first-bar-number-invisible
507 explicitClefVisibility = #all-visible
508 explicitKeySignatureVisibility = #all-visible
509 autoBeamSettings = #default-auto-beam-settings
511 autoBeamCheck = #default-auto-beam-check
512 scriptDefinitions = #default-script-alist
514 pedalSustainStrings = #'("Ped." "*Ped." "*")
515 pedalSustainStyle = #'text
516 pedalUnaCordaStrings = #'("una corda" "" "tre corde")
517 pedalUnaCordaStyle = #'text
519 %% These are in ordinary italic font, including the *,
520 %% but they are unlikely to be used,
521 %% as the default pedal-style for SostenutoPedal is 'mixed':
522 %% i.e. Sost. Ped_____________________
523 pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
524 pedalSostenutoStyle = #'mixed
526 harmonicAccidentals = ##t
527 fingeringOrientations = #'(up down)
528 stringNumberOrientations = #'(up down)
529 markFormatter = #format-mark-letters
534 autoAccidentals = #'(Staff (same-octave . 0))
535 autoCautionaries = #'()
537 printKeyCancellation = ##t
538 keyAlterationOrder = #`(
539 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
540 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
541 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
542 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
545 barCheckSynchronize = ##f
548 chordNameFunction = #ignatzek-chord-names
549 majorSevenSymbol = #whiteTriangleMarkup
550 chordNameSeparator = #(make-simple-markup "/")
551 chordNameExceptions = #ignatzekExceptions
552 chordNoteNamer = #'()
553 chordRootNamer = #note-name->markup
554 chordPrefixSpacer = #0
555 chordNameExceptionsFull = #fullJazzExceptions
556 chordNameExceptionsPartial = #partialJazzExceptions
559 bassStaffProperties = #'((assign clefGlyph "clefs.F")
560 (assign clefPosition 2)
561 (assign middleCPosition 6))
563 stringOneTopmost = ##t
566 %% One may change the strings tuning as following :
567 %% The lenght of the list must be equal to the number of string
568 stringTunings = #guitar-tuning
569 tablatureFormat = #fret-number-tablature-format
572 figuredBassFormatter = #format-bass-figure
573 metronomeMarkFormatter = #format-metronome-markup
575 (Voice Stem direction ,UP)
576 (Voice Stem font-size -3)
577 (Voice NoteHead font-size -3)
578 (Voice Dots font-size -3)
579 (Voice Stem length-fraction 0.8)
580 (Voice Stem no-stem-extend #t)
581 (Voice Beam thickness 0.384)
582 (Voice Beam length-fraction 0.8)
583 (Voice Accidental font-size -4)
584 (Voice Slur direction ,DOWN)
587 keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface)
588 quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event beam-event)
589 instrumentTransposition = #(ly:make-pitch 0 0 0)
591 verticallySpacedContexts = #'(Staff)
593 hairpinToBarline = ##t
602 \type "Engraver_group"
605 \consists "Figured_bass_engraver"
606 \consists "Note_swallow_translator"
607 \consists "Skip_event_swallow_translator"
608 \consists "Separating_line_group_engraver"
609 \consists "Hara_kiri_engraver"
611 \override VerticalAxisGroup #'remove-empty = ##t
612 \override VerticalAxisGroup #'remove-first = ##t
613 \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.5 . 2.5)
618 \type "Engraver_group"
620 %% don't want to route anything out of here:
623 \consists "Swallow_engraver"
624 \description "Silently discards all musical information given to this context. "
631 \consists "Tab_note_heads_engraver"
632 \remove "Note_heads_engraver"
633 \remove "Fingering_engraver"
634 \remove "New_fingering_engraver"
636 \description "Context for drawing notes in a Tab staff. "
638 %% TabStaff increase the staff-space, which in turn
639 %% increases beam thickness and spacing; beams are
640 %% too big. We have to adjust the beam settings:
641 \override Beam #'thickness = #0.32
642 \override Beam #'length-fraction = #0.62
644 %% No accidental in tablature !
645 \remove Accidental_engraver
653 \consists "Tab_staff_symbol_engraver"
655 \description "Context for generating tablature. [DOCME]"
658 \defaultchild "TabVoice"
661 \override StaffSymbol #'staff-space = #1.5
663 %% Don't draw stems over the tablature figures !
664 \override Stem #'avoid-note-head = ##t
666 %% No accidental in tablature !
667 \remove "Accidental_engraver"
668 \remove "Key_engraver"
669 \remove "String_number_engraver"
670 %% Special "TAB" clef
671 clefGlyph = #"clefs.tab"
675 %% TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
676 %% but this does not work (is this a bug or intended behaviour?):
678 %% If I try to do so, I get "error: unknown escaped string:
679 %% `\VaticanaStaff'" in params-init.ly. If I also move
680 %% "\context { \Vaticana*Context }" from params-init.ly to the end
681 %% of gregorian-init.ly, then I get "error: parse error, unexpected
682 %% TRANSLATOR: \context { \VaticanaStaff }" in
683 %% gregorian-init.ly. --jr
687 \name "VaticanaVoice"
689 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
691 \remove "Slur_engraver"
692 \remove "Stem_engraver"
693 \remove "Ligature_bracket_engraver"
694 \consists "Vaticana_ligature_engraver"
696 %% Set default head for notes outside of \[ \].
697 \override NoteHead #'style = #'vaticana.punctum
699 %% Put some space before and after divisiones.
700 %% FIXME: This does not seem to show any effect.
701 \override Script #'padding = #0.5
703 %% There are no beams in Gregorian Chant notation.
706 %% Prepare TextSpanner for \episem{Initium|Finis} use.
708 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
709 %% always produce dashed lines, regardless of the style property.
711 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
712 %% required to force the articulation signs being placed vertically
713 %% tightly to the correpsonding note heads.
715 \override TextSpanner #'dash-fraction = #'()
716 \override TextSpanner #'style = #'line
717 \override TextSpanner #'edge-height = #'(0 . 0)
718 \override TextSpanner #'padding = #-0.1
719 \override TextSpanner #'enclose-bounds = #1
720 \override TextSpanner #'edge-text = #'("" . "")
723 %% FIXME: need something like
724 %% \remove "Bar_number_engraver" (which lives on score level)
725 %% for vaticana and gregorian transcription staves
729 \name "VaticanaStaff"
732 \accepts "VaticanaVoice"
733 \defaultchild "VaticanaVoice"
735 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
737 \remove "Time_signature_engraver"
738 \consists "Custos_engraver"
740 %% We can not remove Bar_engraver; otherwise clefs and custodes will
741 %% not show up any more among other line breaking issues.
742 %% Instead, we make the grob transparent.
743 \override BarLine #'transparent = ##t
745 \override StaffSymbol #'line-count = #4
746 \override StaffSymbol #'thickness = #0.6
748 %% FIXME: unit on StaffSymbol's width should be \linewidth.
749 %% \override StaffSymbol #'width = #60.0
751 %% Choose vaticana do clef on 3rd line as default.
752 clefGlyph = #"clefs.vaticana.do"
757 %% Select vaticana style font.
758 \override KeySignature #'style = #'vaticana
759 \override Accidental #'style = #'vaticana
760 \override Custos #'style = #'vaticana
761 \override Custos #'neutral-position = #3
762 \override Custos #'neutral-direction = #DOWN
767 \name "GregorianTranscriptionVoice"
770 %% Removing ligature bracket engraver without replacing it by some
771 %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
772 %% warning for every "\[" and "\]". Therefore, we make the grob
773 %% transparent instead.
774 \override LigatureBracket #'transparent = ##t
776 %% Put some space before and after divisiones.
777 %% FIXME: This does not seem to show any effect.
778 \override Script #'padding = #0.5
780 %% There are no beams in Gregorian Chant notation.
783 %% Prepare TextSpanner for \episem{Initium|Finis} use.
785 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
786 %% always produce dashed lines, regardless of the style property.
788 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
789 %% required to force the articulation signs being placed vertically
790 %% tightly to the correpsonding note heads.
792 \override TextSpanner #'dash-fraction = #'()
793 \override TextSpanner #'style = #'line
794 \override TextSpanner #'edge-height = #'(0 . 0)
795 \override TextSpanner #'padding = #-0.1
796 \override TextSpanner #'enclose-bounds = #1
797 \override TextSpanner #'edge-text = #'("" . "")
802 \name "GregorianTranscriptionStaff"
805 \accepts "GregorianTranscriptionVoice"
806 \defaultchild "GregorianTranscriptionVoice"
808 %% We can not remove Bar_engraver; otherwise clefs and custodes will
809 %% not show up any more among other line breaking issues.
810 %% Instead, we make the grob transparent.
811 \override BarLine #'transparent = ##t
816 \name "MensuralVoice"
818 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style."
820 \remove "Slur_engraver"
821 \remove "Ligature_bracket_engraver"
822 \consists "Mensural_ligature_engraver"
824 %% Set default head for notes outside of \[ \].
825 \override NoteHead #'style = #'petrucci
827 %% There are no beams in mensural notation.
833 \name "MensuralStaff"
836 \defaultchild "MensuralVoice"
837 \accepts "MensuralVoice"
838 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style."
840 \consists "Custos_engraver"
842 %% We can not remove Bar_engraver; otherwise clefs and custodes will
843 %% not show up any more among other line breaking issues.
844 %% Instead, we make the grob transparent.
845 \override BarLine #'transparent = ##t
847 \override StaffSymbol #'thickness = #0.6
849 %% FIXME: unit on StaffSymbol's width should be \linewidth.
850 %% \override StaffSymbol #'width = #60.0
852 %% Choose petrucci g clef on 2nd line as default.
853 clefGlyph = #"clefs.petrucci.g"
854 middleCPosition = #-6
858 %% Select mensural style font.
859 \override TimeSignature #'style = #'mensural
860 \override KeySignature #'style = #'mensural
861 \override Accidental #'style = #'mensural
862 \override Custos #'style = #'mensural
863 \override Custos #'neutral-position = #3
864 \override Custos #'neutral-direction = #DOWN
868 RemoveEmptyRhythmicStaffContext= \context {
870 \remove "Axis_group_engraver"
871 \override VerticalAxisGroup #'remove-empty = ##t
872 \consists "Hara_kiri_engraver"