\type "Engraver_group_engraver";
\name Staff ;
\consists "Output_property_engraver";
- barAuto = ##t
- voltaVisibility = ##t
Generic_property_list = #generic-staff-properties
\consists "Property_engraver";
\consists "Multi_measure_rest_engraver";
+
\consists "Bar_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
- \consists "Repeat_engraver";
+
+% \consists "Repeat_engraver";
+ \consists "Volta_engraver";
+ \consists "Separating_line_group_engraver";
+
- % name, glyph id, c0 position
- supportedClefTypes = #'(
- ("treble" . ("G" -2))
- ("violin" . ("G" -2))
- ("G" . ("G" -2))
- ("G2" . ("G" -2))
- ("french" . ("G" -4 ))
- ("soprano" . ("C" -4 ))
- ("mezzosoprano" . ("C" -2 ))
- ("alto" . ("C" 0 ))
- ("tenor" . ("C" 2 ))
- ("baritone" . ("C" 4 ))
- ("varbaritone" . ("F" 0))
- ("bass" . ("F" 2 ))
- ("F" . ( "F" 2))
- ("subbass" . ("F" 4))
- )
- clefPitches = #'(("G" . -4)
- ("C" . 0)
- ("F" . 4))
-
\consists "Clef_engraver";
\consists "Key_engraver";
\consists "Time_signature_engraver";
\consistsend "Axis_group_engraver";
-
-
%{
- The Staff_margin_engraver puts the name of the instrument
+ 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.
- \consists "Staff_margin_engraver";
+ 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 }
-\translator {
+ChoirStaffContext = \translator {
\type "Engraver_group_engraver";
\name ChoirStaff;
- alignmentReference = \center;
- \consists "Staff_group_bar_engraver";
-
+ alignmentReference = \center;
+ \consists "System_start_delimiter_engraver";
+ systemStartDelimiterGlyph = #'bracket
\accepts "Staff";
\accepts "RhythmicStaff";
\accepts "GrandStaff";
\accepts "PianoStaff";
-
-
\accepts "Lyrics";
\accepts "ChordNames";
}
RhythmicStaffContext=\translator{
\type "Engraver_group_engraver";
- numberOfStaffLines = #1
+
\consists "Property_engraver";
\consists "Output_property_engraver";
Generic_property_list = #generic-staff-properties
-
- barSize = #'staff-height
+
\consists "Pitch_squash_engraver";
\consists "Separating_line_group_engraver";
\name RhythmicStaff;
+ basicBarProperties \push #'bar-size = #4
+ basicVoltaSpannerProperties \push #'minimum-space = #15 % urg, in \pt
+ basicVoltaSpannerProperties \push #'padding = #5 % urg, in \pt
+ basicStaffSymbolProperties \push #'line-count = #1
- voltaPadding = #5 % urg, in \pt
- voltaMinimumSpace = #15 % urg, in \pt
- \consists "Repeat_engraver";
+% \consists "Repeat_engraver";
+ \consists "Volta_engraver";
\consists "Bar_engraver";
\consists "Time_signature_engraver";
\consists "Staff_symbol_engraver";
\consistsend "Axis_group_engraver";
\accepts "Voice";
-};
-\translator{\RhythmicStaffContext}
+}
+
VoiceContext = \translator {
\type "Engraver_group_engraver";
\name Voice;
- dynamicPadding = #5 % urg, in \pt
- dynamicMinimumSpace = #10 % urg, in \pt
-
Generic_property_list = #generic-voice-properties
+
\consists "Output_property_engraver";
\consists "Dynamic_engraver"; % must come before text_engraver.
\consists "Beam_engraver";
\consists "Auto_beam_engraver";
\include "auto-beam-settings.ly";
- \consists "Chord_tremolo_engraver";
+ \consists "Chord_tremolo_engraver";
\consists "Melisma_engraver";
- textScriptPadding = #3.0
\consists "Text_engraver";
+ \consists "A2_engraver";
+ \consists "Voice_devnull_engraver";
+
+
+ startSustain = #"Ped."
+ stopSustain = #"*"
+ stopStartSustain = #"*Ped."
+ startUnaChorda = #"una chorda"
+ stopUnaChorda = #"tre chorde"
+ % should make separate lists for stopsustain and startsustain
+
+ \consists "Piano_pedal_engraver";
\consists "Script_engraver";
\consists "Script_column_engraver";
\consists "Rhythmic_column_engraver";
\consists "Skip_req_swallow_translator";
\accepts Thread; % bug if you leave out this!
\accepts Grace;
-};
+}
GraceContext=\translator {
\type "Grace_engraver_group";
\consists "Align_note_column_engraver";
\consists "Rhythmic_column_engraver";
- \consists "Dynamic_engraver";
- \consists "Property_engraver";
+ \consists "Dynamic_engraver";% in Grace ???
+ \consists "Text_engraver"; % in Grace ???
- stemStyle = #"grace"
- flagStyle = #"grace"
- weAreGraceContext = ##t
- fontSize = #-1
-
- stemLength = #6.0
- verticalDirection = \up ;
- graceAccidentalSpace= 1.5 * \staffspace;
-};
+ \consists "Property_engraver";
-\translator{\GraceContext}
-\translator {\VoiceContext}
+ basicStemProperties \push #'style = #"grace"
+ basicStemProperties \push #'flag-style = #"grace"
+ basicStemProperties \push #'stem-length = #6.0
+ basicStemProperties \push #'direction = #1
+
+ basicNoteHeadProperties \push #'font-size = #-1
+ basicStemProperties \push #'font-size = #-1
+ basicStemProperties \push #'stem-shorten = #'(0)
+ basicBeamProperties \push #'font-size = #-1
+ basicTextScriptProperties \push #'font-size = #-1
+ basicSlurProperties \push #'font-size = #-1
+ basicLocalKeyProperties \push #'font-size = #-1
+ basicBeamProperties \push #'beam-thickness = #0.3
+ basicBeamProperties \push #'beam-space-function = #(lambda (x) 0.5)
+
+ basicStemProperties \push #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
+ basicStemProperties \push #'beamed-lengths =
+ #'(0.0 2.5 2.0 1.5)
+ basicStemProperties \push #'minimum-beamed-lengths
+ = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
+
+ weAreGraceContext = ##t
+ graceAccidentalSpace= 1.5 ; % in staff space
+}
ThreadContext = \translator{
\type Engraver_group_engraver;
- \consists "Note_heads_engraver" ;
+ \consists "Thread_devnull_engraver";
+ \consists "Note_heads_engraver";
\consists "Output_property_engraver";
Generic_property_list = #generic-thread-properties
\consists "Property_engraver";
\name Thread;
-};
+}
-\translator{\ThreadContext}
GrandStaffContext=\translator{
\type "Engraver_group_engraver";
\name GrandStaff;
\consists "Span_bar_engraver";
- \consists "Piano_bar_engraver";
+ \consists "System_start_delimiter_engraver";
+ systemStartDelimiterGlyph = #'brace
+
\consists "Property_engraver";
Generic_property_list = #generic-grand-staff-properties
\accepts "Staff";
-};
-\translator{\GrandStaffContext}
+}
PianoStaffContext = \translator{\GrandStaffContext
alignmentReference = \center;
\consists "Vertical_align_engraver";
- minVerticalAlign = 3.0*\staffheight;
- maxVerticalAlign = 3.0*\staffheight;
+
+ basicVerticalAlignmentProperties \push #'threshold = #'(12 . 12)
% \consistsend "Axis_group_engraver";
\name "PianoStaff";
-
-};
-\translator{\PianoStaffContext}
+}
+
StaffGroupContext= \translator {
\type "Engraver_group_engraver";
\consists "Span_bar_engraver";
\consists "Output_property_engraver";
- \consists "Staff_group_bar_engraver";
-
+ \consists "System_start_delimiter_engraver";
+ systemStartDelimiterGlyph = #'bracket
\name StaffGroup;
\accepts "Staff";
\accepts "RhythmicStaff";
\accepts "Lyrics";
\accepts "ChordNames";
-};
+}
-\translator { \StaffGroupContext }
% UGH! JUNKME
LyricsVoiceContext= \translator{
\type "Engraver_group_engraver";
\consistsend "Axis_group_engraver";
+ LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
\name LyricVoice ;
\consists "Separating_line_group_engraver";
\consists "Lyric_engraver";
\consists "Extender_engraver";
\consists "Hyphen_engraver";
-};
-\translator{ \LyricsVoiceContext }
+ \consists "Stanza_number_engraver";
+ phrasingPunctuation = #".,;:!?\""
+
+}
+NoteNamesContext = \translator {
+ \type "Engraver_group_engraver";
+ \name NoteNames;
+ \consistsend "Axis_group_engraver";
+ \consists "Note_name_engraver";
+ \consists "Separating_line_group_engraver";
+}
LyricsContext = \translator {
\type "Engraver_group_engraver";
\name Lyrics;
- \consists Vertical_align_engraver;%need this for getting folded repeats right.
-
+ \consists Vertical_align_engraver; %need this for getting folded repeats right.
+ Generic_property_list = #generic-lyrics-properties
\consists "Property_engraver";
\consistsend "Axis_group_engraver";
\accepts "LyricVoice";
-};
-\translator { \LyricsContext }
+}
ChordNameVoiceContext = \translator {
\type "Engraver_group_engraver";
\consistsend "Axis_group_engraver";
\consists "Separating_line_group_engraver";
\consists "Chord_name_engraver";
-};
-\translator {\ChordNameVoiceContext}
-
+}
ChordNameContext = \translator {
\type "Engraver_group_engraver";
\name ChordNames;
+ Generic_property_list = #generic-chord-staff-properties
+ \consists "Property_engraver";
\consists "Output_property_engraver";
\accepts "ChordNameVoice";
\consistsend "Axis_group_engraver";
- };
-\translator { \ChordNameContext }
+ }
ScoreWithNumbers = \translator {
% uncomment to bar numbers on a whole system.
\consists "Bar_number_engraver";
-};
+}
StupidScore = \translator {
\type "Score_engraver";
\name Score;
\consists "Note_heads_engraver";
-};
+}
BarNumberingStaffContext = \translator {
\StaffContext
\consists "Mark_engraver";
- \consists "Bar_number_engraver";
-};
+}
HaraKiriStaffContext = \translator {
\StaffContext
\remove "Axis_group_engraver";
\consistsend "Hara_kiri_engraver";
- \consists "Staff_margin_engraver";
+ \consists "Instrument_name_engraver";
\accepts "Voice";
-};
+}
%{
The HaraKiriStaffContexts doesn't override \name,
so it is still named `Staff'.
OrchestralPartStaffContext = \translator {
\StaffContext
\consists "Mark_engraver";
- \consists "Bar_number_engraver";
-};
+}
ScoreContext = \translator {
\type Score_engraver;
\name Score;
+
- marginScriptPadding = #10 % urg, in \pt
-
+ \consists "Repeat_acknowledge_engraver";
\consists "Timing_engraver";
\consists "Output_property_engraver";
-
- %bracketCollapseHeight = #10 % \pt
- \consists "Span_score_bar_engraver";
-% \consists "Score_priority_engraver";
+ \consists "System_start_delimiter_engraver";
+ \consists "Mark_engraver";
\consists "Break_align_engraver";
- breakAlignOrder = #'(
- "Left_edge_item"
- "Span_bar"
- "Breathing_sign"
- "Clef_item"
- "Key_item"
- "Staff_bar"
- "Time_signature"
- )
\consists "Spacing_engraver";
\consists "Vertical_align_engraver";
- alignmentReference = \down;
- defaultClef = #"treble"
- defaultBarType = #"|"
+
+ \consists "Lyric_phrasing_engraver";
+ \consists "Bar_number_engraver";
+
+
\accepts "Staff";
\accepts "StaffGroup";
\accepts "RhythmicStaff";
\accepts "PianoStaff";
\accepts "NoteNames";
- markVisibilityFunction = #end-of-line-invisible
- barNumberVisibilityFunction = #begin-of-line-visible
- marginVisibilityFunction = #begin-of-line-visible
-};
+ soloText = #"Solo"
+ soloIIText = #"Solo II"
+ aDueText = #"\\`a2"
+ soloADue = ##t
+ splitInterval = #'(0 . 1)
+ changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
-\translator { \ScoreContext }
+ defaultClef = #"treble"
-OrchestralScoreContext= \translator {
- \ScoreContext
+ 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))
+
- barScriptPadding = #2.0 % dimension \pt
- markScriptPadding = #4.0
+ automaticPhrasing = ##t;
+ alignmentReference = \down;
+ defaultClef = #"treble"
+ defaultBarType = #"|"
+ systemStartDelimiterGlyph = #'bar-line
+
+ %
+ % what order to print accs. We could compute this,
+ % but computing is more work than putting it here.
+ %
+ % Flats come first, then sharps.
+ keyAccidentalOrder = #'(
+ (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
+ )
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % TODO: uniform naming.;
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+ %
+ % distances are given in stafflinethickness (thicknesses) and
+ % staffspace (distances)
+ %
+ basicBarProperties = #`(
+ (interfaces . (bar-interface staff-bar-interface))
+ (break-align-symbol . Staff_bar)
+ (glyph . "|")
+ (barsize-procedure . ,Bar::get_staff_bar_size)
+ (molecule-callback . ,Bar::brew_molecule)
+ (visibility-lambda . ,all-visible)
+ (breakable . #t)
+ (before-line-breaking-callback . ,Bar::before_line_breaking)
+ ;;
+ ;; Ross. page 151 lists other values, we opt for a leaner look
+ ;;
+ (kern . 3.0)
+ (thin-kern . 3.0)
+ (hair-thickness . 1.6)
+ (thick-thickness . 6.0)
+ (name . "barline")
+ )
- \consists "Bar_number_engraver";
- \consists "Mark_engraver";
-};
+ basicBarNumberProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (breakable . #t)
+ (visibility-lambda . ,begin-of-line-visible)
+ (name . "barnumber")
+ (padding . 1.0)
+ (direction . 1)
+ )
-\translator {
- \type "Engraver_group_engraver";
- \name NoteNames;
- \consistsend "Axis_group_engraver";
- \consists "Note_name_engraver";
+ basicBeamProperties = #basic-beam-properties
+ basicBreakAlignProperties = #`(
+ (breakable . #t)
+ (interfaces . (break-align-interface))
+ (stacking-dir . 1)
+ (axes 0)
+ (name . "break alignment")
+ )
+ basicBreakAlignGroupProperties = #`(
+ (interfaces . (axis-group-interface))
+ (axes . (0))
+ (name . "break alignment group")
+ )
+ basicBreathingSignProperties = #`(
+ (interfaces . (breathing-sign-interface))
+ (break-align-symbol . Breathing_sign)
+ (breakable . #t )
+ (molecule-callback . ,Breathing_sign::brew_molecule)
+ (visibility-lambda . ,begin-of-line-invisible)
+ (name . "breathing sign")
+ )
+ basicClefItemProperties = #`(
+ (interfaces . (clef-interface))
+ (molecule-callback . ,Score_element::brew_molecule)
+ (before-line-breaking-callback . ,Clef::before_line_breaking)
+ (breakable . #t)
+ (break-align-symbol . Clef_item)
+ (visibility-lambda . ,begin-of-line-visible)
+ (name . "clef")
+ )
+ basicChordNameProperties = #`(
+ (molecule-callback . ,Chord_name::brew_molecule)
+ (interfaces . (chord-name-interface))
+ (after-line-breaking-callback . ,Chord_name::after_line_breaking)
+ (name . "chord name")
+ )
+ basicCollisionProperties = #`(
+ (axes 0 1)
+ (interfaces . (collision-interface))
+ (note-width . 1.65)
+ (name . "note collision")
+ )
+ basicCrescendoProperties = #`(
+ (molecule-callback . ,Crescendo::brew_molecule)
+ (interfaces . (crescendo-interface dynamic-interface))
+ (thickness . 1.0)
+ (shorten-for-letter . 4.0)
+ (height . 0.6666)
+ (dash-thickness . 1.2)
+ (dash-length . 4.0)
+ (name . "crescendo")
+ )
+ basicDotColumnProperties = #`(
+ (interfaces . (dot-column-interface axis-group-interface ))
+ (axes 0 )
+ (name . "dot column")
+ )
+ basicDotsProperties = #`(
+ (interfaces . (dot-interface))
+ (molecule-callback . ,Dots::brew_molecule)
+ (dot-count . 1)
+ (name . "augmentation dot")
+ )
+ basicDynamicTextProperties = #`(
+ (style . "dynamic")
+ (interfaces . (dynamic-interface))
+ (molecule-callback . ,Text_item::brew_molecule)
+ (script-priority . 100)
+ (self-alignment-Y . 0)
+ (name . "dynamic text")
+ )
+
+ basicDynamicLineSpannerProperties = #`(
+ (interfaces . (dynamic-interface axis-group-interface side-position-interface))
+ (axes . ( 1))
+ (padding . 3)
+ (minimum-space . 6)
+ (name . "dynamic alignment")
+ )
+
+ leftEdgeBasicProperties = #`(
+ (break-align-symbol . Left_edge_item)
+ (breakable . #t)
+ (name . "left edge")
+ )
+ basicFingeringProperties = #`(
+ (interfaces . (finger-interface text-script-interface text-item-interface side-position-interface))
+ (molecule-callback . ,Text_item::brew_molecule)
+ (padding . 3.0)
+ (self-alignment-X . 0)
+ (name . "fingering script")
+ )
+ basicGraceAlignItemProperties = #`(
+ (interfaces . (axis-group-interface align-interface))
+ (axes . (0))
+ (horizontal-space . 1.2)
+ (padding . 1.0)
+ (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
+ (name . "grace alignment")
+ )
+ basicHaraKiriVerticalGroupspannerProperties = #`(
+ (interfaces . (hara-kiri-interface))
+ (axes 1)
+ (name . "hara kiri")
+ )
+ basicHyphenSpannerProperties = #`(
+ (thickness . 1.0)
+ (height . 0.4)
+ (minimum-length . 0.5)
+ (molecule-callback . ,Hyphen_spanner::brew_molecule)
+ (name . "hyphen")
+ )
+
+ basicInstrumentNameProperties = #`(
+ (breakable . #t)
+ (molecule-callback . ,Text_item::brew_molecule)
+ (break-align-symbol . Instrument_name)
+ (visibility-lambda . ,begin-of-line-visible)
+ (name . "instrument name")
+ )
+ basicKeyProperties = #`(
+ (molecule-callback . ,Key_item::brew_molecule)
+ (interfaces . (key-item-interface))
+ (break-align-symbol . Key_item)
+ (visibility-lambda . ,begin-of-line-visible)
+ (breakable . #t)
+ (name . "key signature")
+ )
+ basicLocalKeyProperties = #`(
+ (molecule-callback . ,Local_key_item::brew_molecule)
+ (left-padding . 0.2)
+ (right-padding . 0.4)
+ (interfaces . (accidentals-interface))
+ (name . "accidentals")
+ )
+ basicLineOfScoreProperties = #`(
+ (axes . (0 1))
+ (interfaces . (axis-group-interface))
+ (name . "godzilla")
+ )
+ basicLyricExtenderProperties = #`(
+ (interfaces . (lyric-extender-interface))
+ (molecule-callback . ,Lyric_extender::brew_molecule)
+ (height . 0.8) ; stafflinethickness;
+ (right-trim-amount . 0.5)
+ (name . "extender line")
+ )
+ basicLyricTextProperties = #`(
+ (interfaces . (lyric-syllable-interface text-item-interface))
+ (molecule-callback . ,Text_item::brew_molecule)
+ (self-alignment-X . 0)
+ (non-rhythmic . #t)
+ (word-space . 0.6)
+ (name . "lyric syllable")
+ )
+ basicMarkProperties = #`(
+ (interfaces . (mark-interface side-position-interface))
+ (molecule-callback . ,Text_item::brew_molecule)
+ (breakable . #t)
+ (visibility-lambda . ,end-of-line-invisible)
+ (padding . 4.0)
+ (name . "rehearsal mark")
+ )
+ basicMultiMeasureRestProperties = #`(
+ (interfaces . (multi-measure-rest-interface))
+ (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
+ (molecule-callback . ,Multi_measure_rest::brew_molecule)
+ (staff-position . 0)
+ (expand-limit . 10)
+ (padding . 2.0) ; staffspace
+ (minimum-width . 12.5) ; staffspace
+ (name . "multi-measure rest")
+ )
+ basicNoteColumnProperties = #`(
+ (interfaces . (axis-group-interface note-column-interface))
+ (axes 0 1)
+ (name . "note column")
+ )
+ basicNoteHeadProperties = #`(
+ (interfaces . (note-head-interface rhythmic-head-interface))
+ (style . default)
+ (molecule-callback . ,Note_head::brew_molecule)
+ (name . "note head")
+ )
+ basicNoteNameProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (name . "note name")
+ )
+ basicOctavateEightProperties = #`(
+ (self-alignment-X . 0)
+ (text . "8")
+ (visibility-lambda . ,begin-of-line-visible)
+ (molecule-callback . ,Text_item::brew_molecule)
+ (style . "italic")
+ )
+ basicPaperColumnProperties = #`(
+ (interfaces . (paper-column-interface axis-group-interface))
+ (axes 0)
+ (rank . -1)
+ )
+
+ %% These text props are only used by line-number-engraver...
+ basicTextProperties = #`( )
+
+ basicRestProperties = #`(
+ (interfaces . (rest-interface rhythmic-head-interface))
+ (after-line-breaking-callback . ,Rest::after_line_breaking)
+ (molecule-callback . ,Rest::brew_molecule)
+ (minimum-beam-collision-distance . 1.5)
+ (name . "rest")
+ )
+
+ basicRestCollisionProperties = #`(
+ (interfaces . (rest-collision-interface))
+ (minimum-distance . 0.75)
+ (name . "rest collision")
+ )
+ basicScriptProperties = #`(
+ (molecule-callback . ,Script::brew_molecule)
+ (interfaces . (script-interface side-position-interface))
+ (name . "script")
+ )
+ basicScriptColumnProperties = #`(
+ (before-line-breaking-callback . ,Script_column::before_line_breaking)
+ (name . "script column")
+ )
+ basicSlurProperties = #default-basic-slur-properties
+ basicSpacingSpannerProperties =#`(
+ (spacing-procedure . ,Spacing_spanner::set_springs)
+
+ ;; assume that notes at least this long are present.
+ (maximum-duration-for-spacing . ,(make-moment 1 8))
+ (name . "spacing spanner")
+ )
+ basicSpanBarProperties = #`(
+ (interfaces . (bar-interface span-bar-interface))
+ (break-align-symbol . Staff_bar)
+ (barsize-procedure . ,Span_bar::get_bar_size)
+ (molecule-callback . ,Bar::brew_molecule)
+ (visibility-lambda . ,begin-of-line-invisible)
+ (breakable . #t)
+ (glyph . "|")
+ (before-line-breaking-callback . ,Span_bar::before_line_breaking)
+ ;; ugh duplication!
+
+ ;;
+ ;; Ross. page 151 lists other values, we opt for a leaner look
+ ;;
+ (kern . 3.0)
+ (thin-kern . 3.0)
+ (hair-thickness . 1.6)
+ (thick-thickness . 6.0)
+ (name . "cross staff bar-line")
+ )
+ basicStanzaNumberProperties = #`(
+ (breakable . #t)
+ (molecule-callback . ,Text_item::brew_molecule)
+ (break-align-symbol . Clef_item)
+ (visibility-lambda . ,begin-of-line-visible)
+ (name . "stanza number")
+ )
+ basicStaffSymbolProperties = #`(
+ (interfaces . (staff-symbol-interface ))
+ (molecule-callback . ,Staff_symbol::brew_molecule)
+ (staff-space . 1.0)
+ (line-count . 5 )
+ (name . "staff symbol")
+ )
+ basicSystemStartDelimiterProperties = #`(
+ (molecule-callback . ,System_start_delimiter::brew_molecule)
+ (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
+ (collapse-height . 1.0)
+ (thickness . 1.6)
+ (arch-height . 1.5)
+ (arch-angle . 50.0)
+ (arch-thick . 0.25)
+ (arch-width . 1.5)
+ (bracket-thick . 0.25)
+ (bracket-width . 2.0)
+ (name . "system start bracket")
+ )
+ basicTextScriptProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (no-spacing-rods . #t)
+ (interfaces . (text-script-interface text-item-interface side-position-interface))
+ (padding . 3.0)
+ (name . "text script")
+ )
+ basicTieProperties = #`(
+ (interfaces . (tie-interface))
+ (molecule-callback . ,Tie::brew_molecule)
+ (spacing-procedure . ,Tie::set_spacing_rods)
+ (staffline-clearance . 0.24)
+ (details . ((ratio . 0.333) (height-limit . 1.0)))
+ (thickness . 1.2)
+ (x-gap . 0.2)
+ (minimum-length . 2.5)
+ (name . "tie")
+ )
+ basicTieColumnProperties = #`(
+ (after-line-breaking-callback . ,Tie_column::after_line_breaking)
+ (interfaces . (tie-column-interface))
+ (name . "tie column")
+ )
+ basicTimeSignatureProperties = #`(
+ (interfaces . (time-signature-interface))
+ (molecule-callback . ,Time_signature::brew_molecule)
+ (break-align-symbol . Time_signature)
+ (visibility-lambda . ,all-visible)
+ (breakable . #t)
+ (name . "time signature")
+ )
+ basicTupletSpannerProperties = #`(
+ (number-gap . 2.0)
+ (delta-y . 0)
+ (thick . 1.0)
+ (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
+ (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)
+ (name . "sostenuto pedal")
+
+ )
+ basicStemTremoloProperties = #`(
+ (molecule-callback . ,Stem_tremolo::brew_molecule)
+ (beam-width . 2.0) ; staff-space
+ (beam-thickness . 0.42) ; staff-space
+ (beam-space-function . ,default-beam-space-function)
+ (name . "stem tremolo")
+ )
+ basicStemProperties = #`(
+ (interfaces . (stem-interface))
+ (before-line-breaking-callback . ,Stem::before_line_breaking)
+ (molecule-callback . ,Stem::brew_molecule)
+ (thickness . 0.8)
+ (beamed-lengths . (0.0 2.5 2.0 1.5))
+ (beamed-minimum-lengths . (0.0 1.5 1.25 1.0))
+
+;; Stems in unnatural (forced) direction should be shortened,
+;; according to [Roush & Gourlay]. Their suggestion to knock off
+;; a whole staffspace seems a bit drastical: we'll do half.
+
+ (lengths . (3.5 3.5 3.5 4.5 5.0))
+ (stem-shorten . (0.5))
+ ; if stem is on middle line, choose this direction.
+ (default-neutral-direction . 1)
+ (name . "stem")
+ )
+ basicSeparationItemProperties = #`(
+ (interfaces . (separation-item-interface))
+ (name . "separation item")
+ )
+ basicSeparatingGroupSpannerProperties = #`(
+ (interfaces . (separation-spanner-interface))
+ (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
+ (name . "separation spanner")
+ )
+ basicSustainPedalProperties = #`(
+ (interfaces . (sustain-pedal-interface side-position-interface))
+ (no-spacing-rods . #t)
+ (molecule-callback . ,Sustain_pedal::brew_molecule)
+ (self-alignment-X . 0)
+ (name . "sustain pedal")
+ )
+ basicUnaChordaPdealProperties = #`(
+ (molecule-callback . ,Text_item::brew_molecule)
+ (style . "italic")
+ (no-spacing-rods . #t)
+ (self-alignment-X . 0)
+ (name . "una chorda pedal")
+ )
+
+ basicVoltaSpannerProperties = #`(
+ (molecule-callback . ,Volta_spanner::brew_molecule)
+ (interfaces . (volta-spanner-interface side-position-interface))
+ (direction . 1)
+ (padding . 5)
+ (thickness . 1.6) ; stafflinethickness
+ (height . 2.0) ; staffspace;
+ (minimum-space . 25)
+ (name . "volta brace")
+ )
+ basicVerticalAlignmentProperties = #`(
+ (axes 1)
+ (interfaces . (align-interface axis-group-interface))
+ (name . "vertical alignment")
+ )
+ basicVerticalAxisGroupProperties = #`(
+ (axes 1)
+ (interfaces . (axis-group-interface))
+ (name . "Y-axis group")
+ )
}
+
+OrchestralScoreContext= \translator {
+ \ScoreContext
+}
+