ly/engraver-init.ly

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