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