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