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