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