ly/engraver-init.ly

   1 %%%% This file is part of LilyPond, the GNU music typesetter.
   2 %%%%
   3 %%%% Copyright (C) 1996--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
   4 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
   5 %%%%
   6 %%%% LilyPond is free software: you can redistribute it and/or modify
   7 %%%% it under the terms of the GNU General Public License as published by
   8 %%%% the Free Software Foundation, either version 3 of the License, or
   9 %%%% (at your option) any later version.
  10 %%%%
  11 %%%% LilyPond is distributed in the hope that it will be useful,
  12 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 %%%% GNU General Public License for more details.
  15 %%%%
  16 %%%% You should have received a copy of the GNU General Public License
  17 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 \version "2.17.29"
  20
  21 \context {
  22   \name "Global"
  23
  24   \accepts "Score"
  25
  26   \defaultchild "Score"
  27   \description "Hard coded entry point for LilyPond.  Cannot be tuned."
  28   \grobdescriptions #all-grob-descriptions
  29 }
  30
  31 \context {
  32   \type "Engraver_group"
  33   \name "FretBoards"
  34   \alias "Staff"
  35   \description "A context for displaying fret diagrams."
  36
  37   \consists "Fretboard_engraver"
  38   \consists "Output_property_engraver"
  39   \consists "Axis_group_engraver"
  40   \consists "Separating_line_group_engraver"
  41   \consists "Font_size_engraver"
  42   \consists "Instrument_name_engraver"
  43
  44   %% explicitly set instrument, so it is not inherited from the parent
  45   instrumentName = #'()
  46   shortInstrumentName = #'()
  47
  48   predefinedDiagramTable = #default-fret-table
  49   handleNegativeFrets = #'recalculate
  50   restrainOpenStrings = ##f
  51 }
  52
  53 \context {
  54   \type "Engraver_group"
  55   \name "Staff"
  56
  57   \consists "Output_property_engraver"
  58   \consists "Bar_engraver"
  59   \consists "Pure_from_neighbor_engraver"
  60   %% Bar_engraver must be first so default bars aren't overwritten
  61   %% with empty ones.
  62
  63   \consists "Font_size_engraver"
  64   \consists "Separating_line_group_engraver"
  65   \consists "Dot_column_engraver"
  66   \consists "Staff_collecting_engraver"
  67
  68  %% perhaps move to Voice context?
  69   \consists "Ottava_spanner_engraver"
  70   \consists "Clef_engraver"
  71   \consists "Key_engraver"
  72   \consists "Time_signature_engraver"
  73   \consists "Ledger_line_engraver"
  74   \consists "Staff_symbol_engraver"
  75   \consists "Collision_engraver"
  76   \consists "Grob_pq_engraver"
  77   \consists "Rest_collision_engraver"
  78   \consists "Accidental_engraver"
  79   \consists "Piano_pedal_engraver"
  80   \consists "Piano_pedal_align_engraver"
  81   \consists "Instrument_name_engraver"
  82   \consists "Axis_group_engraver"
  83   \consists "Figured_bass_engraver"
  84   \consists "Figured_bass_position_engraver"
  85   \consists "Script_row_engraver"
  86   \consists "Cue_clef_engraver"
  87   \consists "Fingering_column_engraver"
  88
  89   localKeySignature = #'()
  90   createSpacing = ##t
  91   ignoreFiguredBassRest = ##f
  92
  93   %% explicitly set instrument, so we don't get
  94   %% weird effects when doing instrument names for
  95   %% piano staves
  96   instrumentName = #'()
  97   shortInstrumentName = #'()
  98
  99   \defaultchild "Voice"
 100   \accepts "Voice"
 101   \accepts "CueVoice"
 102   \accepts "NullVoice"
 103
 104   \description "Handles clefs, bar lines, keys, accidentals.  It can contain
 105 @code{Voice} contexts."
 106
 107 }
 108
 109 \context {
 110   \Staff
 111   \type "Engraver_group"
 112   \name "DrumStaff"
 113   \alias "Staff"
 114
 115   \remove "Accidental_engraver"
 116   \remove "Ottava_spanner_engraver"
 117   \remove "Key_engraver"
 118   \remove "Piano_pedal_engraver"
 119
 120   \description "Handles typesetting for percussion."
 121
 122   \denies "Voice"
 123   \accepts "DrumVoice"
 124   \defaultchild "DrumVoice"
 125
 126   clefGlyph = #"clefs.percussion"
 127   clefPosition = #0
 128   \override Script.staff-padding = #0.75
 129 }
 130
 131
 132 \context {
 133   \type "Engraver_group"
 134   \name "ChoirStaff"
 135   \consists "Vertical_align_engraver"
 136   topLevelAlignment = ##f
 137
 138   \consists "Instrument_name_engraver"
 139   \consists "System_start_delimiter_engraver"
 140   systemStartDelimiter = #'SystemStartBracket
 141   %% explicitly set instrument, so it is not inherited from the parent
 142   instrumentName = #'()
 143   shortInstrumentName = #'()
 144   vocalName = #'()
 145   shortVocalName = #'()
 146
 147   \accepts "Staff"
 148   \accepts "DrumStaff"
 149   \accepts "RhythmicStaff"
 150   \accepts "GrandStaff"
 151   \accepts "PianoStaff"
 152   \accepts "Lyrics"
 153   \accepts "ChordNames"
 154   \accepts "FiguredBass"
 155   \accepts "ChoirStaff"
 156   \accepts "StaffGroup"
 157   \defaultchild "Staff"
 158   \description "Identical to @code{StaffGroup} except that the
 159 contained staves are not connected vertically."
 160 }
 161
 162 \context{
 163   \type "Engraver_group"
 164
 165   localKeySignature = #'()
 166   createSpacing = ##t
 167
 168   squashedPosition = #0
 169   \name RhythmicStaff
 170   \alias "Staff"
 171
 172   \override VoltaBracket.staff-padding = #3
 173   \override StaffSymbol.line-count = #1
 174
 175   \override Stem.neutral-direction = #UP
 176   \override Beam.neutral-direction = #UP
 177
 178   \consists "Output_property_engraver"
 179   \consists "Font_size_engraver"
 180   \consists "Separating_line_group_engraver"
 181   \consists "Dot_column_engraver"
 182   \consists "Bar_engraver"
 183   \consists "Staff_symbol_engraver"
 184   \consists "Pitch_squash_engraver"
 185   \consists "Time_signature_engraver"
 186   \consists "Instrument_name_engraver"
 187   \consists "Axis_group_engraver"
 188   \consists "Ledger_line_engraver"
 189
 190   %% explicitly set instrument, so it is not inherited from the parent
 191   instrumentName = #'()
 192   shortInstrumentName = #'()
 193
 194   \accepts "Voice"
 195   \accepts "CueVoice"
 196   \defaultchild "Voice"
 197
 198   \description "A context like @code{Staff} but for printing rhythms.
 199 Pitches are ignored; the notes are printed on one line."
 200 }
 201
 202
 203 \context {
 204   \type "Engraver_group"
 205   \name "Voice"
 206
 207   \description "Corresponds to a voice on a staff.  This context
 208 handles the conversion of dynamic signs, stems, beams, super- and
 209 subscripts, slurs, ties, and rests.
 210
 211 You have to instantiate this explicitly if you want to have
 212 multiple voices on the same staff."
 213
 214   \consists "Font_size_engraver"
 215
 216   \consists "Pitched_trill_engraver"
 217   \consists "Output_property_engraver"
 218   \consists "Arpeggio_engraver"
 219   \consists "Multi_measure_rest_engraver"
 220   \consists "Text_spanner_engraver"
 221   \consists "Trill_spanner_engraver"
 222   \consists "Grob_pq_engraver"
 223   \consists "Forbid_line_break_engraver"
 224   \consists "Laissez_vibrer_engraver"
 225   \consists "Repeat_tie_engraver"
 226   \consists "Note_head_line_engraver"
 227   \consists "Glissando_engraver"
 228   \consists "Ligature_bracket_engraver"
 229   \consists "Breathing_sign_engraver"
 230   \consists "Note_heads_engraver"
 231   \consists "Dots_engraver"
 232   \consists "Rest_engraver"
 233
 234   %% switch on to make stem directions interpolate for the
 235   %% center line.
 236   %  \consists "Melody_engraver"
 237
 238   \consists "Stem_engraver"
 239   \consists "Beam_engraver"
 240   \consists "Grace_beam_engraver"
 241   \consists "Auto_beam_engraver"
 242   \consists "Grace_auto_beam_engraver"
 243
 244   %% must come before Script_column_engraver.
 245   \consists "New_fingering_engraver"
 246
 247   \consists "Chord_tremolo_engraver"
 248   \consists "Double_percent_repeat_engraver"
 249   \consists "Percent_repeat_engraver"
 250   \consists "Slash_repeat_engraver"
 251   \consists "Part_combine_engraver"
 252
 253   \consists "Text_engraver"
 254   \consists "Dynamic_engraver"
 255   \consists "Dynamic_align_engraver"
 256   \consists "Fingering_engraver"
 257   \consists "Bend_engraver"
 258
 259   \consists "Script_engraver"
 260   \consists "Script_column_engraver"
 261   \consists "Rhythmic_column_engraver"
 262   \consists "Note_spacing_engraver"
 263   \consists "Spanner_break_forbid_engraver"
 264   \consists "Phrasing_slur_engraver"
 265   \consists "Cluster_spanner_engraver"
 266   \consists "Slur_engraver"
 267   \consists "Tie_engraver"
 268   \consists "Tuplet_engraver"
 269   \consists "Grace_engraver"
 270   \consists "Instrument_switch_engraver"
 271 }
 272
 273 \context{
 274   \Voice
 275
 276   \name CueVoice
 277   \alias Voice
 278   fontSize = #-4
 279   \override Stem.length-fraction = #(magstep -4)
 280   \override Beam.length-fraction = #(magstep -4)
 281   \override Beam.beam-thickness = #0.35
 282 }
 283
 284 \context {
 285   \Voice
 286   \name DrumVoice
 287   \alias Voice
 288
 289   \description "A voice on a percussion staff."
 290   \remove "Arpeggio_engraver"
 291   \consists "Grob_pq_engraver"
 292
 293   \remove "Note_head_line_engraver"
 294   \remove "Glissando_engraver"
 295   \remove "Ligature_bracket_engraver"
 296   \remove "Note_heads_engraver"
 297   \consists "Drum_notes_engraver"
 298   \remove "New_fingering_engraver"
 299
 300   \remove "Fingering_engraver"
 301
 302   \remove "Cluster_spanner_engraver"
 303 }
 304
 305 \context{
 306   \type "Engraver_group"
 307   \name GrandStaff
 308   localKeySignature = #'()
 309
 310   \description "A group of staves, with a brace on the left
 311 side, grouping the staves together.  The bar lines of the
 312 contained staves are connected vertically."
 313
 314   \consists "Instrument_name_engraver"
 315   \consists "Span_bar_engraver"
 316   \consists "Span_bar_stub_engraver"
 317   \consists "Span_arpeggio_engraver"
 318   \consists "System_start_delimiter_engraver"
 319   \consists "Vertical_align_engraver"
 320   systemStartDelimiter = #'SystemStartBrace
 321   topLevelAlignment = ##f
 322   %% explicitly set instrument, so it is not inherited from the parent
 323   instrumentName = #'()
 324   shortInstrumentName = #'()
 325
 326   \defaultchild "Staff"
 327   \accepts "Staff"
 328   \accepts "RhythmicStaff"
 329   \accepts "DrumStaff"
 330   \accepts "TabStaff"
 331   \accepts "Lyrics"
 332   \accepts "FiguredBass"
 333   \accepts "Dynamics"
 334   \accepts "ChordNames"
 335 }
 336
 337 \context{
 338   \GrandStaff
 339   \name "PianoStaff"
 340   \alias "GrandStaff"
 341
 342   \description "Just like @code{GrandStaff}, but the staves are only removed
 343 together, never separately."
 344
 345   \consists "Vertical_align_engraver"
 346   \consists "Keep_alive_together_engraver"
 347   topLevelAlignment = ##f
 348
 349   instrumentName = #'()
 350   shortInstrumentName = #'()
 351 }
 352
 353 \context {
 354   \type "Engraver_group"
 355   \name "StaffGroup"
 356
 357   \consists "Vertical_align_engraver"
 358   topLevelAlignment = ##f
 359
 360   \consists "Instrument_name_engraver"
 361   \consists "Span_bar_engraver"
 362   \consists "Span_bar_stub_engraver"
 363   \consists "Span_arpeggio_engraver"
 364   \consists "Output_property_engraver"
 365   systemStartDelimiter = #'SystemStartBracket
 366   %% explicitly set instrument, so it is not inherited from the parent
 367   instrumentName = #'()
 368   shortInstrumentName = #'()
 369
 370   \consists "System_start_delimiter_engraver"
 371
 372   \defaultchild "Staff"
 373   \accepts "Staff"
 374   \accepts "RhythmicStaff"
 375   \accepts "DrumStaff"
 376   \accepts "GrandStaff"
 377   \accepts "PianoStaff"
 378   \accepts "TabStaff"
 379   \accepts "Lyrics"
 380   \accepts "ChordNames"
 381   \accepts "FiguredBass"
 382   \accepts "ChoirStaff"
 383   \accepts "StaffGroup"
 384
 385   \description "Groups staves while adding a bracket on the left
 386 side, grouping the staves together.  The bar lines of the contained
 387 staves are connected vertically.  @code{StaffGroup} only consists of
 388 a collection of staves, with a bracket in front and spanning bar lines."
 389 }
 390
 391 \context {
 392   \type "Engraver_group"
 393   \name Dynamics
 394   \alias Voice
 395   \consists "Output_property_engraver"
 396   \consists "Bar_engraver"
 397   \consists "Piano_pedal_engraver"
 398   \consists "Script_engraver"
 399   \consists "Dynamic_engraver"
 400   \consists "Dynamic_align_engraver"
 401   \consists "Text_engraver"
 402   \consists "Text_spanner_engraver"
 403   \consists "Font_size_engraver"
 404   \consists "Axis_group_engraver"
 405
 406   pedalSustainStrings = #'("Ped." "*Ped." "*")
 407   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 408   \override VerticalAxisGroup.staff-affinity = #CENTER
 409   \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
 410     #'((basic-distance . 5)
 411        (padding . 0.5))
 412   \override TextScript.font-shape = #'italic
 413   \override DynamicLineSpanner.Y-offset = #0
 414   \override DynamicLineSpanner.outside-staff-priority = ##f
 415   \override DynamicText.outside-staff-priority = ##f
 416   \override Hairpin.outside-staff-priority = ##f
 417   \override DynamicText.X-offset =
 418   #(ly:make-simple-closure
 419     `(,+
 420       ,(ly:make-simple-closure
 421          (list ly:self-alignment-interface::centered-on-note-columns))
 422       ,(ly:make-simple-closure
 423         (list ly:self-alignment-interface::x-aligned-on-self))))
 424
 425   \description "Holds a single line of dynamics, which will be
 426 centered between the staves surrounding this context."
 427 }
 428
 429
 430 \context{
 431   \type "Engraver_group"
 432
 433   \description "Corresponds to a voice with lyrics.  Handles the
 434 printing of a single line of lyrics."
 435
 436   \name "Lyrics"
 437   \consists "Lyric_engraver"
 438   \consists "Extender_engraver"
 439   \consists "Hyphen_engraver"
 440   \consists "Stanza_number_engraver"
 441   \consists "Instrument_name_engraver"
 442   \consists "Font_size_engraver"
 443   \consists "Axis_group_engraver"
 444   \consists "Pure_from_neighbor_engraver"
 445   searchForVoice = ##f
 446   %% explicitly set instrument, so it is not inherited from the parent
 447   instrumentName = #'()
 448   shortInstrumentName = #'()
 449
 450   \override VerticalAxisGroup.remove-first = ##t
 451   \override VerticalAxisGroup.remove-empty = ##t
 452   \override VerticalAxisGroup.staff-affinity = #UP
 453   \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
 454     #'((basic-distance . 5.5)
 455        (padding . 0.5)
 456        (stretchability . 1))
 457   \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
 458      #'((basic-distance . 0)
 459         (minimum-distance . 2.8)
 460         (padding . 0.2)
 461         (stretchability . 0))
 462   \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing.padding = #1.5
 463   \override InstrumentName.self-alignment-Y = ##f
 464
 465   %% sync with define-grobs.scm ;
 466   \override InstrumentName.font-size = #1.0
 467
 468   %% make sure that barlines aren't collapsed, when
 469   %% Bar_engraver is there.
 470   \override BarLine.bar-extent = #'(-0.05 . 0.05)
 471
 472 }
 473
 474 \context {
 475   \type "Engraver_group"
 476   \name NoteNames
 477   \description "A context for printing the names of notes."
 478   \consists "Axis_group_engraver"
 479
 480   \override VerticalAxisGroup.staff-affinity = #UP
 481   \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
 482     #'((basic-distance . 0)
 483        (minimum-distance . 2.8)
 484        (padding . 0.2)
 485        (stretchability . 0))
 486   \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
 487     #'((basic-distance . 5.5)
 488        (padding . 0.5)
 489        (stretchability . 1))
 490   \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing.padding = 1.5
 491
 492   \consists "Tie_engraver"
 493   \consists "Note_name_engraver"
 494   \consists "Separating_line_group_engraver"
 495 }
 496
 497 \context {
 498   \type "Engraver_group"
 499   \name ChordNames
 500   \description "Typesets chord names."
 501
 502   \consists "Output_property_engraver"
 503   \consists "Separating_line_group_engraver"
 504   \consists "Chord_name_engraver"
 505   \consists "Axis_group_engraver"
 506 %  \consists "Note_spacing_engraver"
 507
 508   \override VerticalAxisGroup.remove-first = ##t
 509   \override VerticalAxisGroup.remove-empty = ##t
 510   \override VerticalAxisGroup.staff-affinity = #DOWN
 511   \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #0.5
 512   \override VerticalAxisGroup.nonstaff-nonstaff-spacing.padding = #0.5
 513 }
 514
 515 \context {
 516   \type "Score_engraver"
 517   \name "Score"
 518
 519   \description "This is the top level notation context.  No
 520 other context can contain a @code{Score} context.  This context
 521 handles the administration of time signatures.  It also makes sure
 522 that items such as clefs, time signatures, and key-signatures are
 523 aligned across staves.
 524
 525 You cannot explicitly instantiate a @code{Score} context (since it
 526 is not contained in any other context).  It is instantiated
 527 automatically when an output definition (a @code{\\score} or
 528 @code{\\layout} block) is processed."
 529
 530   \consists "Paper_column_engraver"
 531   \consists "Repeat_acknowledge_engraver"
 532   \consists "Staff_collecting_engraver"
 533
 534   \alias "Timing"
 535
 536   %% An alias for Timing is established by the Timing_translator in
 537   %% whatever context it is initialized, and the timing variables are
 538   %% then copied from wherever Timing had been previously established.
 539   %% The alias at Score level provides a target for initializing
 540   %% Timing variables in layout definitions before any
 541   %% Timing_translator has been run.
 542
 543   % timing translator must come BEFORE bar number engraver
 544   \consists "Timing_translator"
 545   \consists "Default_bar_line_engraver"
 546   \consists "Output_property_engraver"
 547   \consists "Tweak_engraver"
 548   \consists "System_start_delimiter_engraver"
 549   \consists "Mark_engraver"
 550   \consists "Volta_engraver"
 551   \consists "Metronome_mark_engraver"
 552   \consists "Break_align_engraver"
 553   \consists "Spacing_engraver"
 554   \consists "Grace_spacing_engraver"
 555   \consists "Vertical_align_engraver"
 556   \consists "Stanza_number_align_engraver"
 557   \consists "Bar_number_engraver"
 558   \consists "Parenthesis_engraver"
 559   \consists "Concurrent_hairpin_engraver"
 560   \consists "Beam_collision_engraver"
 561   \consists "Footnote_engraver"
 562
 563   \defaultchild "Staff"
 564
 565   \accepts "FretBoards"
 566   \accepts "Staff"
 567   \accepts "RhythmicStaff"
 568   \accepts "TabStaff"
 569   \accepts "VaticanaStaff"
 570   \accepts "GregorianTranscriptionStaff"
 571   \accepts "MensuralStaff"
 572   \accepts "PetrucciStaff"
 573   \accepts "StaffGroup"
 574   \accepts "DrumStaff"
 575   \accepts "KievanStaff"
 576   \accepts "Lyrics"
 577   \accepts "ChordNames"
 578   \accepts "GrandStaff"
 579   \accepts "ChoirStaff"
 580   \accepts "PianoStaff"
 581   \accepts "Devnull"
 582   \accepts "NoteNames"
 583   \accepts "FiguredBass"
 584
 585   noteToFretFunction = #determine-frets
 586   predefinedDiagramTable = ##f
 587   soloText = #"Solo"
 588   soloIIText = #"Solo II"
 589   aDueText = #"a2"
 590   printPartCombineTexts = ##t
 591   partCombineTextsOnNote = ##t
 592   systemStartDelimiter =#'SystemStartBar
 593
 594   drumStyleTable = #drums-style
 595
 596   melismaBusyProperties = #default-melisma-properties
 597   tieWaitForNote = ##f
 598   clefGlyph = #"clefs.G"
 599   clefPosition = #-2
 600   middleCClefPosition = #-6
 601   middleCPosition = #-6
 602   firstClef = ##t
 603
 604   crescendoSpanner = #'hairpin
 605   decrescendoSpanner = #'hairpin
 606
 607   defaultBarType = #"|"
 608   doubleRepeatType = #":..:"
 609   startRepeatType = #".|:"
 610   endRepeatType = #":|."
 611   barNumberVisibility = #first-bar-number-invisible-and-no-parenthesized-bar-numbers
 612   barNumberFormatter = #robust-bar-number-function
 613   clefTranspositionFormatter = #clef-transposition-markup
 614   cueClefTranspositionFormatter = #clef-transposition-markup
 615   automaticBars = ##t
 616
 617   explicitClefVisibility = #all-visible
 618   explicitCueClefVisibility = #end-of-line-invisible
 619   explicitKeySignatureVisibility = #all-visible
 620   implicitTimeSignatureVisibility = #end-of-line-invisible
 621
 622   repeatCountVisibility = #all-repeat-counts-visible
 623
 624 %% Other Timing variables are derived and set by the Timing_translator
 625 %% at initialization time by calling the functions in
 626 %% scm/time-signature-settings.scm
 627
 628   timeSignatureSettings = #default-time-signature-settings
 629   timeSignatureFraction = 4/4
 630
 631   beamHalfMeasure = ##t
 632
 633   autoBeaming = ##t
 634   autoBeamCheck = #default-auto-beam-check
 635
 636   scriptDefinitions = #default-script-alist
 637
 638   pedalSustainStrings = #'("Ped." "*Ped." "*")
 639   pedalSustainStyle = #'text
 640   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 641   pedalUnaCordaStyle = #'text
 642
 643 %% These are in ordinary italic font, including the *,
 644 %% but they are unlikely to be used,
 645 %% as the default pedal-style for SostenutoPedal is 'mixed':
 646 %% i.e.  Sost. Ped_____________________
 647   pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
 648   pedalSostenutoStyle = #'mixed
 649
 650   harmonicAccidentals = ##t
 651   fingeringOrientations = #'(up down)
 652   stringNumberOrientations = #'(up down)
 653   strokeFingerOrientations = #'(right)
 654
 655   lyricMelismaAlignment = #LEFT
 656   markFormatter = #format-mark-letters
 657   rehearsalMark = #1
 658   subdivideBeams = ##f
 659   extraNatural = ##t
 660   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0))
 661   autoCautionaries = #'()
 662
 663   printKeyCancellation = ##t
 664   keyAlterationOrder = #`(
 665     (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
 666     (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
 667     (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
 668     (3  . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
 669   )
 670
 671   barCheckSynchronize = ##f
 672
 673 %% chord names:
 674   chordNameFunction = #ignatzek-chord-names
 675   minorChordModifier = #(make-simple-markup "m")
 676   additionalPitchPrefix = #"" % was "add"
 677   majorSevenSymbol = #whiteTriangleMarkup
 678   chordNameLowercaseMinor = ##f
 679   chordNameSeparator = #(make-hspace-markup 0.5)
 680   slashChordSeparator = #(make-simple-markup "/")
 681   chordNameExceptions = #ignatzekExceptions
 682   chordNoteNamer = #'()
 683   chordRootNamer = #note-name->markup
 684   chordPrefixSpacer = #0
 685   chordNameExceptionsFull = #fullJazzExceptions
 686   chordNameExceptionsPartial = #partialJazzExceptions
 687   noChordSymbol = #(make-simple-markup "N.C.")
 688
 689   bassStaffProperties = #'((assign clefGlyph "clefs.F")
 690   (assign clefPosition 2)
 691   (assign middleCPosition 6)
 692   (assign middleCClefPosition 6))
 693 %% tablature:
 694   stringOneTopmost = ##t
 695   highStringOne = ##t
 696
 697 %% One may change the string tunings as follows :
 698 %% The length of the list must be equal to the number of strings
 699   stringTunings = #guitar-tuning
 700   tablatureFormat = #fret-number-tablature-format
 701   tabStaffLineLayoutFunction = #tablature-position-on-lines
 702
 703 %%
 704   figuredBassFormatter = #format-bass-figure
 705   metronomeMarkFormatter = #format-metronome-markup
 706
 707   %% See also make-voice-props-set
 708   graceSettings = #score-grace-settings
 709
 710   keepAliveInterfaces = #'(
 711     bass-figure-interface
 712     chord-name-interface
 713     cluster-beacon-interface
 714     fret-diagram-interface
 715     lyric-syllable-interface
 716     note-head-interface
 717     tab-note-head-interface
 718     lyric-interface
 719     percent-repeat-item-interface
 720     percent-repeat-interface
 721
 722     ;; need this, as stanza numbers are items, and appear only once.
 723     stanza-number-interface
 724   )
 725   % \quoteDuring is supposed to quote everything, cueDuring only the essentials
 726   quotedEventTypes = #'(StreamEvent)
 727   quotedCueEventTypes = #'(
 728     note-event
 729     rest-event
 730     tie-event
 731     beam-event
 732     tuplet-span-event)
 733   instrumentTransposition = #(ly:make-pitch 0 0 0)
 734
 735   topLevelAlignment = ##t
 736
 737   timing = ##t
 738 }
 739
 740
 741
 742
 743 \context {
 744   \type "Engraver_group"
 745   \name "FiguredBass"
 746   \description "A context for printing a figured bass line."
 747
 748   \consists "Figured_bass_engraver"
 749   \consists "Separating_line_group_engraver"
 750   \consists "Axis_group_engraver"
 751
 752   \override VerticalAxisGroup.remove-empty = ##t
 753   \override VerticalAxisGroup.remove-first = ##t
 754   \override VerticalAxisGroup.staff-affinity = #UP
 755   \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #0.5
 756   \override VerticalAxisGroup.nonstaff-nonstaff-spacing.padding = #0.5
 757 }
 758
 759 \context {
 760   \name "Devnull"
 761   \type "Engraver_group"
 762
 763 %% don't want to route anything out of here:
 764   \alias "Staff"
 765   \alias "Voice"
 766   \description "Silently discards all musical information given to this
 767 context."
 768 }
 769
 770 \context {
 771   \name "NullVoice"
 772   \type "Engraver_group"
 773
 774   \description "Non-printing context, typically used for aligning
 775 lyrics in polyphonic situations, or with @code{\partcombine}."
 776
 777   %% don't route anything out of here
 778   \alias "Staff"
 779   \alias "Voice"
 780
 781   %% all three are needed for ties to work with lyrics
 782   \consists "Note_heads_engraver"
 783   \consists "Rhythmic_column_engraver"
 784   \consists "Tie_engraver"
 785
 786   %% both are needed for melismas to work with \autoBeamOff
 787   \consists "Beam_engraver"
 788   \consists "Stem_engraver"
 789
 790   %% needed for slurs to work with lyrics
 791   \consists "Slur_engraver"
 792
 793   %% keep noteheads inside the staff
 794   \consists "Pitch_squash_engraver"
 795   squashedPosition = 0
 796
 797   %% `\omit NoteHead' would give slur attachment errors
 798   \omit Accidental
 799   \omit Beam
 800   \omit Dots
 801   \omit Flag
 802   \omit Rest
 803   \omit Slur
 804   \omit Stem
 805   \omit Tie
 806
 807   %% let these take up space (for lyric extenders, etc.)
 808   \override NoteHead.transparent = ##t
 809   \override TabNoteHead.transparent = ##t
 810
 811   %% don't let notes shift
 812   \override NoteHead.X-offset = 0
 813   \override NoteColumn.ignore-collision = ##t
 814
 815   %% keep beams and stems inside the staff
 816   \override Beam.positions = #'(1 . 1)
 817   \override Stem.length = 0
 818
 819   %% prevent "weird stem size" warnings
 820   \override Stem.direction = #UP
 821 }
 822
 823 \context {
 824   \Voice
 825   \name "TabVoice"
 826   \alias "Voice"
 827   \consists "Tab_note_heads_engraver"
 828   \consists "Tab_tie_follow_engraver"
 829
 830   \remove "Note_heads_engraver"
 831   \remove "Fingering_engraver"
 832   \remove "New_fingering_engraver"
 833   \remove "Pitched_trill_engraver"
 834
 835   \description "Context for drawing notes in a Tab staff."
 836
 837   %% No accidental in tablature !
 838   \remove "Accidental_engraver"
 839 }
 840
 841 \context {
 842   \Staff
 843   \alias "Staff"
 844   \name "TabStaff"
 845   \denies "Voice"
 846   \consists "Tab_staff_symbol_engraver"
 847
 848   \description "Context for generating tablature. It accepts only @code{TabVoice}
 849 contexts and handles the line spacing, the tablature clef etc. properly."
 850
 851   \accepts "TabVoice"
 852   \defaultchild "TabVoice"
 853
 854   %% 6 strings, bigger spacing
 855   \override StaffSymbol.staff-space = #1.5
 856
 857   %% Don't draw stems over the tablature figures !
 858   \override Stem.avoid-note-head = ##t
 859
 860   %% No accidental in tablature !
 861   \remove "Accidental_engraver"
 862   \remove "Key_engraver"
 863
 864   \remove "Ottava_spanner_engraver"
 865   %% the clef handler
 866   \override Clef.stencil = #clef::print-modern-tab-if-set
 867   %% no time signature
 868   \override TimeSignature.stencil = ##f
 869   %% no arpeggios
 870   \override Arpeggio.stencil = ##f
 871   %% we ignore collision warnings that may occur due to
 872   %% stem overlapping, because we have no stems ;-)
 873   \override NoteColumn.ignore-collision = ##t
 874   %% Special "TAB" clef
 875   clefGlyph = #"clefs.tab"
 876   clefPosition = #0
 877   %% Change string if note results in negative fret number
 878   handleNegativeFrets = #'recalculate
 879   %% Allow open strings even if minimumFret is set
 880   restrainOpenStrings = ##f
 881
 882   %% TabStaff increase the staff-space, which in turn
 883   %% increases beam thickness and spacing; beams are
 884   %% too big. We have to adjust the beam settings:
 885   \override Beam.beam-thickness = #0.32
 886   \override Beam.length-fraction = #0.62
 887   %% the same goes for tremolo beams
 888   \override StemTremolo.beam-thickness = #0.32
 889   %% NOTE: in lily/stem-tremolo.cc, we have length-fraction = 1,
 890   %% and the tablature staff space is scaled (1.5 by default),
 891   %% so we use the inversion of the scale factor:
 892   \override StemTremolo.length-fraction = #(lambda (grob)
 893                                                (/ 1 (ly:staff-symbol-staff-space grob)))
 894   \override StemTremolo.beam-width = #stem-tremolo::calc-tab-width
 895
 896   %% make the Stems as short as possible to minimize their influence
 897   %% on the slur::calc-control-points routine
 898   \override Stem.no-stem-extend = ##t
 899   \override Flag.style = #'no-flag
 900   \override Stem.details = #'((lengths 0 0 0 0 0 0)
 901                                 (beamed-lengths 0 0 0)
 902                                 (beamed-minimum-free-lengths 0 0 0)
 903                                 (beamed-extreme-minimum-free-lengths 0 0)
 904                                 (stem-shorten 0 0))
 905   %% after all, the stubs of the stems may still be visible, so ...
 906   \override Stem.stencil = ##f
 907   \override Flag.stencil = ##f
 908   %% automatic beams should be suppressed for similar reasons ...
 909   autoBeaming = ##f
 910   %% remove beams, dots and rests ...
 911   \override Beam.stencil = ##f
 912   \override StemTremolo.stencil = ##f
 913   \override Dots.stencil = ##f
 914   \override Rest.stencil = ##f
 915   \override MultiMeasureRest.stencil = ##f
 916   \override MultiMeasureRestNumber.stencil = ##f
 917   \override MultiMeasureRestText.stencil = ##f
 918   %% ... all kinds of ties/slurs
 919   \override Tie.stencil = ##f
 920   \override RepeatTie.stencil = ##f
 921   \override LaissezVibrerTie.stencil = ##f
 922   \override Slur.stencil = #slur::draw-tab-slur
 923   \override PhrasingSlur.stencil = ##f
 924   %% 'tied to' fret numbers become invisible or parenthesized, respectively)
 925   \override Tie.after-line-breaking = #tie::handle-tab-note-head
 926   \override RepeatTie.after-line-breaking = #repeat-tie::handle-tab-note-head
 927   %% ... and all kinds of markups, spanners etc.
 928   \override TupletBracket.stencil = ##f
 929   \override TupletNumber.stencil = ##f
 930   \override DynamicText.stencil = ##f
 931   \override DynamicTextSpanner.stencil = ##f
 932   \override TextSpanner.stencil = ##f
 933   \override Hairpin.stencil = ##f
 934   \override Script.stencil = ##f
 935   \override TextScript.stencil = ##f
 936   \override Glissando.stencil = #glissando::draw-tab-glissando
 937   %% the direction for glissando lines will be automatically corrected
 938   \override Glissando.extra-dy = #glissando::calc-tab-extra-dy
 939   \override Glissando.bound-details.right = #`((attach-dir . ,LEFT)
 940                                                    (padding . 0.3))
 941   \override Glissando.bound-details.left = #`((attach-dir . ,RIGHT)
 942                                                    (padding . 0.3))
 943   %% dead notes
 944   \override TabNoteHead.glyph-name = #tab-note-head::calc-glyph-name
 945   \override TabNoteHead.stencil = #tab-note-head::whiteout-if-style-set
 946 }
 947
 948 \context {
 949   \Voice
 950   \name "VaticanaVoice"
 951   \alias "Voice"
 952   \description "Same as @code{Voice} context, except that it is
 953 accommodated for typesetting Gregorian Chant in the notational style
 954 of Editio Vaticana."
 955
 956   \remove "Slur_engraver"
 957   \remove "Stem_engraver"
 958   \remove "Ligature_bracket_engraver"
 959   \consists "Vaticana_ligature_engraver"
 960   \remove "Text_spanner_engraver"
 961   \consists "Episema_engraver"
 962
 963   %% Set default head for notes outside of \[ \].
 964   \override NoteHead.style = #'vaticana.punctum
 965
 966   %% Put some space before and after divisiones.
 967   %% FIXME: This does not seem to show any effect.
 968   \override Script.padding = #0.5
 969
 970   %% There are no beams in Gregorian Chant notation.
 971   autoBeaming = ##f
 972 }
 973
 974 \context {
 975   \Staff
 976   \name "VaticanaStaff"
 977   \alias "Staff"
 978   \denies "Voice"
 979   \accepts "VaticanaVoice"
 980   \defaultchild "VaticanaVoice"
 981
 982   \description "Same as @code{Staff} context, except that it is
 983 accommodated for typesetting Gregorian Chant in the notational style
 984 of Editio Vaticana."
 985
 986   \remove "Time_signature_engraver"
 987   \consists "Custos_engraver"
 988
 989   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 990   %% not show up any more among other line breaking issues.
 991   %% Instead, we make the grob transparent.
 992   \override BarLine.transparent = ##t
 993
 994   \override StaffSymbol.line-count = #4
 995   \override StaffSymbol.thickness = #0.6
 996
 997   %% FIXME: unit on StaffSymbol's width should be \linewidth.
 998   %% \override StaffSymbol.width = #60.0
 999
1000   %% Choose vaticana do clef on 3rd line as default.
1001   clefGlyph = #"clefs.vaticana.do"
1002   middleCPosition = #1
1003   middleCClefPosition = #1
1004   clefPosition = #1
1005   clefTransposition = #0
1006
1007   %% Select vaticana style font.
1008   \override KeySignature.glyph-name-alist = #alteration-vaticana-glyph-name-alist
1009   \override Accidental.glyph-name-alist = #alteration-vaticana-glyph-name-alist
1010   \override Custos.style = #'vaticana
1011   \override Custos.neutral-position = #3
1012   \override Custos.neutral-direction = #DOWN
1013   \override Dots.style = #'vaticana
1014 }
1015
1016 \context {
1017   \Voice
1018   \name "GregorianTranscriptionVoice"
1019   \alias "Voice"
1020   \consists "Episema_engraver"
1021
1022   %% Removing ligature bracket engraver without replacing it by some
1023   %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
1024   %% warning for every "\[" and "\]".  Therefore, we make the grob
1025   %% transparent instead.
1026   \override LigatureBracket.transparent = ##t
1027
1028   %% Put some space before and after divisiones.
1029   %% FIXME: This does not seem to show any effect.
1030   \override Script.padding = #0.5
1031
1032   %% There are no beams in Gregorian Chant notation.
1033   autoBeaming = ##f
1034
1035 }
1036
1037 \context {
1038   \Staff
1039   \name "GregorianTranscriptionStaff"
1040   \alias "Staff"
1041   \denies "Voice"
1042   \accepts "GregorianTranscriptionVoice"
1043   \defaultchild "GregorianTranscriptionVoice"
1044
1045   %% We can not remove Bar_engraver; otherwise clefs and custodes will
1046   %% not show up any more among other line breaking issues.
1047   %% Instead, we make the grob transparent.
1048   \override BarLine.transparent = ##t
1049 }
1050
1051 \context {
1052   \Voice
1053   \name "MensuralVoice"
1054   \alias "Voice"
1055   \description "Same as @code{Voice} context, except that it is
1056 accommodated for typesetting a piece in mensural style."
1057
1058   \remove "Slur_engraver"
1059   \remove "Ligature_bracket_engraver"
1060   \consists "Mensural_ligature_engraver"
1061
1062   %% Set default head for notes outside of \[ \].
1063   \override NoteHead.style = #'mensural
1064   \override Rest.style = #'mensural
1065   \override Flag.style = #'mensural
1066
1067   %% There are no beams in mensural notation.
1068   autoBeaming = ##f
1069 }
1070
1071 \context {
1072   \Staff
1073   \name "MensuralStaff"
1074   \alias "Staff"
1075   \denies "Voice"
1076   \defaultchild "MensuralVoice"
1077   \accepts "MensuralVoice"
1078   \description "Same as @code{Staff} context, except that it is
1079 accommodated for typesetting a piece in mensural style."
1080
1081   \consists "Custos_engraver"
1082
1083   %% We can not remove Bar_engraver; otherwise clefs and custodes will
1084   %% not show up any more among other line breaking issues.
1085   %% Instead, we make the grob transparent.
1086   \override BarLine.transparent = ##t
1087
1088   \override StaffSymbol.thickness = #0.6
1089
1090   %% FIXME: unit on StaffSymbol's width should be \linewidth.
1091   %% \override StaffSymbol.width = #60.0
1092
1093   %% Choose mensural g clef on 2nd line as default.
1094   clefGlyph = #"clefs.mensural.g"
1095   middleCClefPosition = #-6
1096   middleCPosition = #-6
1097   clefPosition = #-2
1098   clefTransposition = #0
1099
1100   %% Select mensural style font.
1101   \override TimeSignature.style = #'mensural
1102   \override KeySignature.glyph-name-alist = #alteration-mensural-glyph-name-alist
1103   \override Accidental.glyph-name-alist = #alteration-mensural-glyph-name-alist
1104   \override Custos.style = #'mensural
1105   \override Custos.neutral-position = #3
1106   \override Custos.neutral-direction = #DOWN
1107
1108   %% Accidentals are valid only once (same as
1109   %% \accidentalStyle forget)
1110   extraNatural = ##f
1111   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave -1))
1112   autoCautionaries = #'()
1113   printKeyCancellation = ##f
1114 }
1115
1116 \context {
1117   \Voice
1118   \name "PetrucciVoice"
1119   \alias "Voice"
1120   \description "Same as @code{Voice} context, except that it is
1121 accommodated for typesetting a piece in Petrucci style."
1122
1123   \remove "Ligature_bracket_engraver"
1124   \consists "Mensural_ligature_engraver"
1125
1126   %% Set glyph styles.
1127   \override NoteHead.style = #'petrucci
1128   \override Rest.style = #'mensural
1129
1130   % Thickens and shortens stems.
1131   \override Stem.thickness = #1.7
1132   \override Stem.length = #5
1133
1134   %% There are no beams in Petrucci notation.
1135   autoBeaming = ##f
1136 }
1137
1138 \context {
1139   \Staff
1140   \name "PetrucciStaff"
1141   \alias "Staff"
1142   \denies "Voice"
1143   \defaultchild "PetrucciVoice"
1144   \accepts "PetrucciVoice"
1145   \description "Same as @code{Staff} context, except that it is
1146 accommodated for typesetting a piece in Petrucci style."
1147
1148   \consists "Custos_engraver"
1149
1150   \override StaffSymbol.thickness = #1.3
1151
1152   %% Choose Petrucci g clef on 2nd line as default.
1153   clefGlyph = #"clefs.petrucci.g"
1154   middleCClefPosition = #-6
1155   middleCPosition = #-6
1156   clefPosition = #-2
1157   clefTransposition = #0
1158
1159   \override Custos.style = #'mensural
1160   \override Custos.neutral-position = #3
1161   \override Custos.neutral-direction = #DOWN
1162
1163   %% Accidentals are valid only once (if the following note is different)
1164   extraNatural = ##f
1165   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)
1166                              ,neo-modern-accidental-rule)
1167   autoCautionaries = #'()
1168   printKeyCancellation = ##f
1169 }
1170
1171 \context {
1172  \Voice
1173  \name "KievanVoice"
1174  \alias "Voice"
1175  \description "Same as @code{Voice} context, except that it is
1176 accommodated for typesetting a piece in Kievan style."
1177
1178   \remove "Ligature_bracket_engraver"
1179   \consists "Kievan_ligature_engraver"
1180
1181  %% Set glyph styles.
1182  \override NoteHead.style = #'kievan
1183  \override Stem.X-offset = #stem::kievan-offset-callback
1184  \override Stem.stencil = ##f
1185  \override Flag.stencil = ##f
1186  \override Rest.style = #'mensural
1187  \override Accidental.glyph-name-alist = #alteration-kievan-glyph-name-alist
1188  \override Dots.style = #'kievan
1189  \override Slur.stencil = ##f
1190  \override Stem.length = #0.0
1191  \override Beam.positions = #beam::get-kievan-positions
1192  \override Beam.quantized-positions = #beam::get-kievan-quantized-positions
1193  \override NoteHead.duration-log = #note-head::calc-kievan-duration-log
1194
1195  %% There are beams in Kievan notation, but they are invoked manually
1196  autoBeaming = ##f
1197 }
1198
1199 \context {
1200  \Staff
1201  \name "KievanStaff"
1202  \alias "Staff"
1203  \denies "Voice"
1204  \defaultchild "KievanVoice"
1205  \accepts "KievanVoice"
1206  \description "Same as @code{Staff} context, except that it is
1207 accommodated for typesetting a piece in Kievan style."
1208
1209  \remove "Time_signature_engraver"
1210
1211  %% Choose Kievan tsefaut clef
1212  clefGlyph = #"clefs.kievan.do"
1213  middleCClefPosition = #0
1214  middleCPosition = #0
1215  clefPosition = #0
1216  clefTransposition = #0
1217
1218  %% Accidentals are valid only once (if the following note is different)
1219  extraNatural = ##f
1220  autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)
1221                             ,neo-modern-accidental-rule)
1222  autoCautionaries = #'()
1223  printKeyCancellation = ##f
1224
1225 }
1226
1227 %% Keep the old definitions in here for compatibility (they erase previous
1228 %% settings to the corresponding context!).
1229 %% For new scores, one should simply insert the \RemoveEmptyStaves settings
1230 %% into the desired context. That's just as easy, requires only one line more
1231 %% (the \*Staff), but preserves previous context mods.
1232 %% TODO: DEPRECATED_2.13.17, remove at some point in the future
1233 RemoveEmptyStaffContext = \context {
1234   \Staff
1235   \RemoveEmptyStaves
1236 }
1237
1238 AncientRemoveEmptyStaffContext = \context {
1239   \VaticanaStaff
1240   \RemoveEmptyStaves
1241 }
1242
1243 RemoveEmptyDrumStaffContext = \context {
1244   \DrumStaff
1245   \RemoveEmptyStaves
1246 }
1247
1248 RemoveEmptyRhythmicStaffContext = \context {
1249   \RhythmicStaff
1250   \RemoveEmptyStaves
1251 }
1252
1253 RemoveEmptyTabStaffContext = \context {
1254   \TabStaff
1255   \RemoveEmptyStaves
1256 }