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";
19 \consists "Separating_line_group_engraver";
23 \consists "Clef_engraver";
24 \consists "Key_engraver";
25 \consists "Time_signature_engraver";
26 \consists "Staff_symbol_engraver";
27 \consists "Collision_engraver";
28 \consists "Rest_collision_engraver";
29 \consists "Local_key_engraver";
31 \consistsend "Axis_group_engraver";
34 The Instrument_name_engraver puts the name of the instrument
35 (\property Staff.instrument; Staff.instr for subsequent lines)
36 to the left of a staff.
38 This is commented out, so you don't get funny things on the
40 \consists "Instrument_name_engraver";
48 ChoirStaffContext = \translator {
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";
67 \consists "Property_engraver";
68 \consists "Output_property_engraver";
70 Generic_property_list = #generic-staff-properties
72 \consists "Pitch_squash_engraver";
73 \consists "Separating_line_group_engraver";
75 basicBarProperties \push #'bar-size = #4
76 basicVoltaSpannerProperties \push #'minimum-space = #15 % urg, in \pt
77 basicVoltaSpannerProperties \push #'padding = #5 % urg, in \pt
78 basicStaffSymbolProperties \push #'line-count = #1
80 \consists "Repeat_engraver";
81 \consists "Bar_engraver";
82 \consists "Time_signature_engraver";
83 \consists "Staff_symbol_engraver";
84 \consistsend "Axis_group_engraver";
89 VoiceContext = \translator {
90 \type "Engraver_group_engraver";
93 Generic_property_list = #generic-voice-properties
95 \consists "Output_property_engraver";
97 \consists "Dynamic_engraver"; % must come before text_engraver.
98 \consists "Property_engraver";
100 \consists "Breathing_sign_engraver";
101 \consists "Rest_engraver";
102 \consists "Dot_column_engraver";
103 \consists "Stem_engraver";
104 \consists "Beam_engraver";
105 \consists "Auto_beam_engraver";
106 \include "auto-beam-settings.ly";
108 \consists "Chord_tremolo_engraver";
109 \consists "Melisma_engraver";
110 \consists "Text_engraver";
111 \consists "A2_engraver";
112 \consists "Voice_devnull_engraver";
115 startSustain = #"Ped."
117 stopStartSustain = #"*Ped."
118 startUnaChorda = #"una chorda"
119 stopUnaChorda = #"tre chorde"
120 % should make separate lists for stopsustain and startsustain
122 \consists "Piano_pedal_engraver";
123 \consists "Script_engraver";
124 \consists "Script_column_engraver";
125 \consists "Rhythmic_column_engraver";
126 \consists "Slur_engraver";
127 \consists "Tie_engraver";
128 \consists "Tuplet_engraver";
129 \consists "Grace_position_engraver";
130 \consists "Skip_req_swallow_translator";
131 \accepts Thread; % bug if you leave out this!
135 GraceContext=\translator {
136 \type "Grace_engraver_group";
138 \consists "Output_property_engraver";
140 Generic_property_list = #generic-grace-properties
142 \consists "Note_heads_engraver";
143 \consists "Local_key_engraver";
144 \consists "Stem_engraver";
145 \consists "Beam_engraver";
146 \consists "Slur_engraver";
148 \consists "Auto_beam_engraver";
149 \include "auto-beam-settings.ly";
150 \consists "Align_note_column_engraver";
152 \consists "Rhythmic_column_engraver";
154 \consists "Dynamic_engraver";% in Grace ???
155 \consists "Text_engraver"; % in Grace ???
157 \consists "Property_engraver";
159 basicStemProperties \push #'style = #"grace"
160 basicStemProperties \push #'flag-style = #"grace"
161 basicStemProperties \push #'stem-length = #6.0
162 basicStemProperties \push #'direction = #1
164 basicNoteHeadProperties \push #'font-size = #-1
165 basicStemProperties \push #'font-size = #-1
166 basicBeamProperties \push #'font-size = #-1
167 basicTextScriptProperties \push #'font-size = #-1
168 basicSlurProperties \push #'font-size = #-1
169 basicLocalKeyProperties \push #'font-size = #-1
170 basicBeamProperties \push #'beam-thickness = #0.3
171 basicBeamProperties \push #'beam-space-function = #(lambda (x) 0.5)
173 weAreGraceContext = ##t
174 graceAccidentalSpace= 1.5 ; % in staff space
177 ThreadContext = \translator{
178 \type Engraver_group_engraver;
179 \consists "Thread_devnull_engraver";
180 \consists "Note_heads_engraver";
181 \consists "Output_property_engraver";
182 Generic_property_list = #generic-thread-properties
183 \consists "Property_engraver";
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
199 PianoStaffContext = \translator{\GrandStaffContext
200 alignmentReference = \center;
202 \consists "Vertical_align_engraver";
204 basicVerticalAlignmentProperties \push #'threshold = #'(12 . 12)
206 % \consistsend "Axis_group_engraver";
210 StaffGroupContext= \translator {
211 \type "Engraver_group_engraver";
212 \consists "Span_bar_engraver";
213 \consists "Output_property_engraver";
214 \consists "System_start_delimiter_engraver";
215 systemStartDelimiterGlyph = #'bracket
223 \accepts "RhythmicStaff";
224 \accepts "GrandStaff";
225 \accepts "PianoStaff";
228 \accepts "ChordNames";
233 LyricsVoiceContext= \translator{
234 \type "Engraver_group_engraver";
235 \consistsend "Axis_group_engraver";
236 LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
239 \consists "Separating_line_group_engraver";
240 \consists "Lyric_engraver";
241 \consists "Extender_engraver";
242 \consists "Hyphen_engraver";
243 \consists "Stanza_number_engraver";
244 phrasingPunctuation = #".,;:!?\""
247 NoteNamesContext = \translator {
248 \type "Engraver_group_engraver";
250 \consistsend "Axis_group_engraver";
251 \consists "Note_name_engraver";
252 \consists "Separating_line_group_engraver";
255 LyricsContext = \translator {
256 \type "Engraver_group_engraver";
258 \consists Vertical_align_engraver; %need this for getting folded repeats right.
259 Generic_property_list = #generic-lyrics-properties
260 \consists "Property_engraver";
261 \consistsend "Axis_group_engraver";
263 \accepts "LyricVoice";
266 ChordNameVoiceContext = \translator {
267 \type "Engraver_group_engraver";
268 \name ChordNameVoice ;
270 \consists "Output_property_engraver";
271 \consistsend "Axis_group_engraver";
272 \consists "Separating_line_group_engraver";
273 \consists "Chord_name_engraver";
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";
287 ScoreWithNumbers = \translator {
288 \type "Score_engraver";
290 % uncomment to bar numbers on a whole system.
291 \consists "Bar_number_engraver";
294 StupidScore = \translator {
295 \type "Score_engraver";
297 \consists "Note_heads_engraver";
302 BarNumberingStaffContext = \translator {
304 \consists "Mark_engraver";
307 HaraKiriStaffContext = \translator {
309 \remove "Axis_group_engraver";
310 \consistsend "Hara_kiri_engraver";
311 \consists "Instrument_name_engraver";
315 The HaraKiriStaffContexts doesn't override \name,
316 so it is still named `Staff'.
318 %\translator { \HaraKiriStaffContext }
321 OrchestralPartStaffContext = \translator {
323 \consists "Mark_engraver";
326 ScoreContext = \translator {
327 \type Score_engraver;
331 \consists "Timing_engraver";
332 \consists "Output_property_engraver";
333 \consists "System_start_delimiter_engraver";
334 \consists "Mark_engraver";
335 \consists "Break_align_engraver";
336 \consists "Spacing_engraver";
338 \consists "Vertical_align_engraver";
340 \consists "Lyric_phrasing_engraver";
341 \consists "Bar_number_engraver";
345 \accepts "StaffGroup";
346 \accepts "RhythmicStaff";
348 \accepts "ChordNames";
349 \accepts "GrandStaff";
350 \accepts "ChoirStaff";
351 \accepts "PianoStaff";
352 \accepts "NoteNames";
355 soloIIText = #"Solo II"
358 splitInterval = #'(0 . 1)
359 changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
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 (interfaces . (bar-interface staff-bar-interface))
428 (break-align-symbol . Staff_bar)
430 (barsize-procedure . ,Bar::get_staff_bar_size)
431 (molecule-callback . ,Bar::brew_molecule)
432 (visibility-lambda . ,all-visible)
434 (before-line-breaking-callback . ,Bar::before_line_breaking)
436 ;; Ross. page 151 lists other values, we opt for a leaner look
440 (hair-thickness . 1.6)
441 (thick-thickness . 6.0)
445 basicBarNumberProperties = #`(
446 (molecule-callback . ,Text_item::brew_molecule)
448 (visibility-lambda . ,begin-of-line-visible)
454 basicBeamProperties = #basic-beam-properties
455 basicBreakAlignProperties = #`(
457 (interfaces . (break-align-interface))
460 (name . "break alignment")
462 basicBreakAlignGroupProperties = #`(
463 (interfaces . (axis-group-interface))
465 (name . "break alignment group")
467 basicBreathingSignProperties = #`(
468 (interfaces . (breathing-sign-interface))
469 (break-align-symbol . Breathing_sign)
471 (molecule-callback . ,Breathing_sign::brew_molecule)
472 (visibility-lambda . ,begin-of-line-invisible)
473 (name . "breathing sign")
475 basicClefItemProperties = #`(
476 (interfaces . (clef-interface))
477 (molecule-callback . ,Score_element::brew_molecule)
478 (before-line-breaking-callback . ,Clef::before_line_breaking)
480 (break-align-symbol . Clef_item)
481 (visibility-lambda . ,begin-of-line-visible)
484 basicChordNameProperties = #`(
485 (molecule-callback . ,Chord_name::brew_molecule)
486 (interfaces . (chord-name-interface))
487 (after-line-breaking-callback . ,Chord_name::after_line_breaking)
488 (name . "chord name")
490 basicCollisionProperties = #`(
492 (interfaces . (collision-interface))
494 (name . "note collision")
496 basicCrescendoProperties = #`(
497 (molecule-callback . ,Crescendo::brew_molecule)
498 (interfaces . (crescendo-interface dynamic-interface))
500 (shorten-for-letter . 4.0)
502 (dash-thickness . 1.2)
506 basicDotColumnProperties = #`(
507 (interfaces . (dot-column-interface axis-group-interface ))
509 (name . "dot column")
511 basicDotsProperties = #`(
512 (interfaces . (dot-interface))
513 (molecule-callback . ,Dots::brew_molecule)
515 (name . "augmentation dot")
517 basicDynamicTextProperties = #`(
519 (interfaces . (dynamic-interface))
520 (molecule-callback . ,Text_item::brew_molecule)
521 (script-priority . 100)
522 (self-alignment-Y . 0)
523 (name . "dynamic text")
526 basicDynamicLineSpannerProperties = #`(
527 (interfaces . (dynamic-interface axis-group-interface side-position-interface))
531 (name . "dynamic alignment")
534 leftEdgeBasicProperties = #`(
535 (break-align-symbol . Left_edge_item)
539 basicGraceAlignItemProperties = #`(
540 (interfaces . (axis-group-interface align-interface))
542 (horizontal-space . 1.2)
544 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
545 (name . "grace alignment")
547 basicHaraKiriVerticalGroupspannerProperties = #`(
548 (interfaces . (hara-kiri-interface))
552 basicHyphenSpannerProperties = #`(
555 (minimum-length . 0.5)
556 (molecule-callback . ,Hyphen_spanner::brew_molecule)
560 basicInstrumentNameProperties = #`(
562 (molecule-callback . ,Text_item::brew_molecule)
563 (break-align-symbol . Instrument_name)
564 (visibility-lambda . ,begin-of-line-visible)
565 (name . "instrument name")
567 basicKeyProperties = #`(
568 (molecule-callback . ,Key_item::brew_molecule)
569 (interfaces . (key-item-interface))
570 (break-align-symbol . Key_item)
571 (visibility-lambda . ,begin-of-line-visible)
573 (name . "key signature")
575 basicLocalKeyProperties = #`(
576 (molecule-callback . ,Local_key_item::brew_molecule)
578 (right-padding . 0.4)
579 (interfaces . (accidentals-interface))
580 (name . "accidentals")
582 basicLineOfScoreProperties = #`(
584 (interfaces . (axis-group-interface))
587 basicLyricExtenderProperties = #`(
588 (interfaces . (lyric-extender-interface))
589 (molecule-callback . ,Lyric_extender::brew_molecule)
590 (height . 0.8) ; stafflinethickness;
591 (right-trim-amount . 0.5)
592 (name . "extender line")
594 basicLyricTextProperties = #`(
595 (interfaces . (lyric-syllable-interface text-item-interface))
596 (molecule-callback . ,Text_item::brew_molecule)
597 (self-alignment-X . 0)
600 (name . "lyric syllable")
602 basicMarkProperties = #`(
603 (interfaces . (mark-interface side-position-interface))
604 (molecule-callback . ,Text_item::brew_molecule)
606 (visibility-lambda . ,end-of-line-invisible)
608 (name . "rehearsal mark")
610 basicMultiMeasureRestProperties = #`(
611 (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
612 (molecule-callback . ,Multi_measure_rest::brew_molecule)
615 (padding . 2.0) ; staffspace
616 (minimum-width . 12.5) ; staffspace
618 (name . "multi-measure rest")
620 basicNoteColumnProperties = #`(
621 (interfaces . (axis-group-interface note-column-interface))
623 (name . "note column")
625 basicNoteHeadProperties = #`(
626 (interfaces . (note-head-interface rhythmic-head-interface))
628 (molecule-callback . ,Note_head::brew_molecule)
631 basicNoteNameProperties = #`(
632 (molecule-callback . ,Text_item::brew_molecule)
635 basicOctavateEightProperties = #`(
636 (self-alignment-X . 0)
638 (visibility-lambda . ,begin-of-line-visible)
639 (molecule-callback . ,Text_item::brew_molecule)
642 basicPaperColumnProperties = #`(
643 (interfaces . (paper-column-interface axis-group-interface))
647 basicTextProperties = #`( )
648 basicRestProperties = #`(
649 (interfaces . (rest-interface rhythmic-head-interface))
650 (after-line-breaking-callback . ,Rest::after_line_breaking)
651 (molecule-callback . ,Rest::brew_molecule)
652 (minimum-beam-collision-distance . 1.5)
656 basicRestCollisionProperties = #`(
657 (interfaces . (rest-collision-interface))
658 (minimum-distance . 0.75)
659 (name . "rest collision")
661 basicScriptProperties = #`(
662 (molecule-callback . ,Script::brew_molecule)
663 (interfaces . (script-interface side-position-interface))
666 basicScriptColumnProperties = #`(
667 (before-line-breaking-callback . ,Script_column::before_line_breaking)
668 (name . "script column")
670 basicSlurProperties = #`(
671 (interfaces . (slur-interface))
672 (molecule-callback . ,Slur::brew_molecule)
674 (spacing-procedure . ,Slur::set_spacing_rods)
675 (minimum-length . 1.5)
676 (after-line-breaking-callback . ,Slur::after_line_breaking)
678 (de-uglify-parameters . ( 1.5 0.8 -2.0))
679 (details . ((height-limit . 2.0) (ratio . 0.333) (force-blowfit . 0.5) (beautiful . 0.5)))
683 basicSpacingSpannerProperties =#`(
684 (spacing-procedure . ,Spacing_spanner::set_springs)
686 ;; assume that notes at least this long are present.
687 (maximum-duration-for-spacing . ,(make-moment 1 8))
688 (name . "spacing spanner")
690 basicSpanBarProperties = #`(
691 (interfaces . (bar-interface span-bar-interface))
692 (break-align-symbol . Staff_bar)
693 (barsize-procedure . ,Span_bar::get_bar_size)
694 (molecule-callback . ,Bar::brew_molecule)
695 (visibility-lambda . ,begin-of-line-invisible)
698 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
702 ;; Ross. page 151 lists other values, we opt for a leaner look
706 (hair-thickness . 1.6)
707 (thick-thickness . 6.0)
708 (name . "cross staff bar-line")
710 basicStanzaNumberProperties = #`(
712 (molecule-callback . ,Text_item::brew_molecule)
713 (break-align-symbol . Clef_item)
714 (visibility-lambda . ,begin-of-line-visible)
715 (name . "stanza number")
717 basicStaffSymbolProperties = #`(
718 (interfaces . (staff-symbol-interface ))
719 (molecule-callback . ,Staff_symbol::brew_molecule)
722 (name . "staff symbol")
724 basicSystemStartDelimiterProperties = #`(
725 (molecule-callback . ,System_start_delimiter::brew_molecule)
726 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
727 (collapse-height . 1.0)
733 (bracket-thick . 0.25)
734 (bracket-width . 2.0)
735 (name . "system start bracket")
737 basicTextScriptProperties = #`(
738 (molecule-callback . ,Text_item::brew_molecule)
739 (no-spacing-rods . #t)
740 (interfaces . (text-script-interface text-item-interface side-position-interface))
742 (name . "text script")
744 basicTieProperties = #`(
745 (interfaces . (tie-interface))
746 (molecule-callback . ,Tie::brew_molecule)
747 (spacing-procedure . ,Tie::set_spacing_rods)
748 (staffline-clearance . 0.24)
749 (details . ((ratio . 0.333) (height-limit . 1.0)))
752 (minimum-length . 2.5)
755 basicTieColumnProperties = #`(
756 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
757 (interfaces . (tie-column-interface))
758 (name . "tie column")
760 basicTimeSignatureProperties = #`(
761 (interfaces . (time-signature-interface))
762 (molecule-callback . ,Time_signature::brew_molecule)
763 (break-align-symbol . Time_signature)
764 (visibility-lambda . ,all-visible)
766 (name . "time signature")
768 basicTupletSpannerProperties = #`(
772 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
773 (molecule-callback . ,Tuplet_spanner::brew_molecule)
774 (interfaces . (tuplet-spanner-interface))
776 basicSostenutoPedalProperties = #`(
777 (molecule-callback . ,Text_item::brew_molecule)
779 (no-spacing-rods . #t)
780 (self-alignment-X . 0)
781 (name . "sostenuto pedal")
784 basicStemTremoloProperties = #`(
785 (molecule-callback . ,Stem_tremolo::brew_molecule)
786 (beam-width . 2.0) ; staff-space
787 (beam-thickness . 0.42) ; staff-space
788 (beam-space-function . ,default-beam-space-function)
789 (name . "stem tremolo")
791 basicStemProperties = #`(
792 (interfaces . (stem-interface))
793 (before-line-breaking-callback . ,Stem::before_line_breaking)
794 (molecule-callback . ,Stem::brew_molecule)
797 ; if stem is on middle line, choose this direction.
798 (default-neutral-direction . 1)
801 basicSeparationItemProperties = #`(
802 (interfaces . (separation-item-interface))
803 (name . "separation item")
805 basicSeparatingGroupSpannerProperties = #`(
806 (interfaces . (separation-spanner-interface))
807 (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
808 (name . "separation spanner")
810 basicSustainPedalProperties = #`(
811 (interfaces . (sustain-pedal-interface side-position-interface))
812 (no-spacing-rods . #t)
813 (molecule-callback . ,Sustain_pedal::brew_molecule)
814 (self-alignment-X . 0)
815 (name . "sustain pedal")
817 basicUnaChordaPdealProperties = #`(
818 (molecule-callback . ,Text_item::brew_molecule)
820 (no-spacing-rods . #t)
821 (self-alignment-X . 0)
822 (name . "una chorda pedal")
825 basicVoltaSpannerProperties = #`(
826 (molecule-callback . ,Volta_spanner::brew_molecule)
827 (interfaces . (volta-spanner-interface side-position-interface))
830 (thickness . 1.6) ; stafflinethickness
831 (height . 2.0) ; staffspace;
833 (name . "volta brace")
835 basicVerticalAlignmentProperties = #`(
837 (interfaces . (align-interface axis-group-interface))
838 (name . "vertical alignment")
840 basicVerticalAxisGroupProperties = #`(
842 (interfaces . (axis-group-interface))
843 (name . "Y-axis group")
847 OrchestralScoreContext= \translator {