2 % setup for Request->Element conversion. Guru-only
5 StaffContext=\translator {
6 \type "Engraver_group_engraver";
8 \consists "Output_property_engraver";
9 Generic_property_list = #generic-staff-properties
10 \consists "Property_engraver";
12 \consists "Multi_measure_rest_engraver";
13 \consists "Bar_engraver";
14 % Bar_engraver must be first so default bars aren't overwritten
18 \consists "Repeat_engraver";
22 \consists "Clef_engraver";
23 \consists "Key_engraver";
24 \consists "Time_signature_engraver";
25 \consists "Staff_symbol_engraver";
26 \consists "Collision_engraver";
27 \consists "Rest_collision_engraver";
28 \consists "Local_key_engraver";
30 \consistsend "Axis_group_engraver";
33 The Instrument_name_engraver puts the name of the instrument
34 (\property Staff.instrument; Staff.instr for subsequent lines)
35 to the left of a staff.
37 This is commented out, so you don't get funny things on the
39 \consists "Instrument_name_engraver";
47 \translator{\StaffContext }
49 \type "Engraver_group_engraver";
51 alignmentReference = \center;
52 \consists "System_start_delimiter_engraver";
53 systemStartDelimiterGlyph = #'bracket
56 \accepts "RhythmicStaff";
57 \accepts "GrandStaff";
58 \accepts "PianoStaff";
60 \accepts "ChordNames";
64 RhythmicStaffContext=\translator{
65 \type "Engraver_group_engraver";
66 numberOfStaffLines = #1
67 \consists "Property_engraver";
68 \consists "Output_property_engraver";
70 Generic_property_list = #generic-staff-properties
72 barSize = 4.0 * \staffspace ; % urg: pt
74 \consists "Pitch_squash_engraver";
75 \consists "Separating_line_group_engraver";
78 \pushproperty #'basicVoltaSpannerProperties #'minimum-space #15 % urg, in \pt
79 \pushproperty #'basicVoltaSpannerProperties #'padding #5 % urg, in \pt
83 \consists "Repeat_engraver";
84 \consists "Bar_engraver";
85 \consists "Time_signature_engraver";
86 \consists "Staff_symbol_engraver";
87 \consistsend "Axis_group_engraver";
90 \translator{\RhythmicStaffContext}
92 VoiceContext = \translator {
93 \type "Engraver_group_engraver";
96 Generic_property_list = #generic-voice-properties
98 \consists "Output_property_engraver";
100 \consists "Dynamic_engraver"; % must come before text_engraver.
101 \consists "Property_engraver";
103 \consists "Breathing_sign_engraver";
104 \consists "Rest_engraver";
105 \consists "Dot_column_engraver";
106 \consists "Stem_engraver";
107 \consists "Beam_engraver";
108 \consists "Auto_beam_engraver";
109 \include "auto-beam-settings.ly";
111 \consists "Chord_tremolo_engraver";
112 \consists "Melisma_engraver";
113 \consists "Text_engraver";
114 \consists "A2_engraver";
115 \consists "Voice_devnull_engraver";
118 startSustain = #"Ped."
120 stopStartSustain = #"*Ped."
121 startUnaChorda = #"una chorda"
122 stopUnaChorda = #"tre chorde"
123 % should make separate lists for stopsustain and startsustain
125 \consists "Piano_pedal_engraver";
126 \consists "Script_engraver";
127 \consists "Script_column_engraver";
128 \consists "Rhythmic_column_engraver";
129 \consists "Slur_engraver";
130 \consists "Tie_engraver";
131 \consists "Tuplet_engraver";
132 \consists "Grace_position_engraver";
133 \consists "Skip_req_swallow_translator";
134 \accepts Thread; % bug if you leave out this!
138 GraceContext=\translator {
139 \type "Grace_engraver_group";
141 \consists "Output_property_engraver";
143 Generic_property_list = #generic-grace-properties
145 \consists "Note_heads_engraver";
146 \consists "Local_key_engraver";
147 \consists "Stem_engraver";
148 \consists "Beam_engraver";
149 \consists "Slur_engraver";
151 \consists "Auto_beam_engraver";
152 \include "auto-beam-settings.ly";
153 \consists "Align_note_column_engraver";
155 \consists "Rhythmic_column_engraver";
157 \consists "Dynamic_engraver";% in Grace ???
158 \consists "Text_engraver"; % in Grace ???
160 \consists "Property_engraver";
162 \pushproperty #'basicStemProperties #'style #"grace"
163 \pushproperty #'basicStemProperties #'flag-style #"grace"
164 \pushproperty #'basicStemProperties #'stem-length #6.0
165 \pushproperty #'basicStemProperties #'direction #1
166 \pushproperty #'(basicNoteHeadProperties basicStemProperties basicBeamProperties basicTextScriptProperties basicSlurProperties basicLocalKeyProperties) #'font-size #-1
168 weAreGraceContext = ##t
169 graceAccidentalSpace= 1.5 * \staffspace;
172 \translator{\GraceContext}
173 \translator {\VoiceContext}
175 ThreadContext = \translator{
176 \type Engraver_group_engraver;
177 %%\consists "A2_devnull_engraver";
178 \consists "Thread_devnull_engraver";
179 \consists "Note_heads_engraver";
180 \consists "Output_property_engraver";
181 Generic_property_list = #generic-thread-properties
182 \consists "Property_engraver";
186 \translator{\ThreadContext}
187 GrandStaffContext=\translator{
188 \type "Engraver_group_engraver";
190 \consists "Span_bar_engraver";
191 \consists "System_start_delimiter_engraver";
192 systemStartDelimiterGlyph = #'brace
194 \consists "Property_engraver";
195 Generic_property_list = #generic-grand-staff-properties
198 \translator{\GrandStaffContext}
200 PianoStaffContext = \translator{\GrandStaffContext
201 alignmentReference = \center;
203 \consists "Vertical_align_engraver";
204 minVerticalAlign = 3.0*\staffheight;
205 maxVerticalAlign = 3.0*\staffheight;
207 % \consistsend "Axis_group_engraver";
211 \translator{\PianoStaffContext}
212 StaffGroupContext= \translator {
213 \type "Engraver_group_engraver";
214 \consists "Span_bar_engraver";
215 \consists "Output_property_engraver";
216 \consists "System_start_delimiter_engraver";
217 systemStartDelimiterGlyph = #'bracket
225 \accepts "RhythmicStaff";
226 \accepts "GrandStaff";
227 \accepts "PianoStaff";
230 \accepts "ChordNames";
233 \translator { \StaffGroupContext }
236 LyricsVoiceContext= \translator{
237 \type "Engraver_group_engraver";
238 \consistsend "Axis_group_engraver";
239 LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
242 \consists "Separating_line_group_engraver";
243 \consists "Lyric_engraver";
244 \consists "Extender_engraver";
245 \consists "Hyphen_engraver";
246 \consists "Stanza_number_engraver";
247 phrasingPunctuation = #".,;:!?\""
250 \translator{ \LyricsVoiceContext }
252 LyricsContext = \translator {
253 \type "Engraver_group_engraver";
255 \consists Vertical_align_engraver; %need this for getting folded repeats right.
256 Generic_property_list = #generic-lyrics-properties
257 \consists "Property_engraver";
258 \consistsend "Axis_group_engraver";
260 \accepts "LyricVoice";
262 \translator { \LyricsContext }
264 ChordNameVoiceContext = \translator {
265 \type "Engraver_group_engraver";
266 \name ChordNameVoice ;
268 \consists "Output_property_engraver";
269 \consistsend "Axis_group_engraver";
270 \consists "Separating_line_group_engraver";
271 \consists "Chord_name_engraver";
273 \translator {\ChordNameVoiceContext}
275 ChordNameContext = \translator {
276 \type "Engraver_group_engraver";
279 Generic_property_list = #generic-chord-staff-properties
280 \consists "Property_engraver";
281 \consists "Output_property_engraver";
282 \accepts "ChordNameVoice";
283 \consistsend "Axis_group_engraver";
285 \translator { \ChordNameContext }
288 ScoreWithNumbers = \translator {
289 \type "Score_engraver";
291 % uncomment to bar numbers on a whole system.
292 \consists "Bar_number_engraver";
295 StupidScore = \translator {
296 \type "Score_engraver";
298 \consists "Note_heads_engraver";
303 BarNumberingStaffContext = \translator {
305 \consists "Mark_engraver";
308 HaraKiriStaffContext = \translator {
310 \remove "Axis_group_engraver";
311 \consistsend "Hara_kiri_engraver";
312 \consists "Instrument_name_engraver";
316 The HaraKiriStaffContexts doesn't override \name,
317 so it is still named `Staff'.
319 %\translator { \HaraKiriStaffContext }
322 OrchestralPartStaffContext = \translator {
324 \consists "Mark_engraver";
327 ScoreContext = \translator {
328 \type Score_engraver;
332 \consists "Timing_engraver";
333 \consists "Output_property_engraver";
334 \consists "System_start_delimiter_engraver";
335 \consists "Mark_engraver";
336 \consists "Break_align_engraver";
337 \consists "Spacing_engraver";
339 \consists "Vertical_align_engraver";
341 \consists "Lyric_phrasing_engraver";
342 \consists "Bar_number_engraver";
346 \accepts "StaffGroup";
347 \accepts "RhythmicStaff";
349 \accepts "ChordNames";
350 \accepts "GrandStaff";
351 \accepts "ChoirStaff";
352 \accepts "PianoStaff";
353 \accepts "NoteNames";
356 soloIIText = #"Solo II"
359 splitInterval = #'(0 . 1)
361 defaultClef = #"treble"
363 StaffMinimumVerticalExtent = #(cons -4.0 4.0)
366 voltaVisibility = ##t
367 % name, glyph id, c0 position
368 supportedClefTypes = #'(
369 ("treble" . ("clefs-G" -2))
370 ("violin" . ("clefs-G" -2))
371 ("G" . ("clefs-G" -2))
372 ("G2" . ("clefs-G" -2))
373 ("french" . ("clefs-G" -4 ))
374 ("soprano" . ("clefs-C" -4 ))
375 ("mezzosoprano" . ("clefs-C" -2 ))
376 ("alto" . ("clefs-C" 0 ))
377 ("tenor" . ("clefs-C" 2 ))
378 ("baritone" . ("clefs-C" 4 ))
379 ("varbaritone" . ("clefs-F" 0))
380 ("bass" . ("clefs-F" 2 ))
381 ("F" . ( "clefs-F" 2))
382 ("subbass" . ("clefs-F" 4))
384 % where is c0 in this clef?
385 clefPitches = #'(("clefs-G" . -4)
390 automaticPhrasing = ##t;
391 alignmentReference = \down;
392 defaultClef = #"treble"
393 defaultBarType = #"|"
394 systemStartDelimiterGlyph = #'bar-line
397 % what order to print accs. We could compute this,
398 % but computing is more work than putting it here.
400 % Flats come first, then sharps.
401 keyAccidentalOrder = #'(
402 (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
403 (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
405 breakAlignOrder = #'(
417 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 % TODO: uniform naming.;
419 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 % distances are given in stafflinethickness (thicknesses) and
424 % staffspace (distances)
426 basicBarProperties = #`(
427 (break-align-symbol . Staff_bar)
428 (barsize-procedure . ,Bar::get_staff_bar_size)
429 (molecule-callback . ,Bar::brew_molecule)
430 (visibility-lambda . ,all-visible)
432 (before-line-breaking-callback . ,Bar::before_line_breaking)
434 ;; Ross. page 151 lists other values, we opt for a leaner look
438 (hair-thickness . 1.6)
439 (thick-thickness . 6.0)
441 (interfaces . (bar-interface staff-bar-interface))
444 basicBarNumberProperties = #`(
445 (molecule-callback . ,Text_item::brew_molecule)
447 (visibility-lambda . ,begin-of-line-visible)
450 basicBeamProperties = #`(
451 (molecule-callback . ,Beam::brew_molecule)
452 (beam-thickness . 0.42) ; staff-space
453 (before-line-breaking-callback . ,Beam::before_line_breaking)
454 (after-line-breaking-callback . ,Beam::after_line_breaking)
455 (default-neutral-direction . 1)
456 (interfaces . (beam-interface))
460 basicBreakAlignProperties = #`(
462 (interfaces . (break-align-interface))
466 basicBreakAlignGroupProperties = #`(
467 (interfaces . (axis-group-interface))
470 basicBreathingSignProperties = #`(
471 (break-align-symbol . Breathing_sign)
473 (molecule-callback . ,Breathing_sign::brew_molecule)
474 (visibility-lambda . ,begin-of-line-invisible)
475 (interfaces . (breathing-sign-interface))
477 basicClefItemProperties = #`(
478 (molecule-callback . ,Score_element::brew_molecule)
479 (before-line-breaking-callback . ,Clef::before_line_breaking)
481 (break-align-symbol . Clef_item)
482 (visibility-lambda . ,begin-of-line-visible)
483 (interfaces . (clef-interface))
485 basicChordNameProperties = #`(
486 (molecule-callback . ,Chord_name::brew_molecule)
487 (interfaces . (chord-name-interface))
488 (after-line-breaking-callback . ,Chord_name::after_line_breaking)
490 basicCollisionProperties = #`(
492 (interfaces . (collision-interface))
494 basicCrescendoProperties = #`(
495 (molecule-callback . ,Crescendo::brew_molecule)
496 (interfaces . (crescendo-interface dynamic-interface))
498 basicDotColumnProperties = #`(
499 (interfaces . (dot-column-interface axis-group-interface ))
502 basicDotsProperties = #`(
503 (molecule-callback . ,Dots::brew_molecule)
505 (interfaces . (dot-interface))
507 basicDynamicTextProperties = # `(
509 (interfaces . (dynamic-interface))
510 (molecule-callback . ,Text_item::brew_molecule)
511 (script-priority . 100)
512 (self-alignment-Y . 0)
515 basicDynamicLineSpannerProperties = #`(
516 (interfaces . (dynamic-interface axis-group-interface))
521 leftEdgeBasicProperties = #`(
522 (break-align-symbol . Left_edge_item)
525 basicGraceAlignItemProperties = #`(
527 (interfaces . (axis-group-interface align-interface))
528 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
530 basicHaraKiriVerticalGroupspannerProperties = #`(
531 (interfaces . (hara-kiri-interface))
534 basicHyphenSpannerProperties = #`(
537 (minimum-length . 0.5)
538 (molecule-callback . ,Hyphen_spanner::brew_molecule)
541 basicInstrumentNameProperties = #`(
543 (molecule-callback . ,Text_item::brew_molecule)
544 (break-align-symbol . Instrument_name)
545 (visibility-lambda . ,begin-of-line-visible)
547 basicKeyProperties = #`(
548 (molecule-callback . ,Key_item::brew_molecule)
549 (interfaces . (key-item-interface))
550 (break-align-symbol . Key_item)
551 (visibility-lambda . ,begin-of-line-visible)
554 basicLocalKeyProperties = #`(
555 (molecule-callback . ,Local_key_item::brew_molecule)
557 (right-padding . 0.4)
558 (interfaces . (accidentals-interface))
560 basicLineOfScoreProperties = #`(
562 (interfaces . (axis-group-interface))
564 basicLyricExtenderProperties = #`(
565 (molecule-callback . ,Lyric_extender::brew_molecule)
566 (right-trim-amount . 0.5)
567 (interfaces . (lyric-extender-interface))
569 basicLyricTextProperties = #`(
570 (molecule-callback . ,Text_item::brew_molecule)
571 (self-alignment-X . 0)
574 (interfaces . (lyric-syllable-interface text-item-interface))
576 basicMarkProperties = #`(
577 (molecule-callback . ,Text_item::brew_molecule)
579 (interfaces . (mark-interface))
580 (visibility-lambda . ,end-of-line-invisible)
583 basicMultiMeasureRestProperties = #`(
584 (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
585 (molecule-callback . ,Multi_measure_rest::brew_molecule)
588 basicNoteColumnProperties = #`(
590 (interfaces . (axis-group-interface note-column-interface))
592 basicNoteHeadProperties = #`(
593 (interfaces . (note-head-interface rhythmic-head-interface))
594 (molecule-callback . ,Note_head::brew_molecule)
596 basicNoteNameProperties = #`(
597 (molecule-callback . ,Text_item::brew_molecule)
599 basicOctavateEightProperties = #`(
600 (self-alignment-X . 0)
602 (visibility-lambda . ,begin-of-line-visible)
603 (molecule-callback . ,Text_item::brew_molecule)
606 basicPaperColumnProperties = #`(
607 (interfaces . (paper-column-interface axis-group-interface))
611 basicTextProperties = #`( )
612 basicRestProperties = #`(
613 (interfaces . (rest-interface rhythmic-head-interface))
614 (after-line-breaking-callback . ,Rest::after_line_breaking)
615 (molecule-callback . ,Rest::brew_molecule)
616 (minimum-beam-collision-distance . 1.5)
619 basicRestCollisionProperties = #`(
620 (minimum-distance . 0.75)
621 (interfaces . (rest-collision-interface))
623 basicScriptProperties = #`(
624 (molecule-callback . ,Script::brew_molecule)
625 (interfaces . (script-interface))
627 basicScriptColumnProperties = #`(
628 (before-line-breaking-callback . ,Script_column::before_line_breaking)
630 basicSlurProperties = #`(
631 (molecule-callback . ,Slur::brew_molecule)
633 (spacing-procedure . ,Slur::set_spacing_rods) e
634 (minimum-length . 1.5)
635 (after-line-breaking-callback . ,Slur::after_line_breaking)
637 basicSpacingSpannerProperties =#`(
638 (spacing-procedure . ,Spacing_spanner::set_springs)
640 ;; assume that notes at least this long are present.
641 (maximum-duration-for-spacing . ,(make-moment 1 8))
643 basicSpanBarProperties = #`(
644 (break-align-symbol . Staff_bar)
645 (barsize-procedure . ,Span_bar::get_bar_size)
646 (molecule-callback . ,Bar::brew_molecule)
647 (visibility-lambda . ,begin-of-line-invisible)
649 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
654 ;; Ross. page 151 lists other values, we opt for a leaner look
658 (hair-thickness . 1.6)
659 (thick-thickness . 6.0)
660 (interfaces . (bar-interface span-bar-interface))
662 basicStanzaNumberProperties = #`(
664 (molecule-callback . ,Text_item::brew_molecule)
665 (break-align-symbol . Clef_item)
666 (visibility-lambda . ,begin-of-line-visible)
668 staffSymbolBasicProperties = #`(
669 (molecule-callback . ,Staff_symbol::brew_molecule)
672 (interfaces . (staff-symbol-interface ))
674 basicSystemStartDelimiterProperties = #`(
675 (molecule-callback . ,System_start_delimiter::brew_molecule)
676 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
677 (collapse-height . 1.0)
683 (bracket-thick . 0.25)
684 (bracket-width . 2.0)
686 basicTextScriptProperties = #`(
687 (molecule-callback . ,Text_item::brew_molecule)
688 (no-spacing-rods . #t)
689 (interfaces . (text-script-interface text-item-interface))
692 basicTieProperties = #`(
693 (molecule-callback . ,Tie::brew_molecule)
694 (spacing-procedure . ,Tie::set_spacing_rods)
696 (minimum-length . 2.5)
697 (interfaces . (tie-interface))
699 basicTieColumnProperties = #`(
700 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
701 (interfaces . (tie-column-interface))
703 basicTimeSignatureProperties = #`(
704 (molecule-callback . ,Time_signature::brew_molecule)
705 (break-align-symbol . Time_signature)
706 (visibility-lambda . ,all-visible)
708 (interfaces . (time-signature-interface))
710 basicTupletSpannerProperties = #`(
714 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
715 (molecule-callback . ,Tuplet_spanner::brew_molecule)
716 (interfaces . (tuplet-spanner-interface))
718 basicSostenutoPedalProperties = #`(
719 (molecule-callback . ,Text_item::brew_molecule)
721 (no-spacing-rods . #t)
722 (self-alignment-X . 0)
725 basicStemTremoloProperties = #`(
726 (molecule-callback . ,Stem_tremolo::brew_molecule)
727 (beam-width . 2.0) ; staff-space
728 (beam-thickness . 0.42) ; staff-space
730 basicStemProperties = #`(
731 (before-line-breaking-callback . ,Stem::before_line_breaking)
732 (molecule-callback . ,Stem::brew_molecule)
734 ; if stem is on middle line, choose this direction.
735 (default-neutral-direction . 1)
736 (interfaces . (stem-interface))
738 basicSeparationItemProperties = #`(
739 (interfaces . (separation-item-interface))
741 basicSeparatingGroupSpannerProperties = #`(
742 (interfaces . (separation-spanner-interface))
743 (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
745 basicSustainPedalProperties = #`(
746 (no-spacing-rods . #t)
747 (molecule-callback . ,Sustain_pedal::brew_molecule)
748 (self-alignment-X . 0)
749 (interfaces . (sustain-pedal-interface))
751 basicUnaChordaPdealProperties = #`(
752 (molecule-callback . ,Text_item::brew_molecule)
754 (no-spacing-rods . #t)
755 (self-alignment-X . 0)
758 basicVoltaSpannerProperties = #`(
759 (molecule-callback . ,Volta_spanner::brew_molecule)
760 (interfaces . (volta-spanner-interface))
764 basicVerticalAxisGroupProperties = #`(
766 (interfaces . (axis-group-interface))
770 \translator { \ScoreContext }
772 OrchestralScoreContext= \translator {
778 \type "Engraver_group_engraver";
780 \consistsend "Axis_group_engraver";
781 \consists "Note_name_engraver";
782 \consists "Separating_line_group_engraver";