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 * \staffspace ;
 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         \consists "A2_engraver";
 149         \consists "Voice_devnull_engraver";
 150
 151         % ugh :  set these in Score context, please.
 152         startSustain = #"Ped."
 153         stopSustain = #"*"
 154         stopStartSustain = #"*Ped."
 155         startUnaChorda = #"una chorda"
 156         stopUnaChorda = #"tre chorde"
 157
 158         soloText = #"Solo"
 159         soloIIText = #"Solo II"
 160         aDueText = #"\\`a2"
 161         soloADue = ##t
 162         splitInterval = #'(0 . 1)
 163
 164         \consists "Piano_pedal_engraver";
 165         \consists "Script_engraver";
 166         \consists "Script_column_engraver";
 167         \consists "Rhythmic_column_engraver";
 168         \consists "Slur_engraver";
 169         \consists "Tie_engraver";
 170         \consists "Tuplet_engraver";
 171         \consists "Grace_position_engraver";
 172         \consists "Skip_req_swallow_translator";
 173         \accepts Thread; % bug if you leave out this!
 174         \accepts Grace;
 175 };
 176
 177 GraceContext=\translator {
 178         \type "Grace_engraver_group";
 179         \name "Grace";
 180         \consists "Output_property_engraver";
 181
 182         Generic_property_list = #generic-grace-properties
 183
 184         \consists "Note_heads_engraver";
 185         \consists "Local_key_engraver";
 186         \consists "Stem_engraver";
 187         \consists "Beam_engraver";
 188         \consists "Slur_engraver";
 189
 190         \consists "Auto_beam_engraver";
 191         \include "auto-beam-settings.ly";
 192         \consists "Align_note_column_engraver";
 193
 194         \consists "Rhythmic_column_engraver";
 195         \consists "Dynamic_engraver";
 196         \consists "Text_engraver";
 197
 198         \consists "Property_engraver";
 199
 200         stemStyle = #"grace"
 201         flagStyle = #"grace"
 202         weAreGraceContext = ##t
 203         fontSize = #-1
 204
 205         stemLength = #6.0
 206         verticalDirection = \up ;
 207         graceAccidentalSpace= 1.5 * \staffspace;
 208 };
 209
 210 \translator{\GraceContext}
 211 \translator {\VoiceContext}
 212
 213 ThreadContext = \translator{
 214         \type Engraver_group_engraver;
 215         %%\consists "A2_devnull_engraver";
 216         \consists "Thread_devnull_engraver";
 217         \consists "Note_heads_engraver";
 218         \consists "Output_property_engraver";
 219         Generic_property_list = #generic-thread-properties
 220         \consists "Property_engraver";
 221         \name Thread;
 222 };
 223
 224 \translator{\ThreadContext}
 225 GrandStaffContext=\translator{
 226         \type "Engraver_group_engraver";
 227         \name GrandStaff;
 228         \consists "Span_bar_engraver";
 229         \consists "System_start_delimiter_engraver";
 230         systemStartDelimiterGlyph = #'brace
 231
 232         \consists "Property_engraver";
 233         Generic_property_list = #generic-grand-staff-properties
 234         \accepts "Staff";
 235 };
 236 \translator{\GrandStaffContext}
 237
 238 PianoStaffContext = \translator{\GrandStaffContext
 239         alignmentReference = \center;
 240
 241         \consists "Vertical_align_engraver";
 242         minVerticalAlign = 3.0*\staffheight;
 243         maxVerticalAlign = 3.0*\staffheight;
 244
 245 %       \consistsend "Axis_group_engraver";
 246         \name "PianoStaff";
 247
 248 };
 249 \translator{\PianoStaffContext}
 250 StaffGroupContext= \translator {
 251         \type "Engraver_group_engraver";
 252         \consists "Span_bar_engraver";
 253         \consists "Output_property_engraver";
 254         \consists "System_start_delimiter_engraver";
 255        systemStartDelimiterGlyph = #'bracket
 256
 257
 258
 259
 260
 261         \name StaffGroup;
 262         \accepts "Staff";
 263         \accepts "RhythmicStaff";
 264         \accepts "GrandStaff";
 265         \accepts "PianoStaff";
 266
 267         \accepts "Lyrics";
 268         \accepts "ChordNames";
 269 };
 270
 271 \translator { \StaffGroupContext }
 272
 273 % UGH! JUNKME
 274 LyricsVoiceContext= \translator{
 275         \type "Engraver_group_engraver";
 276         \consistsend "Axis_group_engraver";
 277         LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
 278
 279         \name LyricVoice ;
 280         \consists "Separating_line_group_engraver";
 281         \consists "Lyric_engraver";
 282         \consists "Extender_engraver";
 283         \consists "Hyphen_engraver";
 284         \consists "Stanza_number_engraver";
 285         phrasingPunctuation = #".,;:!?\""
 286
 287 };
 288 \translator{ \LyricsVoiceContext }
 289
 290 LyricsContext = \translator {
 291         \type "Engraver_group_engraver";
 292         \name Lyrics;
 293         \consists Vertical_align_engraver; %need this for getting folded repeats right.
 294         Generic_property_list = #generic-lyrics-properties
 295         \consists "Property_engraver";
 296         \consistsend "Axis_group_engraver";
 297
 298         \accepts "LyricVoice";
 299 };
 300 \translator { \LyricsContext }
 301
 302 ChordNameVoiceContext = \translator {
 303         \type "Engraver_group_engraver";
 304         \name ChordNameVoice ;
 305
 306         \consists "Output_property_engraver";
 307         \consistsend "Axis_group_engraver";
 308         \consists "Separating_line_group_engraver";
 309         \consists "Chord_name_engraver";
 310 };
 311 \translator {\ChordNameVoiceContext}
 312
 313 ChordNameContext = \translator {
 314         \type "Engraver_group_engraver";
 315         \name ChordNames;
 316
 317         Generic_property_list = #generic-chord-staff-properties
 318         \consists "Property_engraver";
 319         \consists "Output_property_engraver";
 320         \accepts "ChordNameVoice";
 321         \consistsend "Axis_group_engraver";
 322         };
 323 \translator { \ChordNameContext }
 324
 325
 326 ScoreWithNumbers = \translator {
 327         \type "Score_engraver";
 328
 329         % uncomment to bar numbers on a whole system.
 330         \consists "Bar_number_engraver";
 331 };
 332
 333 StupidScore = \translator {
 334         \type "Score_engraver";
 335         \name Score;
 336         \consists "Note_heads_engraver";
 337 };
 338
 339
 340
 341 BarNumberingStaffContext = \translator {
 342         \StaffContext
 343         \consists "Mark_engraver";
 344 };
 345
 346 HaraKiriStaffContext = \translator {
 347         \StaffContext
 348         \remove "Axis_group_engraver";
 349         \consistsend "Hara_kiri_engraver";
 350         \consists "Instrument_name_engraver";
 351         \accepts "Voice";
 352 };
 353 %{
 354   The HaraKiriStaffContexts doesn't override \name,
 355   so it is still named `Staff'.
 356
 357   %\translator { \HaraKiriStaffContext }
 358 %}
 359
 360 OrchestralPartStaffContext = \translator {
 361         \StaffContext
 362         \consists "Mark_engraver";
 363 };
 364
 365 ScoreContext = \translator {
 366         \type Score_engraver;
 367         \name Score;
 368
 369         marginScriptPadding = #10  % urg, in \pt
 370
 371         \consists "Timing_engraver";
 372         \consists "Output_property_engraver";
 373
 374         %bracketCollapseHeight = #10  % \pt
 375         \consists "System_start_delimiter_engraver";
 376
 377 %       \consists "Score_priority_engraver";
 378         \consists "Break_align_engraver";
 379         breakAlignOrder = #'(
 380           Instrument_name
 381           Left_edge_item
 382           Span_bar
 383           Breathing_sign
 384           Clef_item
 385           Key_item
 386           Staff_bar
 387           Time_signature
 388           Stanza_number
 389         )
 390         \consists "Spacing_engraver";
 391
 392         \consists "Vertical_align_engraver";
 393
 394         \consists "Lyric_phrasing_engraver";
 395         automaticPhrasing = ##t;
 396
 397         \consists "Bar_number_engraver";
 398         alignmentReference = \down;
 399         defaultClef = #"treble"
 400         defaultBarType = #"|"
 401        systemStartDelimiterGlyph = #'bar-line
 402
 403        %
 404        % what order to print accs.  We could compute this,
 405        % but computing is more work than putting it here.
 406        %
 407        % Flats come first, then sharps.
 408        keyAccidentalOrder = #'(
 409          (6 . -1) (2  . -1) (5 . -1 ) (1  . -1) (4  . -1) (0  . -1) (3  . -1)
 410          (3  . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
 411        )
 412         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 413         % default settings, mainly for breakable items
 414         % in alphabetical order
 415         % TODO: uniform naming.;
 416         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 417
 418         %
 419         % distances are given in stafflinethickness (thicknesses) and staffspace (distances)
 420         %
 421
 422
 423         basicBarProperties = #`(
 424                 (break-align-symbol . Staff_bar)
 425                 (barsize-procedure . ,Bar::get_staff_bar_size)
 426                 (molecule-callback . ,Bar::brew_molecule)
 427                 (visibility-lambda . ,all-visible)
 428                 (breakable . #t)
 429                 (before-line-breaking-callback . ,Bar::before_line_breaking)
 430                 ;;
 431                 ;; Ross. page 151 lists other values, we opt for a leaner look
 432                 ;;
 433                 (kern . 3.0)
 434                 (thin-kern . 3.0)
 435                 (hair-thickness . 1.6)
 436                 (thick-thickness . 6.0)
 437
 438                 (interfaces . (bar-interface staff-bar-interface))
 439         )
 440
 441         basicBarNumberProperties = #`(
 442                 (molecule-callback . ,Text_item::brew_molecule)
 443                 (breakable . #t)
 444                 (visibility-lambda . ,begin-of-line-visible)
 445         )
 446
 447         basicBeamProperties = #`(
 448                 (molecule-callback . ,Beam::brew_molecule)
 449                 (beam-thickness . 0.42) ; staff-space
 450                 (before-line-breaking-callback . ,Beam::before_line_breaking)
 451                 (after-line-breaking-callback . ,Beam::after_line_breaking)
 452                 (default-neutral-direction . 1)
 453                 (interfaces . (beam-interface))
 454                 (damping . 1)
 455         )
 456
 457         basicBreakAlignProperties = #`(
 458                 (breakable . #t)
 459                 (interfaces . (break-align-interface))
 460                 (stacking-dir . 1)
 461                 (axes 0)
 462         )
 463         basicBreakAlignGroupProperties = #`(
 464                 (interfaces . (axis-group-interface))
 465                 (axes  . (0))
 466         )
 467         basicBreathingSignProperties = #`(
 468                 (break-align-symbol . Breathing_sign)
 469                 (breakable . #t )
 470                 (molecule-callback . ,Breathing_sign::brew_molecule)
 471                 (visibility-lambda . ,begin-of-line-invisible)
 472                 (interfaces . (breathing-sign-interface))
 473         )
 474          basicClefItemProperties = #`(
 475            (molecule-callback . ,Score_element::brew_molecule)
 476            (before-line-breaking-callback . ,Clef::before_line_breaking)
 477            (breakable . #t)
 478            (break-align-symbol . Clef_item)
 479            (visibility-lambda . ,begin-of-line-visible)
 480            (interfaces .  (clef-interface))
 481          )
 482         basicChordNameProperties = #`(
 483                 (molecule-callback . ,Chord_name::brew_molecule)
 484                 (interfaces . (chord-name-interface))
 485                 (after-line-breaking-callback . ,Chord_name::after_line_breaking)
 486         )
 487         basicCollisionProperties = #`(
 488                 (axes 0 1)
 489                 (interfaces . (collision-interface))
 490         )
 491         basicCrescendoProperties = #`(
 492                 (molecule-callback . ,Crescendo::brew_molecule)
 493                 (interfaces . (crescendo-interface dynamic-interface))
 494         )
 495         basicDotColumnProperties = #`(
 496                 (interfaces . (dot-column-interface axis-group-interface ))
 497                 (axes 0 )
 498         )
 499         basicDotsProperties = #`(
 500                 (molecule-callback . ,Dots::brew_molecule)
 501                 (dot-count . 1)
 502                 (interfaces . (dot-interface))
 503         )
 504         basicDynamicLineSpannerProperties = #`(
 505                 (interfaces . (dynamic-interface axis-group-interface))
 506                 (axes . ( 1))
 507         )
 508         basicDynamicTextProperties       = # `(
 509                 (style . "dynamic")
 510                 (interfaces . (dynamic-interface))
 511                 (molecule-callback . ,Text_item::brew_molecule)
 512                 (script-priority . 100)
 513                 (self-alignment-Y . 0)
 514         )
 515         leftEdgeBasicProperties = #`(
 516                 (break-align-symbol . Left_edge_item)
 517                 (breakable . #t)
 518         )
 519         basicGraceAlignItemProperties = #`(
 520                 (axes . (0))
 521                 (interfaces . (axis-group-interface align-interface))
 522                 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
 523         )
 524         basicHaraKiriVerticalGroupspannerProperties = #`(
 525                 (interfaces . (hara-kiri-interface))
 526                 (axes 1)
 527         )
 528         basicHyphenSpannerProperties = #`(
 529                 (thickness . 1.0)
 530                 (height . 0.4)
 531                 (minimum-length .  0.5)
 532                 (molecule-callback . ,Hyphen_spanner::brew_molecule)
 533         )
 534         basicKeyProperties = #`(
 535           (molecule-callback . ,Key_item::brew_molecule)
 536           (interfaces . (key-item-interface))
 537           (break-align-symbol . Key_item)
 538           (visibility-lambda . ,begin-of-line-visible)
 539           (breakable . #t)
 540           )
 541         basicLocalKeyProperties = #`(
 542                 (molecule-callback . ,Local_key_item::brew_molecule)
 543                 (left-padding . 0.2)
 544                 (right-padding . 0.4)
 545                 (interfaces . (accidentals-interface))
 546         )
 547         basicLineOfScoreProperties = #`(
 548                 (axes . (0 1))
 549                 (interfaces . (axis-group-interface))
 550         )
 551         basicLyricExtenderProperties = #`(
 552                 (molecule-callback . ,Lyric_extender::brew_molecule)
 553                 (right-trim-amount . 0.5)
 554                 (interfaces . (lyric-extender-interface))
 555         )
 556         basicLyricTextProperties = #`(
 557                 (molecule-callback . ,Text_item::brew_molecule)
 558                 (self-alignment-X . 0)
 559                 (non-rhythmic . #t)
 560                 (word-space . 0.6)
 561                 (interfaces .  (lyric-syllable-interface text-item-interface))
 562         )
 563         basicMarkProperties = #`(
 564           (molecule-callback . ,Text_item::brew_molecule)
 565           (breakable . #t)
 566           (interfaces . (mark-interface))
 567           (visibility-lambda . ,end-of-line-invisible)
 568         )
 569         basicMultiMeasureRestProperties = #`(
 570                 (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
 571                 (molecule-callback . ,Multi_measure_rest::brew_molecule)
 572                 (staff-position . 0)
 573         )
 574         basicNoteColumnProperties = #`(
 575                 (axes 0 1)
 576                 (interfaces . (axis-group-interface note-column-interface))
 577         )
 578         basicNoteHeadProperties = #`(
 579                 (interfaces . (note-head-interface rhythmic-head-interface))
 580                 (molecule-callback . ,Note_head::brew_molecule)
 581         )
 582         basicNoteNameProperties = #`(
 583                 (molecule-callback . ,Text_item::brew_molecule)
 584         )
 585         basicOctavateEightProperties  = #`(
 586                 (self-alignment-X . 0)
 587                 (text . "8")
 588                 (visibility-lambda . ,begin-of-line-visible)
 589                 (molecule-callback . ,Text_item::brew_molecule)
 590                 (style . "italic")
 591         )
 592         basicPaperColumnProperties = #`(
 593                 (interfaces . (paper-column-interface axis-group-interface))
 594                 (axes 0)
 595                 (rank . -1)
 596         )
 597         basicPedalProperties = #`(
 598                 (molecule-callback . ,Text_item::brew_molecule)
 599                 (style . "italic")
 600                 (no-spacing-rods . #t)
 601                 (self-alignment-X . 0)
 602
 603         )
 604         basicTextProperties = #`( )
 605         basicRestProperties = #`(
 606                 (interfaces . (rest-interface rhythmic-head-interface))
 607                 (after-line-breaking-callback . ,Rest::after_line_breaking)
 608                 (molecule-callback . ,Rest::brew_molecule)
 609                 (minimum-beam-collision-distance . 1.5)
 610         )
 611
 612         basicRestCollisionProperties = #`(
 613                 (minimum-distance . 0.75)
 614                 (interfaces . (rest-collision-interface))
 615         )
 616         basicScriptProperties    = #`(
 617                 (molecule-callback . ,Script::brew_molecule)
 618                 (interfaces . (script-interface))
 619         )
 620         basicScriptColumnProperties = #`(
 621                 (before-line-breaking-callback . ,Script_column::before_line_breaking)
 622         )
 623         basicSlurProperties = #`(
 624                 (molecule-callback . ,Slur::brew_molecule)
 625                 (thickness . 1.2)
 626                 (spacing-procedure . ,Slur::set_spacing_rods)           e
 627                 (minimum-length . 1.5)
 628                 (after-line-breaking-callback . ,Slur::after_line_breaking)
 629         )
 630         basicSpacingSpannerProperties =#`(
 631                 (spacing-procedure . ,Spacing_spanner::set_springs)
 632
 633                 ;; assume that notes at least this long are present.
 634                 (maximum-duration-for-spacing . ,(make-moment 1 8))
 635         )
 636         basicSpanBarProperties = #`(
 637                 (break-align-symbol . Staff_bar)
 638                 (barsize-procedure . ,Span_bar::get_bar_size)
 639                 (molecule-callback . ,Bar::brew_molecule)
 640                 (visibility-lambda . ,begin-of-line-invisible)
 641                 (breakable . #t)
 642                 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
 643
 644                 ;; ugh duplication!
 645
 646                 ;;
 647                 ;; Ross. page 151 lists other values, we opt for a leaner look
 648                 ;;
 649                 (kern . 3.0)
 650                 (thin-kern . 3.0)
 651                 (hair-thickness . 1.6)
 652                 (thick-thickness . 6.0)
 653                 (interfaces . (bar-interface span-bar-interface))
 654         )
 655         basicStanzaNumberProperties = #`(
 656                 (breakable . #t)
 657                 (molecule-callback . ,Text_item::brew_molecule)
 658                 (break-align-symbol . Clef_item)
 659                 (visibility-lambda . ,begin-of-line-visible)
 660         )
 661         basicStemProperties = #`(
 662                 (before-line-breaking-callback . ,Stem::before_line_breaking)
 663                 (molecule-callback . ,Stem::brew_molecule)
 664
 665                 ; if stem is on middle line, choose this direction.
 666                 (default-neutral-direction . 1)
 667                 (interfaces . (stem-interface))
 668         )
 669         basicSustainPedalProperties = #`(
 670                 (no-spacing-rods . #t)
 671                 (molecule-callback . ,Sustain_pedal::brew_molecule)
 672                 (self-alignment-X . 0)
 673                 (interfaces . (sustain-pedal-interface))
 674         )
 675         staffSymbolBasicProperties = #`(
 676                 (molecule-callback . ,Staff_symbol::brew_molecule)
 677                 (staff-space . 1.0)
 678                 (line-count . 5 )
 679                 (interfaces . (staff-symbol-interface ))
 680         )
 681         basicSystemStartDelimiterProperties = #`(
 682                 (molecule-callback . ,System_start_delimiter::brew_molecule)
 683                 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
 684                 (collapse-height . 1.0)
 685                 (thickness . 1.6)
 686                 (arch-height . 1.5)
 687                 (arch-angle . 50.0)
 688                 (arch-thick . 0.25)
 689                 (arch-width . 1.5)
 690                 (bracket-thick . 0.25)
 691                 (bracket-width . 2.0)
 692         )
 693         basicTextScriptProperties = #`(
 694                 (molecule-callback . ,Text_item::brew_molecule)
 695
 696 : -- don't set, because property-engraver will not override it.
 697 ;               (no-spacing-rods . #t)
 698                 (interfaces . (text-script-interface text-item-interface))
 699         )
 700         basicTieProperties = #`(
 701                 (molecule-callback . ,Tie::brew_molecule)
 702                 (spacing-procedure . ,Tie::set_spacing_rods)
 703                 (thickness . 1.2)
 704                 (minimum-length  . 2.5)
 705                 (interfaces . (tie-interface))
 706         )
 707         basicTieColumnProperties = #`(
 708                 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
 709                 (interfaces . (tie-column-interface))
 710         )
 711         basicTimeSignatureProperties = #`(
 712                 (molecule-callback . ,Time_signature::brew_molecule)
 713                 (break-align-symbol . Time_signature)
 714                 (visibility-lambda . ,all-visible)
 715                 (breakable . #t)
 716                 (interfaces . (time-signature-interface))
 717         )
 718         basicTupletSpannerProperties = #`(
 719                 (number-gap . 2.0)
 720                 (delta-y . 0)
 721                 (thick . 1.0)
 722                 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
 723                 (molecule-callback . ,Tuplet_spanner::brew_molecule)
 724                 (interfaces . (tuplet-spanner-interface))
 725         )
 726         basicStemTremoloProperties = #`(
 727                 (molecule-callback . ,Stem_tremolo::brew_molecule)
 728                 (beam-width . 2.0) ; staff-space
 729                 (beam-thickness . 0.42) ; staff-space
 730         )
 731
 732         basicSeparationItemProperties = #`(
 733                 (interfaces . (separation-item-interface))
 734         )
 735         basicSeparatingGroupSpannerProperties = #`(
 736                 (interfaces . (separation-spanner-interface))
 737                 (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
 738         )
 739         basicInstrumentNameProperties = #`(
 740                 (breakable . #t)
 741                 (molecule-callback . ,Text_item::brew_molecule)
 742                 (break-align-symbol . Instrument_name)
 743                 (visibility-lambda . ,begin-of-line-visible)
 744         )
 745         basicVerticalAxisGroupProperties = #`(
 746                 (axes 1)
 747                 (interfaces . (axis-group-interface))
 748         )
 749         basicVoltaSpannerProperties = #`(
 750                 (molecule-callback . ,Volta_spanner::brew_molecule)
 751                 (interfaces . (volta-spanner-interface))
 752         )
 753
 754         \accepts "Staff";
 755         \accepts "StaffGroup";
 756         \accepts "RhythmicStaff";
 757         \accepts "Lyrics";
 758         \accepts "ChordNames";
 759         \accepts "GrandStaff";
 760         \accepts "ChoirStaff";
 761         \accepts "PianoStaff";
 762         \accepts "NoteNames";
 763
 764
 765         markVisibilityFunction = #end-of-line-invisible
 766 };
 767
 768 \translator { \ScoreContext }
 769
 770 OrchestralScoreContext= \translator {
 771         \ScoreContext
 772
 773         barScriptPadding = #2.0         % dimension \pt
 774         markScriptPadding = #4.0
 775
 776         \consists "Mark_engraver";
 777 };
 778
 779 \translator {
 780         \type "Engraver_group_engraver";
 781         \name NoteNames;
 782         \consistsend "Axis_group_engraver";
 783         \consists "Note_name_engraver";
 784 }