LEFT | RIGHT |
1 \version "2.12.0" | 1 \version "2.12.0" |
2 | 2 |
3 \context { | 3 \context { |
4 \name "Global" | 4 \name "Global" |
5 | 5 |
6 \accepts "Score" | 6 \accepts "Score" |
7 | 7 |
8 \defaultchild "Score" | 8 \defaultchild "Score" |
9 \description "Hard coded entry point for LilyPond. Cannot be tuned." | 9 \description "Hard coded entry point for LilyPond. Cannot be tuned." |
10 \grobdescriptions #all-grob-descriptions | 10 \grobdescriptions #all-grob-descriptions |
11 } | 11 } |
12 | 12 |
13 | 13 |
14 \context { | 14 \context { |
15 \type "Engraver_group" | 15 \type "Engraver_group" |
16 \name "FretBoards" | 16 \name "FretBoards" |
17 | 17 |
18 | 18 |
19 \consists "Fretboard_engraver" | 19 \consists "Fretboard_engraver" |
20 \consists "Rest_swallow_translator" | 20 \consists "Rest_swallow_translator" |
21 \consists "Output_property_engraver"» | 21 \consists "Output_property_engraver" |
22 \consists "Skip_event_swallow_translator" | 22 \consists "Skip_event_swallow_translator" |
23 \consists "Hara_kiri_engraver" | 23 \consists "Hara_kiri_engraver" |
24 \consists "Separating_line_group_engraver" | 24 \consists "Separating_line_group_engraver" |
25 \consists "Font_size_engraver" | 25 \consists "Font_size_engraver" |
26 \consists "Instrument_name_engraver" | 26 \consists "Instrument_name_engraver" |
27 | 27 |
28 predefinedDiagramTable = #fretboard-table | 28 predefinedDiagramTable = #fretboard-table |
29 } | 29 } |
30 | 30 |
31 \context { | 31 \context { |
32 \type "Engraver_group" | 32 \type "Engraver_group" |
33 \name "Staff" | 33 \name "Staff" |
34 | 34 |
35 \consists "Output_property_engraver"» | 35 \consists "Output_property_engraver" |
36 \consists "Bar_engraver" | 36 \consists "Bar_engraver" |
37 %% Bar_engraver must be first so default bars aren't overwritten | 37 %% Bar_engraver must be first so default bars aren't overwritten |
38 %% with empty ones. | 38 %% with empty ones. |
39 | 39 |
40 \consists "Font_size_engraver" | 40 \consists "Font_size_engraver" |
41 \consists "Separating_line_group_engraver"» | 41 \consists "Separating_line_group_engraver" |
42 \consists "Dot_column_engraver" | 42 \consists "Dot_column_engraver" |
43 \consists "Staff_collecting_engraver" | 43 \consists "Staff_collecting_engraver" |
44 | 44 |
45 %% perhaps move to Voice context? | 45 %% perhaps move to Voice context? |
46 \consists "Ottava_spanner_engraver" | 46 \consists "Ottava_spanner_engraver" |
47 \consists "Clef_engraver" | 47 \consists "Clef_engraver" |
48 \consists "Key_engraver" | 48 \consists "Key_engraver" |
49 \consists "Time_signature_engraver" | 49 \consists "Time_signature_engraver" |
50 \consists "Ledger_line_engraver" | 50 \consists "Ledger_line_engraver" |
51 \consists "Staff_symbol_engraver" | 51 \consists "Staff_symbol_engraver" |
52 \consists "Collision_engraver" | 52 \consists "Collision_engraver" |
53 \consists "Grob_pq_engraver" | 53 \consists "Grob_pq_engraver" |
54 \consists "Rest_collision_engraver" | 54 \consists "Rest_collision_engraver" |
55 \consists "Accidental_engraver" | 55 \consists "Accidental_engraver" |
56 \consists "Piano_pedal_engraver" | 56 \consists "Piano_pedal_engraver" |
57 \consists "Piano_pedal_align_engraver" | 57 \consists "Piano_pedal_align_engraver" |
58 \consists "Instrument_name_engraver" | 58 \consists "Instrument_name_engraver" |
59 \consists "String_number_engraver" | 59 \consists "String_number_engraver" |
60 \consists "Axis_group_engraver" | 60 \consists "Axis_group_engraver" |
61 \consists "Figured_bass_engraver" | 61 \consists "Figured_bass_engraver" |
62 \consists "Figured_bass_position_engraver" | 62 \consists "Figured_bass_position_engraver" |
63 \consists "Script_row_engraver" | 63 \consists "Script_row_engraver" |
64 | 64 |
65 localKeySignature = #'() | 65 localKeySignature = #'() |
66 createSpacing = ##t | 66 createSpacing = ##t |
67 ignoreFiguredBassRest = ##t | 67 ignoreFiguredBassRest = ##t |
68 \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4) | 68 \override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 4) |
69 | 69 |
70 %% explicitly set instrument, so we don't get | 70 %% explicitly set instrument, so we don't get |
71 %% weird effects when doing instrument names for | 71 %% weird effects when doing instrument names for |
72 %% piano staves | 72 %% piano staves |
73 | 73 |
74 instrumentName = #'() | 74 instrumentName = #'() |
75 shortInstrumentName = #'() | 75 shortInstrumentName = #'() |
76 | 76 |
77 \defaultchild "Voice" | 77 \defaultchild "Voice" |
78 \accepts "Voice" | 78 \accepts "Voice" |
79 \accepts "CueVoice" | 79 \accepts "CueVoice" |
80 | 80 |
81 \description "Handles clefs, bar lines, keys, accidentals. It can contain | 81 \description "Handles clefs, bar lines, keys, accidentals. It can contain |
82 @code{Voice} contexts." | 82 @code{Voice} contexts." |
83 | 83 |
84 } | 84 } |
85 | 85 |
86 \context { | 86 \context { |
87 \Staff | 87 \Staff |
88 \type "Engraver_group" | 88 \type "Engraver_group" |
89 \name "DrumStaff" | 89 \name "DrumStaff" |
90 \alias "Staff" | 90 \alias "Staff" |
91 | 91 |
92 \remove "Accidental_engraver" | 92 \remove "Accidental_engraver" |
93 \remove "Ottava_spanner_engraver" | 93 \remove "Ottava_spanner_engraver" |
94 \remove "Key_engraver" | 94 \remove "Key_engraver" |
95 \remove "Piano_pedal_engraver" | 95 \remove "Piano_pedal_engraver" |
96 \remove "String_number_engraver" | 96 \remove "String_number_engraver" |
97 | 97 |
98 \description "Handles typesetting for percussion." | 98 \description "Handles typesetting for percussion." |
99 | 99 |
100 \denies "Voice" | 100 \denies "Voice" |
101 \accepts "DrumVoice" | 101 \accepts "DrumVoice" |
102 \defaultchild "DrumVoice" | 102 \defaultchild "DrumVoice" |
103 | 103 |
104 clefGlyph = #"clefs.percussion" | 104 clefGlyph = #"clefs.percussion" |
105 clefPosition = #0 | 105 clefPosition = #0 |
106 \override Script #'staff-padding = #0.75 | 106 \override Script #'staff-padding = #0.75 |
107 } | 107 } |
108 | 108 |
109 | 109 |
110 \context { | 110 \context { |
111 \type "Engraver_group" | 111 \type "Engraver_group" |
112 \name "ChoirStaff" | 112 \name "ChoirStaff" |
113 \consists "System_start_delimiter_engraver" | 113 \consists "System_start_delimiter_engraver" |
114 systemStartDelimiter = #'SystemStartBracket | 114 systemStartDelimiter = #'SystemStartBracket |
115 vocalName = #'() | 115 vocalName = #'() |
116 shortVocalName = #'() | 116 shortVocalName = #'() |
117 | 117 |
118 \accepts "Staff" | 118 \accepts "Staff" |
119 \accepts "DrumStaff" | 119 \accepts "DrumStaff" |
120 \accepts "RhythmicStaff" | 120 \accepts "RhythmicStaff" |
121 \accepts "GrandStaff" | 121 \accepts "GrandStaff" |
122 \accepts "PianoStaff" | 122 \accepts "PianoStaff" |
123 \accepts "Lyrics" | 123 \accepts "Lyrics" |
124 \accepts "ChordNames" | 124 \accepts "ChordNames" |
125 \accepts "ChoirStaff" | 125 \accepts "ChoirStaff" |
126 \accepts "StaffGroup" | 126 \accepts "StaffGroup" |
127 \defaultchild "Staff" | 127 \defaultchild "Staff" |
128 \description "Identical to @code{StaffGroup} except that the | 128 \description "Identical to @code{StaffGroup} except that the |
129 contained staves are not connected vertically." | 129 contained staves are not connected vertically." |
130 } | 130 } |
131 | 131 |
132 \context{ | 132 \context{ |
133 \type "Engraver_group" | 133 \type "Engraver_group" |
134 | 134 |
135 \override VerticalAxisGroup #'minimum-Y-extent = ##f | 135 \override VerticalAxisGroup #'minimum-Y-extent = ##f |
136 localKeySignature = #'() | 136 localKeySignature = #'() |
137 createSpacing = ##t | 137 createSpacing = ##t |
138 | 138 |
139 squashedPosition = #0 | 139 squashedPosition = #0 |
140 \name RhythmicStaff | 140 \name RhythmicStaff |
141 \alias "Staff" | 141 \alias "Staff" |
142 | 142 |
143 \override BarLine #'bar-size = #4 | 143 \override BarLine #'bar-size = #4 |
144 \override VoltaBracket #'staff-padding = #3 | 144 \override VoltaBracket #'staff-padding = #3 |
145 \override StaffSymbol #'line-count = #1» | 145 \override StaffSymbol #'line-count = #1 |
146 | 146 |
147 \override Stem #'neutral-direction = #UP | 147 \override Stem #'neutral-direction = #UP |
148 \override Beam #'neutral-direction = #UP | 148 \override Beam #'neutral-direction = #UP |
149 | 149 |
150 \consists "Output_property_engraver" | 150 \consists "Output_property_engraver" |
151 \consists "Font_size_engraver" | 151 \consists "Font_size_engraver" |
152 \consists "Separating_line_group_engraver"» | 152 \consists "Separating_line_group_engraver" |
153 \consists "Dot_column_engraver" | 153 \consists "Dot_column_engraver" |
154 \consists "Bar_engraver" | 154 \consists "Bar_engraver" |
155 \consists "Staff_symbol_engraver" | 155 \consists "Staff_symbol_engraver" |
156 \consists "Pitch_squash_engraver" | 156 \consists "Pitch_squash_engraver" |
157 \consists "Time_signature_engraver" | 157 \consists "Time_signature_engraver" |
158 \consists "Instrument_name_engraver" | 158 \consists "Instrument_name_engraver" |
159 \consists "Axis_group_engraver" | 159 \consists "Axis_group_engraver" |
160 \consists "Ledger_line_engraver" | 160 \consists "Ledger_line_engraver" |
161 | 161 |
162 \accepts "Voice" | 162 \accepts "Voice" |
163 \accepts "CueVoice" | 163 \accepts "CueVoice" |
164 \defaultchild "Voice" | 164 \defaultchild "Voice" |
165 | 165 |
166 \description "A context like @code{Staff} but for printing rhythms. | 166 \description "A context like @code{Staff} but for printing rhythms. |
167 Pitches are ignored; the notes are printed on one line." | 167 Pitches are ignored; the notes are printed on one line." |
168 } | 168 } |
169 | 169 |
170 | 170 |
171 \context { | 171 \context { |
172 \type "Engraver_group" | 172 \type "Engraver_group" |
173 \name "Voice" | 173 \name "Voice" |
174 | 174 |
175 \description "Corresponds to a voice on a staff. This context | 175 \description "Corresponds to a voice on a staff. This context |
176 handles the conversion of dynamic signs, stems, beams, super- and | 176 handles the conversion of dynamic signs, stems, beams, super- and |
177 subscripts, slurs, ties, and rests. | 177 subscripts, slurs, ties, and rests. |
178 | 178 |
179 You have to instantiate this explicitly if you want to have | 179 You have to instantiate this explicitly if you want to have |
180 multiple voices on the same staff." | 180 multiple voices on the same staff." |
181 | 181 |
182 localKeySignature = #'() | 182 localKeySignature = #'() |
183 \consists "Font_size_engraver" | 183 \consists "Font_size_engraver" |
184 | 184 |
185 \consists "Pitched_trill_engraver" | 185 \consists "Pitched_trill_engraver" |
186 \consists "Output_property_engraver"» | 186 \consists "Output_property_engraver" |
187 \consists "Arpeggio_engraver" | 187 \consists "Arpeggio_engraver" |
188 \consists "Multi_measure_rest_engraver" | 188 \consists "Multi_measure_rest_engraver" |
189 \consists "Text_spanner_engraver" | 189 \consists "Text_spanner_engraver" |
190 \consists "Trill_spanner_engraver" | 190 \consists "Trill_spanner_engraver" |
191 \consists "Grob_pq_engraver" | 191 \consists "Grob_pq_engraver" |
192 \consists "Forbid_line_break_engraver" | 192 \consists "Forbid_line_break_engraver" |
193 \consists "Laissez_vibrer_engraver" | 193 \consists "Laissez_vibrer_engraver" |
194 \consists "Repeat_tie_engraver" | 194 \consists "Repeat_tie_engraver" |
195 \consists "Note_head_line_engraver" | 195 \consists "Note_head_line_engraver" |
196 \consists "Glissando_engraver" | 196 \consists "Glissando_engraver" |
197 \consists "Ligature_bracket_engraver" | 197 \consists "Ligature_bracket_engraver" |
198 \consists "Breathing_sign_engraver" | 198 \consists "Breathing_sign_engraver" |
199 \consists "Note_heads_engraver" | 199 \consists "Note_heads_engraver" |
200 \consists "Dots_engraver" | 200 \consists "Dots_engraver" |
201 \consists "Rest_engraver" | 201 \consists "Rest_engraver" |
202 \consists "Tweak_engraver" | 202 \consists "Tweak_engraver" |
203 | 203 |
204 %% switch on to make stem directions interpolate for the | 204 %% switch on to make stem directions interpolate for the |
205 %% center line. | 205 %% center line. |
206 % \consists "Melody_engraver" | 206 % \consists "Melody_engraver" |
207 | 207 |
208 \consists "Stem_engraver" | 208 \consists "Stem_engraver" |
209 \consists "Beam_engraver" | 209 \consists "Beam_engraver" |
210 \consists "Grace_beam_engraver" | 210 \consists "Grace_beam_engraver" |
211 \consists "Auto_beam_engraver" | 211 \consists "Auto_beam_engraver" |
212 | 212 |
213 %% must come before Script_column_engraver. | 213 %% must come before Script_column_engraver. |
214 \consists "New_fingering_engraver" | 214 \consists "New_fingering_engraver" |
215 | 215 |
216 \consists "Chord_tremolo_engraver" | 216 \consists "Chord_tremolo_engraver" |
217 \consists "Percent_repeat_engraver" | 217 \consists "Percent_repeat_engraver" |
218 \consists "Slash_repeat_engraver" | 218 \consists "Slash_repeat_engraver" |
219 \consists "Part_combine_engraver" | 219 \consists "Part_combine_engraver" |
220 | 220 |
221 \consists "Text_engraver" | 221 \consists "Text_engraver" |
222 \consists "New_dynamic_engraver" | 222 \consists "New_dynamic_engraver" |
223 \consists "Dynamic_align_engraver" | 223 \consists "Dynamic_align_engraver" |
224 % \consists "Dynamic_engraver" | 224 % \consists "Dynamic_engraver" |
225 \consists "Fingering_engraver" | 225 \consists "Fingering_engraver" |
226 \consists "Bend_engraver" | 226 \consists "Bend_engraver" |
227 | 227 |
228 \consists "Script_engraver" | 228 \consists "Script_engraver" |
229 \consists "Script_column_engraver" | 229 \consists "Script_column_engraver" |
230 \consists "Rhythmic_column_engraver" | 230 \consists "Rhythmic_column_engraver" |
231 \consists "Note_spacing_engraver" | 231 \consists "Note_spacing_engraver" |
232 \consists "Spanner_break_forbid_engraver" | 232 \consists "Spanner_break_forbid_engraver" |
233 \consists "Phrasing_slur_engraver" | 233 \consists "Phrasing_slur_engraver" |
234 \consists "Cluster_spanner_engraver" | 234 \consists "Cluster_spanner_engraver" |
235 \consists "Slur_engraver" | 235 \consists "Slur_engraver" |
236 \consists "Tie_engraver" | 236 \consists "Tie_engraver" |
237 \consists "Tuplet_engraver" | 237 \consists "Tuplet_engraver" |
238 \consists "Grace_engraver" | 238 \consists "Grace_engraver" |
239 \consists "Instrument_switch_engraver" | 239 \consists "Instrument_switch_engraver" |
240 \consists "Skip_event_swallow_translator" | 240 \consists "Skip_event_swallow_translator" |
241 } | 241 } |
242 | 242 |
243 \context{ | 243 \context{ |
244 \Voice | 244 \Voice |
245 | 245 |
246 \name CueVoice | 246 \name CueVoice |
247 \alias Voice | 247 \alias Voice |
248 fontSize = #-4 | 248 fontSize = #-4 |
249 \override Stem #'length-fraction = #(magstep -4) | 249 \override Stem #'length-fraction = #(magstep -4) |
250 \override Beam #'length-fraction = #(magstep -4) | 250 \override Beam #'length-fraction = #(magstep -4) |
251 \override Beam #'thickness = #0.35 | 251 \override Beam #'thickness = #0.35 |
252 } | 252 } |
253 | 253 |
254 \context { | 254 \context { |
255 \Voice | 255 \Voice |
(...skipping 15 matching lines...) Expand all Loading... |
271 | 271 |
272 \remove "Cluster_spanner_engraver" | 272 \remove "Cluster_spanner_engraver" |
273 | 273 |
274 \consists "Skip_event_swallow_translator" | 274 \consists "Skip_event_swallow_translator" |
275 } | 275 } |
276 | 276 |
277 \context{ | 277 \context{ |
278 \type "Engraver_group" | 278 \type "Engraver_group" |
279 \name GrandStaff | 279 \name GrandStaff |
280 localKeySignature = #'() | 280 localKeySignature = #'() |
281 | 281 |
282 \description "A group of staves, with a brace on the left | 282 \description "A group of staves, with a brace on the left |
283 side, grouping the staves together. The bar lines of the | 283 side, grouping the staves together. The bar lines of the |
284 contained staves are connected vertically." | 284 contained staves are connected vertically." |
285 | 285 |
286 \consists "Span_bar_engraver" | 286 \consists "Span_bar_engraver" |
287 \consists "Span_arpeggio_engraver" | 287 \consists "Span_arpeggio_engraver" |
288 \consists "System_start_delimiter_engraver" | 288 \consists "System_start_delimiter_engraver" |
289 systemStartDelimiter = #'SystemStartBrace | 289 systemStartDelimiter = #'SystemStartBrace |
290 | 290 |
291 \defaultchild "Staff" | 291 \defaultchild "Staff" |
292 \accepts "Staff" | 292 \accepts "Staff" |
293 \accepts "FiguredBass" | 293 \accepts "FiguredBass" |
294 } | 294 } |
295 | 295 |
296 \context{ | 296 \context{ |
297 \GrandStaff | 297 \GrandStaff |
298 \name "PianoStaff" | 298 \name "PianoStaff" |
299 \alias "GrandStaff" | 299 \alias "GrandStaff" |
300 | 300 |
301 \description "Just like @code{GrandStaff} but with support for | 301 \description "Just like @code{GrandStaff} but with support for |
302 instrument names at the start of each system." | 302 instrument names at the start of each system." |
303 | 303 |
304 \consists "Instrument_name_engraver" | 304 \consists "Instrument_name_engraver" |
305 | 305 |
306 instrumentName = #'() | 306 instrumentName = #'() |
307 shortInstrumentName = #'() | 307 shortInstrumentName = #'() |
308 } | 308 } |
309 | 309 |
310 \context { | 310 \context { |
311 \type "Engraver_group" | 311 \type "Engraver_group" |
312 \name "StaffGroup" | 312 \name "StaffGroup" |
313 | 313 |
314 \consists "Span_bar_engraver" | 314 \consists "Span_bar_engraver" |
315 \consists "Span_arpeggio_engraver" | 315 \consists "Span_arpeggio_engraver" |
316 \consists "Output_property_engraver"» | 316 \consists "Output_property_engraver" |
317 systemStartDelimiter = #'SystemStartBracket | 317 systemStartDelimiter = #'SystemStartBracket |
318 | 318 |
319 \consists "System_start_delimiter_engraver" | 319 \consists "System_start_delimiter_engraver" |
320 | 320 |
321 \defaultchild "Staff" | 321 \defaultchild "Staff" |
322 \accepts "Staff" | 322 \accepts "Staff" |
323 \accepts "RhythmicStaff" | 323 \accepts "RhythmicStaff" |
324 \accepts "DrumStaff" | 324 \accepts "DrumStaff" |
325 \accepts "GrandStaff" | 325 \accepts "GrandStaff" |
326 \accepts "PianoStaff" | 326 \accepts "PianoStaff" |
327 \accepts "TabStaff"» | 327 \accepts "TabStaff" |
328 \accepts "Lyrics" | 328 \accepts "Lyrics" |
329 \accepts "ChordNames" | 329 \accepts "ChordNames" |
330 \accepts "FiguredBass" | 330 \accepts "FiguredBass" |
331 \accepts "ChoirStaff" | 331 \accepts "ChoirStaff" |
332 \accepts "StaffGroup" | 332 \accepts "StaffGroup" |
333 | 333 |
334 \description "Groups staves while adding a bracket on the left | 334 \description "Groups staves while adding a bracket on the left |
335 side, grouping the staves together. The bar lines of the contained | 335 side, grouping the staves together. The bar lines of the contained |
336 staves are connected vertically. @code{StaffGroup} only consists of | 336 staves are connected vertically. @code{StaffGroup} only consists of |
337 a collection of staves, with a bracket in front and spanning bar lines." | 337 a collection of staves, with a bracket in front and spanning bar lines." |
338 } | 338 } |
339 | 339 |
340 \context{ | 340 \context{ |
341 \type "Engraver_group" | 341 \type "Engraver_group" |
342 \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.75 . 2.0) | 342 \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.75 . 2.0) |
343 | 343 |
344 \description "Corresponds to a voice with lyrics. Handles the | 344 \description "Corresponds to a voice with lyrics. Handles the |
345 printing of a single line of lyrics." | 345 printing of a single line of lyrics." |
346 | 346 |
347 \name "Lyrics" | 347 \name "Lyrics" |
348 instrumentName = #'() | 348 instrumentName = #'() |
349 shortInstrumentName = #'() | 349 shortInstrumentName = #'() |
350 | 350 |
351 \consists "Lyric_engraver" | 351 \consists "Lyric_engraver" |
352 \consists "Extender_engraver" | 352 \consists "Extender_engraver" |
353 \consists "Hyphen_engraver" | 353 \consists "Hyphen_engraver" |
354 \consists "Stanza_number_engraver" | 354 \consists "Stanza_number_engraver" |
355 \consists "Instrument_name_engraver" | 355 \consists "Instrument_name_engraver" |
356 \consists "Skip_event_swallow_translator" | 356 \consists "Skip_event_swallow_translator" |
357 \consists "Font_size_engraver" | 357 \consists "Font_size_engraver" |
358 \consists "Hara_kiri_engraver" | 358 \consists "Hara_kiri_engraver" |
359 | 359 |
360 \override VerticalAxisGroup #'remove-first = ##t | 360 \override VerticalAxisGroup #'remove-first = ##t |
361 \override VerticalAxisGroup #'remove-empty = ##t | 361 \override VerticalAxisGroup #'remove-empty = ##t |
362 \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t | 362 \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t |
363 \override SeparationItem #'padding = #0.2 | 363 \override SeparationItem #'padding = #0.2 |
364 \override InstrumentName #'self-alignment-Y = ##f | 364 \override InstrumentName #'self-alignment-Y = ##f |
365 | 365 |
366 %% sync with define-grobs.scm ; | 366 %% sync with define-grobs.scm ; |
367 \override InstrumentName #'font-size = #1.0 | 367 \override InstrumentName #'font-size = #1.0 |
368 | 368 |
369 %% make sure that barlines aren't collapsed, when | 369 %% make sure that barlines aren't collapsed, when |
370 %% Bar_engraver is there. | 370 %% Bar_engraver is there. |
371 \override BarLine #'bar-size = #0.1 | 371 \override BarLine #'bar-size = #0.1 |
372 | 372 |
373 } | 373 } |
374 | 374 |
375 \context { | 375 \context { |
376 \type "Engraver_group" | 376 \type "Engraver_group" |
377 \name NoteNames | 377 \name NoteNames |
378 \consists "Axis_group_engraver" | 378 \consists "Axis_group_engraver" |
379 | 379 |
380 \override VerticalAxisGroup #'minimum-Y-extent = ##f | 380 \override VerticalAxisGroup #'minimum-Y-extent = ##f |
381 | 381 |
382 | 382 |
383 \consists "Rest_swallow_translator" | 383 \consists "Rest_swallow_translator" |
384 \consists "Skip_event_swallow_translator" | 384 \consists "Skip_event_swallow_translator" |
385 \consists "Tie_engraver" | 385 \consists "Tie_engraver" |
386 \consists "Note_name_engraver" | 386 \consists "Note_name_engraver" |
387 \consists "Separating_line_group_engraver" | 387 \consists "Separating_line_group_engraver" |
388 } | 388 } |
389 | 389 |
390 \context { | 390 \context { |
391 \type "Engraver_group" | 391 \type "Engraver_group" |
392 \name ChordNames | 392 \name ChordNames |
393 \description "Typesets chord names." | 393 \description "Typesets chord names." |
394 | 394 |
395 \consists "Rest_swallow_translator" | 395 \consists "Rest_swallow_translator" |
396 \consists "Output_property_engraver"» | 396 \consists "Output_property_engraver" |
397 \consists "Separating_line_group_engraver" | 397 \consists "Separating_line_group_engraver" |
398 \consists "Chord_name_engraver" | 398 \consists "Chord_name_engraver" |
399 \consists "Skip_event_swallow_translator" | 399 \consists "Skip_event_swallow_translator" |
400 \consists "Hara_kiri_engraver" | 400 \consists "Hara_kiri_engraver" |
401 % \consists "Note_spacing_engraver" | 401 % \consists "Note_spacing_engraver" |
402 \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) | 402 \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) |
403 \override VerticalAxisGroup #'remove-first = ##t | 403 \override VerticalAxisGroup #'remove-first = ##t |
404 \override VerticalAxisGroup #'remove-empty = ##t | 404 \override VerticalAxisGroup #'remove-empty = ##t |
405 } | 405 } |
406 | 406 |
407 | 407 |
408 RemoveEmptyStaffContext= \context { | 408 RemoveEmptyStaffContext= \context { |
409 \Staff | 409 \Staff |
410 \remove "Axis_group_engraver" | 410 \remove "Axis_group_engraver" |
411 \consists "Hara_kiri_engraver" | 411 \consists "Hara_kiri_engraver" |
412 \override Beam #'auto-knee-gap = #'() | 412 \override Beam #'auto-knee-gap = #'() |
413 \override VerticalAxisGroup #'remove-empty = ##t | 413 \override VerticalAxisGroup #'remove-empty = ##t |
414 } | 414 } |
415 | 415 |
416 AncientRemoveEmptyStaffContext = \context { | 416 AncientRemoveEmptyStaffContext = \context { |
417 %% why not add by default? | 417 %% why not add by default? |
418 | 418 |
419 \RemoveEmptyStaffContext | 419 \RemoveEmptyStaffContext |
420 \accepts "VaticanaVoice" | 420 \accepts "VaticanaVoice" |
421 \accepts "GregorianTranscriptionVoice" | 421 \accepts "GregorianTranscriptionVoice" |
422 \accepts "MensuralVoice" | 422 \accepts "MensuralVoice" |
423 } | 423 } |
424 | 424 |
425 \context { | 425 \context { |
426 \type "Score_engraver" | 426 \type "Score_engraver" |
427 \name "Score" | 427 \name "Score" |
428 | 428 |
429 \description "This is the top level notation context. No | 429 \description "This is the top level notation context. No |
430 other context can contain a @code{Score} context. This context | 430 other context can contain a @code{Score} context. This context |
431 handles the administration of time signatures. It also makes sure | 431 handles the administration of time signatures. It also makes sure |
432 that items such as clefs, time signatures, and key-signatures are | 432 that items such as clefs, time signatures, and key-signatures are |
433 aligned across staves. | 433 aligned across staves. |
434 | 434 |
435 You cannot explicitly instantiate a @code{Score} context (since it | 435 You cannot explicitly instantiate a @code{Score} context (since it |
436 is not contained in any other context). It is instantiated | 436 is not contained in any other context). It is instantiated |
437 automatically when an output definition (a @code{\score} or | 437 automatically when an output definition (a @code{\score} or |
438 @code{\layout} block) is processed." | 438 @code{\layout} block) is processed." |
439 | 439 |
440 \consists "Paper_column_engraver" | 440 \consists "Paper_column_engraver" |
441 \consists "Vertically_spaced_contexts_engraver" | 441 \consists "Vertically_spaced_contexts_engraver" |
442 \consists "Repeat_acknowledge_engraver" | 442 \consists "Repeat_acknowledge_engraver" |
443 \consists "Staff_collecting_engraver" | 443 \consists "Staff_collecting_engraver" |
444 | 444 |
445 %% move the alias along with the engraver. | 445 %% move the alias along with the engraver. |
446 | 446 |
447 \consists "Timing_translator" | 447 \consists "Timing_translator" |
448 \consists "Default_bar_line_engraver" | 448 \consists "Default_bar_line_engraver" |
449 \consists "Output_property_engraver" | 449 \consists "Output_property_engraver" |
450 \consists "System_start_delimiter_engraver" | 450 \consists "System_start_delimiter_engraver" |
451 \consists "Mark_engraver" | 451 \consists "Mark_engraver" |
452 \consists "Volta_engraver" | 452 \consists "Volta_engraver" |
453 \consists "Metronome_mark_engraver"» | 453 \consists "Metronome_mark_engraver" |
454 \consists "Break_align_engraver" | 454 \consists "Break_align_engraver" |
455 \consists "Spacing_engraver" | 455 \consists "Spacing_engraver" |
456 \consists "Grace_spacing_engraver" | 456 \consists "Grace_spacing_engraver" |
457 \consists "Vertical_align_engraver" | 457 \consists "Vertical_align_engraver" |
458 \consists "Stanza_number_align_engraver" | 458 \consists "Stanza_number_align_engraver" |
459 \consists "Bar_number_engraver" | 459 \consists "Bar_number_engraver" |
460 \consists "Parenthesis_engraver" | 460 \consists "Parenthesis_engraver" |
461 | 461 |
462 \defaultchild "Staff" | 462 \defaultchild "Staff" |
463 | 463 |
464 \accepts "FretBoards" | 464 \accepts "FretBoards" |
465 \accepts "Staff" | 465 \accepts "Staff" |
466 \accepts "RhythmicStaff" | 466 \accepts "RhythmicStaff" |
467 \accepts "TabStaff" | 467 \accepts "TabStaff" |
468 \accepts "VaticanaStaff" | 468 \accepts "VaticanaStaff" |
469 \accepts "GregorianTranscriptionStaff" | 469 \accepts "GregorianTranscriptionStaff" |
470 \accepts "MensuralStaff" | 470 \accepts "MensuralStaff" |
471 \accepts "StaffGroup" | 471 \accepts "StaffGroup" |
472 \accepts "DrumStaff" | 472 \accepts "DrumStaff" |
473 \accepts "Lyrics" | 473 \accepts "Lyrics" |
474 \accepts "ChordNames" | 474 \accepts "ChordNames" |
475 \accepts "GrandStaff" | 475 \accepts "GrandStaff" |
476 \accepts "ChoirStaff" | 476 \accepts "ChoirStaff" |
477 \accepts "PianoStaff" | 477 \accepts "PianoStaff" |
478 \accepts "Devnull" | 478 \accepts "Devnull" |
479 \accepts "NoteNames" | 479 \accepts "NoteNames" |
480 \accepts "FiguredBass" | 480 \accepts "FiguredBass" |
481 | 481 |
482 | 482 |
483 noteToFretFunction = #determine-frets | 483 noteToFretFunction = #determine-frets |
484 soloText = #"Solo" | 484 soloText = #"Solo" |
485 soloIIText = #"Solo II" | 485 soloIIText = #"Solo II" |
486 aDueText = #"a2" | 486 aDueText = #"a2" |
487 printPartCombineTexts = ##t | 487 printPartCombineTexts = ##t |
488 systemStartDelimiter =#'SystemStartBar | 488 systemStartDelimiter =#'SystemStartBar |
489 | 489 |
490 drumStyleTable = #drums-style | 490 drumStyleTable = #drums-style |
491 | 491 |
492 melismaBusyProperties = #default-melisma-properties | 492 melismaBusyProperties = #default-melisma-properties |
493 tieWaitForNote = ##f | 493 tieWaitForNote = ##f |
494 clefGlyph = #"clefs.G" | 494 clefGlyph = #"clefs.G" |
495 clefPosition = #-2 | 495 clefPosition = #-2 |
496 middleCClefPosition = #-6 | 496 middleCClefPosition = #-6 |
497 middleCPosition = #-6 | 497 middleCPosition = #-6 |
498 firstClef = ##t | 498 firstClef = ##t |
499 | 499 |
500 crescendoSpanner = #'hairpin | 500 crescendoSpanner = #'hairpin |
501 decrescendoSpanner = #'hairpin | 501 decrescendoSpanner = #'hairpin |
502 | 502 |
503 defaultBarType = #"|" | 503 defaultBarType = #"|" |
504 doubleRepeatType = #":|:" | 504 doubleRepeatType = #":|:" |
505 barNumberVisibility = #first-bar-number-invisible | 505 barNumberVisibility = #first-bar-number-invisible |
506 automaticBars = ##t | 506 automaticBars = ##t |
507 | 507 |
508 explicitClefVisibility = #all-visible | 508 explicitClefVisibility = #all-visible |
509 explicitKeySignatureVisibility = #all-visible | 509 explicitKeySignatureVisibility = #all-visible |
510 implicitTimeSignatureVisibility = #end-of-line-invisible | 510 implicitTimeSignatureVisibility = #end-of-line-invisible |
511 | 511 |
512 repeatCountVisibility = #all-repeat-counts-visible | 512 repeatCountVisibility = #all-repeat-counts-visible |
513 | 513 |
514 % autoBeamSettings = #default-auto-beam-settings | |
515 % beamSettings = #`((auto-beam . ,default-auto-beam-settings) | |
516 % (beam-subdivide . ,default-beam-subdivide-settings)) | |
517 beamSettings = #default-beam-settings | 514 beamSettings = #default-beam-settings |
518 autoBeaming = ##t | 515 autoBeaming = ##t |
519 autoBeamCheck = #default-auto-beam-check | 516 autoBeamCheck = #default-auto-beam-check |
520 scriptDefinitions = #default-script-alist | 517 scriptDefinitions = #default-script-alist |
521 | 518 |
522 pedalSustainStrings = #'("Ped." "*Ped." "*") | 519 pedalSustainStrings = #'("Ped." "*Ped." "*") |
523 pedalSustainStyle = #'text | 520 pedalSustainStyle = #'text |
524 pedalUnaCordaStrings = #'("una corda" "" "tre corde") | 521 pedalUnaCordaStrings = #'("una corda" "" "tre corde") |
525 pedalUnaCordaStyle = #'text | 522 pedalUnaCordaStyle = #'text |
526 | 523 |
527 %% These are in ordinary italic font, including the *, | 524 %% These are in ordinary italic font, including the *, |
528 %% but they are unlikely to be used, | 525 %% but they are unlikely to be used, |
529 %% as the default pedal-style for SostenutoPedal is 'mixed': | 526 %% as the default pedal-style for SostenutoPedal is 'mixed': |
530 %% i.e. Sost. Ped_____________________ | 527 %% i.e. Sost. Ped_____________________ |
531 pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*") | 528 pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*") |
532 pedalSostenutoStyle = #'mixed | 529 pedalSostenutoStyle = #'mixed |
533 | 530 |
534 harmonicAccidentals = ##t | 531 harmonicAccidentals = ##t |
535 fingeringOrientations = #'(up down) | 532 fingeringOrientations = #'(up down) |
536 stringNumberOrientations = #'(up down) | 533 stringNumberOrientations = #'(up down) |
537 strokeFingerOrientations = #'(right) | 534 strokeFingerOrientations = #'(right) |
538 | 535 |
539 lyricMelismaAlignment = #LEFT | 536 lyricMelismaAlignment = #LEFT |
540 markFormatter = #format-mark-letters | 537 markFormatter = #format-mark-letters |
541 rehearsalMark = #1 | 538 rehearsalMark = #1 |
542 subdivideBeams = ##f | 539 subdivideBeams = ##f |
543 extraNatural = ##t | 540 extraNatural = ##t |
544 autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)) | 541 autoAccidentals = #`(Staff ,(make-accidental-rule 'same-octave 0)) |
545 autoCautionaries = #'() | 542 autoCautionaries = #'() |
546 | 543 |
547 printKeyCancellation = ##t | 544 printKeyCancellation = ##t |
548 keyAlterationOrder = #`( | 545 keyAlterationOrder = #`( |
549 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT)
(3 . ,FLAT) | 546 (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT)
(3 . ,FLAT) |
550 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP
) (6 . ,SHARP) | 547 (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP
) (6 . ,SHARP) |
551 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT)
(4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT) | 548 (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT)
(4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT) |
552 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SH
ARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP) | 549 (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SH
ARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP) |
553 ) | 550 ) |
554 | 551 |
555 barCheckSynchronize = ##f | 552 barCheckSynchronize = ##f |
556 | 553 |
557 %% chord names: | 554 %% chord names: |
558 chordNameFunction = #ignatzek-chord-names | 555 chordNameFunction = #ignatzek-chord-names |
559 majorSevenSymbol = #whiteTriangleMarkup | 556 majorSevenSymbol = #whiteTriangleMarkup |
560 chordNameSeparator = #(make-simple-markup "/") | 557 chordNameSeparator = #(make-simple-markup "/") |
561 chordNameExceptions = #ignatzekExceptions | 558 chordNameExceptions = #ignatzekExceptions |
562 chordNoteNamer = #'() | 559 chordNoteNamer = #'() |
563 chordRootNamer = #note-name->markup | 560 chordRootNamer = #note-name->markup |
564 chordPrefixSpacer = #0 | 561 chordPrefixSpacer = #0 |
565 chordNameExceptionsFull = #fullJazzExceptions | 562 chordNameExceptionsFull = #fullJazzExceptions |
566 chordNameExceptionsPartial = #partialJazzExceptions | 563 chordNameExceptionsPartial = #partialJazzExceptions |
(...skipping 34 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
601 (Voice Fingering font-size -8) | 598 (Voice Fingering font-size -8) |
602 (Voice StringNumber font-size -8) | 599 (Voice StringNumber font-size -8) |
603 ) | 600 ) |
604 | 601 |
605 keepAliveInterfaces = #'( | 602 keepAliveInterfaces = #'( |
606 rhythmic-grob-interface | 603 rhythmic-grob-interface |
607 lyric-interface | 604 lyric-interface |
608 percent-repeat-item-interface | 605 percent-repeat-item-interface |
609 percent-repeat-interface | 606 percent-repeat-interface |
610 | 607 |
611 ;; need this, as stanza numbers are items, and appear only once. | 608 ;; need this, as stanza numbers are items, and appear only once. |
612 stanza-number-interface | 609 stanza-number-interface |
613 ) | 610 ) |
614 quotedEventTypes = #'( | 611 quotedEventTypes = #'( |
615 note-event | 612 note-event |
616 rest-event | 613 rest-event |
617 tie-event | 614 tie-event |
618 beam-event | 615 beam-event |
619 tuplet-span-event) | 616 tuplet-span-event) |
620 instrumentTransposition = #(ly:make-pitch 0 0 0) | 617 instrumentTransposition = #(ly:make-pitch 0 0 0) |
621 | 618 |
622 verticallySpacedContexts = #'(Staff) | 619 verticallySpacedContexts = #'(Staff) |
623 | 620 |
624 timing = ##t | 621 timing = ##t |
625 } | 622 } |
626 | 623 |
627 | 624 |
628 | 625 |
629 | 626 |
630 \context { | 627 \context { |
631 \type "Engraver_group" | 628 \type "Engraver_group" |
632 \name "FiguredBass" | 629 \name "FiguredBass" |
633 | 630 |
634 \consists "Figured_bass_engraver" | 631 \consists "Figured_bass_engraver" |
635 \consists "Note_swallow_translator" | 632 \consists "Note_swallow_translator" |
636 \consists "Skip_event_swallow_translator" | 633 \consists "Skip_event_swallow_translator" |
637 \consists "Separating_line_group_engraver" | 634 \consists "Separating_line_group_engraver" |
638 \consists "Hara_kiri_engraver" | 635 \consists "Hara_kiri_engraver" |
639 | 636 |
640 \override VerticalAxisGroup #'remove-empty = ##t | 637 \override VerticalAxisGroup #'remove-empty = ##t |
641 \override VerticalAxisGroup #'remove-first = ##t | 638 \override VerticalAxisGroup #'remove-first = ##t |
642 \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) | 639 \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 2) |
643 } | 640 } |
644 | 641 |
645 \context { | 642 \context { |
646 \name "Devnull" | 643 \name "Devnull" |
647 \type "Engraver_group" | 644 \type "Engraver_group" |
648 | 645 |
649 %% don't want to route anything out of here: | 646 %% don't want to route anything out of here: |
650 \alias "Staff" | 647 \alias "Staff" |
651 \alias "Voice" | 648 \alias "Voice" |
652 \consists "Swallow_engraver" | 649 \consists "Swallow_engraver" |
653 \description "Silently discards all musical information given to this | 650 \description "Silently discards all musical information given to this |
654 context." | 651 context." |
655 } | 652 } |
656 | 653 |
657 \context { | 654 \context { |
658 \Voice | 655 \Voice |
659 \name "TabVoice" | 656 \name "TabVoice" |
660 \alias "Voice" | 657 \alias "Voice" |
661 \consists "Tab_note_heads_engraver" | 658 \consists "Tab_note_heads_engraver" |
662 \consists "Tab_harmonic_engraver" | 659 \consists "Tab_harmonic_engraver" |
663 | 660 |
664 \remove "Note_heads_engraver" | 661 \remove "Note_heads_engraver" |
665 \remove "Fingering_engraver" | 662 \remove "Fingering_engraver" |
666 \remove "New_fingering_engraver" | 663 \remove "New_fingering_engraver" |
667 | 664 |
668 \description "Context for drawing notes in a Tab staff." | 665 \description "Context for drawing notes in a Tab staff." |
669 | 666 |
670 %% TabStaff increase the staff-space, which in turn | 667 %% TabStaff increase the staff-space, which in turn |
671 %% increases beam thickness and spacing; beams are | 668 %% increases beam thickness and spacing; beams are |
672 %% too big. We have to adjust the beam settings: | 669 %% too big. We have to adjust the beam settings: |
673 \override Beam #'thickness = #0.32 | 670 \override Beam #'thickness = #0.32 |
674 \override Beam #'length-fraction = #0.62 | 671 \override Beam #'length-fraction = #0.62 |
675 | 672 |
676 %% No accidental in tablature ! | 673 %% No accidental in tablature ! |
677 \remove "Accidental_engraver" | 674 \remove "Accidental_engraver" |
678 | 675 |
679 \override Glissando #'extra-dy = #0.75 | 676 \override Glissando #'extra-dy = #0.75 |
680 \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT) | 677 \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT) |
681 (padding . 0.3)) | 678 (padding . 0.3)) |
682 \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT) | 679 \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT) |
683 (padding . 0.3)) | 680 (padding . 0.3)) |
684 } | 681 } |
685 | 682 |
686 \context { | 683 \context { |
687 \Staff | 684 \Staff |
688 \alias "Staff" | 685 \alias "Staff" |
689 \name "TabStaff" | 686 \name "TabStaff" |
690 \denies "Voice" | 687 \denies "Voice" |
691 \consists "Tab_staff_symbol_engraver" | 688 \consists "Tab_staff_symbol_engraver" |
692 | 689 |
693 \description "Context for generating tablature. [DOCME]" | 690 \description "Context for generating tablature. [DOCME]" |
694 | 691 |
695 \accepts "TabVoice" | 692 \accepts "TabVoice" |
696 \defaultchild "TabVoice" | 693 \defaultchild "TabVoice" |
697 | 694 |
698 %% 6 strings | 695 %% 6 strings |
699 \override StaffSymbol #'staff-space = #1.5 | 696 \override StaffSymbol #'staff-space = #1.5 |
700 | 697 |
701 %% Don't draw stems over the tablature figures ! | 698 %% Don't draw stems over the tablature figures ! |
702 \override Stem #'avoid-note-head = ##t | 699 \override Stem #'avoid-note-head = ##t |
703 | 700 |
704 %% No accidental in tablature ! | 701 %% No accidental in tablature ! |
705 \remove "Accidental_engraver" | 702 \remove "Accidental_engraver" |
706 \remove "Key_engraver" | 703 \remove "Key_engraver" |
707 \remove "String_number_engraver" | 704 \remove "String_number_engraver" |
708 %% Special "TAB" clef | 705 %% Special "TAB" clef |
709 clefGlyph = #"clefs.tab" | 706 clefGlyph = #"clefs.tab" |
710 clefPosition = #0 | 707 clefPosition = #0 |
711 } | 708 } |
712 | 709 |
713 %% TODO: Gregorian Chant contexts should be moved to gregorian.ly, | 710 %% TODO: Gregorian Chant contexts should be moved to gregorian.ly, |
(...skipping 191 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
905 printKeyCancellation = ##f | 902 printKeyCancellation = ##f |
906 } | 903 } |
907 | 904 |
908 | 905 |
909 RemoveEmptyRhythmicStaffContext= \context { | 906 RemoveEmptyRhythmicStaffContext= \context { |
910 \RhythmicStaff | 907 \RhythmicStaff |
911 \remove "Axis_group_engraver" | 908 \remove "Axis_group_engraver" |
912 \override VerticalAxisGroup #'remove-empty = ##t | 909 \override VerticalAxisGroup #'remove-empty = ##t |
913 \consists "Hara_kiri_engraver" | 910 \consists "Hara_kiri_engraver" |
914 } | 911 } |
LEFT | RIGHT |