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