X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fengraver-init.ly;h=2d59701482336b229e1f029e8664c5f3f89499cb;hb=17dd34fba0bea779168c8b1f9346438abfc8248e;hp=f6a04fa110a8f7d785a72720ec6d99a6ea8a34f0;hpb=889dc430ee110fc9f7b66d9f8768fb746bb2b12a;p=lilypond.git diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly index f6a04fa110..2d59701482 100644 --- a/ly/engraver-init.ly +++ b/ly/engraver-init.ly @@ -1,18 +1,32 @@ -\version "2.7.6" +\version "2.10.0" \context { - \name Global + \name "Global" - \accepts Score + \accepts "Score" - \defaultchild Score - \description "Hard coded entry point for LilyPond. Cannot be tuned." + \defaultchild "Score" + \description "Hard coded entry point for LilyPond. Cannot be tuned." \grobdescriptions #all-grob-descriptions } + +\context { + \type "Engraver_group" + \name "FretBoards" + + \consists "Output_property_engraver" + + \consists "Axis_group_engraver" + \consists "Fretboard_engraver" + \consists "Separating_line_group_engraver" + \consists "Font_size_engraver" + \consists "Instrument_name_engraver" +} + \context { \type "Engraver_group" - \name Staff + \name "Staff" \consists "Output_property_engraver" \consists "Bar_engraver" @@ -20,11 +34,11 @@ %% with empty ones. \consists "Font_size_engraver" - \consists "Volta_engraver" \consists "Separating_line_group_engraver" \consists "Dot_column_engraver" + \consists "Staff_collecting_engraver" - %% perhaps move to Voice context? + %% perhaps move to Voice context? \consists "Ottava_spanner_engraver" \consists "Clef_engraver" \consists "Key_engraver" @@ -35,22 +49,25 @@ \consists "Rest_collision_engraver" \consists "Accidental_engraver" \consists "Piano_pedal_engraver" + \consists "Piano_pedal_align_engraver" \consists "Instrument_name_engraver" \consists "String_number_engraver" \consists "Axis_group_engraver" + \consists "Figured_bass_engraver" + \consists "Figured_bass_position_engraver" + \consists "Script_row_engraver" - minimumVerticalExtent = #'(-4 . 4) - extraVerticalExtent = ##f - verticalExtent = ##f localKeySignature = #'() createSpacing = ##t + ignoreFiguredBassRest = ##t + \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4) %% explicitly set instrument, so we don't get %% weird effects when doing instrument names for %% piano staves - instrument = #'() - instr = #'() + instrumentName = #'() + shortInstrumentName = #'() \defaultchild "Voice" \accepts "Voice" @@ -64,8 +81,9 @@ \context { \Staff \type "Engraver_group" - \name DrumStaff - \alias Staff + \name "DrumStaff" + \alias "Staff" + \remove "Accidental_engraver" \remove "Ottava_spanner_engraver" \remove "Key_engraver" @@ -74,9 +92,9 @@ \description "Handles typesetting for percussion." - \denies Voice - \accepts DrumVoice - \defaultchild DrumVoice + \denies "Voice" + \accepts "DrumVoice" + \defaultchild "DrumVoice" clefGlyph = #"clefs.percussion" clefPosition = #0 @@ -86,9 +104,11 @@ \context { \type "Engraver_group" - \name InnerChoirStaff + \name "InnerChoirStaff" \consists "System_start_delimiter_engraver" systemStartDelimiter = #'SystemStartBracket + vocalName = #'() + shortVocalName = #'() \accepts "Staff" \accepts "DrumStaff" @@ -109,16 +129,13 @@ \accepts "InnerStaffGroup" \description "Identical to @code{StaffGroup} except that the contained staves are not connected vertically." - -} +} \context{ \type "Engraver_group" - minimumVerticalExtent = ##f - extraVerticalExtent = ##f - verticalExtent = ##f + \override VerticalAxisGroup #'minimum-Y-extent = ##f localKeySignature = #'() createSpacing = ##t @@ -135,39 +152,35 @@ contained staves are not connected vertically." \consists "Output_property_engraver" \consists "Font_size_engraver" - \consists "Volta_engraver" \consists "Separating_line_group_engraver" \consists "Dot_column_engraver" \consists "Bar_engraver" - \consists "Ledger_line_engraver" \consists "Staff_symbol_engraver" \consists "Pitch_squash_engraver" \consists "Time_signature_engraver" \consists "Instrument_name_engraver" \consists "Axis_group_engraver" + \consists "Ledger_line_engraver" \accepts "Voice" \accepts "CueVoice" \defaultchild "Voice" - \description " - A context like @code{Staff} but for printing rhythms. Pitches are - ignored; the notes are printed on one line. -" + \description "A context like @code{Staff} but for printing rhythms. +Pitches are ignored; the notes are printed on one line." } \context { \type "Engraver_group" - \name Voice + \name "Voice" - \description " - Corresponds to a voice on a staff. This context handles the - conversion of dynamic signs, stems, beams, super- and subscripts, - slurs, ties, and rests. + \description "Corresponds to a voice on a staff. This context +handles the conversion of dynamic signs, stems, beams, super- and +subscripts, slurs, ties, and rests. - You have to instantiate this explicitly if you want to have - multiple voices on the same staff." +You have to instantiate this explicitly if you want to have +multiple voices on the same staff." localKeySignature = #'() \consists "Font_size_engraver" @@ -181,39 +194,50 @@ contained staves are not connected vertically." \consists "Grob_pq_engraver" \consists "Forbid_line_break_engraver" \consists "Laissez_vibrer_engraver" + \consists "Repeat_tie_engraver" \consists "Note_head_line_engraver" \consists "Glissando_engraver" \consists "Ligature_bracket_engraver" \consists "Breathing_sign_engraver" - %% \consists "Rest_engraver" \consists "Note_heads_engraver" + \consists "Dots_engraver" \consists "Rest_engraver" + \consists "Tweak_engraver" + + %% switch on to make stem directions interpolate for the + %% center line. + % \consists "Melody_engraver" \consists "Stem_engraver" \consists "Beam_engraver" \consists "Grace_beam_engraver" \consists "Auto_beam_engraver" + + %% must come before Script_column_engraver. \consists "New_fingering_engraver" + \consists "Chord_tremolo_engraver" \consists "Percent_repeat_engraver" \consists "Slash_repeat_engraver" - \consists "Melisma_translator" \consists "Part_combine_engraver" \consists "Text_engraver" \consists "Dynamic_engraver" \consists "Fingering_engraver" + \consists "Bend_engraver" \consists "Script_engraver" \consists "Script_column_engraver" \consists "Rhythmic_column_engraver" + \consists "Note_spacing_engraver" + \consists "Spanner_break_forbid_engraver" \consists "Phrasing_slur_engraver" \consists "Cluster_spanner_engraver" \consists "Slur_engraver" \consists "Tie_engraver" \consists "Tuplet_engraver" \consists "Grace_engraver" - + \consists "Instrument_switch_engraver" \consists "Skip_event_swallow_translator" } @@ -223,7 +247,8 @@ contained staves are not connected vertically." \name CueVoice \alias Voice fontSize = #-4 - \override Stem #'lengths = #'(2.5 2.5 3.0 3.0) + \override Stem #'length-fraction = #(magstep -4) + \override Beam #'length-fraction = #(magstep -4) } \context { @@ -257,16 +282,18 @@ contained staves are not connected vertically." \name GrandStaff localKeySignature = #'() - \description " A group of staffs, with a brace on the left - side, grouping the staves together. The bar lines of the - contained staves are connected vertically. " + \description "A group of staves, with a brace on the left +side, grouping the staves together. The bar lines of the +contained staves are connected vertically." \consists "Span_bar_engraver" \consists "Span_arpeggio_engraver" \consists "System_start_delimiter_engraver" systemStartDelimiter = #'SystemStartBrace + \defaultchild "Staff" \accepts "Staff" + \accepts "FiguredBass" } \context{ @@ -274,20 +301,14 @@ contained staves are not connected vertically." \name "PianoStaff" \alias "GrandStaff" - \description - "Just like @code{GrandStaff} but with a forced distance between - the staves, so cross staff beaming and slurring can be used." - - \override VerticalAlignment #'forced-distance = #12 - \override VerticalAlignment #'self-alignment-Y = #0 - \override VerticalAlignment #'after-line-breaking-callback - = #Align_interface::stretch_after_break + \description "Just like @code{GrandStaff} but with a forced +distance between the staves, so cross staff beaming and slurring +can be used." - \consists "Vertical_align_engraver" \consists "Instrument_name_engraver" - instrument = #'() - instr = #'() + instrumentName = #'() + shortInstrumentName = #'() } \context { @@ -316,11 +337,10 @@ contained staves are not connected vertically." \InnerStaffGroup \name StaffGroup - \description - - "Groups staffs while adding a bracket on the left side, grouping -the staves together. The bar lines of the contained staves are -connected vertically. " + \description "Groups staves while adding a bracket on the left +side, grouping the staves together. The bar lines of the contained +staves are connected vertically. @code{StaffGroup} only consists of +a collection of staves, with a bracket in front and spanning bar lines." \accepts "InnerChoirStaff" \accepts "ChoirStaff" @@ -331,25 +351,37 @@ connected vertically. " \context{ \type "Engraver_group" - minimumVerticalExtent = #'(-1.2 . 2.4) - extraVerticalExtent = ##f - verticalExtent = ##f + \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.75 . 2.0) - \description " Corresponds to a voice with lyrics. Handles the -printing of a single line of lyrics. " + \description "Corresponds to a voice with lyrics. Handles the +printing of a single line of lyrics." + + \name "Lyrics" + instrumentName = #'() + shortInstrumentName = #'() - \name Lyrics - \consists "Separating_line_group_engraver" \consists "Lyric_engraver" \consists "Extender_engraver" \consists "Hyphen_engraver" \consists "Stanza_number_engraver" - \consists "Vocal_name_engraver" + \consists "Instrument_name_engraver" \consists "Skip_event_swallow_translator" \consists "Font_size_engraver" \consists "Hara_kiri_engraver" - \override RemoveEmptyVerticalGroup #'remove-first = ##t + + \override VerticalAxisGroup #'remove-first = ##t + \override VerticalAxisGroup #'remove-empty = ##t + \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t \override SeparationItem #'padding = #0.2 + \override InstrumentName #'self-alignment-Y = ##f + + %% sync with define-grobs.scm ; + \override InstrumentName #'font-size = #1.0 + + %% make sure that barlines aren't collapsed, when + %% Bar_engraver is there. + \override BarLine #'bar-size = #0.1 + } \context { @@ -357,9 +389,7 @@ printing of a single line of lyrics. " \name NoteNames \consists "Axis_group_engraver" - minimumVerticalExtent = ##f - extraVerticalExtent = ##f - verticalExtent = ##f + \override VerticalAxisGroup #'minimum-Y-extent = ##f \consists "Rest_swallow_translator" @@ -373,8 +403,6 @@ printing of a single line of lyrics. " \type "Engraver_group" \name ChordNames \description "Typesets chord names." - - \consists "Volta_engraver" \consists "Rest_swallow_translator" \consists "Output_property_engraver" @@ -382,13 +410,10 @@ printing of a single line of lyrics. " \consists "Chord_name_engraver" \consists "Skip_event_swallow_translator" \consists "Hara_kiri_engraver" - - voltaOnThisStaff = ##f - minimumVerticalExtent = #'(0 . 2.5) - extraVerticalExtent = ##f - \override SeparatingGroupSpanner #'padding = #0.8 - \override RemoveEmptyVerticalGroup #'remove-first = ##t - verticalExtent = ##f +% \consists "Note_spacing_engraver" + \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) + \override VerticalAxisGroup #'remove-first = ##t + \override VerticalAxisGroup #'remove-empty = ##t } @@ -397,6 +422,7 @@ RemoveEmptyStaffContext= \context { \remove "Axis_group_engraver" \consists "Hara_kiri_engraver" \override Beam #'auto-knee-gap = #'() + \override VerticalAxisGroup #'remove-empty = ##t } AncientRemoveEmptyStaffContext = \context { @@ -409,20 +435,19 @@ AncientRemoveEmptyStaffContext = \context { } \context { - \type Score_engraver + \type "Score_engraver" \name "Score" - + \description "This is the top level notation context. No - other context can contain a @code{Score} context. This context - handles the administration of time signatures. It also makes sure - that items such as clefs, time signatures, and key-signatures are - aligned across staves. - - You cannot explicitly instantiate a Score context (since it is - not contained in any other context). It is instantiated - automatically when an output definition (a @code{\score} or - @code{\layout} block) is processed." +other context can contain a @code{Score} context. This context +handles the administration of time signatures. It also makes sure +that items such as clefs, time signatures, and key-signatures are +aligned across staves. +You cannot explicitly instantiate a @code{Score} context (since it +is not contained in any other context). It is instantiated +automatically when an output definition (a @code{\score} or +@code{\layout} block) is processed." \consists "Paper_column_engraver" \consists "Vertically_spaced_contexts_engraver" @@ -435,16 +460,20 @@ AncientRemoveEmptyStaffContext = \context { \consists "Default_bar_line_engraver" \consists "Output_property_engraver" \consists "System_start_delimiter_engraver" - \consists "Mark_engraver" + \consists "Mark_engraver" + \consists "Volta_engraver" \consists "Metronome_mark_engraver" \consists "Break_align_engraver" \consists "Spacing_engraver" + \consists "Grace_spacing_engraver" \consists "Vertical_align_engraver" \consists "Stanza_number_align_engraver" \consists "Bar_number_engraver" - \consists "Span_arpeggio_engraver" - + \consists "Parenthesis_engraver" + \defaultchild "Staff" + + \accepts "FretBoards" \accepts "Staff" \accepts "RhythmicStaff" \accepts "TabStaff" @@ -462,6 +491,8 @@ AncientRemoveEmptyStaffContext = \context { \accepts "NoteNames" \accepts "FiguredBass" + + noteToFretFunction = #determine-frets soloText = #"Solo" soloIIText = #"Solo II" aDueText = #"a2" @@ -474,6 +505,7 @@ AncientRemoveEmptyStaffContext = \context { tieWaitForNote = ##f clefGlyph = #"clefs.G" clefPosition = #-2 + middleCClefPosition = #-6 middleCPosition = #-6 firstClef = ##t @@ -483,6 +515,8 @@ AncientRemoveEmptyStaffContext = \context { explicitClefVisibility = #all-visible explicitKeySignatureVisibility = #all-visible + implicitTimeSignatureVisibility = #end-of-line-invisible + autoBeamSettings = #default-auto-beam-settings autoBeaming = ##t autoBeamCheck = #default-auto-beam-check @@ -500,13 +534,14 @@ AncientRemoveEmptyStaffContext = \context { pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*") pedalSostenutoStyle = #'mixed - harmonicAccidentals = ##t fingeringOrientations = #'(up down) stringNumberOrientations = #'(up down) - tupletNumberFormatFunction = #denominator-tuplet-formatter + strokeFingerOrientations = #'(right) + + lyricMelismaAlignment = #LEFT markFormatter = #format-mark-letters - rehearsalMark = #1 + rehearsalMark = #1 subdivideBeams = ##f allowBeamBreak = ##f extraNatural = ##t @@ -516,8 +551,8 @@ AncientRemoveEmptyStaffContext = \context { printKeyCancellation = ##t keyAlterationOrder = #`( (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT) - (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP) - (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT) + (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP) + (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT) (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP) ) @@ -537,7 +572,8 @@ AncientRemoveEmptyStaffContext = \context { bassStaffProperties = #'((assign clefGlyph "clefs.F") (assign clefPosition 2) - (assign middleCPosition 6)) + (assign middleCPosition 6) + (assign middleCClefPosition 6)) %% tablature: stringOneTopmost = ##t highStringOne = ##t @@ -548,40 +584,43 @@ AncientRemoveEmptyStaffContext = \context { tablatureFormat = #fret-number-tablature-format %% - newFiguredBassFormatter = #format-new-bass-figure + figuredBassFormatter = #format-bass-figure metronomeMarkFormatter = #format-metronome-markup - graceSettings = #`( - (Voice Stem direction 1) - ;; TODO: should take from existing definition. - ;; c&p from define-grobs.scm - - (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))) - (Voice Stem stem-shorten (0.4 0.4)) - (Voice Stem font-size -3) - (Voice NoteHead font-size -3) - (Voice Dots font-size -3) - (Voice Stem beamed-lengths - ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0))) - (Voice Stem beamed-minimum-free-lengths - ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5))) - (Voice Stem beamed-extreme-minimum-free-lengths - ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5))) + + %% See also make-voice-props-set + graceSettings = #`( + (Voice Stem direction ,UP) + (Voice Stem font-size -3) + (Voice NoteHead font-size -3) + (Voice Dots font-size -3) + (Voice Stem length-fraction 0.8) (Voice Stem no-stem-extend #t) (Voice Beam thickness 0.384) - (Voice Beam space-function ,(lambda (beam mult) - (* 0.8 (Beam::space_function - beam mult)))) + (Voice Beam length-fraction 0.8) (Voice Accidental font-size -4) - (Voice Slur direction -1) + (Voice Slur direction ,DOWN) ) - keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface) - quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event) + keepAliveInterfaces = #'( + rhythmic-grob-interface + lyric-interface + + ;; need this, as stanza numbers are items, and appear only once. + stanza-number-interface + percent-repeat-interface) + quotedEventTypes = #'( + note-event + rest-event + tie-event + beam-event + tuplet-span-event) instrumentTransposition = #(ly:make-pitch 0 0 0) verticallySpacedContexts = #'(Staff) + \override Voice #'hairpinToBarline = ##t + timing = ##t } @@ -592,14 +631,15 @@ AncientRemoveEmptyStaffContext = \context { \type "Engraver_group" \name "FiguredBass" -%% \consists "Figured_bass_engraver" - \consists "New_figured_bass_engraver" + \consists "Figured_bass_engraver" \consists "Note_swallow_translator" \consists "Skip_event_swallow_translator" \consists "Separating_line_group_engraver" \consists "Hara_kiri_engraver" - \override RemoveEmptyVerticalGroup #'remove-first = ##t - minimumVerticalExtent = #'(-0.5 . 2.5) + + \override VerticalAxisGroup #'remove-empty = ##t + \override VerticalAxisGroup #'remove-first = ##t + \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) } \context { @@ -610,7 +650,8 @@ AncientRemoveEmptyStaffContext = \context { \alias "Staff" \alias "Voice" \consists "Swallow_engraver" - \description "Silently discards all musical information given to this context. " + \description "Silently discards all musical information given to this +context." } \context { @@ -618,26 +659,30 @@ AncientRemoveEmptyStaffContext = \context { \name "TabVoice" \alias "Voice" \consists "Tab_note_heads_engraver" + \consists "Tab_harmonic_engraver" + \remove "Note_heads_engraver" \remove "Fingering_engraver" \remove "New_fingering_engraver" - \description "Context for drawing notes in a Tab staff. " - - %% Draws all stems/beams out of the staff (and not in the middle of the staff !) - %% This feature is now disabled because most of the tab does not use it. - %%\override Beam #'damping = #100000 - %%\override Stem #'up-to-staff = ##t + \description "Context for drawing notes in a Tab staff." %% TabStaff increase the staff-space, which in turn %% increases beam thickness and spacing; beams are %% too big. We have to adjust the beam settings: \override Beam #'thickness = #0.32 - \override Beam #'space-function = - #(lambda (beam mult) (* 0.62 (Beam::space_function beam mult))) + \override Beam #'length-fraction = #0.62 %% No accidental in tablature ! \remove Accidental_engraver + + \override Glissando #'extra-dy = #0.75 + \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT) + (padding . 0.3)) + \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT) + (padding . 0.3)) + \override Glissando #'extra-dy = #0.75 + \override Glissando #'gap = #0.2 } \context { @@ -645,7 +690,6 @@ AncientRemoveEmptyStaffContext = \context { \alias "Staff" \name "TabStaff" \denies "Voice" - \remove "Staff_symbol_engraver" \consists "Tab_staff_symbol_engraver" \description "Context for generating tablature. [DOCME]" @@ -682,7 +726,9 @@ AncientRemoveEmptyStaffContext = \context { \Voice \name "VaticanaVoice" \alias "Voice" - \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana." + \description "Same as @code{Voice} context, except that it is +accommodated for typesetting Gregorian Chant in the notational style +of Editio Vaticana." \remove "Slur_engraver" \remove "Stem_engraver" @@ -701,25 +747,14 @@ AncientRemoveEmptyStaffContext = \context { %% Prepare TextSpanner for \episem{Initium|Finis} use. %% - %% N.B.: dash-fraction MUST be unset; otherwise, TextSpanner will - %% always produce dashed lines, regardless of the style property. - %% %% FIXME: The line @code{\override TextSpanner #'padding = #-0.1} is %% required to force the articulation signs being placed vertically %% tightly to the correpsonding note heads. %% - \override TextSpanner #'dash-fraction = #'() \override TextSpanner #'style = #'line - \override TextSpanner #'edge-height = #'(0 . 0) \override TextSpanner #'padding = #-0.1 - \override TextSpanner #'enclose-bounds = #1 - \override TextSpanner #'edge-text = #'("" . "") } -%% FIXME: need something like -%% \remove "Bar_number_engraver" (which lives on score level) -%% for vaticana and gregorian transcription staves - \context { \Staff \name "VaticanaStaff" @@ -728,7 +763,9 @@ AncientRemoveEmptyStaffContext = \context { \accepts "VaticanaVoice" \defaultchild "VaticanaVoice" - \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting Gregorian Chant in the notational style of Editio Vaticana." + \description "Same as @code{Staff} context, except that it is +accommodated for typesetting Gregorian Chant in the notational style +of Editio Vaticana." \remove "Time_signature_engraver" \consists "Custos_engraver" @@ -747,25 +784,24 @@ AncientRemoveEmptyStaffContext = \context { %% Choose vaticana do clef on 3rd line as default. clefGlyph = #"clefs.vaticana.do" middleCPosition = #1 + middleCClefPosition = #1 clefPosition = #1 clefOctavation = #0 %% Select vaticana style font. \override KeySignature #'style = #'vaticana - \override Accidental #'style = #'vaticana + \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist \override Custos #'style = #'vaticana \override Custos #'neutral-position = #3 \override Custos #'neutral-direction = #DOWN - - %% Score.timing = ##f - %% Score.barAlways = ##t + \override Dots #'style = #'vaticana } \context { \Voice \name "GregorianTranscriptionVoice" \alias "Voice" - + %% Removing ligature bracket engraver without replacing it by some %% other ligature engraver would cause a "Junking event: `LigatureEvent'" %% warning for every "\[" and "\]". Therefore, we make the grob @@ -790,10 +826,7 @@ AncientRemoveEmptyStaffContext = \context { %% \override TextSpanner #'dash-fraction = #'() \override TextSpanner #'style = #'line - \override TextSpanner #'edge-height = #'(0 . 0) \override TextSpanner #'padding = #-0.1 - \override TextSpanner #'enclose-bounds = #1 - \override TextSpanner #'edge-text = #'("" . "") } \context { @@ -814,7 +847,8 @@ AncientRemoveEmptyStaffContext = \context { \Voice \name "MensuralVoice" \alias "Voice" - \description "Same as @code{Voice} context, except that it is accommodated for tyepsetting a piece in mensural style." + \description "Same as @code{Voice} context, except that it is +accommodated for typesetting a piece in mensural style." \remove "Slur_engraver" \remove "Ligature_bracket_engraver" @@ -834,7 +868,8 @@ AncientRemoveEmptyStaffContext = \context { \denies "Voice" \defaultchild "MensuralVoice" \accepts "MensuralVoice" - \description "Same as @code{Staff} context, except that it is accommodated for tyepsetting a piece in mensural style." + \description "Same as @code{Staff} context, except that it is +accommodated for typesetting a piece in mensural style." \consists "Custos_engraver" @@ -850,6 +885,7 @@ AncientRemoveEmptyStaffContext = \context { %% Choose petrucci g clef on 2nd line as default. clefGlyph = #"clefs.petrucci.g" + middleCClefPosition = #-6 middleCPosition = #-6 clefPosition = #-2 clefOctavation = #0 @@ -857,18 +893,23 @@ AncientRemoveEmptyStaffContext = \context { %% Select mensural style font. \override TimeSignature #'style = #'mensural \override KeySignature #'style = #'mensural - \override Accidental #'style = #'mensural + \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist \override Custos #'style = #'mensural \override Custos #'neutral-position = #3 \override Custos #'neutral-direction = #DOWN - %% Score.timing = ##f - %% Score.barAlways = ##t + %% Accidentals are valid only once (same as + %% #(set-accidental-style 'forget)) + extraNatural = ##f + autoAccidentals = #'(Staff (same-octave . -1)) + autoCautionaries = #'() + printKeyCancellation = ##f } RemoveEmptyRhythmicStaffContext= \context { \RhythmicStaff \remove "Axis_group_engraver" + \override VerticalAxisGroup #'remove-empty = ##t \consists "Hara_kiri_engraver" }