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 \translator{\StaffContext }
50 \type "Engraver_group_engraver";
52 alignmentReference = \center;
53 \consists "System_start_delimiter_engraver";
54 systemStartDelimiterGlyph = #'bracket
57 \accepts "RhythmicStaff";
58 \accepts "GrandStaff";
59 \accepts "PianoStaff";
61 \accepts "ChordNames";
65 RhythmicStaffContext=\translator{
66 \type "Engraver_group_engraver";
68 \consists "Property_engraver";
69 \consists "Output_property_engraver";
71 Generic_property_list = #generic-staff-properties
73 barSize = 4.0 * \staffspace ; % JUNKME
75 \consists "Pitch_squash_engraver";
76 \consists "Separating_line_group_engraver";
79 basicVoltaSpannerProperties \push #'minimum-space = #15 % urg, in \pt
80 basicVoltaSpannerProperties \push #'padding = #5 % urg, in \pt
81 basicStaffSymbolProperties \push #'line-count = #1
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 basicStemProperties \push #'style = #"grace"
163 basicStemProperties \push #'flag-style = #"grace"
164 basicStemProperties \push #'stem-length = #6.0
165 basicStemProperties \push #'direction = #1
167 basicNoteHeadProperties \push #'font-size = #-1
168 basicStemProperties \push #'font-size = #-1
169 basicBeamProperties \push #'font-size = #-1
170 basicTextScriptProperties \push #'font-size = #-1
171 basicSlurProperties \push #'font-size = #-1
172 basicLocalKeyProperties \push #'font-size = #-1
173 basicBeamProperties \push #'beam-thickness = #0.3
174 basicBeamProperties \push #'beam-space-function = #(lambda (x) 0.5)
176 weAreGraceContext = ##t
177 graceAccidentalSpace= 1.5 * \staffspace; % JUNKME
180 \translator{\GraceContext}
181 \translator {\VoiceContext}
183 ThreadContext = \translator{
184 \type Engraver_group_engraver;
185 \consists "Thread_devnull_engraver";
186 \consists "Note_heads_engraver";
187 \consists "Output_property_engraver";
188 Generic_property_list = #generic-thread-properties
189 \consists "Property_engraver";
193 \translator{\ThreadContext}
194 GrandStaffContext=\translator{
195 \type "Engraver_group_engraver";
197 \consists "Span_bar_engraver";
198 \consists "System_start_delimiter_engraver";
199 systemStartDelimiterGlyph = #'brace
201 \consists "Property_engraver";
202 Generic_property_list = #generic-grand-staff-properties
205 \translator{\GrandStaffContext}
207 PianoStaffContext = \translator{\GrandStaffContext
208 alignmentReference = \center;
210 \consists "Vertical_align_engraver";
213 minVerticalAlign = 3.0*\staffheight;
214 maxVerticalAlign = 3.0*\staffheight;
216 % \consistsend "Axis_group_engraver";
220 \translator{\PianoStaffContext}
221 StaffGroupContext= \translator {
222 \type "Engraver_group_engraver";
223 \consists "Span_bar_engraver";
224 \consists "Output_property_engraver";
225 \consists "System_start_delimiter_engraver";
226 systemStartDelimiterGlyph = #'bracket
234 \accepts "RhythmicStaff";
235 \accepts "GrandStaff";
236 \accepts "PianoStaff";
239 \accepts "ChordNames";
242 \translator { \StaffGroupContext }
245 LyricsVoiceContext= \translator{
246 \type "Engraver_group_engraver";
247 \consistsend "Axis_group_engraver";
248 LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
251 \consists "Separating_line_group_engraver";
252 \consists "Lyric_engraver";
253 \consists "Extender_engraver";
254 \consists "Hyphen_engraver";
255 \consists "Stanza_number_engraver";
256 phrasingPunctuation = #".,;:!?\""
259 \translator{ \LyricsVoiceContext }
261 LyricsContext = \translator {
262 \type "Engraver_group_engraver";
264 \consists Vertical_align_engraver; %need this for getting folded repeats right.
265 Generic_property_list = #generic-lyrics-properties
266 \consists "Property_engraver";
267 \consistsend "Axis_group_engraver";
269 \accepts "LyricVoice";
271 \translator { \LyricsContext }
273 ChordNameVoiceContext = \translator {
274 \type "Engraver_group_engraver";
275 \name ChordNameVoice ;
277 \consists "Output_property_engraver";
278 \consistsend "Axis_group_engraver";
279 \consists "Separating_line_group_engraver";
280 \consists "Chord_name_engraver";
282 \translator {\ChordNameVoiceContext}
284 ChordNameContext = \translator {
285 \type "Engraver_group_engraver";
288 Generic_property_list = #generic-chord-staff-properties
289 \consists "Property_engraver";
290 \consists "Output_property_engraver";
291 \accepts "ChordNameVoice";
292 \consistsend "Axis_group_engraver";
294 \translator { \ChordNameContext }
297 ScoreWithNumbers = \translator {
298 \type "Score_engraver";
300 % uncomment to bar numbers on a whole system.
301 \consists "Bar_number_engraver";
304 StupidScore = \translator {
305 \type "Score_engraver";
307 \consists "Note_heads_engraver";
312 BarNumberingStaffContext = \translator {
314 \consists "Mark_engraver";
317 HaraKiriStaffContext = \translator {
319 \remove "Axis_group_engraver";
320 \consistsend "Hara_kiri_engraver";
321 \consists "Instrument_name_engraver";
325 The HaraKiriStaffContexts doesn't override \name,
326 so it is still named `Staff'.
328 %\translator { \HaraKiriStaffContext }
331 OrchestralPartStaffContext = \translator {
333 \consists "Mark_engraver";
336 ScoreContext = \translator {
337 \type Score_engraver;
341 \consists "Timing_engraver";
342 \consists "Output_property_engraver";
343 \consists "System_start_delimiter_engraver";
344 \consists "Mark_engraver";
345 \consists "Break_align_engraver";
346 \consists "Spacing_engraver";
348 \consists "Vertical_align_engraver";
350 \consists "Lyric_phrasing_engraver";
351 \consists "Bar_number_engraver";
355 \accepts "StaffGroup";
356 \accepts "RhythmicStaff";
358 \accepts "ChordNames";
359 \accepts "GrandStaff";
360 \accepts "ChoirStaff";
361 \accepts "PianoStaff";
362 \accepts "NoteNames";
365 soloIIText = #"Solo II"
368 splitInterval = #'(0 . 1)
369 changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
371 defaultClef = #"treble"
373 StaffMinimumVerticalExtent = #(cons -4.0 4.0)
376 voltaVisibility = ##t
377 % name, glyph id, c0 position
378 supportedClefTypes = #'(
379 ("treble" . ("clefs-G" -2))
380 ("violin" . ("clefs-G" -2))
381 ("G" . ("clefs-G" -2))
382 ("G2" . ("clefs-G" -2))
383 ("french" . ("clefs-G" -4 ))
384 ("soprano" . ("clefs-C" -4 ))
385 ("mezzosoprano" . ("clefs-C" -2 ))
386 ("alto" . ("clefs-C" 0 ))
387 ("tenor" . ("clefs-C" 2 ))
388 ("baritone" . ("clefs-C" 4 ))
389 ("varbaritone" . ("clefs-F" 0))
390 ("bass" . ("clefs-F" 2 ))
391 ("F" . ( "clefs-F" 2))
392 ("subbass" . ("clefs-F" 4))
394 % where is c0 in this clef?
395 clefPitches = #'(("clefs-G" . -4)
400 automaticPhrasing = ##t;
401 alignmentReference = \down;
402 defaultClef = #"treble"
403 defaultBarType = #"|"
404 systemStartDelimiterGlyph = #'bar-line
407 % what order to print accs. We could compute this,
408 % but computing is more work than putting it here.
410 % Flats come first, then sharps.
411 keyAccidentalOrder = #'(
412 (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
413 (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
415 breakAlignOrder = #'(
427 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
428 % TODO: uniform naming.;
429 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 % distances are given in stafflinethickness (thicknesses) and
434 % staffspace (distances)
436 basicBarProperties = #`(
437 (interfaces . (bar-interface staff-bar-interface))
438 (break-align-symbol . Staff_bar)
440 (barsize-procedure . ,Bar::get_staff_bar_size)
441 (molecule-callback . ,Bar::brew_molecule)
442 (visibility-lambda . ,all-visible)
444 (before-line-breaking-callback . ,Bar::before_line_breaking)
446 ;; Ross. page 151 lists other values, we opt for a leaner look
450 (hair-thickness . 1.6)
451 (thick-thickness . 6.0)
455 basicBarNumberProperties = #`(
456 (molecule-callback . ,Text_item::brew_molecule)
458 (visibility-lambda . ,begin-of-line-visible)
462 basicBeamProperties = #basic-beam-properties
463 basicBreakAlignProperties = #`(
465 (interfaces . (break-align-interface))
468 (name . "break alignment")
470 basicBreakAlignGroupProperties = #`(
471 (interfaces . (axis-group-interface))
473 (name . "break alignment group")
475 basicBreathingSignProperties = #`(
476 (interfaces . (breathing-sign-interface))
477 (break-align-symbol . Breathing_sign)
479 (molecule-callback . ,Breathing_sign::brew_molecule)
480 (visibility-lambda . ,begin-of-line-invisible)
481 (name . "breathing sign")
483 basicClefItemProperties = #`(
484 (interfaces . (clef-interface))
485 (molecule-callback . ,Score_element::brew_molecule)
486 (before-line-breaking-callback . ,Clef::before_line_breaking)
488 (break-align-symbol . Clef_item)
489 (visibility-lambda . ,begin-of-line-visible)
492 basicChordNameProperties = #`(
493 (molecule-callback . ,Chord_name::brew_molecule)
494 (interfaces . (chord-name-interface))
495 (after-line-breaking-callback . ,Chord_name::after_line_breaking)
496 (name . "chord name")
498 basicCollisionProperties = #`(
500 (interfaces . (collision-interface))
502 (name . "note collision")
504 basicCrescendoProperties = #`(
505 (molecule-callback . ,Crescendo::brew_molecule)
506 (interfaces . (crescendo-interface dynamic-interface))
509 basicDotColumnProperties = #`(
510 (interfaces . (dot-column-interface axis-group-interface ))
512 (name . "dot column")
514 basicDotsProperties = #`(
515 (interfaces . (dot-interface))
516 (molecule-callback . ,Dots::brew_molecule)
518 (name . "augmentation dot")
520 basicDynamicTextProperties = #`(
522 (interfaces . (dynamic-interface))
523 (molecule-callback . ,Text_item::brew_molecule)
524 (script-priority . 100)
525 (self-alignment-Y . 0)
526 (name . "dynamic text")
529 basicDynamicLineSpannerProperties = #`(
530 (interfaces . (dynamic-interface axis-group-interface side-position-interface))
534 (name . "dynamic alignment")
537 leftEdgeBasicProperties = #`(
538 (break-align-symbol . Left_edge_item)
542 basicGraceAlignItemProperties = #`(
543 (interfaces . (axis-group-interface align-interface))
545 (horizontal-space . 1.2)
547 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
548 (name . "grace alignment")
550 basicHaraKiriVerticalGroupspannerProperties = #`(
551 (interfaces . (hara-kiri-interface))
555 basicHyphenSpannerProperties = #`(
558 (minimum-length . 0.5)
559 (molecule-callback . ,Hyphen_spanner::brew_molecule)
563 basicInstrumentNameProperties = #`(
565 (molecule-callback . ,Text_item::brew_molecule)
566 (break-align-symbol . Instrument_name)
567 (visibility-lambda . ,begin-of-line-visible)
568 (name . "instrument name")
570 basicKeyProperties = #`(
571 (molecule-callback . ,Key_item::brew_molecule)
572 (interfaces . (key-item-interface))
573 (break-align-symbol . Key_item)
574 (visibility-lambda . ,begin-of-line-visible)
576 (name . "key signature")
578 basicLocalKeyProperties = #`(
579 (molecule-callback . ,Local_key_item::brew_molecule)
581 (right-padding . 0.4)
582 (interfaces . (accidentals-interface))
583 (name . "accidentals")
585 basicLineOfScoreProperties = #`(
587 (interfaces . (axis-group-interface))
590 basicLyricExtenderProperties = #`(
591 (interfaces . (lyric-extender-interface))
592 (molecule-callback . ,Lyric_extender::brew_molecule)
593 (height . 0.8) ; stafflinethickness;
594 (right-trim-amount . 0.5)
595 (name . "extender line")
597 basicLyricTextProperties = #`(
598 (interfaces . (lyric-syllable-interface text-item-interface))
599 (molecule-callback . ,Text_item::brew_molecule)
600 (self-alignment-X . 0)
603 (name . "lyric syllable")
605 basicMarkProperties = #`(
606 (interfaces . (mark-interface side-position-interface))
607 (molecule-callback . ,Text_item::brew_molecule)
609 (visibility-lambda . ,end-of-line-invisible)
611 (name . "rehearsal mark")
613 basicMultiMeasureRestProperties = #`(
614 (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
615 (molecule-callback . ,Multi_measure_rest::brew_molecule)
618 (padding . 2.0) ; staffspace
619 (minimum-width . 12.5) ; staffspace
621 (name . "multi-measure rest")
623 basicNoteColumnProperties = #`(
624 (interfaces . (axis-group-interface note-column-interface))
626 (name . "note column")
628 basicNoteHeadProperties = #`(
629 (interfaces . (note-head-interface rhythmic-head-interface))
631 (molecule-callback . ,Note_head::brew_molecule)
634 basicNoteNameProperties = #`(
635 (molecule-callback . ,Text_item::brew_molecule)
638 basicOctavateEightProperties = #`(
639 (self-alignment-X . 0)
641 (visibility-lambda . ,begin-of-line-visible)
642 (molecule-callback . ,Text_item::brew_molecule)
645 basicPaperColumnProperties = #`(
646 (interfaces . (paper-column-interface axis-group-interface))
650 basicTextProperties = #`( )
651 basicRestProperties = #`(
652 (interfaces . (rest-interface rhythmic-head-interface))
653 (after-line-breaking-callback . ,Rest::after_line_breaking)
654 (molecule-callback . ,Rest::brew_molecule)
655 (minimum-beam-collision-distance . 1.5)
659 basicRestCollisionProperties = #`(
660 (interfaces . (rest-collision-interface))
661 (minimum-distance . 0.75)
662 (name . "rest collision")
664 basicScriptProperties = #`(
665 (molecule-callback . ,Script::brew_molecule)
666 (interfaces . (script-interface side-position-interface))
669 basicScriptColumnProperties = #`(
670 (before-line-breaking-callback . ,Script_column::before_line_breaking)
671 (name . "script column")
673 basicSlurProperties = #`(
674 (interfaces . (slur-interface))
675 (molecule-callback . ,Slur::brew_molecule)
677 (spacing-procedure . ,Slur::set_spacing_rods)
678 (minimum-length . 1.5)
679 (after-line-breaking-callback . ,Slur::after_line_breaking)
681 (de-uglify-parameters . ( 1.5 0.8 -2.0))
684 basicSpacingSpannerProperties =#`(
685 (spacing-procedure . ,Spacing_spanner::set_springs)
687 ;; assume that notes at least this long are present.
688 (maximum-duration-for-spacing . ,(make-moment 1 8))
689 (name . "spacing spanner")
691 basicSpanBarProperties = #`(
692 (interfaces . (bar-interface span-bar-interface))
693 (break-align-symbol . Staff_bar)
694 (barsize-procedure . ,Span_bar::get_bar_size)
695 (molecule-callback . ,Bar::brew_molecule)
696 (visibility-lambda . ,begin-of-line-invisible)
699 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
703 ;; Ross. page 151 lists other values, we opt for a leaner look
707 (hair-thickness . 1.6)
708 (thick-thickness . 6.0)
709 (name . "cross staff bar-line")
711 basicStanzaNumberProperties = #`(
713 (molecule-callback . ,Text_item::brew_molecule)
714 (break-align-symbol . Clef_item)
715 (visibility-lambda . ,begin-of-line-visible)
716 (name . "stanza number")
718 basicStaffSymbolProperties = #`(
719 (interfaces . (staff-symbol-interface ))
720 (molecule-callback . ,Staff_symbol::brew_molecule)
723 (name . "staff symbol")
725 basicSystemStartDelimiterProperties = #`(
726 (molecule-callback . ,System_start_delimiter::brew_molecule)
727 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
728 (collapse-height . 1.0)
734 (bracket-thick . 0.25)
735 (bracket-width . 2.0)
736 (name . "system start bracket")
738 basicTextScriptProperties = #`(
739 (molecule-callback . ,Text_item::brew_molecule)
740 (no-spacing-rods . #t)
741 (interfaces . (text-script-interface text-item-interface side-position-interface))
743 (name . "text script")
745 basicTieProperties = #`(
746 (interfaces . (tie-interface))
747 (molecule-callback . ,Tie::brew_molecule)
748 (spacing-procedure . ,Tie::set_spacing_rods)
750 (minimum-length . 2.5)
753 basicTieColumnProperties = #`(
754 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
755 (interfaces . (tie-column-interface))
756 (name . "tie column")
758 basicTimeSignatureProperties = #`(
759 (interfaces . (time-signature-interface))
760 (molecule-callback . ,Time_signature::brew_molecule)
761 (break-align-symbol . Time_signature)
762 (visibility-lambda . ,all-visible)
764 (name . "time signature")
766 basicTupletSpannerProperties = #`(
770 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
771 (molecule-callback . ,Tuplet_spanner::brew_molecule)
772 (interfaces . (tuplet-spanner-interface))
774 basicSostenutoPedalProperties = #`(
775 (molecule-callback . ,Text_item::brew_molecule)
777 (no-spacing-rods . #t)
778 (self-alignment-X . 0)
779 (name . "sostenuto pedal")
782 basicStemTremoloProperties = #`(
783 (molecule-callback . ,Stem_tremolo::brew_molecule)
784 (beam-width . 2.0) ; staff-space
785 (beam-thickness . 0.42) ; staff-space
786 (beam-space-function . ,default-beam-space-function)
787 (name . "stem tremolo")
789 basicStemProperties = #`(
790 (interfaces . (stem-interface))
791 (before-line-breaking-callback . ,Stem::before_line_breaking)
792 (molecule-callback . ,Stem::brew_molecule)
795 ; if stem is on middle line, choose this direction.
796 (default-neutral-direction . 1)
799 basicSeparationItemProperties = #`(
800 (interfaces . (separation-item-interface))
801 (name . "separation item")
803 basicSeparatingGroupSpannerProperties = #`(
804 (interfaces . (separation-spanner-interface))
805 (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
806 (name . "separation spanner")
808 basicSustainPedalProperties = #`(
809 (interfaces . (sustain-pedal-interface side-position-interface))
810 (no-spacing-rods . #t)
811 (molecule-callback . ,Sustain_pedal::brew_molecule)
812 (self-alignment-X . 0)
813 (name . "sustain pedal")
815 basicUnaChordaPdealProperties = #`(
816 (molecule-callback . ,Text_item::brew_molecule)
818 (no-spacing-rods . #t)
819 (self-alignment-X . 0)
820 (name . "una chorda pedal")
823 basicVoltaSpannerProperties = #`(
824 (molecule-callback . ,Volta_spanner::brew_molecule)
825 (interfaces . (volta-spanner-interface side-position-interface))
828 (thickness . 1.6) ; stafflinethickness
829 (height . 2.0) ; staffspace;
831 (name . "volta brace")
833 basicVerticalAxisGroupProperties = #`(
835 (interfaces . (axis-group-interface))
836 (name . "Y-axis group")
840 \translator { \ScoreContext }
842 OrchestralScoreContext= \translator {
848 \type "Engraver_group_engraver";
850 \consistsend "Axis_group_engraver";
851 \consists "Note_name_engraver";
852 \consists "Separating_line_group_engraver";