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