ly/engraver-init.ly

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