ly/engraver-init.ly

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