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