ly/engraver-init.ly

   1 \version "2.1.30"
   2
   3 \context {
   4     \name Global
   5
   6     \accepts Score
   7     \description "Hard coded entry point for LilyPond. Cannot be tuned."
   8     \grobdescriptions #all-grob-descriptions
   9 }
  10
  11 %
  12 % setup for Request->Element conversion. Guru-only
  13 %
  14
  15 \context {
  16         \type "Engraver_group_engraver"
  17         \name Staff
  18
  19
  20         \consists "Output_property_engraver"
  21
  22         \consists "Bar_engraver"
  23 % Bar_engraver must be first so default bars aren't overwritten
  24 % with empty ones.
  25
  26         \consists "Font_size_engraver"
  27
  28         \consists "Volta_engraver"
  29         \consists "Separating_line_group_engraver"
  30         \consists "Dot_column_engraver"
  31
  32         % perhaps move to Voice context?
  33         \consists "Ottava_spanner_engraver"
  34         \consists "Clef_engraver"
  35         \consists "Key_engraver"
  36         \consists "Time_signature_engraver"
  37         \consists "Staff_symbol_engraver"
  38         \consists "Collision_engraver"
  39         \consists "Rest_collision_engraver"
  40         \consists "Accidental_engraver"
  41         \consists "Piano_pedal_engraver"
  42         \consists "Instrument_name_engraver"
  43         \consists "String_number_engraver"
  44         \consistsend "Axis_group_engraver"
  45
  46         minimumVerticalExtent = #'(-6 . 6)
  47         extraVerticalExtent = ##f
  48         verticalExtent = ##f
  49         localKeySignature = #'()
  50
  51         % explicitly set instrument, so we don't get
  52         % weird effects when doing instrument names for
  53         % piano staves
  54
  55         instrument = #'()
  56         instr = #'()
  57
  58         \accepts "Voice"
  59         \description "Handles clefs, bar lines, keys, accidentals.  It can contain
  60 @code{Voice} contexts."
  61
  62 }
  63
  64 \context {
  65     \StaffContext
  66     \type "Engraver_group_engraver"
  67     \name DrumStaff
  68     \alias Staff
  69
  70     \remove "Accidental_engraver"
  71     \remove "Ottava_spanner_engraver"
  72     \remove "Key_engraver"
  73     \remove "Piano_pedal_engraver"
  74     \remove "String_number_engraver"
  75
  76     \description "Handles typesetting for percussion."
  77
  78     \denies Voice
  79     \accepts DrumVoice
  80
  81     clefGlyph = #"clefs-percussion"
  82     clefPosition = #0
  83     \override Script #'staff-padding = #0.75
  84 }
  85
  86
  87 \context {
  88     \type "Engraver_group_engraver"
  89     \name InnerChoirStaff
  90     \consists "System_start_delimiter_engraver"
  91     systemStartDelimiter = #'SystemStartBracket
  92     localKeySignature = #'()
  93
  94     \accepts "Staff"
  95     \accepts "DrumStaff"
  96     \accepts "RhythmicStaff"
  97     \accepts "GrandStaff"
  98     \accepts "PianoStaff"
  99     \accepts "Lyrics"
 100     \accepts "ChordNames"
 101 }
 102
 103 \context {
 104         \InnerChoirStaffContext
 105         \name ChoirStaff
 106
 107         \accepts "InnerChoirStaff"
 108         \accepts "InnerStaffGroup"
 109         \description "Identical to @code{StaffGroup} except that the
 110     contained staves are not connected vertically."
 111
 112 }
 113
 114
 115 \context{
 116     \type "Engraver_group_engraver"
 117
 118     \consists "Output_property_engraver"
 119
 120     minimumVerticalExtent = ##f
 121     extraVerticalExtent = ##f
 122     verticalExtent = ##f
 123     localKeySignature = #'()
 124
 125     \consists "Pitch_squash_engraver"
 126     squashedPosition = #0
 127     \consists "Separating_line_group_engraver"
 128     \name RhythmicStaff
 129     \alias "Staff"
 130
 131     \override BarLine #'bar-size = #4
 132     \override VoltaBracket #'minimum-space = #15
 133     \override VoltaBracket #'padding = #5
 134     \override StaffSymbol #'line-count = #1
 135
 136     \override Stem  #'neutral-direction = #1
 137     \override Beam  #'neutral-direction = #1
 138                                 %       \consists "Repeat_engraver"
 139     \consists "Dot_column_engraver"
 140     \consists "Volta_engraver"
 141     \consists "Bar_engraver"
 142     \consists "Time_signature_engraver"
 143     \consists "Staff_symbol_engraver"
 144     \consists "Instrument_name_engraver"
 145     \consistsend "Axis_group_engraver"
 146     \accepts "Voice"
 147     \description  "
 148     A context like @code{Staff} but for printing rhythms.  Pitches are
 149     ignored; the notes are printed on one line.
 150 "
 151 }
 152
 153
 154 \context {
 155     \type "Engraver_group_engraver"
 156     \name Voice
 157
 158     \description "
 159     Corresponds to a voice on a staff.  This context handles the
 160     conversion of dynamic signs, stems, beams, super- and subscripts,
 161     slurs, ties, and rests.
 162
 163     You have to instantiate this explicitly if you want to have
 164     multiple voices on the same staff."
 165
 166     localKeySignature = #'()
 167     \consists "Font_size_engraver"
 168
 169     \consists "Output_property_engraver"
 170     \consists "Arpeggio_engraver"
 171     \consists "Multi_measure_rest_engraver"
 172     \consists "Text_spanner_engraver"
 173     \consists "Grob_pq_engraver"
 174     \consists "Forbid_line_break_engraver"
 175
 176     \consists "Note_head_line_engraver"
 177     \consists "Glissando_engraver"
 178     \consists "Ligature_bracket_engraver"
 179     \consists "Breathing_sign_engraver"
 180                                 % \consists "Rest_engraver"
 181     \consists "Note_heads_engraver"
 182     \consists "Rest_engraver"
 183
 184     \consists "Stem_engraver"
 185     \consists "Beam_engraver"
 186     \consists "Grace_beam_engraver"
 187     \consists "Auto_beam_engraver"
 188     \consists "New_fingering_engraver"
 189     \consists "Chord_tremolo_engraver"
 190     \consists "Percent_repeat_engraver"
 191     \consists "Slash_repeat_engraver"
 192     \consists "Melisma_translator"
 193     \consists "Part_combine_engraver"
 194
 195 %{
 196     Must come before text_engraver, but after note_column engraver.
 197
 198 %}
 199     \consists "Text_engraver"
 200     \consists "Dynamic_engraver"
 201     \consists "Fingering_engraver"
 202
 203     \consists "Script_engraver"
 204     \consists "Script_column_engraver"
 205     \consists "Rhythmic_column_engraver"
 206     \consists "Phrasing_slur_engraver"
 207     \consists "Cluster_spanner_engraver"
 208     \consists "Slur_engraver"
 209     \consists "Tie_engraver"
 210     \consists "Tuplet_engraver"
 211
 212     \consists "Skip_event_swallow_translator"
 213 }
 214
 215 \context {
 216     \VoiceContext
 217     \name DrumVoice
 218     \alias Voice
 219
 220     \description "A voice on a percussion staff."
 221     \remove "Arpeggio_engraver"
 222     \consists "Multi_measure_rest_engraver"
 223     \consists "Text_spanner_engraver"
 224     \consists "Grob_pq_engraver"
 225
 226     \remove "Note_head_line_engraver"
 227     \remove "Glissando_engraver"
 228     \remove "Ligature_bracket_engraver"
 229     \remove "Note_heads_engraver"
 230     \consists "Rest_engraver"
 231     \consists "Drum_notes_engraver"
 232     \remove "New_fingering_engraver"
 233
 234     \remove "Fingering_engraver"
 235
 236     \remove "Cluster_spanner_engraver"
 237     \consists "Tuplet_engraver"
 238
 239     \consists "Skip_event_swallow_translator"
 240 }
 241
 242 \context{
 243     \type "Engraver_group_engraver"
 244     \name GrandStaff
 245     localKeySignature = #'()
 246
 247     \description " A group of staffs, with a brace on the left
 248     side, grouping the staves together.  The bar lines of the
 249     contained staves are connected vertically.  "
 250
 251     \consists "Span_bar_engraver"
 252     \consists "Span_arpeggio_engraver"
 253     \consists "System_start_delimiter_engraver"
 254     systemStartDelimiter = #'SystemStartBrace
 255
 256     \accepts "Staff"
 257 }
 258
 259 \context{
 260     \GrandStaffContext
 261     \name "PianoStaff"
 262     \alias "GrandStaff"
 263
 264     \description
 265     "Just like @code{GrandStaff} but with a forced distance between
 266     the staves, so cross staff beaming and slurring can be used."
 267
 268     verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
 269     \override VerticalAlignment #'forced-distance = #12
 270     \override VerticalAlignment #'self-alignment-Y = #0
 271
 272     \consists "Vertical_align_engraver"
 273     \consists "Instrument_name_engraver"
 274
 275     instrument = #'()
 276     instr = #'()
 277 }
 278
 279 \context {
 280     \type "Engraver_group_engraver"
 281     \name InnerStaffGroup
 282     localKeySignature = #'()
 283
 284     \consists "Span_bar_engraver"
 285     \consists "Span_arpeggio_engraver"
 286     \consists "Output_property_engraver"
 287     systemStartDelimiter = #'SystemStartBracket
 288
 289     \consists "System_start_delimiter_engraver"
 290     \accepts "Staff"
 291     \accepts "RhythmicStaff"
 292     \accepts "DrumStaff"
 293     \accepts "GrandStaff"
 294     \accepts "PianoStaff"
 295     \accepts "TabStaff"
 296     \accepts "Lyrics"
 297     \accepts "ChordNames"
 298 }
 299
 300 \context {
 301     \InnerStaffGroupContext
 302     \name StaffGroup
 303
 304     \description
 305
 306     "Groups staffs while adding a bracket on the left side, grouping
 307 the staves together.  The bar lines of the contained staves are
 308 connected vertically.  "
 309
 310     \accepts "InnerChoirStaff"
 311     \accepts "ChoirStaff"
 312     \accepts "InnerStaffGroup"
 313     \accepts "FiguredBass"
 314 }
 315
 316
 317 \context{
 318     \type "Engraver_group_engraver"
 319     \consistsend "Hara_kiri_engraver"
 320     minimumVerticalExtent = #'(-1.2 . 2.4)
 321     extraVerticalExtent = ##f
 322     verticalExtent = ##f
 323
 324     \description " Corresponds to a voice with lyrics.  Handles the
 325 printing of a single line of lyrics.  "
 326
 327     \name Lyrics
 328     \consists "Separating_line_group_engraver"
 329     \consists "Lyric_engraver"
 330     \consists "Extender_engraver"
 331     \consists "Hyphen_engraver"
 332     \consists "Stanza_number_engraver"
 333     \consists "Vocal_name_engraver"
 334     \consists "Skip_event_swallow_translator"
 335     \consists "Font_size_engraver"
 336     \override SeparationItem #'padding = #0.2
 337 }
 338
 339 \context {
 340     \type "Engraver_group_engraver"
 341     \name NoteNames
 342     \consistsend "Axis_group_engraver"
 343
 344     minimumVerticalExtent = ##f
 345     extraVerticalExtent = ##f
 346     verticalExtent = ##f
 347
 348
 349     \consists "Rest_swallow_translator"
 350     \consists "Skip_event_swallow_translator"
 351     \consists "Tie_engraver"
 352     \consists "Note_name_engraver"
 353     \consists "Separating_line_group_engraver"
 354 }
 355
 356 \context {
 357     \type "Engraver_group_engraver"
 358     \name ChordNames
 359     \description "Typesets chord names."
 360
 361     \consists "Rest_swallow_translator"
 362     \consists "Output_property_engraver"
 363     \consists "Separating_line_group_engraver"
 364     \consists "Chord_name_engraver"
 365     \consists "Skip_event_swallow_translator"
 366     \consistsend "Hara_kiri_engraver"
 367
 368     minimumVerticalExtent = #'(0 . 2.5)
 369     extraVerticalExtent = ##f
 370     \override SeparatingGroupSpanner #'padding = #0.8
 371     verticalExtent = ##f
 372 }
 373
 374
 375 RemoveEmptyStaffContext= \context {
 376     \StaffContext
 377     \remove "Axis_group_engraver"
 378     \consistsend "Hara_kiri_engraver"
 379     \override Beam #'auto-knee-gap = #'()
 380 }
 381
 382 AncientRemoveEmptyStaffContext = \context {
 383     %% why not add by default?
 384
 385     \RemoveEmptyStaffContext
 386     \accepts "VaticanaVoice"
 387     \accepts "GregorianTranscriptionVoice"
 388 }
 389
 390 \context {
 391     \type Score_engraver
 392     \name Score
 393     localKeySignature = #'()
 394
 395     \description "This is the top level notation context.  No
 396     other context can contain a @code{Score} context.  This context
 397     handles the administration of time signatures.  It also makes sure
 398     that items such as clefs, time signatures, and key-signatures are
 399     aligned across staves.
 400
 401     You cannot explicitly instantiate a Score context (since it is
 402     not contained in any other context).  It is instantiated
 403     automatically when an output definition (a @code{\score} or
 404     @code{\paper} block) is processed."
 405
 406     \consists "Repeat_acknowledge_engraver"
 407     \consists "Staff_collecting_engraver"
 408
 409                                 % move the alias along with the engraver.
 410
 411     \consists "Timing_engraver"
 412
 413     \consists "Output_property_engraver"
 414     \consists "System_start_delimiter_engraver"
 415     \consists "Mark_engraver"
 416     \consists "Metronome_mark_engraver"
 417     \consists "Break_align_engraver"
 418     \consists "Spacing_engraver"
 419     \consists "Vertical_align_engraver"
 420     \consists "Stanza_number_align_engraver"
 421     \consists "Bar_number_engraver"
 422     \consists "Span_arpeggio_engraver"
 423
 424     \accepts "Staff"
 425     \accepts "TabStaff"
 426     \accepts "VaticanaStaff"
 427     \accepts "GregorianTranscriptionStaff"
 428     \accepts "StaffGroup"
 429     \accepts "RhythmicStaff"
 430     \accepts "DrumStaff"
 431     \accepts "Lyrics"
 432     \accepts "ChordNames"
 433     \accepts "GrandStaff"
 434     \accepts "ChoirStaff"
 435     \accepts "PianoStaff"
 436     \accepts "Devnull"
 437     \accepts "NoteNames"
 438     \accepts "FiguredBass"
 439
 440     soloText = #"Solo"
 441     soloIIText = #"Solo II"
 442     aDueText = #"a2"
 443     soloADue = ##t
 444     systemStartDelimiter =#'SystemStartBar
 445
 446     drumStyleTable = #drums-style
 447
 448     melismaBusyProperties = #default-melisma-properties
 449
 450     clefGlyph = #"clefs-G"
 451     clefPosition = #-2
 452     middleCPosition = #-6
 453
 454     defaultBarType = #"|"
 455     barNumberVisibility = #default-bar-number-visibility
 456     automaticBars = ##t
 457
 458     explicitClefVisibility = #all-visible
 459     explicitKeySignatureVisibility = #all-visible
 460     autoBeamSettings = #default-auto-beam-settings
 461     autoBeaming = ##t
 462     scriptDefinitions = #default-script-alist
 463
 464     verticalAlignmentChildCallback = #Align_interface::alignment_callback
 465
 466     pedalSustainStrings = #'("Ped." "*Ped." "*")
 467     pedalSustainStyle = #'text
 468     pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 469     pedalUnaCordaStyle = #'text
 470
 471     %% These are in ordinary italic font, including the *,
 472     %% but they are unlikely to be used,
 473     %% as the default pedal-style for SostenutoPedal is 'mixed':
 474     %% i.e.  Sost. Ped_____________________
 475     pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
 476     pedalSostenutoStyle = #'mixed
 477
 478     fingeringOrientations = #'(up down)
 479     tupletNumberFormatFunction = #denominator-tuplet-formatter
 480     markFormatter = #format-mark-letters
 481     rehearsalMark = #1
 482     subdivideBeams = ##f
 483     allowBeamBreak = ##f
 484     extraNatural = ##t
 485     autoAccidentals = #'(Staff (same-octave . 0))
 486     autoCautionaries = #'()
 487
 488     keyAccidentalOrder = #`(
 489         (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
 490         (3  . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
 491         (6 . ,DOUBLE-FLAT) (2  . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1  . ,DOUBLE-FLAT) (4  . ,DOUBLE-FLAT) (0  . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
 492         (3  . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
 493     )
 494
 495     %{
 496
 497     this order is more complex, see wansek p254 and further.
 498
 499     for instance, order of clef and :|: depends on function of the clef
 500
 501     (clef of start-repeat) :|: (change-clef)
 502
 503     is the proper order.
 504
 505     %}
 506     breakAlignOrder = #'(
 507     instrument-name
 508     left-edge
 509     ambitus
 510     breathing-sign
 511     clef
 512     key-signature
 513     staff-bar
 514     time-signature
 515     custos
 516     )
 517     barCheckSynchronize = ##f
 518
 519     %% chord names:
 520     chordNameFunction = #ignatzek-chord-names
 521     majorSevenSymbol = #whiteTriangleMarkup
 522     chordNameSeparator = #(make-simple-markup  "/")
 523     chordNameExceptions = #ignatzekExceptions
 524     chordNoteNamer = #'()
 525     chordRootNamer = #note-name->markup
 526     chordNameExceptionsFull = #fullJazzExceptions
 527     chordNameExceptionsPartial = #partialJazzExceptions
 528
 529     %% tablature:
 530     stringOneTopmost = ##t
 531     highStringOne = ##t
 532
 533     %% One may change the strings tuning as following :
 534     %% The lenght of the list must be equal to the number of string
 535     stringTunings = #guitar-tunings
 536     tablatureFormat = #fret-number-tablature-format
 537
 538     %%
 539     bassFigureFormatFunction = #format-bass-figure
 540     metronomeMarkFormatter = #format-metronome-markup
 541     graceSettings = #`#(
 542         (Voice Stem direction 1)
 543
 544         ;; TODO: should take from existing definition.
 545         ;; c&p from define-grobs.scm
 546
 547         (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
 548         (Voice Stem stem-shorten (0.4 0))
 549         (Voice Stem  font-size -3)
 550         (Voice NoteHead  font-size -3)
 551         (Voice Dots  font-size -3)
 552         (Voice Stem beamed-lengths
 553          ,(map (lambda (x) (* 0.8 x)) '(3.26)))
 554         (Voice Stem beamed-minimum-free-lengths
 555          ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
 556         (Voice Stem beamed-extreme-minimum-free-lengths
 557          ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
 558
 559         (Voice Stem no-stem-extend #t)
 560         (Voice Beam thickness 0.384)
 561         (Voice Beam space-function ,(lambda (beam mult)
 562                                      (* 0.8 (Beam::space_function
 563                                              beam mult))))
 564         (Voice Beam position-callbacks (,Beam::least_squares
 565                                         ,Beam::check_concave
 566                                         ,Beam::slope_damping))
 567         (Voice Accidental font-size -4)
 568         (Voice Slur direction -1)
 569     )
 570
 571 }
 572
 573 OrchestralScoreContext = \context {
 574         \ScoreContext
 575 }
 576
 577 EasyNotation = \context {
 578         \ScoreContext
 579         \override NoteHead #'print-function = #Note_head::brew_ez_stencil
 580         \override NoteHead #'Y-extent-callback = #'()
 581         \override NoteHead #'X-extent-callback = #'()
 582 }
 583
 584
 585
 586 \context {
 587         \type "Engraver_group_engraver"
 588         \name FiguredBass
 589         \consists "Figured_bass_engraver"
 590         \consists "Rest_swallow_translator"
 591         \consists "Note_swallow_translator"
 592         \consists "Skip_event_swallow_translator"
 593         \consists "Separating_line_group_engraver"
 594
 595         \consistsend "Hara_kiri_engraver"
 596 }
 597
 598 \context {
 599     \name "Devnull"
 600     \type "Engraver_group_engraver"
 601
 602     %% don't want to route anything out of here:
 603     \alias "Staff"
 604     \alias "Voice"
 605     \consists "Swallow_engraver"
 606     \description "Silently discards all musical information given to this context. "
 607     }
 608
 609 \context {
 610       \VoiceContext
 611       \name "TabVoice"
 612       \consists "Tab_note_heads_engraver"
 613       \remove "Note_heads_engraver"
 614       \remove "Fingering_engraver"
 615       \remove "New_fingering_engraver"
 616
 617       \description "Context for drawing notes in a Tab staff. "
 618       \override Slur #'font-family    = #'roman
 619       \override Slur #'print-function = #hammer-print-function
 620       \override Slur #'direction = #-1
 621
 622       % Draws all stems/beams out of the staff (and not in the middle of the staff !)
 623       % This feature is now disabled because most of the tab does not use it.
 624       %\override Beam #'damping = #100000
 625       %\override Stem #'up-to-staff = ##t
 626
 627       % No accidental in tablature !
 628       \remove Accidental_engraver
 629 }
 630
 631 \context {
 632       \StaffContext
 633       \alias "Staff"
 634       \name "TabStaff"
 635       \denies "Voice"
 636       \remove "Staff_symbol_engraver"
 637       \consists "Tab_staff_symbol_engraver"
 638
 639       \description "Context for generating tablature. [DOCME]"
 640
 641       \accepts "TabVoice"
 642
 643       % 6 strings
 644       \override StaffSymbol #'staff-space = #1.5
 645
 646      % Don't draw stems over the tablature figures !
 647       \override Stem #'avoid-note-head = ##t
 648
 649       % No accidental in tablature !
 650       \remove "Accidental_engraver"
 651       \remove "Key_engraver"
 652       \remove "String_number_engraver"
 653       % Special "TAB" clef
 654       clefGlyph = #"clefs-tab"
 655       clefPosition = #0
 656 }
 657
 658 % TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
 659 % but this does not work (is this a bug or intended behaviour?):
 660 %
 661 % If I try to do so, I get "error: unknown escaped string:
 662 % `\VaticanaStaffContext'" in params-init.ly.  If I also move
 663 % "\context { \Vaticana*Context }" from params-init.ly to the end
 664 % of gregorian-init.ly, then I get "error: parse error, unexpected
 665 % TRANSLATOR: \context { \VaticanaStaffContext }" in
 666 % gregorian-init.ly. --jr
 667
 668 \context {
 669   \VoiceContext
 670   \name "VaticanaVoice"
 671   \alias "Voice"
 672   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 673
 674   \remove "Slur_engraver"
 675   \remove "Stem_engraver"
 676   \remove "Ligature_bracket_engraver"
 677   \consists "Vaticana_ligature_engraver"
 678
 679   % Set default head for notes outside of \[ \].
 680   \override NoteHead #'style = #'vaticana_punctum
 681
 682   % Put some space before and after divisiones.
 683   % FIXME: This does not seem to show any effect.
 684   \override Script #'padding = #0.5
 685
 686   % There are no beams in Gregorian Chant notation.
 687   autobeaming = ##f
 688
 689   % Prepare TextSpanner for \episem{Initium|Finis} use.
 690   \override TextSpanner #'style = #'line
 691   \override TextSpanner #'edge-height = #'(0 . 0)
 692   \override TextSpanner #'padding = #0.5
 693   \override TextSpanner #'enclose-bounds = #1
 694   \override TextSpanner #'edge-text = #'("" . "")
 695 }
 696
 697 \context {
 698   \StaffContext
 699   \name "VaticanaStaff"
 700   \alias "Staff"
 701   \denies "Voice"
 702   \accepts "VaticanaVoice"
 703   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 704
 705   \remove "Time_signature_engraver"
 706   \consists "Custos_engraver"
 707
 708   % We can not remove Bar_engraver; otherwise clefs and custodes will
 709   % not show up any more among other line breaking issues.
 710   % Instead, we make the grob transparent.
 711   \override BarLine #'transparent = ##t
 712
 713   \override StaffSymbol #'line-count = #4
 714   \override StaffSymbol #'thickness = #0.6
 715
 716   % FIXME: unit on StaffSymbol's width should be \linewidth.
 717   % \override StaffSymbol #'width = #60.0
 718
 719   % Choose vaticana do clef on 3rd line as default.
 720   clefGlyph = #"clefs-vaticana_do"
 721   middleCPosition = #1
 722   clefPosition = #1
 723   clefOctavation = #0
 724
 725   % Select vaticana style font.
 726   \override KeySignature #'style = #'vaticana
 727   \override Accidental #'style = #'vaticana
 728   \override Custos #'style = #'vaticana
 729   \override Custos #'neutral-position = #3
 730   \override Custos #'neutral-direction = #-1
 731
 732   % Score.timing = ##f
 733   % Score.barAlways = ##t
 734 }
 735
 736 \context {
 737   \VoiceContext
 738   \name "GregorianTranscriptionVoice"
 739   \alias "Voice"
 740
 741   % Removing ligature bracket engraver without replacing it by some
 742   % other ligature engraver would cause a "Junking event: `LigatureEvent'"
 743   % warning for every "\[" and "\]".  Therefore, we make the grob
 744   % transparent instead.
 745   \override LigatureBracket #'transparent = ##t
 746
 747   % Put some space before and after divisiones.
 748   % FIXME: This does not seem to show any effect.
 749   \override Script #'padding = #0.5
 750
 751   % There are no beams in Gregorian Chant notation.
 752   autobeaming = ##f
 753
 754   % Prepare TextSpanner for \episem{Initium|Finis} use.
 755   \override TextSpanner #'style = #'line
 756   \override TextSpanner #'edge-height = #'(0 . 0)
 757   \override TextSpanner #'padding = #0.5
 758   \override TextSpanner #'enclose-bounds = #1
 759   \override TextSpanner #'edge-text = #'("" . "")
 760 }
 761  \context {
 762   \StaffContext
 763   \name "GregorianTranscriptionStaff"
 764   \alias "Staff"
 765   \denies "Voice"
 766   \accepts "GregorianTranscriptionVoice"
 767
 768   % We can not remove Bar_engraver; otherwise clefs and custodes will
 769   % not show up any more among other line breaking issues.
 770   % Instead, we make the grob transparent.
 771   \override BarLine #'transparent = ##t
 772 }