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