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";
36 \consistsend "Axis_group_engraver";
39 The Instrument_name_engraver puts the name of the instrument
40 (\property Staff.instrument; Staff.instr for subsequent lines)
41 to the left of a staff.
43 This is commented out, so you don't get funny things on the
45 \consists "Instrument_name_engraver";
53 ChoirStaffContext = \translator {
54 \type "Engraver_group_engraver";
56 alignmentReference = \center;
57 \consists "System_start_delimiter_engraver";
58 systemStartDelimiterGlyph = #'bracket
61 \accepts "RhythmicStaff";
62 \accepts "GrandStaff";
63 \accepts "PianoStaff";
65 \accepts "ChordNames";
69 RhythmicStaffContext=\translator{
70 \type "Engraver_group_engraver";
72 \consists "Property_engraver";
73 \consists "Output_property_engraver";
75 Generic_property_list = #generic-staff-properties
77 \consists "Pitch_squash_engraver";
78 \consists "Separating_line_group_engraver";
80 Bar \push #'bar-size = #4
81 VoltaBracket \push #'minimum-space = #15 % urg, in \pt
82 VoltaBracket \push #'padding = #5 % urg, in \pt
83 StaffSymbol \push #'line-count = #1
85 % \consists "Repeat_engraver";
86 \consists "Volta_engraver";
87 \consists "Bar_engraver";
88 \consists "Time_signature_engraver";
89 \consists "Staff_symbol_engraver";
90 \consistsend "Axis_group_engraver";
95 VoiceContext = \translator {
96 \type "Engraver_group_engraver";
99 Generic_property_list = #generic-voice-properties
101 \consists "Output_property_engraver";
102 \consists "Arpeggio_engraver";
104 \consists "Dynamic_engraver"; % must come before text_engraver.
105 \consists "Text_spanner_engraver";
106 \consists "Property_engraver";
108 \consists "Breathing_sign_engraver";
109 \consists "Rest_engraver";
110 \consists "Dot_column_engraver";
111 \consists "Stem_engraver";
112 \consists "Beam_engraver";
113 \consists "Auto_beam_engraver";
115 \consists "Chord_tremolo_engraver";
116 \consists "Melisma_engraver";
117 \consists "Text_engraver";
118 \consists "A2_engraver";
119 \consists "Voice_devnull_engraver";
121 \consists "Script_engraver";
122 \consists "Script_column_engraver";
123 \consists "Rhythmic_column_engraver";
124 \consists "Slur_engraver";
125 \consists "Tie_engraver";
126 \consists "Tuplet_engraver";
127 \consists "Grace_position_engraver";
128 \consists "Skip_req_swallow_translator";
129 \accepts Thread; % bug if you leave out this!
133 GraceContext=\translator {
134 \type "Grace_engraver_group";
136 \consists "Output_property_engraver";
138 Generic_property_list = #generic-grace-properties
140 \consists "Note_heads_engraver";
141 \consists "Local_key_engraver";
142 \consists "Stem_engraver";
143 \consists "Beam_engraver";
144 \consists "Slur_engraver";
146 \consists "Auto_beam_engraver";
147 \consists "Align_note_column_engraver";
149 \consists "Rhythmic_column_engraver";
151 \consists "Dynamic_engraver";% in Grace ???
152 \consists "Text_engraver"; % in Grace ???
154 \consists "Property_engraver";
156 Stem \push #'style = #"grace"
157 Stem \push #'flag-style = #"grace"
158 Stem \push #'stem-length = #6.0
159 Stem \push #'direction = #1
161 NoteHead \push #'font-size = #-1
162 Stem \push #'font-size = #-1
163 Stem \push #'stem-shorten = #'(0)
164 Beam \push #'font-size = #-1
165 TextScript \push #'font-size = #-1
166 Slur \push #'font-size = #-1
167 Accidentals \push #'font-size = #-1
168 Beam \push #'thickness = #0.3
169 Beam \push #'space-function = #(lambda (x) 0.5)
171 Stem \push #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
172 Stem \push #'beamed-lengths =
174 Stem \push #'beamed-minimum-lengths
175 = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
177 weAreGraceContext = ##t
178 graceAccidentalSpace= 1.5 ; % in staff space
181 ThreadContext = \translator{
182 \type Engraver_group_engraver;
183 \consists "Thread_devnull_engraver";
184 \consists "Note_heads_engraver";
185 \consists "Output_property_engraver";
186 Generic_property_list = #generic-thread-properties
187 \consists "Property_engraver";
191 GrandStaffContext=\translator{
192 \type "Engraver_group_engraver";
194 \consists "Span_bar_engraver";
195 \consists "Span_arpeggio_engraver";
196 \consists "System_start_delimiter_engraver";
197 systemStartDelimiterGlyph = #'brace
199 \consists "Property_engraver";
200 Generic_property_list = #generic-grand-staff-properties
204 PianoStaffContext = \translator{
208 \consists "Vertical_align_engraver";
210 alignmentReference = \center;
211 VerticalAlignment \push #'threshold = #'(12 . 12)
213 % \consistsend "Axis_group_engraver";
216 StaffGroupContext= \translator {
217 \type "Engraver_group_engraver";
220 \consists "Span_bar_engraver";
221 \consists "Span_arpeggio_engraver";
222 \consists "Output_property_engraver";
223 systemStartDelimiterGlyph = #'bracket
224 \consists "System_start_delimiter_engraver";
226 \accepts "RhythmicStaff";
227 \accepts "GrandStaff";
228 \accepts "PianoStaff";
231 \accepts "ChordNames";
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 NoteNamesContext = \translator {
251 \type "Engraver_group_engraver";
253 \consistsend "Axis_group_engraver";
254 \consists "Note_name_engraver";
255 \consists "Separating_line_group_engraver";
258 LyricsContext = \translator {
259 \type "Engraver_group_engraver";
261 \consists Vertical_align_engraver; %need this for getting folded repeats right.
262 Generic_property_list = #generic-lyrics-properties
263 \consists "Property_engraver";
264 \consistsend "Axis_group_engraver";
266 \accepts "LyricVoice";
269 ChordNamesVoiceContext = \translator {
270 \type "Engraver_group_engraver";
271 \name ChordNamesVoice ;
273 \consists "Output_property_engraver";
274 \consistsend "Axis_group_engraver";
275 \consists "Separating_line_group_engraver";
276 \consists "Chord_name_engraver";
278 ChordNamesContext = \translator {
279 \type "Engraver_group_engraver";
282 Generic_property_list = #generic-chord-staff-properties
284 \consists "Property_engraver";
285 \consists "Output_property_engraver";
286 \accepts "ChordNamesVoice";
288 VerticalAxisGroup \push #'invisible-staff = ##t
289 \consistsend "Axis_group_engraver";
293 ScoreWithNumbers = \translator {
294 \type "Score_engraver";
296 % uncomment to bar numbers on a whole system.
297 \consists "Bar_number_engraver";
300 StupidScore = \translator {
301 \type "Score_engraver";
303 \consists "Note_heads_engraver";
308 BarNumberingStaffContext = \translator {
310 \consists "Mark_engraver";
313 HaraKiriStaffContext = \translator {
315 \remove "Axis_group_engraver";
316 \consistsend "Hara_kiri_engraver";
317 \consists "Instrument_name_engraver";
321 The HaraKiriStaffContexts doesn't override \name,
322 so it is still named `Staff'.
324 %\translator { \HaraKiriStaffContext }
327 OrchestralPartStaffContext = \translator {
329 \consists "Mark_engraver";
332 ScoreContext = \translator {
333 \type Score_engraver;
337 \consists "Repeat_acknowledge_engraver";
338 \consists "Timing_engraver";
339 \consists "Output_property_engraver";
340 \consists "System_start_delimiter_engraver";
341 \consists "Mark_engraver";
342 \consists "Break_align_engraver";
343 \consists "Spacing_engraver";
344 \consists "Vertical_align_engraver";
346 \consists "Lyric_phrasing_engraver";
347 \consists "Bar_number_engraver";
348 \consists "Span_arpeggio_engraver";
352 \accepts "StaffGroup";
353 \accepts "RhythmicStaff";
355 \accepts "ChordNames";
356 \accepts "GrandStaff";
357 \accepts "ChoirStaff";
358 \accepts "PianoStaff";
359 \accepts "NoteNames";
362 soloIIText = #"Solo II"
365 splitInterval = #'(0 . 1)
366 changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
368 defaultClef = #"treble"
370 StaffMinimumVerticalExtent = #(cons -4.0 4.0)
373 voltaVisibility = ##t
374 % name, glyph id, c0 position
375 supportedClefTypes = #'(
376 ("treble" . ("clefs-G" -2))
377 ("violin" . ("clefs-G" -2))
378 ("G" . ("clefs-G" -2))
379 ("G2" . ("clefs-G" -2))
380 ("french" . ("clefs-G" -4 ))
381 ("soprano" . ("clefs-C" -4 ))
382 ("mezzosoprano" . ("clefs-C" -2 ))
383 ("alto" . ("clefs-C" 0 ))
384 ("tenor" . ("clefs-C" 2 ))
385 ("baritone" . ("clefs-C" 4 ))
386 ("varbaritone" . ("clefs-F" 0))
387 ("bass" . ("clefs-F" 2 ))
388 ("F" . ( "clefs-F" 2))
389 ("subbass" . ("clefs-F" 4))
391 % where is c0 in this clef?
392 clefPitches = #'(("clefs-G" . -4)
397 automaticPhrasing = ##t;
398 alignmentReference = \down;
399 defaultClef = #"treble"
400 defaultBarType = #"|"
401 systemStartDelimiterGlyph = #'bar-line
402 explicitClefVisibility = #all-visible
403 explicitKeySignatureVisibility = #all-visible
405 scriptDefinitions = #default-script-alist
407 startSustain = #"Ped."
409 stopStartSustain = #"*Ped."
410 startUnaChorda = #"una chorda"
411 stopUnaChorda = #"tre chorde"
412 % should make separate lists for stopsustain and startsustain
416 % what order to print accs. We could compute this,
417 % but computing is more work than putting it here.
419 % Flats come first, then sharps.
420 keyAccidentalOrder = #'(
421 (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
422 (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
424 breakAlignOrder = #'(
437 \elementdescriptions #all-element-descriptions
438 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 % TODO: uniform naming.;
440 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 \include "auto-beam-settings.ly";
448 OrchestralScoreContext= \translator {