ly/engraver-init.ly

   1 \version "2.7.39"
   2
   3 \context {
   4   \name "Global"
   5
   6   \accepts "Score"
   7
   8   \defaultchild "Score"
   9   \description "Hard coded entry point for LilyPond. Cannot be tuned."
  10   \grobdescriptions #all-grob-descriptions
  11 }
  12
  13 \context {
  14   \type "Engraver_group"
  15   \name "Staff"
  16
  17   \consists "Output_property_engraver"
  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   \consists "Volta_engraver"
  24   \consists "Separating_line_group_engraver"
  25   \consists "Dot_column_engraver"
  26
  27   %% perhaps move to Voice context?
  28   \consists "Ottava_spanner_engraver"
  29   \consists "Clef_engraver"
  30   \consists "Key_engraver"
  31   \consists "Time_signature_engraver"
  32   \consists "Ledger_line_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   \consists "Axis_group_engraver"
  41
  42   \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4)
  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   \defaultchild "Voice"
  56   \accepts "Voice"
  57   \accepts "CueVoice"
  58
  59   \description "Handles clefs, bar lines, keys, accidentals.  It can contain
  60 @code{Voice} contexts."
  61
  62 }
  63
  64 \context {
  65   \Staff
  66   \type "Engraver_group"
  67   \name "DrumStaff"
  68   \alias "Staff"
  69
  70   \remove "Accidental_engraver"
  71   \remove "Ottava_spanner_engraver"
  72   \remove "Key_engraver"
  73   \remove "Piano_pedal_engraver"
  74   \remove "String_number_engraver"
  75
  76   \description "Handles typesetting for percussion."
  77
  78   \denies "Voice"
  79   \accepts "DrumVoice"
  80   \defaultchild "DrumVoice"
  81
  82   clefGlyph = #"clefs.percussion"
  83   clefPosition = #0
  84   \override Script #'staff-padding = #0.75
  85 }
  86
  87
  88 \context {
  89   \type "Engraver_group"
  90   \name "InnerChoirStaff"
  91   \consists "System_start_delimiter_engraver"
  92   systemStartDelimiter = #'SystemStartBracket
  93   vocalName = #'()
  94   vocNam = #'()
  95
  96   \accepts "Staff"
  97   \accepts "DrumStaff"
  98   \accepts "RhythmicStaff"
  99   \accepts "GrandStaff"
 100   \accepts "PianoStaff"
 101   \accepts "Lyrics"
 102   \accepts "ChordNames"
 103   \defaultchild "Staff"
 104 }
 105
 106 \context {
 107   \InnerChoirStaff
 108   \name ChoirStaff
 109
 110   \defaultchild "Staff"
 111   \accepts "InnerChoirStaff"
 112   \accepts "InnerStaffGroup"
 113   \description "Identical to @code{StaffGroup} except that the
 114 contained staves are not connected vertically."
 115
 116 }
 117
 118 \context{
 119   \type "Engraver_group"
 120
 121   \override VerticalAxisGroup #'minimum-Y-extent = ##f
 122   extraVerticalExtent = ##f
 123   verticalExtent = ##f
 124   localKeySignature = #'()
 125   createSpacing = ##t
 126
 127   squashedPosition = #0
 128   \name RhythmicStaff
 129   \alias "Staff"
 130
 131   \override BarLine #'bar-size = #4
 132   \override VoltaBracket #'staff-padding = #3
 133   \override StaffSymbol #'line-count = #1
 134
 135   \override Stem  #'neutral-direction = #UP
 136   \override Beam  #'neutral-direction = #UP
 137
 138   \consists "Output_property_engraver"
 139   \consists "Font_size_engraver"
 140   \consists "Volta_engraver"
 141   \consists "Separating_line_group_engraver"
 142   \consists "Dot_column_engraver"
 143   \consists "Bar_engraver"
 144   \consists "Ledger_line_engraver"
 145   \consists "Staff_symbol_engraver"
 146   \consists "Pitch_squash_engraver"
 147   \consists "Time_signature_engraver"
 148   \consists "Instrument_name_engraver"
 149   \consists "Axis_group_engraver"
 150
 151   \accepts "Voice"
 152   \accepts "CueVoice"
 153   \defaultchild "Voice"
 154
 155   \description  "
 156     A context like @code{Staff} but for printing rhythms.  Pitches are
 157     ignored; the notes are printed on one line.
 158 "
 159 }
 160
 161
 162 \context {
 163   \type "Engraver_group"
 164   \name "Voice"
 165
 166   \description "
 167     Corresponds to a voice on a staff.  This context handles the
 168     conversion of dynamic signs, stems, beams, super- and subscripts,
 169     slurs, ties, and rests.
 170
 171     You have to instantiate this explicitly if you want to have
 172     multiple voices on the same staff."
 173
 174   localKeySignature = #'()
 175   \consists "Font_size_engraver"
 176
 177   \consists "Pitched_trill_engraver"
 178   \consists "Output_property_engraver"
 179   \consists "Arpeggio_engraver"
 180   \consists "Multi_measure_rest_engraver"
 181   \consists "Text_spanner_engraver"
 182   \consists "Trill_spanner_engraver"
 183   \consists "Grob_pq_engraver"
 184   \consists "Forbid_line_break_engraver"
 185   \consists "Laissez_vibrer_engraver"
 186   \consists "Repeat_tie_engraver"
 187   \consists "Note_head_line_engraver"
 188   \consists "Glissando_engraver"
 189   \consists "Ligature_bracket_engraver"
 190   \consists "Breathing_sign_engraver"
 191   \consists "Note_heads_engraver"
 192   \consists "Rest_engraver"
 193
 194   %% switch on to make stem directions interpolate for the
 195   %% center line.
 196   %  \consists "Melody_engraver"
 197
 198   \consists "Stem_engraver"
 199   \consists "Beam_engraver"
 200   \consists "Grace_beam_engraver"
 201   \consists "Auto_beam_engraver"
 202   \consists "New_fingering_engraver"
 203   \consists "Chord_tremolo_engraver"
 204   \consists "Percent_repeat_engraver"
 205   \consists "Slash_repeat_engraver"
 206   \consists "Melisma_translator"
 207   \consists "Part_combine_engraver"
 208
 209   \consists "Text_engraver"
 210   \consists "Dynamic_engraver"
 211   \consists "Fingering_engraver"
 212
 213   \consists "Script_engraver"
 214   \consists "Script_column_engraver"
 215   \consists "Rhythmic_column_engraver"
 216   \consists "Phrasing_slur_engraver"
 217   \consists "Cluster_spanner_engraver"
 218   \consists "Slur_engraver"
 219   \consists "Tie_engraver"
 220   \consists "Tuplet_engraver"
 221   \consists "Grace_engraver"
 222
 223   \consists "Skip_event_swallow_translator"
 224 }
 225
 226 \context{
 227   \Voice
 228
 229   \name CueVoice
 230   \alias Voice
 231   fontSize = #-4
 232   \override Stem #'length-fraction = #(magstep -4)
 233   \override Beam #'length-fraction = #(magstep -4)
 234 }
 235
 236 \context {
 237   \Voice
 238   \name DrumVoice
 239   \alias Voice
 240
 241   \description "A voice on a percussion staff."
 242   \remove "Arpeggio_engraver"
 243   \consists "Multi_measure_rest_engraver"
 244   \consists "Text_spanner_engraver"
 245   \consists "Grob_pq_engraver"
 246
 247   \remove "Note_head_line_engraver"
 248   \remove "Glissando_engraver"
 249   \remove "Ligature_bracket_engraver"
 250   \remove "Note_heads_engraver"
 251   \consists "Drum_notes_engraver"
 252   \remove "New_fingering_engraver"
 253
 254   \remove "Fingering_engraver"
 255
 256   \remove "Cluster_spanner_engraver"
 257   \consists "Tuplet_engraver"
 258
 259   \consists "Skip_event_swallow_translator"
 260 }
 261
 262 \context{
 263   \type "Engraver_group"
 264   \name GrandStaff
 265   localKeySignature = #'()
 266
 267   \description " A group of staffs, with a brace on the left
 268     side, grouping the staves together.  The bar lines of the
 269     contained staves are connected vertically.  "
 270
 271   \consists "Span_bar_engraver"
 272   \consists "Span_arpeggio_engraver"
 273   \consists "System_start_delimiter_engraver"
 274   systemStartDelimiter = #'SystemStartBrace
 275
 276   \accepts "Staff"
 277 }
 278
 279 \context{
 280   \GrandStaff
 281   \name "PianoStaff"
 282   \alias "GrandStaff"
 283
 284   \description
 285   "Just like @code{GrandStaff} but with a forced distance between
 286     the staves, so cross staff beaming and slurring can be used."
 287
 288   \override VerticalAlignment #'forced-distance = #12
 289   \override VerticalAlignment #'self-alignment-Y = #0
 290
 291   \consists "Vertical_align_engraver"
 292   \consists "Instrument_name_engraver"
 293
 294   instrument = #'()
 295   instr = #'()
 296 }
 297
 298 \context {
 299   \type "Engraver_group"
 300   \name InnerStaffGroup
 301
 302   \consists "Span_bar_engraver"
 303   \consists "Span_arpeggio_engraver"
 304   \consists "Output_property_engraver"
 305   systemStartDelimiter = #'SystemStartBracket
 306
 307   \consists "System_start_delimiter_engraver"
 308
 309   \defaultchild "Staff"
 310   \accepts "Staff"
 311   \accepts "RhythmicStaff"
 312   \accepts "DrumStaff"
 313   \accepts "GrandStaff"
 314   \accepts "PianoStaff"
 315   \accepts "TabStaff"
 316   \accepts "Lyrics"
 317   \accepts "ChordNames"
 318 }
 319
 320 \context {
 321   \InnerStaffGroup
 322   \name StaffGroup
 323
 324   \description
 325
 326   "Groups staffs while adding a bracket on the left side, grouping
 327 the staves together.  The bar lines of the contained staves are
 328 connected vertically.  StaffGroup only consists of a collection of
 329 staffs, with a bracket in front and spanning bar lines. "
 330
 331   \accepts "InnerChoirStaff"
 332   \accepts "ChoirStaff"
 333   \accepts "InnerStaffGroup"
 334   \accepts "FiguredBass"
 335 }
 336
 337
 338 \context{
 339   \type "Engraver_group"
 340   \override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 2.4)
 341   extraVerticalExtent = ##f
 342   verticalExtent = ##f
 343
 344   \description " Corresponds to a voice with lyrics.  Handles the
 345 printing of a single line of lyrics.  "
 346
 347   \name Lyrics
 348   \consists "Lyric_engraver"
 349   \consists "Extender_engraver"
 350   \consists "Hyphen_engraver"
 351   \consists "Stanza_number_engraver"
 352   \consists "Instrument_name_engraver"
 353   \consists "Skip_event_swallow_translator"
 354   \consists "Font_size_engraver"
 355   \consists "Hara_kiri_engraver"
 356   \override VerticalAxisGroup #'remove-first = ##t
 357   \override VerticalAxisGroup #'remove-empty = ##t
 358   \override SeparationItem #'padding = #0.2
 359   \override InstrumentName #'self-alignment-Y = ##f
 360
 361   %% sync with define-grobs.scm ;
 362   \override InstrumentName #'font-size = #1.0
 363
 364   %% make sure that barlines aren't collapsed, when
 365   %% Bar_engraver is there.
 366   \override BarLine #'bar-size = #0.1
 367
 368 }
 369
 370 \context {
 371   \type "Engraver_group"
 372   \name NoteNames
 373   \consists "Axis_group_engraver"
 374
 375   \override VerticalAxisGroup #'minimum-Y-extent = ##f
 376   extraVerticalExtent = ##f
 377   verticalExtent = ##f
 378
 379
 380   \consists "Rest_swallow_translator"
 381   \consists "Skip_event_swallow_translator"
 382   \consists "Tie_engraver"
 383   \consists "Note_name_engraver"
 384   \consists "Separating_line_group_engraver"
 385 }
 386
 387 \context {
 388   \type "Engraver_group"
 389   \name ChordNames
 390   \description "Typesets chord names."
 391
 392   \consists "Volta_engraver"
 393
 394   \consists "Rest_swallow_translator"
 395   \consists "Output_property_engraver"
 396   \consists "Separating_line_group_engraver"
 397   \consists "Chord_name_engraver"
 398   \consists "Skip_event_swallow_translator"
 399   \consists "Hara_kiri_engraver"
 400
 401   voltaOnThisStaff = ##f
 402   \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2.5)
 403   extraVerticalExtent = ##f
 404   \override SeparatingGroupSpanner #'padding = #0.8
 405   \override VerticalAxisGroup #'remove-first = ##t
 406   \override VerticalAxisGroup #'remove-empty = ##t
 407   verticalExtent = ##f
 408 }
 409
 410
 411 RemoveEmptyStaffContext= \context {
 412   \Staff
 413   \remove "Axis_group_engraver"
 414   \consists "Hara_kiri_engraver"
 415   \override Beam #'auto-knee-gap = #'()
 416   \override VerticalAxisGroup #'remove-empty = ##t
 417 }
 418
 419 AncientRemoveEmptyStaffContext = \context {
 420 %% why not add by default?
 421
 422   \RemoveEmptyStaffContext
 423   \accepts "VaticanaVoice"
 424   \accepts "GregorianTranscriptionVoice"
 425   \accepts "MensuralVoice"
 426 }
 427
 428 \context {
 429   \type "Score_engraver"
 430   \name "Score"
 431
 432   \description "This is the top level notation context.  No
 433     other context can contain a @code{Score} context.  This context
 434     handles the administration of time signatures.  It also makes sure
 435     that items such as clefs, time signatures, and key-signatures are
 436     aligned across staves.
 437
 438     You cannot explicitly instantiate a Score context (since it is
 439     not contained in any other context).  It is instantiated
 440     automatically when an output definition (a @code{\score} or
 441     @code{\layout} block) is processed."
 442
 443
 444   \consists "Paper_column_engraver"
 445   \consists "Vertically_spaced_contexts_engraver"
 446   \consists "Repeat_acknowledge_engraver"
 447   \consists "Staff_collecting_engraver"
 448
 449   %% move the alias along with the engraver.
 450
 451   \consists "Timing_translator"
 452   \consists "Default_bar_line_engraver"
 453   \consists "Output_property_engraver"
 454   \consists "System_start_delimiter_engraver"
 455   \consists "Mark_engraver"
 456   \consists "Metronome_mark_engraver"
 457   \consists "Break_align_engraver"
 458   \consists "Spacing_engraver"
 459   \consists "Vertical_align_engraver"
 460   \consists "Stanza_number_align_engraver"
 461   \consists "Bar_number_engraver"
 462   \consists "Tweak_engraver"
 463   \consists "Parenthesis_engraver"
 464
 465   \defaultchild "Staff"
 466
 467   \accepts "Staff"
 468   \accepts "RhythmicStaff"
 469   \accepts "TabStaff"
 470   \accepts "VaticanaStaff"
 471   \accepts "GregorianTranscriptionStaff"
 472   \accepts "MensuralStaff"
 473   \accepts "StaffGroup"
 474   \accepts "DrumStaff"
 475   \accepts "Lyrics"
 476   \accepts "ChordNames"
 477   \accepts "GrandStaff"
 478   \accepts "ChoirStaff"
 479   \accepts "PianoStaff"
 480   \accepts "Devnull"
 481   \accepts "NoteNames"
 482   \accepts "FiguredBass"
 483
 484   soloText = #"Solo"
 485   soloIIText = #"Solo II"
 486   aDueText = #"a2"
 487   printPartCombineTexts = ##t
 488   systemStartDelimiter =#'SystemStartBar
 489
 490   drumStyleTable = #drums-style
 491
 492   melismaBusyProperties = #default-melisma-properties
 493   tieWaitForNote = ##f
 494   clefGlyph = #"clefs.G"
 495   clefPosition = #-2
 496   middleCPosition = #-6
 497   firstClef = ##t
 498
 499   defaultBarType = #"|"
 500   barNumberVisibility = #first-bar-number-invisible
 501   automaticBars = ##t
 502
 503   explicitClefVisibility = #all-visible
 504   explicitKeySignatureVisibility = #all-visible
 505   autoBeamSettings = #default-auto-beam-settings
 506   autoBeaming = ##t
 507   autoBeamCheck = #default-auto-beam-check
 508   scriptDefinitions = #default-script-alist
 509
 510   pedalSustainStrings = #'("Ped." "*Ped." "*")
 511   pedalSustainStyle = #'text
 512   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
 513   pedalUnaCordaStyle = #'text
 514
 515 %% These are in ordinary italic font, including the *,
 516 %% but they are unlikely to be used,
 517 %% as the default pedal-style for SostenutoPedal is 'mixed':
 518 %% i.e.  Sost. Ped_____________________
 519   pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
 520   pedalSostenutoStyle = #'mixed
 521
 522   harmonicAccidentals = ##t
 523   fingeringOrientations = #'(up down)
 524   stringNumberOrientations = #'(up down)
 525   tupletNumberFormatFunction = #denominator-tuplet-formatter
 526   markFormatter = #format-mark-letters
 527   rehearsalMark = #1
 528   subdivideBeams = ##f
 529   allowBeamBreak = ##f
 530   extraNatural = ##t
 531   autoAccidentals = #'(Staff (same-octave . 0))
 532   autoCautionaries = #'()
 533
 534   printKeyCancellation = ##t
 535   keyAlterationOrder = #`(
 536     (6 . ,FLAT) (2  . ,FLAT) (5 . ,FLAT ) (1  . ,FLAT) (4  . ,FLAT) (0  . ,FLAT) (3  . ,FLAT)
 537     (3  . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
 538     (6 . ,DOUBLE-FLAT) (2  . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1  . ,DOUBLE-FLAT) (4  . ,DOUBLE-FLAT) (0  . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
 539     (3  . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
 540   )
 541
 542   barCheckSynchronize = ##f
 543
 544 %% chord names:
 545   chordNameFunction = #ignatzek-chord-names
 546   majorSevenSymbol = #whiteTriangleMarkup
 547   chordNameSeparator = #(make-simple-markup  "/")
 548   chordNameExceptions = #ignatzekExceptions
 549   chordNoteNamer = #'()
 550   chordRootNamer = #note-name->markup
 551   chordPrefixSpacer = #0
 552   chordNameExceptionsFull = #fullJazzExceptions
 553   chordNameExceptionsPartial = #partialJazzExceptions
 554
 555
 556   bassStaffProperties = #'((assign clefGlyph "clefs.F")
 557   (assign clefPosition 2)
 558   (assign middleCPosition 6))
 559 %% tablature:
 560   stringOneTopmost = ##t
 561   highStringOne = ##t
 562
 563 %% One may change the strings tuning as following :
 564 %% The lenght of the list must be equal to the number of string
 565   stringTunings = #guitar-tuning
 566   tablatureFormat = #fret-number-tablature-format
 567
 568 %%
 569   figuredBassFormatter = #format-bass-figure
 570   metronomeMarkFormatter = #format-metronome-markup
 571   graceSettings = #`(
 572     (Voice Stem direction ,UP)
 573     (Voice Stem font-size -3)
 574     (Voice NoteHead font-size -3)
 575     (Voice Dots font-size -3)
 576     (Voice Stem length-fraction 0.8)
 577     (Voice Stem no-stem-extend #t)
 578     (Voice Beam thickness 0.384)
 579     (Voice Beam length-fraction 0.8)
 580     (Voice Accidental font-size -4)
 581     (Voice Slur direction ,DOWN)
 582   )
 583
 584   keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface)
 585   quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event beam-event)
 586   instrumentTransposition = #(ly:make-pitch 0 0 0)
 587
 588   verticallySpacedContexts = #'(Staff)
 589
 590   timing = ##t
 591 }
 592
 593
 594
 595
 596 \context {
 597   \type "Engraver_group"
 598   \name "FiguredBass"
 599
 600   \consists "Figured_bass_engraver"
 601   \consists "Note_swallow_translator"
 602   \consists "Skip_event_swallow_translator"
 603   \consists "Separating_line_group_engraver"
 604   \consists "Hara_kiri_engraver"
 605
 606   \override VerticalAxisGroup #'remove-empty = ##t
 607   \override VerticalAxisGroup #'remove-first = ##t
 608   \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.5 . 2.5)
 609 }
 610
 611 \context {
 612   \name "Devnull"
 613   \type "Engraver_group"
 614
 615 %% don't want to route anything out of here:
 616   \alias "Staff"
 617   \alias "Voice"
 618   \consists "Swallow_engraver"
 619   \description "Silently discards all musical information given to this context. "
 620 }
 621
 622 \context {
 623   \Voice
 624   \name "TabVoice"
 625   \alias "Voice"
 626   \consists "Tab_note_heads_engraver"
 627   \remove "Note_heads_engraver"
 628   \remove "Fingering_engraver"
 629   \remove "New_fingering_engraver"
 630
 631   \description "Context for drawing notes in a Tab staff. "
 632
 633   %% Draws all stems/beams out of the staff (and not in the middle of the staff !)
 634   %% This feature is now disabled because most of the tab does not use it.
 635   %%\override Beam #'damping = #100000
 636   %%\override Stem #'up-to-staff = ##t
 637
 638   %% TabStaff increase the staff-space, which in turn
 639   %% increases beam thickness and spacing; beams are
 640   %% too big. We have to adjust the beam settings:
 641   \override Beam #'thickness = #0.32
 642   \override Beam #'length-fraction = #0.62
 643
 644   %% No accidental in tablature !
 645   \remove Accidental_engraver
 646 }
 647
 648 \context {
 649   \Staff
 650   \alias "Staff"
 651   \name "TabStaff"
 652   \denies "Voice"
 653   \remove "Staff_symbol_engraver"
 654   \consists "Tab_staff_symbol_engraver"
 655
 656   \description "Context for generating tablature. [DOCME]"
 657
 658   \accepts "TabVoice"
 659   \defaultchild "TabVoice"
 660
 661   %% 6 strings
 662   \override StaffSymbol #'staff-space = #1.5
 663
 664   %% Don't draw stems over the tablature figures !
 665   \override Stem #'avoid-note-head = ##t
 666
 667   %% No accidental in tablature !
 668   \remove "Accidental_engraver"
 669   \remove "Key_engraver"
 670   \remove "String_number_engraver"
 671   %% Special "TAB" clef
 672   clefGlyph = #"clefs.tab"
 673   clefPosition = #0
 674 }
 675
 676 %% TODO: Gregorian Chant contexts should be moved to gregorian-init.ly,
 677 %% but this does not work (is this a bug or intended behaviour?):
 678 %%
 679 %% If I try to do so, I get "error: unknown escaped string:
 680 %% `\VaticanaStaff'" in params-init.ly.  If I also move
 681 %% "\context { \Vaticana*Context }" from params-init.ly to the end
 682 %% of gregorian-init.ly, then I get "error: parse error, unexpected
 683 %% TRANSLATOR: \context { \VaticanaStaff }" in
 684 %% gregorian-init.ly. --jr
 685
 686 \context {
 687   \Voice
 688   \name "VaticanaVoice"
 689   \alias "Voice"
 690   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 691
 692   \remove "Slur_engraver"
 693   \remove "Stem_engraver"
 694   \remove "Ligature_bracket_engraver"
 695   \consists "Vaticana_ligature_engraver"
 696
 697   %% Set default head for notes outside of \[ \].
 698   \override NoteHead #'style = #'vaticana.punctum
 699
 700   %% Put some space before and after divisiones.
 701   %% FIXME: This does not seem to show any effect.
 702   \override Script #'padding = #0.5
 703
 704   %% There are no beams in Gregorian Chant notation.
 705   autoBeaming = ##f
 706
 707   %% Prepare TextSpanner for \episem{Initium|Finis} use.
 708   %%
 709   %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
 710   %% always produce dashed lines, regardless of the style property.
 711   %%
 712   %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
 713   %% required to force the articulation signs being placed vertically
 714   %% tightly to the correpsonding note heads.
 715   %%
 716   \override TextSpanner #'dash-fraction = #'()
 717   \override TextSpanner #'style = #'line
 718   \override TextSpanner #'edge-height = #'(0 . 0)
 719   \override TextSpanner #'padding = #-0.1
 720   \override TextSpanner #'enclose-bounds = #1
 721   \override TextSpanner #'edge-text = #'("" . "")
 722 }
 723
 724 %% FIXME: need something like
 725 %%  \remove "Bar_number_engraver" (which lives on score level)
 726 %% for vaticana and gregorian transcription staves
 727
 728 \context {
 729   \Staff
 730   \name "VaticanaStaff"
 731   \alias "Staff"
 732   \denies "Voice"
 733   \accepts "VaticanaVoice"
 734   \defaultchild "VaticanaVoice"
 735
 736   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana."
 737
 738   \remove "Time_signature_engraver"
 739   \consists "Custos_engraver"
 740
 741   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 742   %% not show up any more among other line breaking issues.
 743   %% Instead, we make the grob transparent.
 744   \override BarLine #'transparent = ##t
 745
 746   \override StaffSymbol #'line-count = #4
 747   \override StaffSymbol #'thickness = #0.6
 748
 749   %% FIXME: unit on StaffSymbol's width should be \linewidth.
 750   %% \override StaffSymbol #'width = #60.0
 751
 752   %% Choose vaticana do clef on 3rd line as default.
 753   clefGlyph = #"clefs.vaticana.do"
 754   middleCPosition = #1
 755   clefPosition = #1
 756   clefOctavation = #0
 757
 758   %% Select vaticana style font.
 759   \override KeySignature #'style = #'vaticana
 760   \override Accidental #'style = #'vaticana
 761   \override Custos #'style = #'vaticana
 762   \override Custos #'neutral-position = #3
 763   \override Custos #'neutral-direction = #DOWN
 764
 765   %% Score.timing = ##f
 766   %% Score.barAlways = ##t
 767 }
 768
 769 \context {
 770   \Voice
 771   \name "GregorianTranscriptionVoice"
 772   \alias "Voice"
 773
 774   %% Removing ligature bracket engraver without replacing it by some
 775   %% other ligature engraver would cause a "Junking event: `LigatureEvent'"
 776   %% warning for every "\[" and "\]".  Therefore, we make the grob
 777   %% transparent instead.
 778   \override LigatureBracket #'transparent = ##t
 779
 780   %% Put some space before and after divisiones.
 781   %% FIXME: This does not seem to show any effect.
 782   \override Script #'padding = #0.5
 783
 784   %% There are no beams in Gregorian Chant notation.
 785   autoBeaming = ##f
 786
 787   %% Prepare TextSpanner for \episem{Initium|Finis} use.
 788   %%
 789   %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will
 790   %% always produce dashed lines, regardless of the style property.
 791   %%
 792   %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is
 793   %% required to force the articulation signs being placed vertically
 794   %% tightly to the correpsonding note heads.
 795   %%
 796   \override TextSpanner #'dash-fraction = #'()
 797   \override TextSpanner #'style = #'line
 798   \override TextSpanner #'edge-height = #'(0 . 0)
 799   \override TextSpanner #'padding = #-0.1
 800   \override TextSpanner #'enclose-bounds = #1
 801   \override TextSpanner #'edge-text = #'("" . "")
 802 }
 803
 804 \context {
 805   \Staff
 806   \name "GregorianTranscriptionStaff"
 807   \alias "Staff"
 808   \denies "Voice"
 809   \accepts "GregorianTranscriptionVoice"
 810   \defaultchild "GregorianTranscriptionVoice"
 811
 812   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 813   %% not show up any more among other line breaking issues.
 814   %% Instead, we make the grob transparent.
 815   \override BarLine #'transparent = ##t
 816 }
 817
 818 \context {
 819   \Voice
 820   \name "MensuralVoice"
 821   \alias "Voice"
 822   \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style."
 823
 824   \remove "Slur_engraver"
 825   \remove "Ligature_bracket_engraver"
 826   \consists "Mensural_ligature_engraver"
 827
 828   %% Set default head for notes outside of \[ \].
 829   \override NoteHead #'style = #'petrucci
 830
 831   %% There are no beams in mensural notation.
 832   autoBeaming = ##f
 833 }
 834
 835 \context {
 836   \Staff
 837   \name "MensuralStaff"
 838   \alias "Staff"
 839   \denies "Voice"
 840   \defaultchild "MensuralVoice"
 841   \accepts "MensuralVoice"
 842   \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style."
 843
 844   \consists "Custos_engraver"
 845
 846   %% We can not remove Bar_engraver; otherwise clefs and custodes will
 847   %% not show up any more among other line breaking issues.
 848   %% Instead, we make the grob transparent.
 849   \override BarLine #'transparent = ##t
 850
 851   \override StaffSymbol #'thickness = #0.6
 852
 853   %% FIXME: unit on StaffSymbol's width should be \linewidth.
 854   %% \override StaffSymbol #'width = #60.0
 855
 856   %% Choose petrucci g clef on 2nd line as default.
 857   clefGlyph = #"clefs.petrucci.g"
 858   middleCPosition = #-6
 859   clefPosition = #-2
 860   clefOctavation = #0
 861
 862   %% Select mensural style font.
 863   \override TimeSignature #'style = #'mensural
 864   \override KeySignature #'style = #'mensural
 865   \override Accidental #'style = #'mensural
 866   \override Custos #'style = #'mensural
 867   \override Custos #'neutral-position = #3
 868   \override Custos #'neutral-direction = #DOWN
 869
 870   %% Score.timing = ##f
 871   %% Score.barAlways = ##t
 872 }
 873
 874
 875 RemoveEmptyRhythmicStaffContext= \context {
 876   \RhythmicStaff
 877   \remove "Axis_group_engraver"
 878   \override VerticalAxisGroup #'remove-empty = ##t
 879   \consists "Hara_kiri_engraver"
 880 }