ly/engraver.ly

   1 \version "1.3.122"
   2
   3 %
   4 % setup for Request->Element conversion. Guru-only
   5 %
   6
   7 StaffContext=\translator {
   8         \type "Engraver_group_engraver";
   9         \name Staff ;
  10         \consists "Output_property_engraver";
  11         Generic_property_list = #generic-staff-properties
  12         \consists "Property_engraver";
  13
  14         \consists "Multi_measure_rest_engraver";
  15
  16         \consists "Bar_engraver";
  17  % Bar_engraver must be first so default bars aren't overwritten
  18 % with empty ones.
  19
  20
  21 %       \consists "Repeat_engraver";
  22         \consists "Volta_engraver";
  23         \consists "Separating_line_group_engraver";
  24
  25
  26
  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";
  35
  36 %{
  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.
  40
  41         This is commented out, so you don't get funny things on the
  42         PianoStaff
  43         \consists "Instrument_name_engraver";
  44 %}
  45
  46         \consistsend "Axis_group_engraver";
  47
  48
  49         \accepts "Voice";
  50 }
  51
  52
  53 StaffContainerContext = \translator {
  54         \type Engraver_group_engraver;
  55         \consists "Axis_group_engraver";
  56         \accepts Staff;
  57         \name StaffContainer;
  58 }
  59
  60 ChoirStaffContext = \translator {
  61         \type "Engraver_group_engraver";
  62         \name ChoirStaff;
  63         alignmentReference = \center;
  64         \consists "System_start_delimiter_engraver";
  65         SystemStartDelimiter \override #'glyph = #'bracket
  66
  67         \accepts "Staff";
  68         \accepts "RhythmicStaff";
  69         \accepts "GrandStaff";
  70         \accepts "PianoStaff";
  71         \accepts "StaffGroup";
  72         \accepts "ChoirStaff";
  73         \accepts "Lyrics";
  74         \accepts "ChordNames";
  75 }
  76
  77
  78 RhythmicStaffContext=\translator{
  79         \type "Engraver_group_engraver";
  80
  81         \consists "Property_engraver";
  82         \consists "Output_property_engraver";
  83
  84         Generic_property_list = #generic-staff-properties
  85
  86         \consists "Pitch_squash_engraver";
  87         \consists "Separating_line_group_engraver";
  88         \name RhythmicStaff;
  89         Bar \override #'bar-size = #4
  90         VoltaBracket \override #'minimum-space =  #15  % urg, in \pt
  91         VoltaBracket \override #'padding =  #5  % urg, in \pt
  92         StaffSymbol \override #'line-count = #1
  93
  94 %       \consists "Repeat_engraver";
  95         \consists "Volta_engraver";
  96         \consists "Bar_engraver";
  97         \consists "Time_signature_engraver";
  98         \consists "Staff_symbol_engraver";
  99         \consistsend "Axis_group_engraver";
 100         \accepts "Voice";
 101 }
 102
 103
 104 VoiceContext = \translator {
 105         \type "Engraver_group_engraver";
 106         \name Voice;
 107
 108         Generic_property_list = #generic-voice-properties
 109
 110         % must come before all
 111         \consists "Voice_devnull_engraver";
 112         \consists "Output_property_engraver";
 113         \consists "Arpeggio_engraver";
 114
 115         \consists "Text_spanner_engraver";
 116         \consists "Property_engraver";
 117
 118         \consists "Breathing_sign_engraver";
 119         \consists "Rest_engraver";
 120         \consists "Dot_column_engraver";
 121         \consists "Stem_engraver";
 122         \consists "Beam_engraver";
 123         \consists "Auto_beam_engraver";
 124
 125         \consists "Chord_tremolo_engraver";
 126         \consists "Percent_repeat_engraver";
 127         \consists "Melisma_engraver";
 128
 129 %{
 130  Must come before text_engraver, but after note_column engraver.
 131
 132 %}
 133         \consists "Dynamic_engraver";
 134         \consists "Text_engraver";
 135
 136         \consists "Script_engraver";
 137         \consists "Script_column_engraver";
 138         \consists "Rhythmic_column_engraver";
 139         \consists "Phrasing_slur_engraver";
 140         \consists "Slur_engraver";
 141         \consists "Tie_engraver";
 142         \consists "Tuplet_engraver";
 143         \consists "Grace_position_engraver";
 144         \consists "A2_engraver";
 145
 146         \consists "Skip_req_swallow_translator";
 147         \accepts Thread; % bug if you leave out this!
 148         \accepts Grace;
 149 }
 150
 151 GraceContext=\translator {
 152         \type "Grace_engraver_group";
 153         \name "Grace";
 154         \consists "Output_property_engraver";
 155
 156         Generic_property_list = #generic-grace-properties
 157
 158         \consists "Note_heads_engraver";
 159         \consists "Local_key_engraver";
 160         \consists "Stem_engraver";
 161         \consists "Beam_engraver";
 162         \consists "Slur_engraver";
 163
 164         \consists "Auto_beam_engraver";
 165         \consists "Align_note_column_engraver";
 166
 167         \consists "Rhythmic_column_engraver";
 168
 169         \consists "Dynamic_engraver";% in Grace ???
 170         \consists "Text_engraver"; % in Grace ???
 171
 172         \consists "Property_engraver";
 173
 174         Stem \override  #'flag-style = #"grace"
 175         Stem \override  #'stem-length = #6.0
 176         Stem \override  #'direction = #1
 177
 178         NoteHead \override #'font-relative-size = #-1
 179         Stem \override #'font-relative-size = #-1
 180         Stem \override #'stem-shorten = #'(0)
 181         Beam \override #'font-relative-size = #-1
 182         TextScript \override #'font-relative-size = #-1
 183         Slur \override #'font-relative-size = #-1
 184         Accidentals \override #'font-relative-size = #-1
 185         Beam \override #'thickness = #0.3
 186         Beam \override #'space-function = #(lambda (x) 0.5)
 187
 188         Stem \override #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
 189         Stem \override #'beamed-lengths =
 190                 #'(0.0 2.5 2.0 1.5)
 191         Stem \override #'beamed-minimum-lengths
 192                  = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
 193
 194         weAreGraceContext = ##t
 195         graceAccidentalSpace= 1.5 ; % in staff space
 196 }
 197
 198 ThreadContext = \translator{
 199         \type Engraver_group_engraver;
 200         \name Thread;
 201
 202         \consists "Thread_devnull_engraver";
 203         \consists "Note_heads_engraver";
 204         \consists "Note_head_line_engraver";
 205         \consists "Output_property_engraver";
 206         Generic_property_list = #generic-thread-properties
 207         \consists "Property_engraver";
 208 }
 209
 210 GrandStaffContext=\translator{
 211         \type "Engraver_group_engraver";
 212         \name GrandStaff;
 213         \consists "Span_bar_engraver";
 214         \consists "Span_arpeggio_engraver";
 215         \consists "System_start_delimiter_engraver";
 216         SystemStartDelimiter \override #'glyph = #'brace
 217
 218         \consists "Property_engraver";
 219         Generic_property_list = #generic-grand-staff-properties
 220         \accepts "Staff";
 221 }
 222
 223 PianoStaffContext = \translator{
 224         \GrandStaffContext
 225         \name "PianoStaff";
 226
 227         \consists "Vertical_align_engraver";
 228
 229         alignmentReference = \center;
 230         verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
 231         VerticalAlignment \override #'forced-distance = #12
 232
 233 %       \consistsend "Axis_group_engraver";
 234 }
 235
 236 StaffGroupContext= \translator {
 237         \type "Engraver_group_engraver";
 238         \name StaffGroup;
 239
 240         \consists "Span_bar_engraver";
 241         \consists "Span_arpeggio_engraver";
 242         \consists "Output_property_engraver";
 243         SystemStartDelimiter \override #'glyph = #'bracket
 244
 245         \consists "System_start_delimiter_engraver";
 246         \accepts "Staff";
 247         \accepts "RhythmicStaff";
 248         \accepts "GrandStaff";
 249         \accepts "PianoStaff";
 250         \accepts "StaffGroup";
 251         \accepts "ChoirStaff";
 252
 253         \accepts "Lyrics";
 254         \accepts "ChordNames";
 255 }
 256
 257
 258 % UGH! JUNKME
 259 LyricsVoiceContext= \translator{
 260         \type "Engraver_group_engraver";
 261         \consistsend "Axis_group_engraver";
 262         LyricsVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
 263
 264         \name LyricsVoice ;
 265         \consists "Separating_line_group_engraver";
 266         \consists "Lyric_engraver";
 267         \consists "Extender_engraver";
 268         \consists "Hyphen_engraver";
 269         \consists "Stanza_number_engraver";
 270         phrasingPunctuation = #".,;:!?\""
 271
 272 }
 273 NoteNamesContext = \translator {
 274         \type "Engraver_group_engraver";
 275         \name NoteNames;
 276         \consistsend "Axis_group_engraver";
 277         \consists "Note_name_engraver";
 278         \consists "Separating_line_group_engraver";
 279 }
 280
 281 LyricsContext = \translator {
 282         \type "Engraver_group_engraver";
 283         \name Lyrics;
 284         \consists Vertical_align_engraver; %need this for getting folded repeats right.
 285         Generic_property_list = #generic-lyrics-properties
 286         \consists "Property_engraver";
 287         \consistsend "Axis_group_engraver";
 288
 289         \accepts "LyricsVoice";
 290 }
 291
 292 ChordNamesVoiceContext = \translator {
 293         \type "Engraver_group_engraver";
 294         \name ChordNamesVoice ;
 295
 296         \consists "Output_property_engraver";
 297         \consistsend "Axis_group_engraver";
 298         \consists "Separating_line_group_engraver";
 299         \consists "Chord_name_engraver";
 300         \consists "Skip_req_swallow_translator";
 301 }
 302
 303 ChordNamesContext = \translator {
 304         \type "Engraver_group_engraver";
 305         \name ChordNames;
 306
 307         Generic_property_list = #generic-chord-staff-properties
 308
 309         \consists "Property_engraver";
 310         \consists "Output_property_engraver";
 311         \accepts "ChordNamesVoice";
 312
 313         VerticalAxisGroup \override #'invisible-staff = ##t
 314         \consistsend "Axis_group_engraver";
 315         }
 316
 317
 318
 319 StupidScore = \translator {
 320         \type "Score_engraver";
 321         \name Score;
 322         \consists "Note_heads_engraver";
 323 }
 324
 325
 326
 327
 328 HaraKiriStaffContext = \translator {
 329         \StaffContext
 330         \remove "Axis_group_engraver";
 331         \consistsend "Hara_kiri_engraver";
 332         \consists "Instrument_name_engraver";
 333         \accepts "Voice";
 334 }
 335 %{
 336   The HaraKiriStaffContexts doesn't override \name,
 337   so it is still named `Staff'.
 338
 339   %\translator { \HaraKiriStaffContext }
 340 %}
 341
 342
 343
 344
 345 ScoreContext = \translator {
 346         \type Score_engraver;
 347         \name Score;
 348
 349
 350         \consists "Repeat_acknowledge_engraver";
 351         \consists "Timing_engraver";
 352         \consists "Output_property_engraver";
 353         \consists "System_start_delimiter_engraver";
 354         \consists "Mark_engraver";
 355         \consists "Break_align_engraver";
 356         \consists "Spacing_engraver";
 357         \consists "Vertical_align_engraver";
 358
 359         \consists "Lyric_phrasing_engraver";
 360         \consists "Bar_number_engraver";
 361         \consists "Span_arpeggio_engraver";
 362
 363         \accepts "Staff";
 364         \accepts "StaffContainer";
 365         \accepts "StaffGroup";
 366         \accepts "RhythmicStaff";
 367         \accepts "Lyrics";
 368         \accepts "ChordNames";
 369         \accepts "GrandStaff";
 370         \accepts "ChoirStaff";
 371         \accepts "PianoStaff";
 372         \accepts "NoteNames";
 373
 374         soloText = #"Solo"
 375         soloIIText = #"Solo II"
 376         aDueText = #"\\`a2"
 377         soloADue = ##t
 378         splitInterval = #'(0 . 1)
 379         changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
 380
 381         StaffMinimumVerticalExtent = #(cons -4.0 4.0)
 382
 383         barAuto = ##t
 384         voltaVisibility = ##t
 385         %  name, glyph id, clef position
 386         % where is c0 in this clef?
 387         clefPitches = #'(("clefs-G" . -4)
 388           ("clefs-C" . 0)
 389           ("clefs-F" . 4)
 390           ("clefs-vaticana_do" . 0)
 391           ("clefs-vaticana_fa" . 4)
 392           ("clefs-medicaea_do" . 0)
 393           ("clefs-medicaea_fa" . 4)
 394           ("clefs-hufnagel_do" . 0)
 395           ("clefs-hufnagel_fa" . 4)
 396           ("clefs-hufnagel_do_fa" . 0)
 397           ("clefs-mensural1_c" . 0)
 398           ("clefs-mensural2_c" . 0)
 399           ("clefs-mensural3_c" . 0)
 400           ("clefs-mensural1_f" . 4)
 401           ("clefs-mensural2_f" . 4)
 402           ("clefs-mensural_g" . -4))
 403
 404         clefGlyph = #"clefs-G"
 405         clefPosition = #-2
 406
 407         automaticPhrasing = ##t;
 408         alignmentReference = \down;
 409         defaultBarType = #"|"
 410
 411         explicitClefVisibility = #all-visible
 412         explicitKeySignatureVisibility = #all-visible
 413
 414         scriptDefinitions = #default-script-alist
 415
 416         verticalAlignmentChildCallback = #Align_interface::alignment_callback
 417
 418         pedalSustainStrings = #'("Ped." "*Ped." "*")
 419         pedalUnaChordaStrings = #'("una chorda" "" "tre chorde")
 420         pedalSostenutoStrings = #'()  % FIXME
 421
 422         tupletNumberFormatFunction = #denominator-tuplet-formatter
 423
 424        keyAccidentalOrder = #'(
 425          (6 . -1) (2  . -1) (5 . -1 ) (1  . -1) (4  . -1) (0  . -1) (3  . -1)
 426          (3  . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
 427        )
 428         breakAlignOrder = #'(
 429           Instrument_name
 430           Left_edge_item
 431           Span_bar
 432           Breathing_sign
 433           Clef_item
 434           Key_item
 435           Staff_bar
 436           Time_signature
 437           Custos
 438           Stanza_number
 439         )
 440
 441
 442         \elementdescriptions #all-grob-descriptions
 443 }
 444
 445 OrchestralScoreContext= \translator {
 446         \ScoreContext
 447 }
 448 EasyNotation =  \translator {
 449         \ScoreContext
 450         NoteHead \override #'molecule-callback = #Note_head::brew_ez_molecule
 451         easyPlay = ##t
 452 }
 453