ly/engraver-init.ly

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