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