ly/engraver-init.ly

   1 \version "2.3.8"
   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 = #'(-6 . 6)
  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     soloADue = ##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     %% tablature:
 519     stringOneTopmost = ##t
 520     highStringOne = ##t
 521
 522     %% One may change the strings tuning as following :
 523     %% The lenght of the list must be equal to the number of string
 524     stringTunings = #guitar-tunings
 525     tablatureFormat = #fret-number-tablature-format
 526
 527     %%
 528     bassFigureFormatFunction = #format-bass-figure
 529     metronomeMarkFormatter = #format-metronome-markup
 530     graceSettings = #`#(
 531         (Voice Stem direction 1)
 532         ;; TODO: should take from existing definition.
 533         ;; c&p from define-grobs.scm
 534
 535         (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
 536         (Voice Stem stem-shorten (0.4 0.4))
 537         (Voice Stem  font-size -3)
 538         (Voice NoteHead  font-size -3)
 539         (Voice Dots  font-size -3)
 540         (Voice Stem beamed-lengths
 541          ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
 542         (Voice Stem beamed-minimum-free-lengths
 543          ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
 544         (Voice Stem beamed-extreme-minimum-free-lengths
 545          ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
 546
 547         (Voice Stem no-stem-extend #t)
 548         (Voice Beam thickness 0.384)
 549         (Voice Beam space-function ,(lambda (beam mult)
 550                                      (* 0.8 (Beam::space_function
 551                                              beam mult))))
 552         (Voice Accidental font-size -4)
 553         (Voice Slur direction -1)
 554     )
 555
 556 }
 557
 558 EasyNotation = \context {       % TODO: why \context override?
 559         \Score
 560         \override NoteHead #'print-function = #Note_head::brew_ez_stencil
 561         \override NoteHead #'Y-extent-callback = #'()
 562         \override NoteHead #'X-extent-callback = #'()
 563 }
 564
 565
 566
 567 \context {
 568         \type "Engraver_group_engraver"
 569         \name FiguredBass
 570         \consists "Figured_bass_engraver"
 571         \consists "Rest_swallow_translator"
 572         \consists "Note_swallow_translator"
 573         \consists "Skip_event_swallow_translator"
 574         \consists "Separating_line_group_engraver"
 575
 576         \consists "Hara_kiri_engraver"
 577 }
 578
 579 \context {
 580     \name "Devnull"
 581     \type "Engraver_group_engraver"
 582
 583     %% don't want to route anything out of here:
 584     \alias "Staff"
 585     \alias "Voice"
 586     \consists "Swallow_engraver"
 587     \description "Silently discards all musical information given to this context. "
 588     }
 589
 590 \context {
 591       \Voice
 592       \name "TabVoice"
 593       \consists "Tab_note_heads_engraver"
 594       \remove "Note_heads_engraver"
 595       \remove "Fingering_engraver"
 596       \remove "New_fingering_engraver"
 597
 598       \description "Context for drawing notes in a Tab staff. "
 599       \override Slur #'font-family    = #'roman
 600       \override Slur #'print-function = #hammer-print-function
 601       \override Slur #'direction = #-1
 602
 603       % Draws all stems/beams out of the staff (and not in the middle of the staff !)
 604       % This feature is now disabled because most of the tab does not use it.
 605       %\override Beam #'damping = #100000
 606       %\override Stem #'up-to-staff = ##t
 607
 608       % No accidental in tablature !
 609       \remove Accidental_engraver
 610 }
 611
 612 \context {
 613       \Staff
 614       \alias "Staff"
 615       \name "TabStaff"
 616       \denies "Voice"
 617       \remove "Staff_symbol_engraver"
 618       \consists "Tab_staff_symbol_engraver"
 619
 620       \description "Context for generating tablature. [DOCME]"
 621
 622       \accepts "TabVoice"
 623
 624       % 6 strings
 625       \override StaffSymbol #'staff-space = #1.5
 626
 627      % Don't draw stems over the tablature figures !
 628       \override Stem #'avoid-note-head = ##t
 629
 630       % No accidental in tablature !
 631       \remove "Accidental_engraver"
 632       \remove "Key_engraver"
 633       \remove "String_number_engraver"
 634       % Special "TAB" clef
 635       clefGlyph = #"clefs-tab"
 636       clefPosition = #0
 637 }
 638
 639 % TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
 640 % but this does not work (is this a bug or intended behaviour?):
 641 %
 642 % If I try to do so, I get "error: unknown escaped string:
 643 % `\VaticanaStaff'" in params-init.ly.  If I also move
 644 % "\context { \Vaticana*Context }" from params-init.ly to the end
 645 % of gregorian-init.ly, then I get "error: parse error, unexpected
 646 % TRANSLATOR: \context { \VaticanaStaff }" in
 647 % gregorian-init.ly. --jr
 648
 649 \context {
 650   \Voice
 651   \name "VaticanaVoice"
 652   \alias "Voice"
 653   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 654
 655   \remove "Slur_engraver"
 656   \remove "Stem_engraver"
 657   \remove "Ligature_bracket_engraver"
 658   \consists "Vaticana_ligature_engraver"
 659
 660   % Set default head for notes outside of \[ \].
 661   \override NoteHead #'style = #'vaticana_punctum
 662
 663   % Put some space before and after divisiones.
 664   % FIXME: This does not seem to show any effect.
 665   \override Script #'padding = #0.5
 666
 667   % There are no beams in Gregorian Chant notation.
 668   autoBeaming = ##f
 669
 670   % Prepare TextSpanner for \episem{Initium|Finis} use.
 671   \override TextSpanner #'style = #'line
 672   \override TextSpanner #'edge-height = #'(0 . 0)
 673   \override TextSpanner #'padding = #0.5
 674   \override TextSpanner #'enclose-bounds = #1
 675   \override TextSpanner #'edge-text = #'("" . "")
 676 }
 677
 678 \context {
 679   \Staff
 680   \name "VaticanaStaff"
 681   \alias "Staff"
 682   \denies "Voice"
 683   \accepts "VaticanaVoice"
 684   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 685
 686   \remove "Time_signature_engraver"
 687   \consists "Custos_engraver"
 688
 689   % We can not remove Bar_engraver; otherwise clefs and custodes will
 690   % not show up any more among other line breaking issues.
 691   % Instead, we make the grob transparent.
 692   \override BarLine #'transparent = ##t
 693
 694   \override StaffSymbol #'line-count = #4
 695   \override StaffSymbol #'thickness = #0.6
 696
 697   % FIXME: unit on StaffSymbol's width should be \linewidth.
 698   % \override StaffSymbol #'width = #60.0
 699
 700   % Choose vaticana do clef on 3rd line as default.
 701   clefGlyph = #"clefs-vaticana_do"
 702   middleCPosition = #1
 703   clefPosition = #1
 704   clefOctavation = #0
 705
 706   % Select vaticana style font.
 707   \override KeySignature #'style = #'vaticana
 708   \override Accidental #'style = #'vaticana
 709   \override Custos #'style = #'vaticana
 710   \override Custos #'neutral-position = #3
 711   \override Custos #'neutral-direction = #-1
 712
 713   % Score.timing = ##f
 714   % Score.barAlways = ##t
 715 }
 716
 717 \context {
 718   \Voice
 719   \name "GregorianTranscriptionVoice"
 720   \alias "Voice"
 721
 722   % Removing ligature bracket engraver without replacing it by some
 723   % other ligature engraver would cause a "Junking event: `LigatureEvent'"
 724   % warning for every "\[" and "\]".  Therefore, we make the grob
 725   % transparent instead.
 726   \override LigatureBracket #'transparent = ##t
 727
 728   % Put some space before and after divisiones.
 729   % FIXME: This does not seem to show any effect.
 730   \override Script #'padding = #0.5
 731
 732   % There are no beams in Gregorian Chant notation.
 733   autoBeaming = ##f
 734
 735   % Prepare TextSpanner for \episem{Initium|Finis} use.
 736   \override TextSpanner #'style = #'line
 737   \override TextSpanner #'edge-height = #'(0 . 0)
 738   \override TextSpanner #'padding = #0.5
 739   \override TextSpanner #'enclose-bounds = #1
 740   \override TextSpanner #'edge-text = #'("" . "")
 741 }
 742  \context {
 743   \Staff
 744   \name "GregorianTranscriptionStaff"
 745   \alias "Staff"
 746   \denies "Voice"
 747   \accepts "GregorianTranscriptionVoice"
 748
 749   % We can not remove Bar_engraver; otherwise clefs and custodes will
 750   % not show up any more among other line breaking issues.
 751   % Instead, we make the grob transparent.
 752   \override BarLine #'transparent = ##t
 753 }