4 % setup for Request->Element conversion. Guru-only
7 StaffContext=\translator {
8 \type "Engraver_group_engraver";
10 \consists "Output_property_engraver";
11 Generic_property_list = #generic-staff-properties
12 \consists "Property_engraver";
14 \consists "Multi_measure_rest_engraver";
16 \consists "Bar_engraver";
17 % Bar_engraver must be first so default bars aren't overwritten
21 % \consists "Repeat_engraver";
22 \consists "Volta_engraver";
23 \consists "Separating_line_group_engraver";
27 \consists "Clef_engraver";
28 \consists "Key_engraver";
29 \consists "Time_signature_engraver";
30 \consists "Staff_symbol_engraver";
31 \consists "Collision_engraver";
32 \consists "Rest_collision_engraver";
33 \consists "Local_key_engraver";
34 \consists "Piano_pedal_engraver";
37 The Instrument_name_engraver puts the name of the instrument
38 (\property Staff.instrument; Staff.instr for subsequent lines)
39 to the left of a staff.
41 This is commented out, so you don't get funny things on the
43 \consists "Instrument_name_engraver";
46 \consistsend "Axis_group_engraver";
53 StaffContainerContext = \translator {
54 \type Engraver_group_engraver;
55 \consists "Axis_group_engraver";
60 ChoirStaffContext = \translator {
61 \type "Engraver_group_engraver";
63 alignmentReference = \center;
64 \consists "System_start_delimiter_engraver";
65 SystemStartDelimiter \override #'glyph = #'bracket
68 \accepts "RhythmicStaff";
69 \accepts "GrandStaff";
70 \accepts "PianoStaff";
72 \accepts "ChordNames";
76 RhythmicStaffContext=\translator{
77 \type "Engraver_group_engraver";
79 \consists "Property_engraver";
80 \consists "Output_property_engraver";
82 Generic_property_list = #generic-staff-properties
84 \consists "Pitch_squash_engraver";
85 \consists "Separating_line_group_engraver";
87 Bar \override #'bar-size = #4
88 VoltaBracket \override #'minimum-space = #15 % urg, in \pt
89 VoltaBracket \override #'padding = #5 % urg, in \pt
90 StaffSymbol \override #'line-count = #1
92 % \consists "Repeat_engraver";
93 \consists "Volta_engraver";
94 \consists "Bar_engraver";
95 \consists "Time_signature_engraver";
96 \consists "Staff_symbol_engraver";
97 \consistsend "Axis_group_engraver";
102 VoiceContext = \translator {
103 \type "Engraver_group_engraver";
106 Generic_property_list = #generic-voice-properties
108 % must come before all
109 \consists "Voice_devnull_engraver";
110 \consists "Output_property_engraver";
111 \consists "Arpeggio_engraver";
113 \consists "Text_spanner_engraver";
114 \consists "Property_engraver";
116 \consists "Breathing_sign_engraver";
117 \consists "Rest_engraver";
118 \consists "Dot_column_engraver";
119 \consists "Stem_engraver";
120 \consists "Beam_engraver";
121 \consists "Auto_beam_engraver";
123 \consists "Chord_tremolo_engraver";
124 \consists "Melisma_engraver";
127 Must come before text_engraver, but after note_column engraver.
130 \consists "Dynamic_engraver";
131 \consists "Text_engraver";
133 \consists "Script_engraver";
134 \consists "Script_column_engraver";
135 \consists "Rhythmic_column_engraver";
136 \consists "Phrasing_slur_engraver";
137 \consists "Slur_engraver";
138 \consists "Tie_engraver";
139 \consists "Tuplet_engraver";
140 \consists "Grace_position_engraver";
141 \consists "A2_engraver";
143 \consists "Skip_req_swallow_translator";
144 \accepts Thread; % bug if you leave out this!
148 GraceContext=\translator {
149 \type "Grace_engraver_group";
151 \consists "Output_property_engraver";
153 Generic_property_list = #generic-grace-properties
155 \consists "Note_heads_engraver";
156 \consists "Local_key_engraver";
157 \consists "Stem_engraver";
158 \consists "Beam_engraver";
159 \consists "Slur_engraver";
161 \consists "Auto_beam_engraver";
162 \consists "Align_note_column_engraver";
164 \consists "Rhythmic_column_engraver";
166 \consists "Dynamic_engraver";% in Grace ???
167 \consists "Text_engraver"; % in Grace ???
169 \consists "Property_engraver";
171 Stem \override #'flag-style = #"grace"
172 Stem \override #'stem-length = #6.0
173 Stem \override #'direction = #1
175 NoteHead \override #'font-relative-size = #-1
176 Stem \override #'font-relative-size = #-1
177 Stem \override #'stem-shorten = #'(0)
178 Beam \override #'font-relative-size = #-1
179 TextScript \override #'font-relative-size = #-1
180 Slur \override #'font-relative-size = #-1
181 Accidentals \override #'font-relative-size = #-1
182 Beam \override #'thickness = #0.3
183 Beam \override #'space-function = #(lambda (x) 0.5)
185 Stem \override #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
186 Stem \override #'beamed-lengths =
188 Stem \override #'beamed-minimum-lengths
189 = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
191 weAreGraceContext = ##t
192 graceAccidentalSpace= 1.5 ; % in staff space
195 ThreadContext = \translator{
196 \type Engraver_group_engraver;
199 \consists "Thread_devnull_engraver";
200 \consists "Note_heads_engraver";
201 \consists "Note_head_line_engraver";
202 \consists "Output_property_engraver";
203 Generic_property_list = #generic-thread-properties
204 \consists "Property_engraver";
207 GrandStaffContext=\translator{
208 \type "Engraver_group_engraver";
210 \consists "Span_bar_engraver";
211 \consists "Span_arpeggio_engraver";
212 \consists "System_start_delimiter_engraver";
213 SystemStartDelimiter \override #'glyph = #'brace
215 \consists "Property_engraver";
216 Generic_property_list = #generic-grand-staff-properties
220 PianoStaffContext = \translator{
224 \consists "Vertical_align_engraver";
226 alignmentReference = \center;
227 verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
228 VerticalAlignment \override #'forced-distance = #12
230 % \consistsend "Axis_group_engraver";
233 StaffGroupContext= \translator {
234 \type "Engraver_group_engraver";
237 \consists "Span_bar_engraver";
238 \consists "Span_arpeggio_engraver";
239 \consists "Output_property_engraver";
240 SystemStartDelimiter \override #'glyph = #'bracket
242 \consists "System_start_delimiter_engraver";
244 \accepts "RhythmicStaff";
245 \accepts "GrandStaff";
246 \accepts "PianoStaff";
249 \accepts "ChordNames";
254 LyricsVoiceContext= \translator{
255 \type "Engraver_group_engraver";
256 \consistsend "Axis_group_engraver";
257 LyricsVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
260 \consists "Separating_line_group_engraver";
261 \consists "Lyric_engraver";
262 \consists "Extender_engraver";
263 \consists "Hyphen_engraver";
264 \consists "Stanza_number_engraver";
265 phrasingPunctuation = #".,;:!?\""
268 NoteNamesContext = \translator {
269 \type "Engraver_group_engraver";
271 \consistsend "Axis_group_engraver";
272 \consists "Note_name_engraver";
273 \consists "Separating_line_group_engraver";
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 "LyricsVoice";
287 ChordNamesVoiceContext = \translator {
288 \type "Engraver_group_engraver";
289 \name ChordNamesVoice ;
291 \consists "Output_property_engraver";
292 \consistsend "Axis_group_engraver";
293 \consists "Separating_line_group_engraver";
294 \consists "Chord_name_engraver";
295 \consists "Skip_req_swallow_translator";
298 ChordNamesContext = \translator {
299 \type "Engraver_group_engraver";
302 Generic_property_list = #generic-chord-staff-properties
304 \consists "Property_engraver";
305 \consists "Output_property_engraver";
306 \accepts "ChordNamesVoice";
308 VerticalAxisGroup \override #'invisible-staff = ##t
309 \consistsend "Axis_group_engraver";
314 StupidScore = \translator {
315 \type "Score_engraver";
317 \consists "Note_heads_engraver";
323 HaraKiriStaffContext = \translator {
325 \remove "Axis_group_engraver";
326 \consistsend "Hara_kiri_engraver";
327 \consists "Instrument_name_engraver";
331 The HaraKiriStaffContexts doesn't override \name,
332 so it is still named `Staff'.
334 %\translator { \HaraKiriStaffContext }
340 ScoreContext = \translator {
341 \type Score_engraver;
345 \consists "Repeat_acknowledge_engraver";
346 \consists "Timing_engraver";
347 \consists "Output_property_engraver";
348 \consists "System_start_delimiter_engraver";
349 \consists "Mark_engraver";
350 \consists "Break_align_engraver";
351 \consists "Spacing_engraver";
352 \consists "Vertical_align_engraver";
354 \consists "Lyric_phrasing_engraver";
355 \consists "Bar_number_engraver";
356 \consists "Span_arpeggio_engraver";
359 \accepts "StaffContainer";
360 \accepts "StaffGroup";
361 \accepts "RhythmicStaff";
363 \accepts "ChordNames";
364 \accepts "GrandStaff";
365 \accepts "ChoirStaff";
366 \accepts "PianoStaff";
367 \accepts "NoteNames";
370 soloIIText = #"Solo II"
373 splitInterval = #'(0 . 1)
374 changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
376 StaffMinimumVerticalExtent = #(cons -4.0 4.0)
379 voltaVisibility = ##t
380 % name, glyph id, clef position
381 % where is c0 in this clef?
382 clefPitches = #'(("clefs-G" . -4)
385 ("clefs-vaticana_do" . 0)
386 ("clefs-vaticana_fa" . 4)
387 ("clefs-medicaea_do" . 0)
388 ("clefs-medicaea_fa" . 4)
389 ("clefs-hufnagel_do" . 0)
390 ("clefs-hufnagel_fa" . 4)
391 ("clefs-hufnagel_do_fa" . 0)
392 ("clefs-mensural1_c" . 0)
393 ("clefs-mensural2_c" . 0)
394 ("clefs-mensural3_c" . 0)
395 ("clefs-mensural1_f" . 4)
396 ("clefs-mensural2_f" . 4)
397 ("clefs-mensural_g" . -4))
399 clefGlyph = #"clefs-G"
402 automaticPhrasing = ##t;
403 alignmentReference = \down;
404 defaultBarType = #"|"
406 explicitClefVisibility = #all-visible
407 explicitKeySignatureVisibility = #all-visible
409 scriptDefinitions = #default-script-alist
411 verticalAlignmentChildCallback = #Align_interface::alignment_callback
413 pedalSustainStrings = #'("Ped." "*Ped." "*")
414 pedalUnaChordaStrings = #'("una chorda" "" "tre chorde")
415 pedalSostenutoStrings = #'() % FIXME
417 tupletNumberFormatFunction = #denominator-tuplet-formatter
419 keyAccidentalOrder = #'(
420 (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
421 (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
423 breakAlignOrder = #'(
437 \elementdescriptions #all-grob-descriptions
440 OrchestralScoreContext= \translator {
443 EasyNotation = \translator {
445 NoteHead \override #'molecule-callback = #Note_head::brew_ez_molecule