2 % setup for Request->Element conversion. Guru-only
5 StaffContext=\translator {
6 \type "Engraver_group_engraver";
8 \consists "Output_property_engraver";
11 Generic_property_list = #generic-staff-properties
12 \consists "Property_engraver";
14 \consists "Multi_measure_rest_engraver";
15 \consists "Bar_engraver";
16 % Bar_engraver must be first so default bars aren't overwritten
19 voltaPadding = #5 % urg, in \pt
20 voltaMinimumSpace = #25 % urg, in \pt
22 StaffMinimumVerticalExtent = #(cons -4.0 4.0)
24 \consists "Repeat_engraver";
27 % name, glyph id, c0 position
28 supportedClefTypes = #'(
29 ("treble" . ("clefs-G" -2))
30 ("violin" . ("clefs-G" -2))
31 ("G" . ("clefs-G" -2))
32 ("G2" . ("clefs-G" -2))
33 ("french" . ("clefs-G" -4 ))
34 ("soprano" . ("clefs-C" -4 ))
35 ("mezzosoprano" . ("clefs-C" -2 ))
36 ("alto" . ("clefs-C" 0 ))
37 ("tenor" . ("clefs-C" 2 ))
38 ("baritone" . ("clefs-C" 4 ))
39 ("varbaritone" . ("clefs-F" 0))
40 ("bass" . ("clefs-F" 2 ))
41 ("F" . ( "clefs-F" 2))
42 ("subbass" . ("clefs-F" 4))
44 % where is c0 in this clef?
45 clefPitches = #'(("clefs-G" . -4)
49 \consists "Clef_engraver";
50 \consists "Key_engraver";
51 \consists "Time_signature_engraver";
52 \consists "Staff_symbol_engraver";
53 \consists "Collision_engraver";
54 \consists "Rest_collision_engraver";
55 \consists "Local_key_engraver";
57 \consistsend "Axis_group_engraver";
62 The Instrument_name_engraver puts the name of the instrument
63 (\property Staff.instrument; Staff.instr for subsequent lines)
64 to the left of a staff.
65 Usually, you only want this in the full score, not in the parts.
67 \consists "Instrument_name_engraver";
70 defaultClef = #"treble"
72 \consists "Separating_line_group_engraver";
75 dynamicStyle = #"dynamic"
78 \translator{\StaffContext }
80 \type "Engraver_group_engraver";
82 alignmentReference = \center;
83 \consists "System_start_delimiter_engraver";
84 systemStartDelimiterGlyph = #'bracket
89 \accepts "RhythmicStaff";
90 \accepts "GrandStaff";
91 \accepts "PianoStaff";
95 \accepts "ChordNames";
99 RhythmicStaffContext=\translator{
100 \type "Engraver_group_engraver";
101 numberOfStaffLines = #1
102 \consists "Property_engraver";
103 \consists "Output_property_engraver";
105 Generic_property_list = #generic-staff-properties
107 barSize = 4.0 * \interline ;
108 \consists "Pitch_squash_engraver";
109 \consists "Separating_line_group_engraver";
112 voltaPadding = #5 % urg, in \pt
113 voltaMinimumSpace = #15 % urg, in \pt
114 \consists "Repeat_engraver";
115 \consists "Bar_engraver";
116 \consists "Time_signature_engraver";
117 \consists "Staff_symbol_engraver";
118 \consistsend "Axis_group_engraver";
121 \translator{\RhythmicStaffContext}
123 VoiceContext = \translator {
124 \type "Engraver_group_engraver";
127 dynamicPadding = #3 % urg, in \pt
128 dynamicMinimumSpace = #6 % urg, in \pt
130 Generic_property_list = #generic-voice-properties
131 \consists "Output_property_engraver";
133 \consists "Dynamic_engraver"; % must come before text_engraver.
134 \consists "Property_engraver";
136 \consists "Breathing_sign_engraver";
137 \consists "Rest_engraver";
138 \consists "Dot_column_engraver";
139 \consists "Stem_engraver";
140 \consists "Beam_engraver";
141 \consists "Auto_beam_engraver";
142 \include "auto-beam-settings.ly";
144 \consists "Chord_tremolo_engraver";
145 \consists "Melisma_engraver";
146 textScriptPadding = #3.0
147 \consists "Text_engraver";
150 startSustain = #"Ped."
152 stopStartSustain = #"*Ped."
153 startUnaChorda = #"una chorda"
154 stopUnaChorda = #"tre chorde"
156 \consists "Piano_pedal_engraver";
157 \consists "Script_engraver";
158 \consists "Script_column_engraver";
159 \consists "Rhythmic_column_engraver";
160 \consists "Slur_engraver";
161 \consists "Tie_engraver";
162 \consists "Tuplet_engraver";
163 \consists "Grace_position_engraver";
164 \consists "Skip_req_swallow_translator";
165 \accepts Thread; % bug if you leave out this!
169 GraceContext=\translator {
170 \type "Grace_engraver_group";
172 \consists "Output_property_engraver";
174 Generic_property_list = #generic-grace-properties
176 \consists "Note_heads_engraver";
177 \consists "Local_key_engraver";
178 \consists "Stem_engraver";
179 \consists "Beam_engraver";
180 \consists "Slur_engraver";
182 \consists "Auto_beam_engraver";
183 \include "auto-beam-settings.ly";
184 \consists "Align_note_column_engraver";
186 \consists "Rhythmic_column_engraver";
187 \consists "Dynamic_engraver";
188 \consists "Text_engraver";
190 \consists "Property_engraver";
194 weAreGraceContext = ##t
198 verticalDirection = \up ;
199 graceAccidentalSpace= 1.5 * \staffspace;
202 \translator{\GraceContext}
203 \translator {\VoiceContext}
205 ThreadContext = \translator{
206 \type Engraver_group_engraver;
207 \consists "Note_heads_engraver" ;
208 \consists "Output_property_engraver";
209 Generic_property_list = #generic-thread-properties
210 \consists "Property_engraver";
214 \translator{\ThreadContext}
215 GrandStaffContext=\translator{
216 \type "Engraver_group_engraver";
218 \consists "Span_bar_engraver";
219 \consists "System_start_delimiter_engraver";
220 systemStartDelimiterGlyph = #'brace
222 \consists "Property_engraver";
223 Generic_property_list = #generic-grand-staff-properties
226 \translator{\GrandStaffContext}
228 PianoStaffContext = \translator{\GrandStaffContext
229 alignmentReference = \center;
231 \consists "Vertical_align_engraver";
232 minVerticalAlign = 3.0*\staffheight;
233 maxVerticalAlign = 3.0*\staffheight;
235 % \consistsend "Axis_group_engraver";
239 \translator{\PianoStaffContext}
240 StaffGroupContext= \translator {
241 \type "Engraver_group_engraver";
242 \consists "Span_bar_engraver";
243 \consists "Output_property_engraver";
244 \consists "System_start_delimiter_engraver";
245 systemStartDelimiterGlyph = #'bracket
253 \accepts "RhythmicStaff";
254 \accepts "GrandStaff";
255 \accepts "PianoStaff";
258 \accepts "ChordNames";
261 \translator { \StaffGroupContext }
264 LyricsVoiceContext= \translator{
265 \type "Engraver_group_engraver";
266 \consistsend "Axis_group_engraver";
269 \consists "Separating_line_group_engraver";
270 \consists "Lyric_engraver";
271 \consists "Extender_engraver";
272 \consists "Hyphen_engraver";
274 \translator{ \LyricsVoiceContext }
276 LyricsContext = \translator {
277 \type "Engraver_group_engraver";
279 \consists Vertical_align_engraver; %need this for getting folded repeats right.
280 Generic_property_list = #generic-lyrics-properties
281 \consists "Property_engraver";
282 \consistsend "Axis_group_engraver";
284 \accepts "LyricVoice";
286 \translator { \LyricsContext }
288 ChordNameVoiceContext = \translator {
289 \type "Engraver_group_engraver";
290 \name ChordNameVoice ;
292 \consists "Output_property_engraver";
293 \consistsend "Axis_group_engraver";
294 \consists "Separating_line_group_engraver";
295 \consists "Chord_name_engraver";
297 \translator {\ChordNameVoiceContext}
299 ChordNameContext = \translator {
300 \type "Engraver_group_engraver";
303 Generic_property_list = #generic-chord-staff-properties
304 \consists "Property_engraver";
305 \consists "Output_property_engraver";
306 \accepts "ChordNameVoice";
307 \consistsend "Axis_group_engraver";
309 \translator { \ChordNameContext }
312 ScoreWithNumbers = \translator {
313 \type "Score_engraver";
315 % uncomment to bar numbers on a whole system.
316 \consists "Bar_number_engraver";
319 StupidScore = \translator {
320 \type "Score_engraver";
322 \consists "Note_heads_engraver";
327 BarNumberingStaffContext = \translator {
329 \consists "Mark_engraver";
332 HaraKiriStaffContext = \translator {
334 \remove "Axis_group_engraver";
335 \consistsend "Hara_kiri_engraver";
336 \consists "Instrument_name_engraver";
340 The HaraKiriStaffContexts doesn't override \name,
341 so it is still named `Staff'.
343 %\translator { \HaraKiriStaffContext }
346 OrchestralPartStaffContext = \translator {
348 \consists "Mark_engraver";
351 ScoreContext = \translator {
352 \type Score_engraver;
355 marginScriptPadding = #10 % urg, in \pt
357 \consists "Timing_engraver";
358 \consists "Output_property_engraver";
360 %bracketCollapseHeight = #10 % \pt
361 \consists "System_start_delimiter_engraver";
363 % \consists "Score_priority_engraver";
364 \consists "Break_align_engraver";
365 breakAlignOrder = #'(
375 \consists "Spacing_engraver";
377 \consists "Vertical_align_engraver";
378 \consists "Bar_number_engraver";
379 alignmentReference = \down;
380 defaultClef = #"treble"
381 defaultBarType = #"|"
382 systemStartDelimiterGlyph = #'bar-line
385 % what order to print accs. We could compute this,
386 % but computing is more work than putting it here.
388 % Flats come first, then sharps.
389 keyAccidentalOrder = #'(
390 (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
391 (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
393 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 % default settings, mainly for breakable items
395 % in alphabetical order
396 % TODO: uniform naming.;
397 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 % distances are given in stafflinethickness (thicknesses) and staffspace (distances)
404 basicBarProperties = #`(
405 (break-align-symbol . Staff_bar)
406 (barsize-procedure . ,Bar::get_staff_bar_size)
407 (molecule-callback . ,Bar::brew_molecule)
408 (visibility-lambda . ,begin-of-line-invisible)
410 (before-line-breaking-callback . ,Bar::before_line_breaking)
412 ;; Ross. page 151 lists other values, we opt for a leaner look
416 (hair-thickness . 1.6)
417 (thick-thickness . 6.0)
419 (interfaces . (bar-interface staff-bar-interface))
422 basicBarNumberProperties = #`(
423 (molecule-callback . ,Text_item::brew_molecule)
425 (visibility-lambda . ,begin-of-line-visible)
428 basicBeamProperties = #`(
429 (molecule-callback . ,Beam::brew_molecule)
430 (beam-thickness . 0.42) ; interline
431 (before-line-breaking-callback . ,Beam::before_line_breaking)
432 (after-line-breaking-callback . ,Beam::after_line_breaking)
433 (default-neutral-direction . 1)
434 (interfaces . (beam-interface))
438 basicBreakAlignProperties = #`(
440 (interfaces . (break-align-interface))
444 basicBreakAlignGroupProperties = #`(
445 (interfaces . (axis-group-interface))
448 basicBreathingSignProperties = #`(
449 (break-align-symbol . Breathing_sign)
451 (molecule-callback . ,Breathing_sign::brew_molecule)
452 (visibility-lambda . ,begin-of-line-invisible)
453 (interfaces . (breathing-sign-interface))
455 basicClefItemProperties = #`(
456 (molecule-callback . ,Score_element::brew_molecule)
457 (before-line-breaking-callback . ,Clef::before_line_breaking)
459 (break-align-symbol . Clef_item)
460 (visibility-lambda . ,begin-of-line-visible)
461 (interfaces . (clef-interface))
463 basicChordNameProperties = #`(
464 (molecule-callback . ,Chord_name::brew_molecule)
465 (interfaces . (chord-name-interface))
467 basicCollisionProperties = #`(
469 (interfaces . (collision-interface))
471 basicCrescendoProperties = #`(
472 (molecule-callback . ,Crescendo::brew_molecule)
473 (interfaces . (crescendo-interface dynamic-interface))
475 basicDotColumnProperties = #`(
476 (interfaces . (dot-column-interface axis-group-interface ))
479 basicDotsProperties = #`(
480 (molecule-callback . ,Dots::brew_molecule)
482 (interfaces . (dot-interface))
484 basicDynamicLineSpannerProperties = #`(
485 (interfaces (dynamic-interface))
488 basicDynamicTextProperties = # `(
490 (interface (dynamic-interface))
491 (molecule-callback . ,Text_item::brew_molecule)
492 (script-priority . 100)
493 (self-alignment-Y . 0)
495 leftEdgeBasicProperties = #`(
496 (break-align-symbol . Left_edge_item)
499 basicGraceAlignItemProperties = #`(
501 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
503 basicHaraKiriVerticalGroupspannerProperties = #`(
504 (interfaces . (hara-kiri-interface))
507 basicHyphenSpannerProperties = #`(
510 (minimum-length . 0.5)
511 (molecule-callback . ,Hyphen_spanner::brew_molecule)
513 basicKeyProperties = #`(
514 (molecule-callback . ,Key_item::brew_molecule)
515 (interfaces . (key-item-interface))
516 (break-align-symbol . Key_item)
517 (visibility-lambda . ,begin-of-line-visible)
520 basicLocalKeyProperties = #`(
521 (molecule-callback . ,Local_key_item::brew_molecule)
523 (right-padding . 0.4)
524 (interfaces . (accidentals-interface ))
526 basicLineOfScoreProperties = #`( )
528 ; (interfaces . (axis-group))
531 basicLyricExtenderProperties = #`(
532 (molecule-callback . ,Lyric_extender::brew_molecule)
534 basicLyricTextProperties = #`(
535 (molecule-callback . ,Text_item::brew_molecule)
536 (self-alignment-X . 0)
538 (interfaces . (text-item-interface))
540 basicMarkProperties = #`(
541 (molecule-callback . ,Text_item::brew_molecule)
543 (interfaces . (mark-interface))
544 (visibility-lambda . ,end-of-line-invisible)
546 basicMultiMeasureRestProperties = #`(
547 (molecule-callback . ,Multi_measure_rest::brew_molecule)
550 basicNoteColumnProperties = #`(
552 (interfaces . (note-column-interface))
554 basicNoteHeadProperties = #`(
555 (interfaces . (note-head-interface rhythmic-head-interface))
556 (molecule-callback . ,Note_head::brew_molecule)
558 basicNoteNameProperties = #`(
559 (molecule-callback . ,Text_item::brew_molecule)
561 basicOctavateEightProperties = #`(
562 (self-alignment-X . 0)
564 (visibility-lambda . ,begin-of-line-visible)
565 (molecule-callback . ,Text_item::brew_molecule)
568 basicPaperColumnProperties = #`(
569 (interfaces . (paper-column-interface))
573 basicPedalProperties = #`(
574 (molecule-callback . ,Text_item::brew_molecule)
576 (no-spacing-rods . #t)
577 (self-alignment-X . 0)
580 basicTextProperties = #`( )
581 basicRestProperties = #`(
582 (interfaces . (rest-interface rhythmic-head-interface))
583 (molecule-callback . ,Rest::brew_molecule)
584 (minimum-beam-collision-distance . 1.5)
587 basicRestCollisionProperties = #`(
588 (minimum-distance . 0.75)
589 (interfaces . (rest-collision-interface))
591 basicScriptProperties = #`(
592 (molecule-callback . ,Script::brew_molecule)
593 (interface . (script-interface))
595 basicScriptColumnProperties = #`(
596 (before-line-breaking-callback . ,Script_column::before_line_breaking)
598 basicSlurProperties = #`(
599 (molecule-callback . ,Slur::brew_molecule)
600 (after-line-breaking-callback . ,Slur::after_line_breaking)
602 basicSpanBarProperties = #`(
603 (break-align-symbol . Staff_bar)
604 (barsize-procedure . ,Span_bar::get_bar_size)
605 (molecule-callback . ,Bar::brew_molecule)
606 (visibility-lambda . ,begin-of-line-invisible)
608 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
613 ;; Ross. page 151 lists other values, we opt for a leaner look
617 (hair-thickness . 1.6)
618 (thick-thickness . 6.0)
619 (interfaces . (bar-interface span-bar-interface))
621 basicSustainPedalProperties = #`(
622 (no-spacing-rods . #t)
623 (molecule-callback . ,Sustain_pedal::brew_molecule)
624 (self-alignment-X . 0)
625 (interface . (sustain-pedal-interface))
627 basicSystemStartDelimiterProperties = #`(
628 (molecule-callback . ,System_start_delimiter::brew_molecule)
629 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
630 (collapse-height . 1.0)
636 (bracket-thick . 0.25)
637 (bracket-width . 2.0)
639 basicStemProperties = #`(
640 (before-line-breaking-callback . ,Stem::before_line_breaking)
641 (molecule-callback . ,Stem::brew_molecule)
643 ; if stem is on middle line, choose this direction.
644 (default-neutral-direction . 1)
645 (interfaces . (stem-interface))
647 staffSymbolBasicProperties = #`(
648 (molecule-callback . ,Staff_symbol::brew_molecule)
651 (interfaces . (staff-symbol-interface ))
653 basicTextScriptProperties = #`(
654 (molecule-callback . ,Text_item::brew_molecule)
655 (no-spacing-rods . #t)
656 (interfaces . (text-script-interface text-item-interface))
658 basicTieProperties = #`(
659 (molecule-callback . ,Tie::brew_molecule)
660 (after-line-breaking-callback . ,Tie::after_line_breaking)
661 (interfaces . (tie-interface))
663 basicTieColumnProperties = #`(
664 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
665 (interfaces . (tie-column-interface))
667 basicTimeSignatureProperties = #`(
668 (molecule-callback . ,Time_signature::brew_molecule)
669 (break-align-symbol . Time_signature)
670 (visibility-lambda . ,all-visible)
672 (interfaces . (time-signature-interface))
674 basicTupletSpannerProperties = #`(
678 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
679 (molecule-callback . ,Tuplet_spanner::brew_molecule)
680 (interfaces . (tuplet-spanner-interface))
682 basicStemTremoloProperties = #`(
683 (molecule-callback . ,Stem_tremolo::brew_molecule)
684 (beam-width . 4.0) ; interline!
685 (beam-thickness . 0.42) ; interline!
688 basicSeparationItemProperties = #`(
689 (interfaces . (separation-item-interface))
691 basicSeparatingGroupSpannerProperties = #`(
692 (interfaces . (separation-spanner-interface))
694 basicInstrumentNameProperties = #`(
696 (molecule-callback . ,Text_item::brew_molecule)
697 (break-align-symbol . Instrument_name)
698 (visibility-lambda . ,begin-of-line-visible)
700 basicVerticalAxisGroupProperties = #`(
703 basicVoltaSpannerProperties = #`(
704 (molecule-callback . ,Volta_spanner::brew_molecule)
705 (interfaces . (volta-spanner-interface))
709 \accepts "StaffGroup";
710 \accepts "RhythmicStaff";
712 \accepts "ChordNames";
713 \accepts "GrandStaff";
714 \accepts "ChoirStaff";
715 \accepts "PianoStaff";
716 \accepts "NoteNames";
719 markVisibilityFunction = #end-of-line-invisible
722 \translator { \ScoreContext }
724 OrchestralScoreContext= \translator {
727 barScriptPadding = #2.0 % dimension \pt
728 markScriptPadding = #4.0
730 \consists "Mark_engraver";
734 \type "Engraver_group_engraver";
736 \consistsend "Axis_group_engraver";
737 \consists "Note_name_engraver";