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