ly/engraver-init.ly

   1 \version "2.3.16"
   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 = #'(-4 . 4)
  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     \accepts "MensuralVoice"
 386 }
 387
 388 \context {
 389     \type Score_engraver
 390     \name Score
 391
 392     \description "This is the top level notation context.  No
 393     other context can contain a @code{Score} context.  This context
 394     handles the administration of time signatures.  It also makes sure
 395     that items such as clefs, time signatures, and key-signatures are
 396     aligned across staves.
 397
 398     You cannot explicitly instantiate a Score context (since it is
 399     not contained in any other context).  It is instantiated
 400     automatically when an output definition (a @code{\score} or
 401     @code{\paper} block) is processed."
 402
 403     \consists "Repeat_acknowledge_engraver"
 404     \consists "Staff_collecting_engraver"
 405
 406                                 % move the alias along with the engraver.
 407
 408     \consists "Timing_engraver"
 409
 410     \consists "Output_property_engraver"
 411     \consists "System_start_delimiter_engraver"
 412     \consists "Mark_engraver"
 413     \consists "Metronome_mark_engraver"
 414     \consists "Break_align_engraver"
 415     \consists "Spacing_engraver"
 416     \consists "Vertical_align_engraver"
 417     \consists "Stanza_number_align_engraver"
 418     \consists "Bar_number_engraver"
 419     \consists "Span_arpeggio_engraver"
 420
 421     \accepts "Staff"
 422     \accepts "TabStaff"
 423     \accepts "VaticanaStaff"
 424     \accepts "GregorianTranscriptionStaff"
 425     \accepts "MensuralStaff"
 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     printPartCombineTexts = ##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
 521     bassStaffProperties = #'((assign clefGlyph "clefs-F")
 522       (assign clefPosition 2)
 523       (assign middleCPosition 6))
 524     %% tablature:
 525     stringOneTopmost = ##t
 526     highStringOne = ##t
 527
 528     %% One may change the strings tuning as following :
 529     %% The lenght of the list must be equal to the number of string
 530     stringTunings = #guitar-tunings
 531     tablatureFormat = #fret-number-tablature-format
 532
 533     %%
 534     bassFigureFormatFunction = #format-bass-figure
 535     metronomeMarkFormatter = #format-metronome-markup
 536     graceSettings = #`#(
 537         (Voice Stem direction 1)
 538         ;; TODO: should take from existing definition.
 539         ;; c&p from define-grobs.scm
 540
 541         (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
 542         (Voice Stem stem-shorten (0.4 0.4))
 543         (Voice Stem  font-size -3)
 544         (Voice NoteHead  font-size -3)
 545         (Voice Dots  font-size -3)
 546         (Voice Stem beamed-lengths
 547          ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
 548         (Voice Stem beamed-minimum-free-lengths
 549          ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
 550         (Voice Stem beamed-extreme-minimum-free-lengths
 551          ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
 552
 553         (Voice Stem no-stem-extend #t)
 554         (Voice Beam thickness 0.384)
 555         (Voice Beam space-function ,(lambda (beam mult)
 556                                      (* 0.8 (Beam::space_function
 557                                              beam mult))))
 558         (Voice Accidental font-size -4)
 559         (Voice Slur direction -1)
 560     )
 561
 562   quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event)
 563 }
 564
 565 EasyNotation = \context {       % TODO: why \context override?
 566         \Score
 567         \override NoteHead #'print-function = #Note_head::brew_ez_stencil
 568         \override NoteHead #'Y-extent-callback = #'()
 569         \override NoteHead #'X-extent-callback = #'()
 570 }
 571
 572
 573
 574 \context {
 575         \type "Engraver_group_engraver"
 576         \name FiguredBass
 577         \consists "Figured_bass_engraver"
 578         \consists "Rest_swallow_translator"
 579         \consists "Note_swallow_translator"
 580         \consists "Skip_event_swallow_translator"
 581         \consists "Separating_line_group_engraver"
 582
 583         \consists "Hara_kiri_engraver"
 584 }
 585
 586 \context {
 587     \name "Devnull"
 588     \type "Engraver_group_engraver"
 589
 590     %% don't want to route anything out of here:
 591     \alias "Staff"
 592     \alias "Voice"
 593     \consists "Swallow_engraver"
 594     \description "Silently discards all musical information given to this context. "
 595     }
 596
 597 \context {
 598       \Voice
 599       \name "TabVoice"
 600       \consists "Tab_note_heads_engraver"
 601       \remove "Note_heads_engraver"
 602       \remove "Fingering_engraver"
 603       \remove "New_fingering_engraver"
 604
 605       \description "Context for drawing notes in a Tab staff. "
 606       \override Slur #'font-family    = #'roman
 607       \override Slur #'print-function = #hammer-print-function
 608       \override Slur #'direction = #-1
 609
 610       % Draws all stems/beams out of the staff (and not in the middle of the staff !)
 611       % This feature is now disabled because most of the tab does not use it.
 612       %\override Beam #'damping = #100000
 613       %\override Stem #'up-to-staff = ##t
 614
 615       % No accidental in tablature !
 616       \remove Accidental_engraver
 617 }
 618
 619 \context {
 620       \Staff
 621       \alias "Staff"
 622       \name "TabStaff"
 623       \denies "Voice"
 624       \remove "Staff_symbol_engraver"
 625       \consists "Tab_staff_symbol_engraver"
 626
 627       \description "Context for generating tablature. [DOCME]"
 628
 629       \accepts "TabVoice"
 630
 631       % 6 strings
 632       \override StaffSymbol #'staff-space = #1.5
 633
 634      % Don't draw stems over the tablature figures !
 635       \override Stem #'avoid-note-head = ##t
 636
 637       % No accidental in tablature !
 638       \remove "Accidental_engraver"
 639       \remove "Key_engraver"
 640       \remove "String_number_engraver"
 641       % Special "TAB" clef
 642       clefGlyph = #"clefs-tab"
 643       clefPosition = #0
 644 }
 645
 646 % TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
 647 % but this does not work (is this a bug or intended behaviour?):
 648 %
 649 % If I try to do so, I get "error: unknown escaped string:
 650 % `\VaticanaStaff'" in params-init.ly.  If I also move
 651 % "\context { \Vaticana*Context }" from params-init.ly to the end
 652 % of gregorian-init.ly, then I get "error: parse error, unexpected
 653 % TRANSLATOR: \context { \VaticanaStaff }" in
 654 % gregorian-init.ly. --jr
 655
 656 \context {
 657   \Voice
 658   \name "VaticanaVoice"
 659   \alias "Voice"
 660   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 661
 662   \remove "Slur_engraver"
 663   \remove "Stem_engraver"
 664   \remove "Ligature_bracket_engraver"
 665   \consists "Vaticana_ligature_engraver"
 666
 667   % Set default head for notes outside of \[ \].
 668   \override NoteHead #'style = #'vaticana-punctum
 669
 670   % Put some space before and after divisiones.
 671   % FIXME: This does not seem to show any effect.
 672   \override Script #'padding = #0.5
 673
 674   % There are no beams in Gregorian Chant notation.
 675   autoBeaming = ##f
 676
 677   % Prepare TextSpanner for \episem{Initium|Finis} use.
 678   \override TextSpanner #'style = #'line
 679   \override TextSpanner #'edge-height = #'(0 . 0)
 680   \override TextSpanner #'padding = #0.5
 681   \override TextSpanner #'enclose-bounds = #1
 682   \override TextSpanner #'edge-text = #'("" . "")
 683 }
 684
 685 \context {
 686   \Staff
 687   \name "VaticanaStaff"
 688   \alias "Staff"
 689   \denies "Voice"
 690   \accepts "VaticanaVoice"
 691   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 692
 693   \remove "Time_signature_engraver"
 694   \consists "Custos_engraver"
 695
 696   % We can not remove Bar_engraver; otherwise clefs and custodes will
 697   % not show up any more among other line breaking issues.
 698   % Instead, we make the grob transparent.
 699   \override BarLine #'transparent = ##t
 700
 701   \override StaffSymbol #'line-count = #4
 702   \override StaffSymbol #'thickness = #0.6
 703
 704   % FIXME: unit on StaffSymbol's width should be \linewidth.
 705   % \override StaffSymbol #'width = #60.0
 706
 707   % Choose vaticana do clef on 3rd line as default.
 708   clefGlyph = #"clefs-vaticana-do"
 709   middleCPosition = #1
 710   clefPosition = #1
 711   clefOctavation = #0
 712
 713   % Select vaticana style font.
 714   \override KeySignature #'style = #'vaticana
 715   \override Accidental #'style = #'vaticana
 716   \override Custos #'style = #'vaticana
 717   \override Custos #'neutral-position = #3
 718   \override Custos #'neutral-direction = #-1
 719
 720   % Score.timing = ##f
 721   % Score.barAlways = ##t
 722 }
 723
 724 \context {
 725   \Voice
 726   \name "GregorianTranscriptionVoice"
 727   \alias "Voice"
 728
 729   % Removing ligature bracket engraver without replacing it by some
 730   % other ligature engraver would cause a "Junking event: `LigatureEvent'"
 731   % warning for every "\[" and "\]".  Therefore, we make the grob
 732   % transparent instead.
 733   \override LigatureBracket #'transparent = ##t
 734
 735   % Put some space before and after divisiones.
 736   % FIXME: This does not seem to show any effect.
 737   \override Script #'padding = #0.5
 738
 739   % There are no beams in Gregorian Chant notation.
 740   autoBeaming = ##f
 741
 742   % Prepare TextSpanner for \episem{Initium|Finis} use.
 743   \override TextSpanner #'style = #'line
 744   \override TextSpanner #'edge-height = #'(0 . 0)
 745   \override TextSpanner #'padding = #0.5
 746   \override TextSpanner #'enclose-bounds = #1
 747   \override TextSpanner #'edge-text = #'("" . "")
 748 }
 749  \context {
 750   \Staff
 751   \name "GregorianTranscriptionStaff"
 752   \alias "Staff"
 753   \denies "Voice"
 754   \accepts "GregorianTranscriptionVoice"
 755
 756   % We can not remove Bar_engraver; otherwise clefs and custodes will
 757   % not show up any more among other line breaking issues.
 758   % Instead, we make the grob transparent.
 759   \override BarLine #'transparent = ##t
 760 }
 761
 762 \context {
 763   \Voice
 764   \name "MensuralVoice"
 765   \alias "Voice"
 766   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style."
 767
 768   \remove "Slur_engraver"
 769   \remove "Ligature_bracket_engraver"
 770   \consists "Mensural_ligature_engraver"
 771
 772   % Set default head for notes outside of \[ \].
 773   \override NoteHead #'style = #'mensural
 774
 775   % There are no beams in mensural notation.
 776   autoBeaming = ##f
 777 }
 778
 779 \context {
 780   \Staff
 781   \name "MensuralStaff"
 782   \alias "Staff"
 783   \denies "Voice"
 784   \accepts "MensuralVoice"
 785   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style."
 786
 787   \consists "Custos_engraver"
 788
 789   % We can not remove Bar_engraver; otherwise clefs and custodes will
 790   % not show up any more among other line breaking issues.
 791   % Instead, we make the grob transparent.
 792   \override BarLine #'transparent = ##t
 793
 794   \override StaffSymbol #'thickness = #0.6
 795
 796   % FIXME: unit on StaffSymbol's width should be \linewidth.
 797   % \override StaffSymbol #'width = #60.0
 798
 799   % Choose vaticana do clef on 3rd line as default.
 800   clefGlyph = #"clefs-petrucci-g"
 801   middleCPosition = #-6
 802   clefPosition = #-2
 803   clefOctavation = #0
 804
 805   % Select mensural style font.
 806   \override TimeSignature #'style = #'mensural
 807   \override KeySignature #'style = #'mensural
 808   \override Accidental #'style = #'mensural
 809   \override Custos #'style = #'mensural
 810   \override Custos #'neutral-position = #3
 811   \override Custos #'neutral-direction = #-1
 812
 813   % Score.timing = ##f
 814   % Score.barAlways = ##t
 815 }