9 \description "Hard coded entry point for LilyPond. Cannot be tuned."
10 \grobdescriptions #all-grob-descriptions
14 \type "Engraver_group_engraver"
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_engraver"
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_engraver"
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_engraver"
119 \consists "Output_property_engraver"
121 minimumVerticalExtent = ##f
122 extraVerticalExtent = ##f
124 localKeySignature = #'()
126 \consists "Pitch_squash_engraver"
127 squashedPosition = #0
128 \consists "Separating_line_group_engraver"
132 \override BarLine #'bar-size = #4
133 \override VoltaBracket #'minimum-space = #15
134 \override VoltaBracket #'padding = #5
135 \override StaffSymbol #'line-count = #1
137 \override Stem #'neutral-direction = #1
138 \override Beam #'neutral-direction = #1
139 %% \consists "Repeat_engraver"
140 \consists "Dot_column_engraver"
141 \consists "Volta_engraver"
142 \consists "Bar_engraver"
143 \consists "Time_signature_engraver"
144 \consists "Staff_symbol_engraver"
145 \consists "Ledger_line_engraver"
146 \consists "Instrument_name_engraver"
147 \consists "Axis_group_engraver"
150 \defaultchild "Voice"
152 A context like @code{Staff} but for printing rhythms. Pitches are
153 ignored; the notes are printed on one line.
159 \type "Engraver_group_engraver"
163 Corresponds to a voice on a staff. This context handles the
164 conversion of dynamic signs, stems, beams, super- and subscripts,
165 slurs, ties, and rests.
167 You have to instantiate this explicitly if you want to have
168 multiple voices on the same staff."
170 localKeySignature = #'()
171 \consists "Font_size_engraver"
173 \consists "Output_property_engraver"
174 \consists "Arpeggio_engraver"
175 \consists "Multi_measure_rest_engraver"
176 \consists "Text_spanner_engraver"
177 \consists "Trill_spanner_engraver"
178 \consists "Grob_pq_engraver"
179 \consists "Forbid_line_break_engraver"
181 \consists "Note_head_line_engraver"
182 \consists "Glissando_engraver"
183 \consists "Ligature_bracket_engraver"
184 \consists "Breathing_sign_engraver"
185 %% \consists "Rest_engraver"
186 \consists "Note_heads_engraver"
187 \consists "Rest_engraver"
189 \consists "Stem_engraver"
190 \consists "Beam_engraver"
191 \consists "Grace_beam_engraver"
192 \consists "Auto_beam_engraver"
193 \consists "New_fingering_engraver"
194 \consists "Chord_tremolo_engraver"
195 \consists "Percent_repeat_engraver"
196 \consists "Slash_repeat_engraver"
197 \consists "Melisma_translator"
198 \consists "Part_combine_engraver"
200 \consists "Text_engraver"
201 \consists "Dynamic_engraver"
202 \consists "Fingering_engraver"
204 \consists "Script_engraver"
205 \consists "Script_column_engraver"
206 \consists "Rhythmic_column_engraver"
207 \consists "Phrasing_slur_engraver"
208 \consists "Cluster_spanner_engraver"
209 \consists "Slur_engraver"
210 \consists "Tie_engraver"
211 \consists "Tuplet_engraver"
212 \consists "Grace_engraver"
214 \consists "Skip_event_swallow_translator"
223 \override Stem #'lengths = #'(2.5 2.5 3.0 3.0)
231 \description "A voice on a percussion staff."
232 \remove "Arpeggio_engraver"
233 \consists "Multi_measure_rest_engraver"
234 \consists "Text_spanner_engraver"
235 \consists "Grob_pq_engraver"
237 \remove "Note_head_line_engraver"
238 \remove "Glissando_engraver"
239 \remove "Ligature_bracket_engraver"
240 \remove "Note_heads_engraver"
241 \consists "Rest_engraver"
242 \consists "Drum_notes_engraver"
243 \remove "New_fingering_engraver"
245 \remove "Fingering_engraver"
247 \remove "Cluster_spanner_engraver"
248 \consists "Tuplet_engraver"
250 \consists "Skip_event_swallow_translator"
254 \type "Engraver_group_engraver"
256 localKeySignature = #'()
258 \description " A group of staffs, with a brace on the left
259 side, grouping the staves together. The bar lines of the
260 contained staves are connected vertically. "
262 \consists "Span_bar_engraver"
263 \consists "Span_arpeggio_engraver"
264 \consists "System_start_delimiter_engraver"
265 systemStartDelimiter = #'SystemStartBrace
276 "Just like @code{GrandStaff} but with a forced distance between
277 the staves, so cross staff beaming and slurring can be used."
279 verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
280 \override VerticalAlignment #'forced-distance = #12
281 \override VerticalAlignment #'self-alignment-Y = #0
283 \consists "Vertical_align_engraver"
284 \consists "Instrument_name_engraver"
291 \type "Engraver_group_engraver"
292 \name InnerStaffGroup
294 \consists "Span_bar_engraver"
295 \consists "Span_arpeggio_engraver"
296 \consists "Output_property_engraver"
297 systemStartDelimiter = #'SystemStartBracket
299 \consists "System_start_delimiter_engraver"
301 \defaultchild "Staff"
303 \accepts "RhythmicStaff"
305 \accepts "GrandStaff"
306 \accepts "PianoStaff"
309 \accepts "ChordNames"
318 "Groups staffs while adding a bracket on the left side, grouping
319 the staves together. The bar lines of the contained staves are
320 connected vertically. "
322 \accepts "InnerChoirStaff"
323 \accepts "ChoirStaff"
324 \accepts "InnerStaffGroup"
325 \accepts "FiguredBass"
330 \type "Engraver_group_engraver"
331 minimumVerticalExtent = #'(-1.2 . 2.4)
332 extraVerticalExtent = ##f
335 \description " Corresponds to a voice with lyrics. Handles the
336 printing of a single line of lyrics. "
339 \consists "Separating_line_group_engraver"
340 \consists "Lyric_engraver"
341 \consists "Extender_engraver"
342 \consists "Hyphen_engraver"
343 \consists "Stanza_number_engraver"
344 \consists "Vocal_name_engraver"
345 \consists "Skip_event_swallow_translator"
346 \consists "Font_size_engraver"
347 \consists "Hara_kiri_engraver"
348 \override SeparationItem #'padding = #0.2
352 \type "Engraver_group_engraver"
354 \consists "Axis_group_engraver"
356 minimumVerticalExtent = ##f
357 extraVerticalExtent = ##f
361 \consists "Rest_swallow_translator"
362 \consists "Skip_event_swallow_translator"
363 \consists "Tie_engraver"
364 \consists "Note_name_engraver"
365 \consists "Separating_line_group_engraver"
369 \type "Engraver_group_engraver"
371 \description "Typesets chord names."
373 \consists "Volta_engraver"
375 \consists "Rest_swallow_translator"
376 \consists "Output_property_engraver"
377 \consists "Separating_line_group_engraver"
378 \consists "Chord_name_engraver"
379 \consists "Skip_event_swallow_translator"
380 \consists "Hara_kiri_engraver"
382 voltaOnThisStaff = ##f
383 minimumVerticalExtent = #'(0 . 2.5)
384 extraVerticalExtent = ##f
385 \override SeparatingGroupSpanner #'padding = #0.8
390 RemoveEmptyStaffContext= \context {
392 \remove "Axis_group_engraver"
393 \consists "Hara_kiri_engraver"
394 \override Beam #'auto-knee-gap = #'()
397 AncientRemoveEmptyStaffContext = \context {
398 %% why not add by default?
400 \RemoveEmptyStaffContext
401 \accepts "VaticanaVoice"
402 \accepts "GregorianTranscriptionVoice"
403 \accepts "MensuralVoice"
410 \description "This is the top level notation context. No
411 other context can contain a @code{Score} context. This context
412 handles the administration of time signatures. It also makes sure
413 that items such as clefs, time signatures, and key-signatures are
414 aligned across staves.
416 You cannot explicitly instantiate a Score context (since it is
417 not contained in any other context). It is instantiated
418 automatically when an output definition (a @code{\score} or
419 @code{\layout} block) is processed."
421 \consists "Repeat_acknowledge_engraver"
422 \consists "Staff_collecting_engraver"
424 %% move the alias along with the engraver.
426 \consists "Timing_engraver"
428 \consists "Output_property_engraver"
429 \consists "System_start_delimiter_engraver"
430 \consists "Mark_engraver"
431 \consists "Metronome_mark_engraver"
432 \consists "Break_align_engraver"
433 \consists "Spacing_engraver"
434 \consists "Vertical_align_engraver"
435 \consists "Stanza_number_align_engraver"
436 \consists "Bar_number_engraver"
437 \consists "Span_arpeggio_engraver"
439 \defaultchild "Staff"
441 \accepts "RhythmicStaff"
443 \accepts "VaticanaStaff"
444 \accepts "GregorianTranscriptionStaff"
445 \accepts "MensuralStaff"
446 \accepts "StaffGroup"
449 \accepts "ChordNames"
450 \accepts "GrandStaff"
451 \accepts "ChoirStaff"
452 \accepts "PianoStaff"
455 \accepts "FiguredBass"
458 soloIIText = #"Solo II"
460 printPartCombineTexts = ##t
461 systemStartDelimiter =#'SystemStartBar
463 drumStyleTable = #drums-style
465 melismaBusyProperties = #default-melisma-properties
467 clefGlyph = #"clefs.G"
469 middleCPosition = #-6
472 defaultBarType = #"|"
473 barNumberVisibility = #default-bar-number-visibility
476 explicitClefVisibility = #all-visible
477 explicitKeySignatureVisibility = #all-visible
478 autoBeamSettings = #default-auto-beam-settings
480 autoBeamCheck = #default-auto-beam-check
481 scriptDefinitions = #default-script-alist
483 verticalAlignmentChildCallback = #Align_interface::alignment_callback
485 pedalSustainStrings = #'("Ped." "*Ped." "*")
486 pedalSustainStyle = #'text
487 pedalUnaCordaStrings = #'("una corda" "" "tre corde")
488 pedalUnaCordaStyle = #'text
490 %% These are in ordinary italic font, including the *,
491 %% but they are unlikely to be used,
492 %% as the default pedal-style for SostenutoPedal is 'mixed':
493 %% i.e. Sost. Ped_____________________
494 pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
495 pedalSostenutoStyle = #'mixed
498 harmonicAccidentals = ##t
499 fingeringOrientations = #'(up down)
500 stringNumberOrientations = #'(up down)
501 tupletNumberFormatFunction = #denominator-tuplet-formatter
502 markFormatter = #format-mark-letters
507 autoAccidentals = #'(Staff (same-octave . 0))
508 autoCautionaries = #'()
510 printKeyCancellation = ##t
511 keyAccidentalOrder = #`(
512 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
513 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
514 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
515 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
518 barCheckSynchronize = ##f
521 chordNameFunction = #ignatzek-chord-names
522 majorSevenSymbol = #whiteTriangleMarkup
523 chordNameSeparator = #(make-simple-markup "/")
524 chordNameExceptions = #ignatzekExceptions
525 chordNoteNamer = #'()
526 chordRootNamer = #note-name->markup
527 chordPrefixSpacer = #0
528 chordNameExceptionsFull = #fullJazzExceptions
529 chordNameExceptionsPartial = #partialJazzExceptions
532 bassStaffProperties = #'((assign clefGlyph "clefs.F")
533 (assign clefPosition 2)
534 (assign middleCPosition 6))
536 stringOneTopmost = ##t
539 %% One may change the strings tuning as following :
540 %% The lenght of the list must be equal to the number of string
541 stringTunings = #guitar-tuning
542 tablatureFormat = #fret-number-tablature-format
545 bassFigureFormatFunction = #format-bass-figure
546 metronomeMarkFormatter = #format-metronome-markup
548 (Voice Stem direction 1)
549 ;; TODO: should take from existing definition.
550 ;; c&p from define-grobs.scm
552 (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
553 (Voice Stem stem-shorten (0.4 0.4))
554 (Voice Stem font-size -3)
555 (Voice NoteHead font-size -3)
556 (Voice Dots font-size -3)
557 (Voice Stem beamed-lengths
558 ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
559 (Voice Stem beamed-minimum-free-lengths
560 ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
561 (Voice Stem beamed-extreme-minimum-free-lengths
562 ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
564 (Voice Stem no-stem-extend #t)
565 (Voice Beam thickness 0.384)
566 (Voice Beam space-function ,(lambda (beam mult)
567 (* 0.8 (Beam::space_function
569 (Voice Accidental font-size -4)
570 (Voice Slur direction -1)
573 keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface)
574 quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event)
575 instrumentTransposition = #(ly:make-pitch 0 0 0)
577 verticallySpacedContexts = #'(Staff)
584 \type "Engraver_group_engraver"
587 \consists "Figured_bass_engraver"
588 \consists "Rest_swallow_translator"
589 \consists "Note_swallow_translator"
590 \consists "Skip_event_swallow_translator"
591 \consists "Separating_line_group_engraver"
592 \consists "Hara_kiri_engraver"
597 \type "Engraver_group_engraver"
599 %% don't want to route anything out of here:
602 \consists "Swallow_engraver"
603 \description "Silently discards all musical information given to this context. "
609 \consists "Tab_note_heads_engraver"
610 \remove "Note_heads_engraver"
611 \remove "Fingering_engraver"
612 \remove "New_fingering_engraver"
614 \description "Context for drawing notes in a Tab staff. "
615 \override Slur #'font-family = #'roman
616 \override Slur #'print-function = #hammer-print-function
617 \override Slur #'direction = #-1
619 %% Draws all stems/beams out of the staff (and not in the middle of the staff !)
620 %% This feature is now disabled because most of the tab does not use it.
621 %%\override Beam #'damping = #100000
622 %%\override Stem #'up-to-staff = ##t
624 %% TabStaff increase the staff-space, which in turn
625 %% increases beam thickness and spacing; beams are
626 %% too big. We have to adjust the beam settings:
627 \override Beam #'thickness = #0.32
628 \override Beam #'space-function =
629 #(lambda (beam mult) (* 0.62 (Beam::space_function beam mult)))
631 %% No accidental in tablature !
632 \remove Accidental_engraver
640 \remove "Staff_symbol_engraver"
641 \consists "Tab_staff_symbol_engraver"
643 \description "Context for generating tablature. [DOCME]"
646 \defaultchild "TabVoice"
649 \override StaffSymbol #'staff-space = #1.5
651 %% Don't draw stems over the tablature figures !
652 \override Stem #'avoid-note-head = ##t
654 %% No accidental in tablature !
655 \remove "Accidental_engraver"
656 \remove "Key_engraver"
657 \remove "String_number_engraver"
658 %% Special "TAB" clef
659 clefGlyph = #"clefs.tab"
663 %% TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
664 %% but this does not work (is this a bug or intended behaviour?):
666 %% If I try to do so, I get "error: unknown escaped string:
667 %% `\VaticanaStaff'" in params-init.ly. If I also move
668 %% "\context { \Vaticana*Context }" from params-init.ly to the end
669 %% of gregorian-init.ly, then I get "error: parse error, unexpected
670 %% TRANSLATOR: \context { \VaticanaStaff }" in
671 %% gregorian-init.ly. --jr
675 \name "VaticanaVoice"
677 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
679 \remove "Slur_engraver"
680 \remove "Stem_engraver"
681 \remove "Ligature_bracket_engraver"
682 \consists "Vaticana_ligature_engraver"
684 %% Set default head for notes outside of \[ \].
685 \override NoteHead #'style = #'vaticana.punctum
687 %% Put some space before and after divisiones.
688 %% FIXME: This does not seem to show any effect.
689 \override Script #'padding = #0.5
691 %% There are no beams in Gregorian Chant notation.
694 %% Prepare TextSpanner for \episem{Initium|Finis} use.
696 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
697 %% always produce dashed lines, regardless of the style property.
699 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
700 %% required to force the articulation signs being placed vertically
701 %% tightly to the correpsonding note heads.
703 \override TextSpanner #'dash-fraction = #'()
704 \override TextSpanner #'style = #'line
705 \override TextSpanner #'edge-height = #'(0 . 0)
706 \override TextSpanner #'padding = #-0.1
707 \override TextSpanner #'enclose-bounds = #1
708 \override TextSpanner #'edge-text = #'("" . "")
711 %% FIXME: need something like
712 %% \remove "Bar_number_engraver" (which lives on score level)
713 %% for vaticana and gregorian transcription staves
717 \name "VaticanaStaff"
720 \accepts "VaticanaVoice"
721 \defaultchild "VaticanaVoice"
723 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
725 \remove "Time_signature_engraver"
726 \consists "Custos_engraver"
728 %% We can not remove Bar_engraver; otherwise clefs and custodes will
729 %% not show up any more among other line breaking issues.
730 %% Instead, we make the grob transparent.
731 \override BarLine #'transparent = ##t
733 \override StaffSymbol #'line-count = #4
734 \override StaffSymbol #'thickness = #0.6
736 %% FIXME: unit on StaffSymbol's width should be \linewidth.
737 %% \override StaffSymbol #'width = #60.0
739 %% Choose vaticana do clef on 3rd line as default.
740 clefGlyph = #"clefs.vaticana.do"
745 %% Select vaticana style font.
746 \override KeySignature #'style = #'vaticana
747 \override Accidental #'style = #'vaticana
748 \override Custos #'style = #'vaticana
749 \override Custos #'neutral-position = #3
750 \override Custos #'neutral-direction = #-1
752 %% Score.timing = ##f
753 %% Score.barAlways = ##t
758 \name "GregorianTranscriptionVoice"
761 %% Removing ligature bracket engraver without replacing it by some
762 %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
763 %% warning for every "\[" and "\]". Therefore, we make the grob
764 %% transparent instead.
765 \override LigatureBracket #'transparent = ##t
767 %% Put some space before and after divisiones.
768 %% FIXME: This does not seem to show any effect.
769 \override Script #'padding = #0.5
771 %% There are no beams in Gregorian Chant notation.
774 %% Prepare TextSpanner for \episem{Initium|Finis} use.
776 %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
777 %% always produce dashed lines, regardless of the style property.
779 %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
780 %% required to force the articulation signs being placed vertically
781 %% tightly to the correpsonding note heads.
783 \override TextSpanner #'dash-fraction = #'()
784 \override TextSpanner #'style = #'line
785 \override TextSpanner #'edge-height = #'(0 . 0)
786 \override TextSpanner #'padding = #-0.1
787 \override TextSpanner #'enclose-bounds = #1
788 \override TextSpanner #'edge-text = #'("" . "")
793 \name "GregorianTranscriptionStaff"
796 \accepts "GregorianTranscriptionVoice"
797 \defaultchild "GregorianTranscriptionVoice"
799 %% We can not remove Bar_engraver; otherwise clefs and custodes will
800 %% not show up any more among other line breaking issues.
801 %% Instead, we make the grob transparent.
802 \override BarLine #'transparent = ##t
807 \name "MensuralVoice"
809 \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style."
811 \remove "Slur_engraver"
812 \remove "Ligature_bracket_engraver"
813 \consists "Mensural_ligature_engraver"
815 %% Set default head for notes outside of \[ \].
816 \override NoteHead #'style = #'petrucci
818 %% There are no beams in mensural notation.
824 \name "MensuralStaff"
827 \defaultchild "MensuralVoice"
828 \accepts "MensuralVoice"
829 \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style."
831 \consists "Custos_engraver"
833 %% We can not remove Bar_engraver; otherwise clefs and custodes will
834 %% not show up any more among other line breaking issues.
835 %% Instead, we make the grob transparent.
836 \override BarLine #'transparent = ##t
838 \override StaffSymbol #'thickness = #0.6
840 %% FIXME: unit on StaffSymbol's width should be \linewidth.
841 %% \override StaffSymbol #'width = #60.0
843 %% Choose petrucci g clef on 2nd line as default.
844 clefGlyph = #"clefs.petrucci.g"
845 middleCPosition = #-6
849 %% Select mensural style font.
850 \override TimeSignature #'style = #'mensural
851 \override KeySignature #'style = #'mensural
852 \override Accidental #'style = #'mensural
853 \override Custos #'style = #'mensural
854 \override Custos #'neutral-position = #3
855 \override Custos #'neutral-direction = #-1
857 %% Score.timing = ##f
858 %% Score.barAlways = ##t
862 RemoveEmptyRhythmicStaffContext= \context {
864 \remove "Axis_group_engraver"
865 \consists "Hara_kiri_engraver"