\type "Engraver_group_engraver";
\name Staff ;
\consists "Output_property_engraver";
- barAuto = ##t
- voltaVisibility = ##t
Generic_property_list = #generic-staff-properties
\consists "Property_engraver";
% Bar_engraver must be first so default bars aren't overwritten
% with empty ones.
- voltaPadding = #5 % urg, in \pt
- voltaMinimumSpace = #25 % urg, in \pt
-
- StaffMinimumVerticalExtent = #(cons -4.0 4.0)
\consists "Repeat_engraver";
- % name, glyph id, c0 position
- supportedClefTypes = #'(
- ("treble" . ("clefs-G" -2))
- ("violin" . ("clefs-G" -2))
- ("G" . ("clefs-G" -2))
- ("G2" . ("clefs-G" -2))
- ("french" . ("clefs-G" -4 ))
- ("soprano" . ("clefs-C" -4 ))
- ("mezzosoprano" . ("clefs-C" -2 ))
- ("alto" . ("clefs-C" 0 ))
- ("tenor" . ("clefs-C" 2 ))
- ("baritone" . ("clefs-C" 4 ))
- ("varbaritone" . ("clefs-F" 0))
- ("bass" . ("clefs-F" 2 ))
- ("F" . ( "clefs-F" 2))
- ("subbass" . ("clefs-F" 4))
- )
- % where is c0 in this clef?
- clefPitches = #'(("clefs-G" . -4)
- ("clefs-C" . 0)
- ("clefs-F" . 4))
-
+
\consists "Clef_engraver";
\consists "Key_engraver";
\consists "Time_signature_engraver";
\consistsend "Axis_group_engraver";
-
-
%{
The Instrument_name_engraver puts the name of the instrument
(\property Staff.instrument; Staff.instr for subsequent lines)
to the left of a staff.
- Usually, you only want this in the full score, not in the parts.
+ This is commented out, so you don't get funny things on the
+ PianoStaff
\consists "Instrument_name_engraver";
%}
- defaultClef = #"treble"
- \consists "Separating_line_group_engraver";
\accepts "Voice";
- dynamicStyle = #"dynamic"
};
\translator{\StaffContext }
\consists "System_start_delimiter_engraver";
systemStartDelimiterGlyph = #'bracket
-
-
\accepts "Staff";
\accepts "RhythmicStaff";
\accepts "GrandStaff";
\accepts "PianoStaff";
-
-
\accepts "Lyrics";
\accepts "ChordNames";
}
Generic_property_list = #generic-staff-properties
- barSize = 4.0 * \staffspace ;
+ barSize = 4.0 * \staffspace ; % urg: pt
+
\consists "Pitch_squash_engraver";
\consists "Separating_line_group_engraver";
\name RhythmicStaff;
- voltaPadding = #5 % urg, in \pt
- voltaMinimumSpace = #15 % urg, in \pt
+ \pushproperty #'basicVoltaSpannerProperties #'minimum-space #15 % urg, in \pt
+ \pushproperty #'basicVoltaSpannerProperties #'padding #5 % urg, in \pt
+
+
+
\consists "Repeat_engraver";
\consists "Bar_engraver";
\consists "Time_signature_engraver";
\type "Engraver_group_engraver";
\name Voice;
- dynamicPadding = #3 % urg, in \pt
- dynamicMinimumSpace = #6 % urg, in \pt
-
Generic_property_list = #generic-voice-properties
+
\consists "Output_property_engraver";
\consists "Dynamic_engraver"; % must come before text_engraver.
\consists "Chord_tremolo_engraver";
\consists "Melisma_engraver";
- textScriptPadding = #3.0
\consists "Text_engraver";
\consists "A2_engraver";
\consists "Voice_devnull_engraver";
- % ugh : set these in Score context, please.
+
startSustain = #"Ped."
stopSustain = #"*"
stopStartSustain = #"*Ped."
startUnaChorda = #"una chorda"
stopUnaChorda = #"tre chorde"
-
- soloText = #"Solo"
- soloIIText = #"Solo II"
- aDueText = #"\\`a2"
- soloADue = ##t
- splitInterval = #'(0 . 1)
-
+ % should make separate lists for stopsustain and startsustain
+
\consists "Piano_pedal_engraver";
\consists "Script_engraver";
\consists "Script_column_engraver";
\consists "Align_note_column_engraver";
\consists "Rhythmic_column_engraver";
- \consists "Dynamic_engraver";
- \consists "Text_engraver";
+
+ \consists "Dynamic_engraver";% in Grace ???
+ \consists "Text_engraver"; % in Grace ???
\consists "Property_engraver";
- stemStyle = #"grace"
- flagStyle = #"grace"
+ \pushproperty #'basicStemProperties #'style #"grace"
+ \pushproperty #'basicStemProperties #'flag-style #"grace"
+ \pushproperty #'basicStemProperties #'stem-length #6.0
+ \pushproperty #'basicStemProperties #'direction #1
+ \pushproperty #'(basicNoteHeadProperties basicStemProperties basicBeamProperties basicTextScriptProperties basicSlurProperties basicLocalKeyProperties) #'font-size #-1
+
weAreGraceContext = ##t
- fontSize = #-1
-
- stemLength = #6.0
- verticalDirection = \up ;
graceAccidentalSpace= 1.5 * \staffspace;
};
ScoreContext = \translator {
\type Score_engraver;
\name Score;
-
- marginScriptPadding = #10 % urg, in \pt
+
\consists "Timing_engraver";
\consists "Output_property_engraver";
-
- %bracketCollapseHeight = #10 % \pt
\consists "System_start_delimiter_engraver";
-
-% \consists "Score_priority_engraver";
+ \consists "Mark_engraver";
\consists "Break_align_engraver";
- breakAlignOrder = #'(
- Instrument_name
- Left_edge_item
- Span_bar
- Breathing_sign
- Clef_item
- Key_item
- Staff_bar
- Time_signature
- Stanza_number
- )
\consists "Spacing_engraver";
\consists "Vertical_align_engraver";
\consists "Lyric_phrasing_engraver";
- automaticPhrasing = ##t;
-
\consists "Bar_number_engraver";
+
+
+ \accepts "Staff";
+ \accepts "StaffGroup";
+ \accepts "RhythmicStaff";
+ \accepts "Lyrics";
+ \accepts "ChordNames";
+ \accepts "GrandStaff";
+ \accepts "ChoirStaff";
+ \accepts "PianoStaff";
+ \accepts "NoteNames";
+
+ soloText = #"Solo"
+ soloIIText = #"Solo II"
+ aDueText = #"\\`a2"
+ soloADue = ##t
+ splitInterval = #'(0 . 1)
+
+ defaultClef = #"treble"
+
+ StaffMinimumVerticalExtent = #(cons -4.0 4.0)
+
+ barAuto = ##t
+ voltaVisibility = ##t
+ % name, glyph id, c0 position
+ supportedClefTypes = #'(
+ ("treble" . ("clefs-G" -2))
+ ("violin" . ("clefs-G" -2))
+ ("G" . ("clefs-G" -2))
+ ("G2" . ("clefs-G" -2))
+ ("french" . ("clefs-G" -4 ))
+ ("soprano" . ("clefs-C" -4 ))
+ ("mezzosoprano" . ("clefs-C" -2 ))
+ ("alto" . ("clefs-C" 0 ))
+ ("tenor" . ("clefs-C" 2 ))
+ ("baritone" . ("clefs-C" 4 ))
+ ("varbaritone" . ("clefs-F" 0))
+ ("bass" . ("clefs-F" 2 ))
+ ("F" . ( "clefs-F" 2))
+ ("subbass" . ("clefs-F" 4))
+ )
+ % where is c0 in this clef?
+ clefPitches = #'(("clefs-G" . -4)
+ ("clefs-C" . 0)
+ ("clefs-F" . 4))
+
+
+ automaticPhrasing = ##t;
alignmentReference = \down;
defaultClef = #"treble"
defaultBarType = #"|"
- systemStartDelimiterGlyph = #'bar-line
+ systemStartDelimiterGlyph = #'bar-line
%
% what order to print accs. We could compute this,
(6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
(3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
)
+ breakAlignOrder = #'(
+ Instrument_name
+ Left_edge_item
+ Span_bar
+ Breathing_sign
+ Clef_item
+ Key_item
+ Staff_bar
+ Time_signature
+ Stanza_number
+ )
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % default settings, mainly for breakable items
- % in alphabetical order
% TODO: uniform naming.;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
%
- % distances are given in stafflinethickness (thicknesses) and staffspace (distances)
+ % distances are given in stafflinethickness (thicknesses) and
+ % staffspace (distances)
%
-
-
basicBarProperties = #`(
(break-align-symbol . Staff_bar)
(barsize-procedure . ,Bar::get_staff_bar_size)
(dot-count . 1)
(interfaces . (dot-interface))
)
- basicDynamicLineSpannerProperties = #`(
- (interfaces . (dynamic-interface axis-group-interface))
- (axes . ( 1))
- )
- basicDynamicTextProperties = # `(
+ basicDynamicTextProperties = # `(
(style . "dynamic")
(interfaces . (dynamic-interface))
(molecule-callback . ,Text_item::brew_molecule)
(script-priority . 100)
(self-alignment-Y . 0)
)
+
+ basicDynamicLineSpannerProperties = #`(
+ (interfaces . (dynamic-interface axis-group-interface))
+ (axes . ( 1))
+ (padding . 3)
+ (minimum-space . 6)
+ )
leftEdgeBasicProperties = #`(
(break-align-symbol . Left_edge_item)
(breakable . #t)
(minimum-length . 0.5)
(molecule-callback . ,Hyphen_spanner::brew_molecule)
)
+
+ basicInstrumentNameProperties = #`(
+ (breakable . #t)
+ (molecule-callback . ,Text_item::brew_molecule)
+ (break-align-symbol . Instrument_name)
+ (visibility-lambda . ,begin-of-line-visible)
+ )
basicKeyProperties = #`(
(molecule-callback . ,Key_item::brew_molecule)
(interfaces . (key-item-interface))
(breakable . #t)
(interfaces . (mark-interface))
(visibility-lambda . ,end-of-line-invisible)
+ (padding . 4.0)
)
basicMultiMeasureRestProperties = #`(
(spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
(axes 0)
(rank . -1)
)
- basicPedalProperties = #`(
- (molecule-callback . ,Text_item::brew_molecule)
- (style . "italic")
- (no-spacing-rods . #t)
- (self-alignment-X . 0)
-
- )
basicTextProperties = #`( )
basicRestProperties = #`(
(interfaces . (rest-interface rhythmic-head-interface))
(break-align-symbol . Clef_item)
(visibility-lambda . ,begin-of-line-visible)
)
- basicStemProperties = #`(
- (before-line-breaking-callback . ,Stem::before_line_breaking)
- (molecule-callback . ,Stem::brew_molecule)
-
- ; if stem is on middle line, choose this direction.
- (default-neutral-direction . 1)
- (interfaces . (stem-interface))
- )
- basicSustainPedalProperties = #`(
- (no-spacing-rods . #t)
- (molecule-callback . ,Sustain_pedal::brew_molecule)
- (self-alignment-X . 0)
- (interfaces . (sustain-pedal-interface))
- )
staffSymbolBasicProperties = #`(
(molecule-callback . ,Staff_symbol::brew_molecule)
(staff-space . 1.0)
)
basicTextScriptProperties = #`(
(molecule-callback . ,Text_item::brew_molecule)
-
-: -- don't set, because property-engraver will not override it.
-; (no-spacing-rods . #t)
+ (no-spacing-rods . #t)
(interfaces . (text-script-interface text-item-interface))
+ (padding . 3.0)
)
basicTieProperties = #`(
(molecule-callback . ,Tie::brew_molecule)
(molecule-callback . ,Tuplet_spanner::brew_molecule)
(interfaces . (tuplet-spanner-interface))
)
+ basicSostenutoPedalProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (style . "italic")
+ (no-spacing-rods . #t)
+ (self-alignment-X . 0)
+
+ )
basicStemTremoloProperties = #`(
(molecule-callback . ,Stem_tremolo::brew_molecule)
(beam-width . 2.0) ; staff-space
(beam-thickness . 0.42) ; staff-space
)
+ basicStemProperties = #`(
+ (before-line-breaking-callback . ,Stem::before_line_breaking)
+ (molecule-callback . ,Stem::brew_molecule)
+ ; if stem is on middle line, choose this direction.
+ (default-neutral-direction . 1)
+ (interfaces . (stem-interface))
+ )
basicSeparationItemProperties = #`(
(interfaces . (separation-item-interface))
)
(interfaces . (separation-spanner-interface))
(spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
)
- basicInstrumentNameProperties = #`(
- (breakable . #t)
- (molecule-callback . ,Text_item::brew_molecule)
- (break-align-symbol . Instrument_name)
- (visibility-lambda . ,begin-of-line-visible)
- )
- basicVerticalAxisGroupProperties = #`(
- (axes 1)
- (interfaces . (axis-group-interface))
+ basicSustainPedalProperties = #`(
+ (no-spacing-rods . #t)
+ (molecule-callback . ,Sustain_pedal::brew_molecule)
+ (self-alignment-X . 0)
+ (interfaces . (sustain-pedal-interface))
+ )
+ basicUnaChordaPdealProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (style . "italic")
+ (no-spacing-rods . #t)
+ (self-alignment-X . 0)
)
+
basicVoltaSpannerProperties = #`(
(molecule-callback . ,Volta_spanner::brew_molecule)
(interfaces . (volta-spanner-interface))
+ (padding . 5)
+ (minimum-space . 25)
+ )
+ basicVerticalAxisGroupProperties = #`(
+ (axes 1)
+ (interfaces . (axis-group-interface))
)
-
- \accepts "Staff";
- \accepts "StaffGroup";
- \accepts "RhythmicStaff";
- \accepts "Lyrics";
- \accepts "ChordNames";
- \accepts "GrandStaff";
- \accepts "ChoirStaff";
- \accepts "PianoStaff";
- \accepts "NoteNames";
-
-
- markVisibilityFunction = #end-of-line-invisible
};
\translator { \ScoreContext }
OrchestralScoreContext= \translator {
\ScoreContext
- barScriptPadding = #2.0 % dimension \pt
- markScriptPadding = #4.0
-
- \consists "Mark_engraver";
};
\translator {
\name NoteNames;
\consistsend "Axis_group_engraver";
\consists "Note_name_engraver";
+ \consists "Separating_line_group_engraver";
}
projects / lilypond.git / commitdiff