ly/engraver.ly

   1 %
   2 % setup for Request->Element conversion. Guru-only
   3 %
   4
   5 StaffContext=\translator {
   6         \type "Engraver_group_engraver";
   7         \name Staff ;
   8         \consists "Output_property_engraver";
   9         barAuto = ##t
  10         voltaVisibility = ##t
  11         Generic_property_list = #generic-staff-properties
  12         \consists "Property_engraver";
  13
  14         \consists "Multi_measure_rest_engraver";
  15         \consists "Bar_engraver";
  16  % Bar_engraver must be first so default bars aren't overwritten
  17 % with empty ones.
  18
  19         voltaPadding = #5  % urg, in \pt
  20         voltaMinimumSpace = #25  % urg, in \pt
  21
  22         StaffMinimumVerticalExtent = #(cons -4.0 4.0)
  23
  24         \consists "Repeat_engraver";
  25
  26
  27         %  name, glyph id, c0 position
  28         supportedClefTypes = #'(
  29           ("treble" . ("clefs-G" -2))
  30           ("violin" . ("clefs-G" -2))
  31           ("G" . ("clefs-G" -2))
  32           ("G2" . ("clefs-G" -2))
  33           ("french" . ("clefs-G" -4 ))
  34           ("soprano" . ("clefs-C" -4 ))
  35           ("mezzosoprano" . ("clefs-C" -2 ))
  36           ("alto" . ("clefs-C" 0 ))
  37           ("tenor" . ("clefs-C" 2 ))
  38           ("baritone" . ("clefs-C" 4 ))
  39           ("varbaritone"  . ("clefs-F" 0))
  40           ("bass" . ("clefs-F" 2 ))
  41           ("F" . ( "clefs-F" 2))
  42           ("subbass" . ("clefs-F" 4))
  43         )
  44         % where is c0 in this clef?
  45         clefPitches = #'(("clefs-G" . -4)
  46           ("clefs-C" . 0)
  47           ("clefs-F" . 4))
  48
  49         \consists "Clef_engraver";
  50         \consists "Key_engraver";
  51         \consists "Time_signature_engraver";
  52         \consists "Staff_symbol_engraver";
  53         \consists "Collision_engraver";
  54         \consists "Rest_collision_engraver";
  55         \consists "Local_key_engraver";
  56
  57         \consistsend "Axis_group_engraver";
  58
  59
  60
  61 %{
  62         The Instrument_name_engraver puts the name of the instrument
  63         (\property Staff.instrument; Staff.instr for subsequent lines)
  64         to the left of a staff.
  65         Usually, you only want this in the full score, not in the parts.
  66
  67         \consists "Instrument_name_engraver";
  68 %}
  69
  70         defaultClef = #"treble"
  71
  72         \consists "Separating_line_group_engraver";
  73
  74         \accepts "Voice";
  75         dynamicStyle = #"dynamic"
  76 };
  77
  78 \translator{\StaffContext }
  79 \translator {
  80         \type "Engraver_group_engraver";
  81         \name ChoirStaff;
  82         alignmentReference = \center;
  83         \consists "System_start_delimiter_engraver";
  84         systemStartDelimiterGlyph = #'bracket
  85
  86
  87
  88         \accepts "Staff";
  89         \accepts "RhythmicStaff";
  90         \accepts "GrandStaff";
  91         \accepts "PianoStaff";
  92
  93
  94         \accepts "Lyrics";
  95         \accepts "ChordNames";
  96 }
  97
  98
  99 RhythmicStaffContext=\translator{
 100         \type "Engraver_group_engraver";
 101         numberOfStaffLines  = #1
 102         \consists "Property_engraver";
 103         \consists "Output_property_engraver";
 104
 105         Generic_property_list = #generic-staff-properties
 106
 107         barSize =   4.0 * \interline ;
 108         \consists "Pitch_squash_engraver";
 109         \consists "Separating_line_group_engraver";
 110         \name RhythmicStaff;
 111
 112         voltaPadding = #5  % urg, in \pt
 113         voltaMinimumSpace = #15  % urg, in \pt
 114         \consists "Repeat_engraver";
 115         \consists "Bar_engraver";
 116         \consists "Time_signature_engraver";
 117         \consists "Staff_symbol_engraver";
 118         \consistsend "Axis_group_engraver";
 119         \accepts "Voice";
 120 };
 121 \translator{\RhythmicStaffContext}
 122
 123 VoiceContext = \translator {
 124         \type "Engraver_group_engraver";
 125         \name Voice;
 126
 127         dynamicPadding = #3  % urg, in \pt
 128         dynamicMinimumSpace = #6  % urg, in \pt
 129
 130         Generic_property_list = #generic-voice-properties
 131         \consists "Output_property_engraver";
 132
 133         \consists "Dynamic_engraver";   % must come before text_engraver.
 134         \consists "Property_engraver";
 135
 136         \consists "Breathing_sign_engraver";
 137         \consists "Rest_engraver";
 138         \consists "Dot_column_engraver";
 139         \consists "Stem_engraver";
 140         \consists "Beam_engraver";
 141         \consists "Auto_beam_engraver";
 142         \include "auto-beam-settings.ly";
 143
 144         \consists "Chord_tremolo_engraver";
 145         \consists "Melisma_engraver";
 146         textScriptPadding = #3.0
 147         \consists "Text_engraver";
 148
 149
 150         startSustain = #"Ped."
 151         stopSustain = #"*"
 152         stopStartSustain = #"*Ped."
 153         startUnaChorda = #"una chorda"
 154         stopUnaChorda = #"tre chorde"
 155
 156         \consists "Piano_pedal_engraver";
 157         \consists "Script_engraver";
 158         \consists "Script_column_engraver";
 159         \consists "Rhythmic_column_engraver";
 160         \consists "Slur_engraver";
 161         \consists "Tie_engraver";
 162         \consists "Tuplet_engraver";
 163         \consists "Grace_position_engraver";
 164         \consists "Skip_req_swallow_translator";
 165         \accepts Thread; % bug if you leave out this!
 166         \accepts Grace;
 167 };
 168
 169 GraceContext=\translator {
 170         \type "Grace_engraver_group";
 171         \name "Grace";
 172         \consists "Output_property_engraver";
 173
 174         Generic_property_list = #generic-grace-properties
 175
 176         \consists "Note_heads_engraver";
 177         \consists "Local_key_engraver";
 178         \consists "Stem_engraver";
 179         \consists "Beam_engraver";
 180         \consists "Slur_engraver";
 181
 182         \consists "Auto_beam_engraver";
 183         \include "auto-beam-settings.ly";
 184         \consists "Align_note_column_engraver";
 185
 186         \consists "Rhythmic_column_engraver";
 187         \consists "Dynamic_engraver";
 188         \consists "Text_engraver";
 189
 190         \consists "Property_engraver";
 191
 192         stemStyle = #"grace"
 193         flagStyle = #"grace"
 194         weAreGraceContext = ##t
 195         fontSize = #-1
 196
 197         stemLength = #6.0
 198         verticalDirection = \up ;
 199         graceAccidentalSpace= 1.5 * \staffspace;
 200 };
 201
 202 \translator{\GraceContext}
 203 \translator {\VoiceContext}
 204
 205 ThreadContext = \translator{
 206         \type Engraver_group_engraver;
 207         \consists "Note_heads_engraver" ;
 208         \consists "Output_property_engraver";
 209         Generic_property_list = #generic-thread-properties
 210         \consists "Property_engraver";
 211         \name Thread;
 212 };
 213
 214 \translator{\ThreadContext}
 215 GrandStaffContext=\translator{
 216         \type "Engraver_group_engraver";
 217         \name GrandStaff;
 218         \consists "Span_bar_engraver";
 219         \consists "System_start_delimiter_engraver";
 220         systemStartDelimiterGlyph = #'brace
 221
 222         \consists "Property_engraver";
 223         Generic_property_list = #generic-grand-staff-properties
 224         \accepts "Staff";
 225 };
 226 \translator{\GrandStaffContext}
 227
 228 PianoStaffContext = \translator{\GrandStaffContext
 229         alignmentReference = \center;
 230
 231         \consists "Vertical_align_engraver";
 232         minVerticalAlign = 3.0*\staffheight;
 233         maxVerticalAlign = 3.0*\staffheight;
 234
 235 %       \consistsend "Axis_group_engraver";
 236         \name "PianoStaff";
 237
 238 };
 239 \translator{\PianoStaffContext}
 240 StaffGroupContext= \translator {
 241         \type "Engraver_group_engraver";
 242         \consists "Span_bar_engraver";
 243         \consists "Output_property_engraver";
 244         \consists "System_start_delimiter_engraver";
 245        systemStartDelimiterGlyph = #'bracket
 246
 247
 248
 249
 250
 251         \name StaffGroup;
 252         \accepts "Staff";
 253         \accepts "RhythmicStaff";
 254         \accepts "GrandStaff";
 255         \accepts "PianoStaff";
 256
 257         \accepts "Lyrics";
 258         \accepts "ChordNames";
 259 };
 260
 261 \translator { \StaffGroupContext }
 262
 263 % UGH! JUNKME
 264 LyricsVoiceContext= \translator{
 265         \type "Engraver_group_engraver";
 266         \consistsend "Axis_group_engraver";
 267
 268         \name LyricVoice ;
 269         \consists "Separating_line_group_engraver";
 270         \consists "Lyric_engraver";
 271         \consists "Extender_engraver";
 272         \consists "Hyphen_engraver";
 273 };
 274 \translator{ \LyricsVoiceContext }
 275
 276 LyricsContext = \translator {
 277         \type "Engraver_group_engraver";
 278         \name Lyrics;
 279         \consists Vertical_align_engraver; %need this for getting folded repeats right.
 280         Generic_property_list = #generic-lyrics-properties
 281         \consists "Property_engraver";
 282         \consistsend "Axis_group_engraver";
 283
 284         \accepts "LyricVoice";
 285 };
 286 \translator { \LyricsContext }
 287
 288 ChordNameVoiceContext = \translator {
 289         \type "Engraver_group_engraver";
 290         \name ChordNameVoice ;
 291
 292         \consists "Output_property_engraver";
 293         \consistsend "Axis_group_engraver";
 294         \consists "Separating_line_group_engraver";
 295         \consists "Chord_name_engraver";
 296 };
 297 \translator {\ChordNameVoiceContext}
 298
 299 ChordNameContext = \translator {
 300         \type "Engraver_group_engraver";
 301         \name ChordNames;
 302
 303         Generic_property_list = #generic-chord-staff-properties
 304         \consists "Property_engraver";
 305         \consists "Output_property_engraver";
 306         \accepts "ChordNameVoice";
 307         \consistsend "Axis_group_engraver";
 308         };
 309 \translator { \ChordNameContext }
 310
 311
 312 ScoreWithNumbers = \translator {
 313         \type "Score_engraver";
 314
 315         % uncomment to bar numbers on a whole system.
 316         \consists "Bar_number_engraver";
 317 };
 318
 319 StupidScore = \translator {
 320         \type "Score_engraver";
 321         \name Score;
 322         \consists "Note_heads_engraver";
 323 };
 324
 325
 326
 327 BarNumberingStaffContext = \translator {
 328         \StaffContext
 329         \consists "Mark_engraver";
 330 };
 331
 332 HaraKiriStaffContext = \translator {
 333         \StaffContext
 334         \remove "Axis_group_engraver";
 335         \consistsend "Hara_kiri_engraver";
 336         \consists "Instrument_name_engraver";
 337         \accepts "Voice";
 338 };
 339 %{
 340   The HaraKiriStaffContexts doesn't override \name,
 341   so it is still named `Staff'.
 342
 343   %\translator { \HaraKiriStaffContext }
 344 %}
 345
 346 OrchestralPartStaffContext = \translator {
 347         \StaffContext
 348         \consists "Mark_engraver";
 349 };
 350
 351 ScoreContext = \translator {
 352         \type Score_engraver;
 353         \name Score;
 354
 355         marginScriptPadding = #10  % urg, in \pt
 356
 357         \consists "Timing_engraver";
 358         \consists "Output_property_engraver";
 359
 360         %bracketCollapseHeight = #10  % \pt
 361         \consists "System_start_delimiter_engraver";
 362
 363 %       \consists "Score_priority_engraver";
 364         \consists "Break_align_engraver";
 365         breakAlignOrder = #'(
 366           Instrument_name
 367           Left_edge_item
 368           Span_bar
 369           Breathing_sign
 370           Clef_item
 371           Key_item
 372           Staff_bar
 373           Time_signature
 374         )
 375         \consists "Spacing_engraver";
 376
 377         \consists "Vertical_align_engraver";
 378         \consists "Bar_number_engraver";
 379         alignmentReference = \down;
 380         defaultClef = #"treble"
 381         defaultBarType = #"|"
 382        systemStartDelimiterGlyph = #'bar-line
 383
 384        %
 385        % what order to print accs.  We could compute this,
 386        % but computing is more work than putting it here.
 387        %
 388        % Flats come first, then sharps.
 389        keyAccidentalOrder = #'(
 390          (6 . -1) (2  . -1) (5 . -1 ) (1  . -1) (4  . -1) (0  . -1) (3  . -1)
 391          (3  . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
 392        )
 393         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 394         % default settings, mainly for breakable items
 395         % in alphabetical order
 396         % TODO: uniform naming.;
 397         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 398
 399         %
 400         % distances are given in stafflinethickness (thicknesses) and staffspace (distances)
 401         %
 402
 403
 404         basicBarProperties = #`(
 405                 (break-align-symbol . Staff_bar)
 406                 (molecule-callback . ,Bar::brew_molecule)
 407                 (visibility-lambda . ,begin-of-line-invisible)
 408                 (breakable . #t)
 409                 (before-line-breaking-callback . ,Bar::before_line_breaking)
 410                 ;;
 411                 ;; Ross. page 151 lists other values, we opt for a leaner look
 412                 ;;
 413                 (kern . 3.0)
 414                 (thin-kern . 3.0)
 415                 (hair-thickness . 1.6)
 416                 (thick-thickness . 6.0)
 417         )
 418
 419         basicBarNumberProperties = #`(
 420                 (molecule-callback . ,Text_item::brew_molecule)
 421                 (breakable . #t)
 422                 (visibility-lambda . ,begin-of-line-visible)
 423         )
 424
 425         basicBeamProperties = #`(
 426                 (molecule-callback . ,Beam::brew_molecule)
 427                 (beam-thickness . 0.42) ; interline
 428                 (before-line-breaking-callback . ,Beam::before_line_breaking)
 429                 (after-line-breaking-callback . ,Beam::after_line_breaking)
 430         )
 431
 432         basicBreakAlignProperties = #`(
 433                 (breakable . #t)
 434                 (before-line-breaking-callback . ,Break_align_item::before_line_breaking)
 435 )
 436
 437
 438         basicBreathingSignProperties = #`(
 439                 (break-align-symbol . Breathing_sign)
 440                 (after-line-breaking-callback . ,Breathing_sign::after_line_breaking)
 441                 (breakable . #t )
 442                 (molecule-callback . ,Breathing_sign::brew_molecule)
 443                 (visibility-lambda . ,begin-of-line-invisible)
 444
 445         )
 446          basicClefItemProperties = #`(
 447            (molecule-callback . ,Score_element::brew_molecule)
 448            (before-line-breaking-callback . ,Clef_item::before_line_breaking)
 449            (breakable . #t)
 450            (break-align-symbol . Clef_item)
 451            (visibility-lambda . ,begin-of-line-visible)
 452          )
 453         basicSlurProperties = #`(
 454                 (molecule-callback . ,Slur::brew_molecule)
 455                 (after-line-breaking-callback . ,Slur::after_line_breaking)
 456         )
 457         basicChordNameProperties = #`(
 458                 (molecule-callback . ,Chord_name::brew_molecule)
 459         )
 460         basicCollisionProperties = #`(
 461                 (axes 0 1)
 462                 (before-line-breaking-callback . ,Collision::before_line_breaking)
 463         )
 464         basicCrescendoProperties = #`(
 465                 (molecule-callback . ,Crescendo::brew_molecule)
 466         )
 467         basicDotsProperties = #`(
 468                 (molecule-callback . ,Dots::brew_molecule)
 469                 (after-line-breaking-callback . ,Dots::after_line_breaking)
 470                 (dot-count . 1)
 471         )
 472         basicDynamicLineSpannerProperties = #`(
 473
 474         )
 475         basicDynamicTextProperties       = # `(
 476                 (style . "dynamic")
 477                 (molecule-callback . ,Text_item::brew_molecule)
 478                 (script-priority . 100)
 479                 (self-alignment-Y . 0)
 480         )
 481         leftEdgeBasicProperties = #`(
 482           (break-align-symbol . Left_edge_item)
 483           (breakable . #t)
 484         )
 485         basicGraceAlignItemProperties = #`(
 486                 (axes . (0))
 487                 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
 488         )
 489         basicHaraKiriVerticalGroupspannerProperties = #`(
 490                 (after-line-breaking-callback . ,Hara_kiri_group_spanner::after_line_breaking)
 491         )
 492         basicHyphenSpannerProperties = #`(
 493                 (thickness . 1.0)
 494                 (height . 0.4)
 495                 (minimum-length .  0.5)
 496                 (molecule-callback . ,Hyphen_spanner::brew_molecule)
 497         )
 498         basicKeyProperties = #`(
 499           (molecule-callback . ,Key_item::brew_molecule)
 500           (break-align-symbol . Key_item)
 501           (visibility-lambda . ,begin-of-line-visible)
 502           (breakable . #t)
 503           )
 504         basicLocalKeyProperties = #`(
 505                 (molecule-callback . ,Local_key_item::brew_molecule)
 506                 (left-padding . 0.2)
 507                 (right-padding . 0.4)
 508         )
 509         basicLyricExtenderProperties = #`(
 510                 (molecule-callback . ,Lyric_extender::brew_molecule)
 511         )
 512         basicLyricTextProperties = #`(
 513                 (molecule-callback . ,Text_item::brew_molecule)
 514                 (non-rhythmic . #t)
 515         )
 516         basicMarkProperties = #`(
 517           (molecule-callback . ,Text_item::brew_molecule)
 518           (breakable . #t)
 519           (visibility-lambda . ,end-of-line-invisible)
 520         )
 521         basicMultiMeasureRestProperties = #`(
 522                 (molecule-callback . ,Multi_measure_rest::brew_molecule)
 523                 (staff-position . 0)
 524                 (after-line-breaking-callback . ,Multi_measure_rest::after_line_breaking)
 525         )
 526         basicNoteColumnProperties = #`(
 527                 (axes 0 1)
 528         )
 529         basicNoteHeadProperties = #`(
 530                 (molecule-callback . ,Note_head::brew_molecule)
 531         )
 532         basicOctavateEightProperties  = #`(
 533                 (self-alignment-X . 0)
 534                 (text . "8")
 535                 (visibility-lambda . ,begin-of-line-visible)
 536                 (molecule-callback . ,Text_item::brew_molecule)
 537                 (style . "italic")
 538         )
 539         basicPedalProperties = #`(
 540                 (molecule-callback . ,Text_item::brew_molecule)
 541                 (style . "italic")
 542                 (no-spacing-rods . #t)
 543                 (self-alignment-X . 0)
 544
 545         )
 546         basicTextProperties = #`( )
 547         basicRestProperties = #`(
 548                 (molecule-callback . ,Rest::brew_molecule)
 549         )
 550
 551         basicRestCollisionProperties = #`(
 552                 (after-line-breaking-callback . ,Rest_collision::after_line_breaking)
 553         )
 554         basicScriptProperties    = #`(
 555                 (molecule-callback . ,Script::brew_molecule)
 556         )
 557
 558         basicSlurProperties = #`(
 559                 (molecule-callback . ,Slur::brew_molecule)
 560                 (after-line-breaking-callback . ,Slur::after_line_breaking)
 561         )
 562         basicSpanBarProperties = #`(
 563                 (break-align-symbol . Staff_bar)
 564                 (molecule-callback . ,Bar::brew_molecule)
 565                 (visibility-lambda . ,begin-of-line-invisible)
 566                 (breakable . #t)
 567                 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
 568                 (after-line-breaking-callback . ,Span_bar::after_line_breaking)
 569
 570                 ;; ugh duplication!
 571
 572                 ;;
 573                 ;; Ross. page 151 lists other values, we opt for a leaner look
 574                 ;;
 575                 (kern . 3.0)
 576                 (thin-kern . 3.0)
 577                 (hair-thickness . 1.6)
 578                 (thick-thickness . 6.0)
 579
 580         )
 581         basicSustainPedalProperties = #`(
 582                 (no-spacing-rods . #t)
 583                 (molecule-callback . ,Sustain_pedal::brew_molecule)
 584                 (self-alignment-X . 0)
 585         )
 586         basicSystemStartDelimiterProperties = #`(
 587                 (molecule-callback . ,System_start_delimiter::brew_molecule)
 588                 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
 589                 (collapse-height . 1.0)
 590                 (thickness . 1.6)
 591                 (arch-height . 1.5)
 592                 (arch-angle . 50.0)
 593                 (arch-thick . 0.25)
 594                 (arch-width . 1.5)
 595                 (bracket-thick . 0.25)
 596                 (bracket-width . 2.0)
 597         )
 598         basicStemProperties = #`(
 599                 (before-line-breaking-callback . ,Stem::before_line_breaking)
 600                 (molecule-callback . ,Stem::brew_molecule)
 601         )
 602         staffSymbolBasicProperties = #`(
 603                 (molecule-callback . ,Staff_symbol::brew_molecule)
 604                 (staff-space . 1.0 )
 605                 (line-count . 5 )
 606         )
 607         basicTextScriptProperties = #`(
 608                 (molecule-callback . ,Text_item::brew_molecule)
 609                 (no-spacing-rods . #t)
 610         )
 611         basicTimeSignatureProperties = #`(
 612                 (molecule-callback . ,Time_signature::brew_molecule)
 613                 (break-align-symbol . Time_signature)
 614                 (visibility-lambda . ,all-visible)
 615                 (breakable . #t)
 616         )
 617         basicTieProperties = #`(
 618                 (molecule-callback . ,Tie::brew_molecule)
 619                 (after-line-breaking-callback . ,Tie::after_line_breaking)
 620         )
 621         basicTieColumnProperties = #`(
 622                 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
 623         )
 624         basicTupletSpannerProperties = #`(
 625                 (number-gap . 2.0)
 626                 (thick . 1.0)
 627                 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
 628                 (molecule-callback . ,Tuplet_spanner::brew_molecule)
 629         )
 630         basicStemTremoloProperties = #`(
 631                 (molecule-callback . ,Stem_tremolo::brew_molecule)
 632                 (beam-width . 4.0) ; interline!
 633                 (beam-thickness . 0.42) ; interline!
 634         )
 635
 636         basicSingleMaltGroupingItemProperties = #`(
 637
 638         )
 639         basicInstrumentNameProperties = #`(
 640                 (breakable . #t)
 641                 (molecule-callback . ,Text_item::brew_molecule)
 642                 (break-align-symbol . Instrument_name)
 643                 (visibility-lambda . ,begin-of-line-visible)
 644         )
 645         basicVerticalAxisGroupProperties = #`(
 646                 (axes 1)
 647         )
 648         basicVoltaSpannerProperties = #`(
 649                 (molecule-callback . ,Volta_spanner::brew_molecule)
 650                 (after-line-breaking-callback . ,Volta_spanner::after_line_breaking)
 651         )
 652
 653         \accepts "Staff";
 654         \accepts "StaffGroup";
 655         \accepts "RhythmicStaff";
 656         \accepts "Lyrics";
 657         \accepts "ChordNames";
 658         \accepts "GrandStaff";
 659         \accepts "ChoirStaff";
 660         \accepts "PianoStaff";
 661         \accepts "NoteNames";
 662
 663
 664         markVisibilityFunction = #end-of-line-invisible
 665 };
 666
 667 \translator { \ScoreContext }
 668
 669 OrchestralScoreContext= \translator {
 670         \ScoreContext
 671
 672         barScriptPadding = #2.0         % dimension \pt
 673         markScriptPadding = #4.0
 674
 675         \consists "Mark_engraver";
 676 };
 677
 678 \translator {
 679         \type "Engraver_group_engraver";
 680         \name NoteNames;
 681         \consistsend "Axis_group_engraver";
 682         \consists "Note_name_engraver";
 683 }