ly/engraver-init.ly

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