ly/engraver-init.ly

   1 %%%% This file is part of LilyPond, the GNU music typesetter.
   2 %%%%
   3 %%%% Copyright (C) 1996--2011 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.15.20"
  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   \description "A context for displaying fret diagrams."
  35
  36   \consists "Fretboard_engraver"
  37   \consists "Output_property_engraver"
  38   \consists "Hara_kiri_engraver"
  39   \consists "Separating_line_group_engraver"
  40   \consists "Font_size_engraver"
  41   \consists "Instrument_name_engraver"
  42
  43   %% explicitly set instrument, so it is not inherited from the parent
  44   instrumentName = #'()
  45   shortInstrumentName = #'()
  46
  47   predefinedDiagramTable = #default-fret-table
  48   handleNegativeFrets = #'recalculate
  49 }
  50
  51 \context {
  52   \type "Engraver_group"
  53   \name "Staff"
  54
  55   \consists "Output_property_engraver"
  56   \consists "Bar_engraver"
  57   \consists "Pure_from_neighbor_engraver"
  58   %% Bar_engraver must be first so default bars aren't overwritten
  59   %% with empty ones.
  60
  61   \consists "Font_size_engraver"
  62   \consists "Separating_line_group_engraver"
  63   \consists "Dot_column_engraver"
  64   \consists "Staff_collecting_engraver"
  65
  66  %% perhaps move to Voice context?
  67   \consists "Ottava_spanner_engraver"
  68   \consists "Clef_engraver"
  69   \consists "Key_engraver"
  70   \consists "Time_signature_engraver"
  71   \consists "Ledger_line_engraver"
  72   \consists "Staff_symbol_engraver"
  73   \consists "Collision_engraver"
  74   \consists "Beam_collision_engraver"
  75   \consists "Grob_pq_engraver"
  76   \consists "Rest_collision_engraver"
  77   \consists "Accidental_engraver"
  78   \consists "Piano_pedal_engraver"
  79   \consists "Piano_pedal_align_engraver"
  80   \consists "Instrument_name_engraver"
  81   \consists "Axis_group_engraver"
  82   \consists "Figured_bass_engraver"
  83   \consists "Figured_bass_position_engraver"
  84   \consists "Script_row_engraver"
  85   \consists "Cue_clef_engraver"
  86
  87   localKeySignature = #'()
  88   createSpacing = ##t
  89   ignoreFiguredBassRest = ##f
  90
  91   %% explicitly set instrument, so we don't get
  92   %% weird effects when doing instrument names for
  93   %% piano staves
  94   instrumentName = #'()
  95   shortInstrumentName = #'()
  96
  97   \defaultchild "Voice"
  98   \accepts "Voice"
  99   \accepts "CueVoice"
 100
 101   \description "Handles clefs, bar lines, keys, accidentals.  It can contain
 102 @code{Voice} contexts."
 103
 104 }
 105
 106 \context {
 107   \Staff
 108   \type "Engraver_group"
 109   \name "DrumStaff"
 110   \alias "Staff"
 111
 112   \remove "Accidental_engraver"
 113   \remove "Ottava_spanner_engraver"
 114   \remove "Key_engraver"
 115   \remove "Piano_pedal_engraver"
 116
 117   \description "Handles typesetting for percussion."
 118
 119   \denies "Voice"
 120   \accepts "DrumVoice"
 121   \defaultchild "DrumVoice"
 122
 123   clefGlyph = #"clefs.percussion"
 124   clefPosition = #0
 125   \override Script #'staff-padding = #0.75
 126 }
 127
 128
 129 \context {
 130   \type "Engraver_group"
 131   \name "ChoirStaff"
 132   \consists "Vertical_align_engraver"
 133   topLevelAlignment = ##f
 134
 135   \consists "Instrument_name_engraver"
 136   \consists "System_start_delimiter_engraver"
 137   systemStartDelimiter = #'SystemStartBracket
 138   %% explicitly set instrument, so it is not inherited from the parent
 139   instrumentName = #'()
 140   shortInstrumentName = #'()
 141   vocalName = #'()
 142   shortVocalName = #'()
 143
 144   \accepts "Staff"
 145   \accepts "DrumStaff"
 146   \accepts "RhythmicStaff"
 147   \accepts "GrandStaff"
 148   \accepts "PianoStaff"
 149   \accepts "Lyrics"
 150   \accepts "ChordNames"
 151   \accepts "FiguredBass"
 152   \accepts "ChoirStaff"
 153   \accepts "StaffGroup"
 154   \defaultchild "Staff"
 155   \description "Identical to @code{StaffGroup} except that the
 156 contained staves are not connected vertically."
 157 }
 158
 159 \context{
 160   \type "Engraver_group"
 161
 162   localKeySignature = #'()
 163   createSpacing = ##t
 164
 165   squashedPosition = #0
 166   \name RhythmicStaff
 167   \alias "Staff"
 168
 169   \override BarLine #'bar-extent = #'(-2 . 2)
 170   \override VoltaBracket #'staff-padding = #3
 171   \override StaffSymbol #'line-count = #1
 172
 173   \override Stem  #'neutral-direction = #UP
 174   \override Beam  #'neutral-direction = #UP
 175
 176   \consists "Output_property_engraver"
 177   \consists "Font_size_engraver"
 178   \consists "Separating_line_group_engraver"
 179   \consists "Dot_column_engraver"
 180   \consists "Bar_engraver"
 181   \consists "Staff_symbol_engraver"
 182   \consists "Pitch_squash_engraver"
 183   \consists "Time_signature_engraver"
 184   \consists "Instrument_name_engraver"
 185   \consists "Axis_group_engraver"
 186   \consists "Ledger_line_engraver"
 187
 188   %% explicitly set instrument, so it is not inherited from the parent
 189   instrumentName = #'()
 190   shortInstrumentName = #'()
 191
 192   \accepts "Voice"
 193   \accepts "CueVoice"
 194   \defaultchild "Voice"
 195
 196   \description "A context like @code{Staff} but for printing rhythms.
 197 Pitches are ignored; the notes are printed on one line."
 198 }
 199
 200
 201 \context {
 202   \type "Engraver_group"
 203   \name "Voice"
 204
 205   \description "Corresponds to a voice on a staff.  This context
 206 handles the conversion of dynamic signs, stems, beams, super- and
 207 subscripts, slurs, ties, and rests.
 208
 209 You have to instantiate this explicitly if you want to have
 210 multiple voices on the same staff."
 211
 212   \consists "Font_size_engraver"
 213
 214   \consists "Pitched_trill_engraver"
 215   \consists "Output_property_engraver"
 216   \consists "Arpeggio_engraver"
 217   \consists "Multi_measure_rest_engraver"
 218   \consists "Text_spanner_engraver"
 219   \consists "Trill_spanner_engraver"
 220   \consists "Grob_pq_engraver"
 221   \consists "Forbid_line_break_engraver"
 222   \consists "Laissez_vibrer_engraver"
 223   \consists "Repeat_tie_engraver"
 224   \consists "Note_head_line_engraver"
 225   \consists "Glissando_engraver"
 226   \consists "Ligature_bracket_engraver"
 227   \consists "Breathing_sign_engraver"
 228   \consists "Note_heads_engraver"
 229   \consists "Dots_engraver"
 230   \consists "Rest_engraver"
 231   \consists "Tweak_engraver"
 232   \consists "Footnote_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
 243   %% must come before Script_column_engraver.
 244   \consists "New_fingering_engraver"
 245
 246   \consists "Chord_tremolo_engraver"
 247   \consists "Double_percent_repeat_engraver"
 248   \consists "Percent_repeat_engraver"
 249   \consists "Slash_repeat_engraver"
 250   \consists "Part_combine_engraver"
 251
 252   \consists "Text_engraver"
 253   \consists "New_dynamic_engraver"
 254   \consists "Dynamic_align_engraver"
 255 %  \consists "Dynamic_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_arpeggio_engraver"
 363   \consists "Output_property_engraver"
 364   systemStartDelimiter = #'SystemStartBracket
 365   %% explicitly set instrument, so it is not inherited from the parent
 366   instrumentName = #'()
 367   shortInstrumentName = #'()
 368
 369   \consists "System_start_delimiter_engraver"
 370
 371   \defaultchild "Staff"
 372   \accepts "Staff"
 373   \accepts "RhythmicStaff"
 374   \accepts "DrumStaff"
 375   \accepts "GrandStaff"
 376   \accepts "PianoStaff"
 377   \accepts "TabStaff"
 378   \accepts "Lyrics"
 379   \accepts "ChordNames"
 380   \accepts "FiguredBass"
 381   \accepts "ChoirStaff"
 382   \accepts "StaffGroup"
 383
 384   \description "Groups staves while adding a bracket on the left
 385 side, grouping the staves together.  The bar lines of the contained
 386 staves are connected vertically.  @code{StaffGroup} only consists of
 387 a collection of staves, with a bracket in front and spanning bar lines."
 388 }
 389
 390 \context {
 391   \type "Engraver_group"
 392   \name Dynamics
 393   \alias Voice
 394   \consists "Output_property_engraver"
 395   \consists "Bar_engraver"
 396   \consists "Piano_pedal_engraver"
 397   \consists "Script_engraver"
 398   \consists "New_dynamic_engraver"
 399   \consists "Dynamic_align_engraver"
 400   \consists "Text_engraver"
 401   \consists "Text_spanner_engraver"
 402   \consists "Axis_group_engraver"
 403   \consists "Tweak_engraver"
 404
 405   pedalSustainStrings = #'("Ped." "*Ped." "*")
 406   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 407   \override VerticalAxisGroup #'staff-affinity = #CENTER
 408   \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing =
 409     #'((basic-distance . 5)
 410        (padding . 0.5))
 411   \override TextScript #'font-shape = #'italic
 412   \override DynamicLineSpanner #'Y-offset = #0
 413
 414   \description "Holds a single line of dynamics, which will be
 415 centered between the staves surrounding this context."
 416 }
 417
 418
 419 \context{
 420   \type "Engraver_group"
 421
 422   \description "Corresponds to a voice with lyrics.  Handles the
 423 printing of a single line of lyrics."
 424
 425   \name "Lyrics"
 426   \consists "Lyric_engraver"
 427   \consists "Extender_engraver"
 428   \consists "Hyphen_engraver"
 429   \consists "Stanza_number_engraver"
 430   \consists "Instrument_name_engraver"
 431   \consists "Font_size_engraver"
 432   \consists "Hara_kiri_engraver"
 433   \consists "Pure_from_neighbor_engraver"
 434   searchForVoice = ##f
 435   %% explicitly set instrument, so it is not inherited from the parent
 436   instrumentName = #'()
 437   shortInstrumentName = #'()
 438
 439   \override VerticalAxisGroup #'remove-first = ##t
 440   \override VerticalAxisGroup #'remove-empty = ##t
 441   \override VerticalAxisGroup #'staff-affinity = #UP
 442   \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing =
 443     #'((basic-distance . 5.5)
 444        (padding . 0.5)
 445        (stretchability . 1))
 446   \override VerticalAxisGroup #'nonstaff-nonstaff-spacing =
 447      #'((basic-distance . 0)
 448         (minimum-distance . 2.8)
 449         (padding . 0.2)
 450         (stretchability . 0))
 451   \override VerticalAxisGroup #'nonstaff-unrelatedstaff-spacing #'padding = #1.5
 452   \override InstrumentName #'self-alignment-Y = ##f
 453
 454   %% sync with define-grobs.scm ;
 455   \override InstrumentName #'font-size = #1.0
 456
 457   %% make sure that barlines aren't collapsed, when
 458   %% Bar_engraver is there.
 459   \override BarLine #'bar-extent = #'(-0.05 . 0.05)
 460
 461 }
 462
 463 \context {
 464   \type "Engraver_group"
 465   \name NoteNames
 466   \description "A context for printing the names of notes."
 467   \consists "Axis_group_engraver"
 468
 469   \override VerticalAxisGroup #'staff-affinity = #UP
 470   \override VerticalAxisGroup #'nonstaff-nonstaff-spacing =
 471     #'((basic-distance . 0)
 472        (minimum-distance . 2.8)
 473        (padding . 0.2)
 474        (stretchability . 0))
 475   \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing =
 476     #'((basic-distance . 5.5)
 477        (padding . 0.5)
 478        (stretchability . 1))
 479   \override VerticalAxisGroup
 480     #'nonstaff-unrelatedstaff-spacing #'padding = 1.5
 481
 482   \consists "Tie_engraver"
 483   \consists "Note_name_engraver"
 484   \consists "Separating_line_group_engraver"
 485 }
 486
 487 \context {
 488   \type "Engraver_group"
 489   \name ChordNames
 490   \description "Typesets chord names."
 491
 492   \consists "Output_property_engraver"
 493   \consists "Separating_line_group_engraver"
 494   \consists "Chord_name_engraver"
 495   \consists "Hara_kiri_engraver"
 496 %  \consists "Note_spacing_engraver"
 497   \override VerticalAxisGroup #'remove-first = ##t
 498   \override VerticalAxisGroup #'remove-empty = ##t
 499   \override VerticalAxisGroup #'staff-affinity = #DOWN
 500   \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing #'padding = #0.5
 501   \override VerticalAxisGroup #'nonstaff-nonstaff-spacing #'padding = #0.5
 502 }
 503
 504 \context {
 505   \type "Score_engraver"
 506   \name "Score"
 507
 508   \description "This is the top level notation context.  No
 509 other context can contain a @code{Score} context.  This context
 510 handles the administration of time signatures.  It also makes sure
 511 that items such as clefs, time signatures, and key-signatures are
 512 aligned across staves.
 513
 514 You cannot explicitly instantiate a @code{Score} context (since it
 515 is not contained in any other context).  It is instantiated
 516 automatically when an output definition (a @code{\score} or
 517 @code{\layout} block) is processed."
 518
 519   \consists "Paper_column_engraver"
 520   \consists "Repeat_acknowledge_engraver"
 521   \consists "Staff_collecting_engraver"
 522
 523   %% move the alias along with the engraver.
 524
 525   \consists "Timing_translator"
 526   \consists "Default_bar_line_engraver"
 527   \consists "Output_property_engraver"
 528   \consists "System_start_delimiter_engraver"
 529   \consists "Mark_engraver"
 530   \consists "Volta_engraver"
 531   \consists "Metronome_mark_engraver"
 532   \consists "Break_align_engraver"
 533   \consists "Spacing_engraver"
 534   \consists "Grace_spacing_engraver"
 535   \consists "Vertical_align_engraver"
 536   \consists "Stanza_number_align_engraver"
 537   \consists "Bar_number_engraver"
 538   \consists "Parenthesis_engraver"
 539
 540   \defaultchild "Staff"
 541
 542   \accepts "FretBoards"
 543   \accepts "Staff"
 544   \accepts "RhythmicStaff"
 545   \accepts "TabStaff"
 546   \accepts "VaticanaStaff"
 547   \accepts "GregorianTranscriptionStaff"
 548   \accepts "MensuralStaff"
 549   \accepts "PetrucciStaff"
 550   \accepts "StaffGroup"
 551   \accepts "DrumStaff"
 552   \accepts "Lyrics"
 553   \accepts "ChordNames"
 554   \accepts "GrandStaff"
 555   \accepts "ChoirStaff"
 556   \accepts "PianoStaff"
 557   \accepts "Devnull"
 558   \accepts "NoteNames"
 559   \accepts "FiguredBass"
 560
 561
 562   noteToFretFunction = #determine-frets
 563   predefinedDiagramTable = ##f
 564   soloText = #"Solo"
 565   soloIIText = #"Solo II"
 566   aDueText = #"a2"
 567   printPartCombineTexts = ##t
 568   partCombineTextsOnNote = ##t
 569   systemStartDelimiter =#'SystemStartBar
 570
 571   drumStyleTable = #drums-style
 572
 573   melismaBusyProperties = #default-melisma-properties
 574   tieWaitForNote = ##f
 575   clefGlyph = #"clefs.G"
 576   clefPosition = #-2
 577   middleCClefPosition = #-6
 578   middleCPosition = #-6
 579   firstClef = ##t
 580
 581   crescendoSpanner = #'hairpin
 582   decrescendoSpanner = #'hairpin
 583
 584   defaultBarType = #"|"
 585   doubleRepeatType = #":|:"
 586   barNumberVisibility = #first-bar-number-invisible
 587   automaticBars = ##t
 588
 589   explicitClefVisibility = #all-visible
 590   explicitCueClefVisibility = #end-of-line-invisible
 591   explicitKeySignatureVisibility = #all-visible
 592   implicitTimeSignatureVisibility = #end-of-line-invisible
 593
 594   repeatCountVisibility = #all-repeat-counts-visible
 595
 596   timeSignatureSettings = #default-time-signature-settings
 597   timeSignatureFraction = #'(4 . 4)
 598
 599 %% These defaults should be the same as the rules established in
 600 %%   scm/time-signature-settings.scm for 4/4 time
 601   measureLength = #(ly:make-moment 4 4)
 602   baseMoment = #(ly:make-moment 1  4)
 603   beatStructure = #'(1 1 1 1)
 604   beamExceptions = #'((end . (((1 . 8) . (4 4))
 605                               ((1 . 12) . (3 3 3 3)))))
 606   autoBeaming = ##t
 607   autoBeamCheck = #default-auto-beam-check
 608
 609   scriptDefinitions = #default-script-alist
 610
 611   pedalSustainStrings = #'("Ped." "*Ped." "*")
 612   pedalSustainStyle = #'text
 613   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 614   pedalUnaCordaStyle = #'text
 615
 616 %% These are in ordinary italic font, including the *,
 617 %% but they are unlikely to be used,
 618 %% as the default pedal-style for SostenutoPedal is 'mixed':
 619 %% i.e.  Sost. Ped_____________________
 620   pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
 621   pedalSostenutoStyle = #'mixed
 622
 623   harmonicAccidentals = ##t
 624   fingeringOrientations = #'(up down)
 625   stringNumberOrientations = #'(up down)
 626   strokeFingerOrientations = #'(right)
 627
 628   lyricMelismaAlignment = #LEFT
 629   markFormatter = #format-mark-letters
 630   rehearsalMark = #1
 631   subdivideBeams = ##f
 632   extraNatural = ##t
 633   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0))
 634   autoCautionaries = #'()
 635
 636   printKeyCancellation = ##t
 637   keyAlterationOrder = #`(
 638     (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
 639     (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
 640     (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
 641     (3  . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
 642   )
 643
 644   barCheckSynchronize = ##f
 645
 646 %% chord names:
 647   chordNameFunction = #ignatzek-chord-names
 648   minorChordModifier = #(make-simple-markup "m")
 649   additionalPitchPrefix = #"" % was "add"
 650   majorSevenSymbol = #whiteTriangleMarkup
 651   chordNameLowercaseMinor = ##f
 652   chordNameSeparator = #(make-hspace-markup 0.5)
 653   slashChordSeparator = #(make-simple-markup "/")
 654   chordNameExceptions = #ignatzekExceptions
 655   chordNoteNamer = #'()
 656   chordRootNamer = #note-name->markup
 657   chordPrefixSpacer = #0
 658   chordNameExceptionsFull = #fullJazzExceptions
 659   chordNameExceptionsPartial = #partialJazzExceptions
 660   noChordSymbol = #(make-simple-markup "N.C.")
 661
 662   bassStaffProperties = #'((assign clefGlyph "clefs.F")
 663   (assign clefPosition 2)
 664   (assign middleCPosition 6)
 665   (assign middleCClefPosition 6))
 666 %% tablature:
 667   stringOneTopmost = ##t
 668   highStringOne = ##t
 669
 670 %% One may change the string tunings as follows :
 671 %% The length of the list must be equal to the number of strings
 672   stringTunings = #guitar-tuning
 673   tablatureFormat = #fret-number-tablature-format
 674   tabStaffLineLayoutFunction = #tablature-position-on-lines
 675
 676 %%
 677   figuredBassFormatter = #format-bass-figure
 678   metronomeMarkFormatter = #format-metronome-markup
 679
 680
 681   %% See also make-voice-props-set
 682   graceSettings = #`(
 683     (Voice Stem direction ,UP)
 684     (Voice Stem font-size -3)
 685     (Voice Flag font-size -3)
 686     (Voice NoteHead font-size -3)
 687     (Voice TabNoteHead font-size -4)
 688     (Voice Dots font-size -3)
 689     (Voice Stem length-fraction 0.8)
 690     (Voice Stem no-stem-extend #t)
 691     (Voice Beam beam-thickness 0.384)
 692     (Voice Beam length-fraction 0.8)
 693     (Voice Accidental font-size -4)
 694     (Voice AccidentalCautionary font-size -4)
 695     (Voice Slur direction ,DOWN)
 696     (Voice Script font-size -3)
 697     (Voice Fingering font-size -8)
 698     (Voice StringNumber font-size -8)
 699   )
 700
 701   keepAliveInterfaces = #'(
 702     bass-figure-interface
 703     chord-name-interface
 704     cluster-beacon-interface
 705     fret-diagram-interface
 706     lyric-syllable-interface
 707     note-head-interface
 708     tab-note-head-interface
 709     lyric-interface
 710     percent-repeat-item-interface
 711     percent-repeat-interface
 712
 713     ;; need this, as stanza numbers are items, and appear only once.
 714     stanza-number-interface
 715   )
 716   % \quoteDuring is supposed to quote everything, cueDuring only the essentials
 717   quotedEventTypes = #'(StreamEvent)
 718   quotedCueEventTypes = #'(
 719     note-event
 720     rest-event
 721     tie-event
 722     beam-event
 723     tuplet-span-event)
 724   instrumentTransposition = #(ly:make-pitch 0 0 0)
 725
 726   topLevelAlignment = ##t
 727
 728   timing = ##t
 729 }
 730
 731
 732
 733
 734 \context {
 735   \type "Engraver_group"
 736   \name "FiguredBass"
 737   \description "A context for printing a figured bass line."
 738
 739   \consists "Figured_bass_engraver"
 740   \consists "Separating_line_group_engraver"
 741   \consists "Hara_kiri_engraver"
 742
 743   \override VerticalAxisGroup #'remove-empty = ##t
 744   \override VerticalAxisGroup #'remove-first = ##t
 745   \override VerticalAxisGroup #'staff-affinity = #UP
 746   \override VerticalAxisGroup #'nonstaff-relatedstaff-spacing #'padding = #0.5
 747   \override VerticalAxisGroup #'nonstaff-nonstaff-spacing #'padding = #0.5
 748 }
 749
 750 \context {
 751   \name "Devnull"
 752   \type "Engraver_group"
 753
 754 %% don't want to route anything out of here:
 755   \alias "Staff"
 756   \alias "Voice"
 757   \description "Silently discards all musical information given to this
 758 context."
 759 }
 760
 761 \context {
 762   \Voice
 763   \name "TabVoice"
 764   \alias "Voice"
 765   \consists "Tab_note_heads_engraver"
 766   \consists "Tab_tie_follow_engraver"
 767
 768   \remove "Note_heads_engraver"
 769   \remove "Fingering_engraver"
 770   \remove "New_fingering_engraver"
 771
 772   \description "Context for drawing notes in a Tab staff."
 773
 774   %% TabStaff increase the staff-space, which in turn
 775   %% increases beam thickness and spacing; beams are
 776   %% too big. We have to adjust the beam settings:
 777   \override Beam #'beam-thickness = #0.32
 778   \override Beam #'length-fraction = #0.62
 779   %% the same goes for tremolo beams
 780   \override StemTremolo #'beam-thickness = #0.32
 781   %% NOTE: in lily/stem-tremolo.cc, we have length-fraction = 1,
 782   %% and the tablature staff space is scaled (1.5 by default),
 783   %% so we use the inversion of the scale factor:
 784   \override StemTremolo #'length-fraction = #(lambda (grob)
 785                                                (/ 1 (ly:staff-symbol-staff-space grob)))
 786   \override StemTremolo #'beam-width = #stem-tremolo::calc-tab-width
 787
 788   %% No accidental in tablature !
 789   \remove "Accidental_engraver"
 790   %% make the Stems as short as possible to minimize their influence
 791   %% on the slur::calc-control-points routine
 792   \override Stem #'no-stem-extend = ##t
 793   \override Flag #'style = #'no-flag
 794   \override Stem #'details = #'((lengths 0 0 0 0 0 0)
 795                                 (beamed-lengths 0 0 0)
 796                                 (beamed-minimum-free-lengths 0 0 0)
 797                                 (beamed-extreme-minimum-free-lengths 0 0)
 798                                 (stem-shorten 0 0))
 799   %% after all, the stubs of the stems may still be visible, so ...
 800   \override Stem #'transparent = ##t
 801   \override Flag #'transparent = ##t
 802   %% automatic beams should be suppressed for similar reasons ...
 803   autoBeaming = ##f
 804   %% remove beams, dots and rests ...
 805   \override Beam #'stencil = ##f
 806   \override StemTremolo #'stencil = ##f
 807   \override Dots #'stencil = ##f
 808   \override Rest #'stencil = ##f
 809   \override MultiMeasureRest #'stencil = ##f
 810   \override MultiMeasureRestNumber #'transparent = ##t
 811   \override MultiMeasureRestText #'transparent = ##t
 812   %% ... all kinds of ties/slurs
 813   \override Tie  #'stencil = ##f
 814   \override RepeatTie #'stencil = ##f
 815   \override LaissezVibrerTie #'stencil = ##f
 816   \override Slur #'stencil = #slur::draw-tab-slur
 817   \override PhrasingSlur #'stencil = ##f
 818   %% 'tied to' fret numbers become invisible or parenthesized, respectively)
 819   \override Tie #'after-line-breaking = #tie::handle-tab-note-head
 820   \override RepeatTie #'after-line-breaking = #repeat-tie::handle-tab-note-head
 821   %% ... and all kinds of markups, spanners etc.
 822   \override TupletBracket #'stencil = ##f
 823   \override TupletNumber #'stencil = ##f
 824   \override DynamicText #'transparent = ##t
 825   \override DynamicTextSpanner #'stencil = ##f
 826   \override TextSpanner #'stencil = ##f
 827   \override Hairpin #'transparent = ##t
 828   \override Script #'stencil = ##f
 829   \override TextScript #'stencil = ##f
 830   \override Glissando #'stencil = #glissando::draw-tab-glissando
 831   %% the direction for glissando lines will be automatically corrected
 832   \override Glissando #'extra-dy = #glissando::calc-tab-extra-dy
 833   \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT)
 834                                                    (padding . 0.3))
 835   \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT)
 836                                                    (padding . 0.3))
 837   %% dead notes
 838   \override TabNoteHead #'glyph-name = #tab-note-head::calc-glyph-name
 839   \override TabNoteHead #'stencil = #tab-note-head::whiteout-if-style-set
 840 }
 841
 842 \context {
 843   \Staff
 844   \alias "Staff"
 845   \name "TabStaff"
 846   \denies "Voice"
 847   \consists "Tab_staff_symbol_engraver"
 848
 849   \description "Context for generating tablature. It accepts only @code{TabVoice}
 850 contexts and handles the line spacing, the tablature clef etc. properly."
 851
 852   \accepts "TabVoice"
 853   \defaultchild "TabVoice"
 854
 855   %% 6 strings, bigger spacing
 856   \override StaffSymbol #'staff-space = #1.5
 857
 858   %% Don't draw stems over the tablature figures !
 859   \override Stem #'avoid-note-head = ##t
 860
 861   %% No accidental in tablature !
 862   \remove "Accidental_engraver"
 863   \remove "Key_engraver"
 864
 865   \remove "Ottava_spanner_engraver"
 866   %% the clef handler
 867   \override Clef #'stencil = #clef::print-modern-tab-if-set
 868   %% no time signature
 869   \override TimeSignature #'stencil = ##f
 870   %% no arpeggios
 871   \override Arpeggio #'stencil = ##f
 872   %% we ignore collision warnings that may occur due to
 873   %% stem overlapping, because we have no stems ;-)
 874   \override NoteColumn #'ignore-collision = ##t
 875   %% Special "TAB" clef
 876   clefGlyph = #"clefs.tab"
 877   clefPosition = #0
 878   %% Change string if note results in negative fret number
 879   handleNegativeFrets = #'recalculate
 880 }
 881
 882 \context {
 883   \Voice
 884   \name "VaticanaVoice"
 885   \alias "Voice"
 886   \description "Same as @code{Voice} context, except that it is
 887 accommodated for typesetting Gregorian Chant in the notational style
 888 of Editio Vaticana."
 889
 890   \remove "Slur_engraver"
 891   \remove "Stem_engraver"
 892   \remove "Ligature_bracket_engraver"
 893   \consists "Vaticana_ligature_engraver"
 894   \remove "Text_spanner_engraver"
 895   \consists "Episema_engraver"
 896
 897   %% Set default head for notes outside of \[ \].
 898   \override NoteHead #'style = #'vaticana.punctum
 899
 900   %% Put some space before and after divisiones.
 901   %% FIXME: This does not seem to show any effect.
 902   \override Script #'padding = #0.5
 903
 904   %% There are no beams in Gregorian Chant notation.
 905   autoBeaming = ##f
 906 }
 907
 908 \context {
 909   \Staff
 910   \name "VaticanaStaff"
 911   \alias "Staff"
 912   \denies "Voice"
 913   \accepts "VaticanaVoice"
 914   \defaultchild "VaticanaVoice"
 915
 916   \description "Same as @code{Staff} context, except that it is
 917 accommodated for typesetting Gregorian Chant in the notational style
 918 of Editio Vaticana."
 919
 920   \remove "Time_signature_engraver"
 921   \consists "Custos_engraver"
 922
 923   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 924   %% not show up any more among other line breaking issues.
 925   %% Instead, we make the grob transparent.
 926   \override BarLine #'transparent = ##t
 927
 928   \override StaffSymbol #'line-count = #4
 929   \override StaffSymbol #'thickness = #0.6
 930
 931   %% FIXME: unit on StaffSymbol's width should be \linewidth.
 932   %% \override StaffSymbol #'width = #60.0
 933
 934   %% Choose vaticana do clef on 3rd line as default.
 935   clefGlyph = #"clefs.vaticana.do"
 936   middleCPosition = #1
 937   middleCClefPosition = #1
 938   clefPosition = #1
 939   clefOctavation = #0
 940
 941   %% Select vaticana style font.
 942   \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
 943   \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
 944   \override Custos #'style = #'vaticana
 945   \override Custos #'neutral-position = #3
 946   \override Custos #'neutral-direction = #DOWN
 947   \override Dots #'style = #'vaticana
 948 }
 949
 950 \context {
 951   \Voice
 952   \name "GregorianTranscriptionVoice"
 953   \alias "Voice"
 954   \consists "Episema_engraver"
 955
 956   %% Removing ligature bracket engraver without replacing it by some
 957   %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
 958   %% warning for every "\[" and "\]".  Therefore, we make the grob
 959   %% transparent instead.
 960   \override LigatureBracket #'transparent = ##t
 961
 962   %% Put some space before and after divisiones.
 963   %% FIXME: This does not seem to show any effect.
 964   \override Script #'padding = #0.5
 965
 966   %% There are no beams in Gregorian Chant notation.
 967   autoBeaming = ##f
 968
 969 }
 970
 971 \context {
 972   \Staff
 973   \name "GregorianTranscriptionStaff"
 974   \alias "Staff"
 975   \denies "Voice"
 976   \accepts "GregorianTranscriptionVoice"
 977   \defaultchild "GregorianTranscriptionVoice"
 978
 979   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 980   %% not show up any more among other line breaking issues.
 981   %% Instead, we make the grob transparent.
 982   \override BarLine #'transparent = ##t
 983 }
 984
 985 \context {
 986   \Voice
 987   \name "MensuralVoice"
 988   \alias "Voice"
 989   \description "Same as @code{Voice} context, except that it is
 990 accommodated for typesetting a piece in mensural style."
 991
 992   \remove "Slur_engraver"
 993   \remove "Ligature_bracket_engraver"
 994   \consists "Mensural_ligature_engraver"
 995
 996   %% Set default head for notes outside of \[ \].
 997   \override NoteHead #'style = #'mensural
 998   \override Rest #'style = #'mensural
 999   \override Flag #'style = #'mensural
1000
1001   %% There are no beams in mensural notation.
1002   autoBeaming = ##f
1003 }
1004
1005 \context {
1006   \Staff
1007   \name "MensuralStaff"
1008   \alias "Staff"
1009   \denies "Voice"
1010   \defaultchild "MensuralVoice"
1011   \accepts "MensuralVoice"
1012   \description "Same as @code{Staff} context, except that it is
1013 accommodated for typesetting a piece in mensural style."
1014
1015   \consists "Custos_engraver"
1016
1017   %% We can not remove Bar_engraver; otherwise clefs and custodes will
1018   %% not show up any more among other line breaking issues.
1019   %% Instead, we make the grob transparent.
1020   \override BarLine #'transparent = ##t
1021
1022   \override StaffSymbol #'thickness = #0.6
1023
1024   %% FIXME: unit on StaffSymbol's width should be \linewidth.
1025   %% \override StaffSymbol #'width = #60.0
1026
1027   %% Choose mensural g clef on 2nd line as default.
1028   clefGlyph = #"clefs.mensural.g"
1029   middleCClefPosition = #-6
1030   middleCPosition = #-6
1031   clefPosition = #-2
1032   clefOctavation = #0
1033
1034   %% Select mensural style font.
1035   \override TimeSignature #'style = #'mensural
1036   \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
1037   \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
1038   \override Custos #'style = #'mensural
1039   \override Custos #'neutral-position = #3
1040   \override Custos #'neutral-direction = #DOWN
1041
1042   %% Accidentals are valid only once (same as
1043   %% \accidentalStyle "forget")
1044   extraNatural = ##f
1045   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave -1))
1046   autoCautionaries = #'()
1047   printKeyCancellation = ##f
1048 }
1049
1050 \context {
1051   \Voice
1052   \name "PetrucciVoice"
1053   \alias "Voice"
1054   \description "Same as @code{Voice} context, except that it is
1055 accommodated for typesetting a piece in Petrucci style."
1056
1057   \remove "Ligature_bracket_engraver"
1058   \consists "Mensural_ligature_engraver"
1059
1060   %% Set glyph styles.
1061   \override NoteHead #'style = #'petrucci
1062   \override Rest #'style = #'mensural
1063
1064   % Thickens and shortens stems.
1065   \override Stem #'thickness = #1.7
1066   \override Stem #'length = #5
1067
1068   %% There are no beams in Petrucci notation.
1069   autoBeaming = ##f
1070 }
1071
1072 \context {
1073   \Staff
1074   \name "PetrucciStaff"
1075   \alias "Staff"
1076   \denies "Voice"
1077   \defaultchild "PetrucciVoice"
1078   \accepts "PetrucciVoice"
1079   \description "Same as @code{Staff} context, except that it is
1080 accommodated for typesetting a piece in Petrucci style."
1081
1082   \consists "Custos_engraver"
1083
1084   \override StaffSymbol #'thickness = #1.3
1085
1086   %% Choose Petrucci g clef on 2nd line as default.
1087   clefGlyph = #"clefs.petrucci.g"
1088   middleCClefPosition = #-6
1089   middleCPosition = #-6
1090   clefPosition = #-2
1091   clefOctavation = #0
1092
1093   \override Custos #'style = #'mensural
1094   \override Custos #'neutral-position = #3
1095   \override Custos #'neutral-direction = #DOWN
1096
1097   %% Accidentals are valid only once (if the following note is different)
1098   extraNatural = ##f
1099   autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)
1100                              ,neo-modern-accidental-rule)
1101   autoCautionaries = #'()
1102   printKeyCancellation = ##f
1103 }
1104
1105 %% Keep the old definitions in here for compatibility (they erase previous
1106 %% settings to the corresponding context!).
1107 %% For new scores, one should simply insert the \RemoveEmptyStaves settings
1108 %% into the desired context. That's just as easy, requires only one line more
1109 %% (the \*Staff), but preserves previous context mods.
1110 %% TODO: DEPRECATED_2.13.17, remove at some point in the future
1111 RemoveEmptyStaffContext = \context {
1112   \Staff
1113   \RemoveEmptyStaves
1114 }
1115
1116 AncientRemoveEmptyStaffContext = \context {
1117   \VaticanaStaff
1118   \RemoveEmptyStaves
1119 }
1120
1121 RemoveEmptyDrumStaffContext = \context {
1122   \DrumStaff
1123   \RemoveEmptyStaves
1124 }
1125
1126 RemoveEmptyRhythmicStaffContext = \context {
1127   \RhythmicStaff
1128   \RemoveEmptyStaves
1129 }
1130
1131 RemoveEmptyTabStaffContext = \context {
1132   \TabStaff
1133   \RemoveEmptyStaves
1134 }