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