ly/engraver.ly

   1 %
   2 % setup for Request->Element conversion. Guru-only
   3 %
   4
   5 StaffContext=\translator {
   6         \type "Engraver_group_engraver";
   7         \name Staff ;
   8         \consists "Output_property_engraver";
   9         barAuto = ##t
  10         voltaVisibility = ##t
  11         Generic_property_list = #generic-staff-properties
  12         \consists "Property_engraver";
  13
  14         \consists "Multi_measure_rest_engraver";
  15         \consists "Bar_engraver";
  16  % Bar_engraver must be first so default bars aren't overwritten
  17 % with empty ones.
  18
  19         voltaPadding = #5  % urg, in \pt
  20         voltaMinimumSpace = #25  % urg, in \pt
  21
  22         StaffMinimumVerticalExtent = #(cons -4.0 4.0)
  23
  24         \consists "Repeat_engraver";
  25
  26
  27         %  name, glyph id, c0 position
  28         supportedClefTypes = #'(
  29           ("treble" . ("clefs-G" -2))
  30           ("violin" . ("clefs-G" -2))
  31           ("G" . ("clefs-G" -2))
  32           ("G2" . ("clefs-G" -2))
  33           ("french" . ("clefs-G" -4 ))
  34           ("soprano" . ("clefs-C" -4 ))
  35           ("mezzosoprano" . ("clefs-C" -2 ))
  36           ("alto" . ("clefs-C" 0 ))
  37           ("tenor" . ("clefs-C" 2 ))
  38           ("baritone" . ("clefs-C" 4 ))
  39           ("varbaritone"  . ("clefs-F" 0))
  40           ("bass" . ("clefs-F" 2 ))
  41           ("F" . ( "clefs-F" 2))
  42           ("subbass" . ("clefs-F" 4))
  43         )
  44         % where is c0 in this clef?
  45         clefPitches = #'(("clefs-G" . -4)
  46           ("clefs-C" . 0)
  47           ("clefs-F" . 4))
  48
  49         \consists "Clef_engraver";
  50         \consists "Key_engraver";
  51         \consists "Time_signature_engraver";
  52         \consists "Staff_symbol_engraver";
  53         \consists "Collision_engraver";
  54         \consists "Rest_collision_engraver";
  55         \consists "Local_key_engraver";
  56
  57         \consistsend "Axis_group_engraver";
  58
  59
  60
  61 %{
  62         The Instrument_name_engraver puts the name of the instrument
  63         (\property Staff.instrument; Staff.instr for subsequent lines)
  64         to the left of a staff.
  65         Usually, you only want this in the full score, not in the parts.
  66
  67         \consists "Instrument_name_engraver";
  68 %}
  69
  70         defaultClef = #"treble"
  71
  72         \consists "Separating_line_group_engraver";
  73
  74         \accepts "Voice";
  75         dynamicStyle = #"dynamic"
  76 };
  77
  78 \translator{\StaffContext }
  79 \translator {
  80         \type "Engraver_group_engraver";
  81         \name ChoirStaff;
  82         alignmentReference = \center;
  83         \consists "System_start_delimiter_engraver";
  84         systemStartDelimiterGlyph = #'bracket
  85
  86
  87
  88         \accepts "Staff";
  89         \accepts "RhythmicStaff";
  90         \accepts "GrandStaff";
  91         \accepts "PianoStaff";
  92
  93
  94         \accepts "Lyrics";
  95         \accepts "ChordNames";
  96 }
  97
  98
  99 RhythmicStaffContext=\translator{
 100         \type "Engraver_group_engraver";
 101         numberOfStaffLines  = #1
 102         \consists "Property_engraver";
 103         \consists "Output_property_engraver";
 104
 105         Generic_property_list = #generic-staff-properties
 106
 107         barSize =   4.0 * \interline ;
 108         \consists "Pitch_squash_engraver";
 109         \consists "Separating_line_group_engraver";
 110         \name RhythmicStaff;
 111
 112         voltaPadding = #5  % urg, in \pt
 113         voltaMinimumSpace = #15  % urg, in \pt
 114         \consists "Repeat_engraver";
 115         \consists "Bar_engraver";
 116         \consists "Time_signature_engraver";
 117         \consists "Staff_symbol_engraver";
 118         \consistsend "Axis_group_engraver";
 119         \accepts "Voice";
 120 };
 121 \translator{\RhythmicStaffContext}
 122
 123 VoiceContext = \translator {
 124         \type "Engraver_group_engraver";
 125         \name Voice;
 126
 127         dynamicPadding = #3  % urg, in \pt
 128         dynamicMinimumSpace = #6  % urg, in \pt
 129
 130         Generic_property_list = #generic-voice-properties
 131         \consists "Output_property_engraver";
 132
 133         \consists "Dynamic_engraver";   % must come before text_engraver.
 134         \consists "Property_engraver";
 135
 136         \consists "Breathing_sign_engraver";
 137         \consists "Rest_engraver";
 138         \consists "Dot_column_engraver";
 139         \consists "Stem_engraver";
 140         \consists "Beam_engraver";
 141         \consists "Auto_beam_engraver";
 142         \include "auto-beam-settings.ly";
 143
 144         \consists "Chord_tremolo_engraver";
 145         \consists "Melisma_engraver";
 146         textScriptPadding = #3.0
 147         \consists "Text_engraver";
 148
 149
 150         startSustain = #"Ped."
 151         stopSustain = #"*"
 152         stopStartSustain = #"*Ped."
 153         startUnaChorda = #"una chorda"
 154         stopUnaChorda = #"tre chorde"
 155         \consists "Piano_pedal_engraver";
 156         \consists "Script_engraver";
 157         \consists "Script_column_engraver";
 158         \consists "Rhythmic_column_engraver";
 159         \consists "Slur_engraver";
 160         \consists "Tie_engraver";
 161         \consists "Tuplet_engraver";
 162         \consists "Grace_position_engraver";
 163         \consists "Skip_req_swallow_translator";
 164         \accepts Thread; % bug if you leave out this!
 165         \accepts Grace;
 166 };
 167
 168 GraceContext=\translator {
 169         \type "Grace_engraver_group";
 170         \name "Grace";
 171         \consists "Output_property_engraver";
 172
 173         Generic_property_list = #generic-grace-properties
 174
 175         \consists "Note_heads_engraver";
 176         \consists "Local_key_engraver";
 177         \consists "Stem_engraver";
 178         \consists "Beam_engraver";
 179         \consists "Slur_engraver";
 180
 181         \consists "Auto_beam_engraver";
 182         \include "auto-beam-settings.ly";
 183         \consists "Align_note_column_engraver";
 184
 185         \consists "Rhythmic_column_engraver";
 186         \consists "Dynamic_engraver";
 187         \consists "Text_engraver";
 188
 189         \consists "Property_engraver";
 190
 191         stemStyle = #"grace"
 192         flagStyle = #"grace"
 193         weAreGraceContext = ##t
 194         fontSize = #-1
 195
 196         stemLength = #6.0
 197         verticalDirection = \up ;
 198         graceAccidentalSpace= 1.5 * \staffspace;
 199 };
 200
 201 \translator{\GraceContext}
 202 \translator {\VoiceContext}
 203
 204 ThreadContext = \translator{
 205         \type Engraver_group_engraver;
 206         \consists "Note_heads_engraver" ;
 207         \consists "Output_property_engraver";
 208         Generic_property_list = #generic-thread-properties
 209         \consists "Property_engraver";
 210         \name Thread;
 211 };
 212
 213 \translator{\ThreadContext}
 214 GrandStaffContext=\translator{
 215         \type "Engraver_group_engraver";
 216         \name GrandStaff;
 217         \consists "Span_bar_engraver";
 218         \consists "System_start_delimiter_engraver";
 219         systemStartDelimiterGlyph = #'brace
 220
 221         \consists "Property_engraver";
 222         Generic_property_list = #generic-grand-staff-properties
 223         \accepts "Staff";
 224 };
 225 \translator{\GrandStaffContext}
 226
 227 PianoStaffContext = \translator{\GrandStaffContext
 228         alignmentReference = \center;
 229
 230         \consists "Vertical_align_engraver";
 231         minVerticalAlign = 3.0*\staffheight;
 232         maxVerticalAlign = 3.0*\staffheight;
 233
 234 %       \consistsend "Axis_group_engraver";
 235         \name "PianoStaff";
 236
 237 };
 238 \translator{\PianoStaffContext}
 239 StaffGroupContext= \translator {
 240         \type "Engraver_group_engraver";
 241         \consists "Span_bar_engraver";
 242         \consists "Output_property_engraver";
 243         \consists "System_start_delimiter_engraver";
 244        systemStartDelimiterGlyph = #'bracket
 245
 246
 247
 248
 249
 250         \name StaffGroup;
 251         \accepts "Staff";
 252         \accepts "RhythmicStaff";
 253         \accepts "GrandStaff";
 254         \accepts "PianoStaff";
 255
 256         \accepts "Lyrics";
 257         \accepts "ChordNames";
 258 };
 259
 260 \translator { \StaffGroupContext }
 261
 262 % UGH! JUNKME
 263 LyricsVoiceContext= \translator{
 264         \type "Engraver_group_engraver";
 265         \consistsend "Axis_group_engraver";
 266
 267         \name LyricVoice ;
 268         \consists "Separating_line_group_engraver";
 269         \consists "Lyric_engraver";
 270         \consists "Extender_engraver";
 271         \consists "Hyphen_engraver";
 272 };
 273 \translator{ \LyricsVoiceContext }
 274
 275 LyricsContext = \translator {
 276         \type "Engraver_group_engraver";
 277         \name Lyrics;
 278         \consists Vertical_align_engraver; %need this for getting folded repeats right.
 279         Generic_property_list = #generic-lyrics-properties
 280         \consists "Property_engraver";
 281         \consistsend "Axis_group_engraver";
 282
 283         \accepts "LyricVoice";
 284 };
 285 \translator { \LyricsContext }
 286
 287 ChordNameVoiceContext = \translator {
 288         \type "Engraver_group_engraver";
 289         \name ChordNameVoice ;
 290
 291         \consists "Output_property_engraver";
 292         \consistsend "Axis_group_engraver";
 293         \consists "Separating_line_group_engraver";
 294         \consists "Chord_name_engraver";
 295 };
 296 \translator {\ChordNameVoiceContext}
 297
 298 ChordNameContext = \translator {
 299         \type "Engraver_group_engraver";
 300         \name ChordNames;
 301
 302         Generic_property_list = #generic-chord-staff-properties
 303         \consists "Property_engraver";
 304         \consists "Output_property_engraver";
 305         \accepts "ChordNameVoice";
 306         \consistsend "Axis_group_engraver";
 307         };
 308 \translator { \ChordNameContext }
 309
 310
 311 ScoreWithNumbers = \translator {
 312         \type "Score_engraver";
 313
 314         % uncomment to bar numbers on a whole system.
 315         \consists "Bar_number_engraver";
 316 };
 317
 318 StupidScore = \translator {
 319         \type "Score_engraver";
 320         \name Score;
 321         \consists "Note_heads_engraver";
 322 };
 323
 324
 325
 326 BarNumberingStaffContext = \translator {
 327         \StaffContext
 328         \consists "Mark_engraver";
 329 };
 330
 331 HaraKiriStaffContext = \translator {
 332         \StaffContext
 333         \remove "Axis_group_engraver";
 334         \consistsend "Hara_kiri_engraver";
 335         \consists "Instrument_name_engraver";
 336         \accepts "Voice";
 337 };
 338 %{
 339   The HaraKiriStaffContexts doesn't override \name,
 340   so it is still named `Staff'.
 341
 342   %\translator { \HaraKiriStaffContext }
 343 %}
 344
 345 OrchestralPartStaffContext = \translator {
 346         \StaffContext
 347         \consists "Mark_engraver";
 348 };
 349
 350 ScoreContext = \translator {
 351         \type Score_engraver;
 352         \name Score;
 353
 354         marginScriptPadding = #10  % urg, in \pt
 355
 356         \consists "Timing_engraver";
 357         \consists "Output_property_engraver";
 358
 359         %bracketCollapseHeight = #10  % \pt
 360         \consists "System_start_delimiter_engraver";
 361
 362 %       \consists "Score_priority_engraver";
 363         \consists "Break_align_engraver";
 364         breakAlignOrder = #'(
 365           Instrument_name
 366           Left_edge_item
 367           Span_bar
 368           Breathing_sign
 369           Clef_item
 370           Key_item
 371           Staff_bar
 372           Time_signature
 373         )
 374         \consists "Spacing_engraver";
 375
 376         \consists "Vertical_align_engraver";
 377         \consists "Bar_number_engraver";
 378         alignmentReference = \down;
 379         defaultClef = #"treble"
 380         defaultBarType = #"|"
 381        systemStartDelimiterGlyph = #'bar-line
 382
 383         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 384         % default settings, mainly for breakable items
 385         % in alphabetical order
 386         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 387         basicBarlineProperties = #`(
 388                 (break-align-symbol . Staff_bar)
 389                 (molecule-callback . ,Bar::scheme_molecule)
 390                 (visibility-lambda . ,begin-of-line-invisible)
 391                 (breakable . #t)
 392         )
 393
 394         basicBarNumberProperties = #`(
 395                 (molecule-callback . ,Text_item::scheme_molecule)
 396                 (breakable . #t)
 397                 (visibility-lambda . ,begin-of-line-visible)
 398         )
 399
 400         basicBeamProperties = #`(
 401                 (molecule-callback . ,Beam::scheme_molecule)
 402                 (beam-thickness . 0.42) ; interline!
 403         )
 404
 405         basicBreakAlignProperties = #`(
 406                 (breakable . #t)
 407         )
 408
 409
 410         basicBreathingSignProperties = #`(
 411                 (break-align-symbol . Breathing_sign)
 412                 (breakable . #t )
 413                 (molecule-callback . ,Breathing_sign::scheme_molecule)
 414                 (visibility-lambda . ,begin-of-line-invisible)
 415         )
 416          basicClefItemProperties = #`(
 417            (molecule-callback . ,Score_element::scheme_molecule)
 418            (breakable . #t)
 419            (break-align-symbol . Clef_item)
 420            (visibility-lambda . ,begin-of-line-visible)
 421          )
 422         basicSlurProperties = #`(
 423                 (molecule-callback . ,Slur::scheme_molecule)
 424         )
 425         basicChordNameProperties = #`(
 426                 (molecule-callback . ,Chord_name::scheme_molecule)
 427         )
 428         basicCollisionProperties = #`(
 429                 (axes 0 1)
 430         )
 431         basicCrescendoProperties = #`(
 432                 (molecule-callback . ,Crescendo::scheme_molecule)
 433         )
 434         basicDotsProperties = #`(
 435                 (molecule-callback . ,Dots::scheme_molecule)
 436         )
 437         basicDynamicLineSpannerProperties = #`(
 438
 439         )
 440         basicDynamicTextProperties       = # `(
 441                 (style . "dynamic")
 442                 (molecule-callback . ,Text_item::scheme_molecule)
 443                 (script-priority . 100)
 444                 (self-alignment-Y . 0)
 445         )
 446         leftEdgeBasicProperties = #`(
 447           (break-align-symbol . Left_edge_item)
 448           (breakable . #t)
 449         )
 450         basicHyphenSpannerProperties = #`(
 451                 (molecule-callback . ,Hyphen_spanner::scheme_molecule)
 452         )
 453         basicKeyProperties = #`(
 454           (molecule-callback . ,Key_item::scheme_molecule)
 455           (break-align-symbol . Key_item)
 456           (visibility-lambda . ,begin-of-line-visible)
 457           (breakable . #t)
 458           )
 459         basicLocalKeyProperties = #`(
 460                 (molecule-callback . ,Local_key_item::scheme_molecule)
 461                 (left-padding . 0.2)
 462                 (right-padding . 0.4)
 463         )
 464         basicLyricExtenderProperties = #`(
 465                 (molecule-callback . ,Lyric_extender::scheme_molecule)
 466         )
 467         basicLyricTextProperties = #`(
 468                 (molecule-callback . ,Text_item::scheme_molecule)
 469                 (non-rhythmic . #t)
 470         )
 471         basicMarkProperties = #`(
 472           (molecule-callback . ,Text_item::scheme_molecule)
 473           (breakable . #t)
 474           (visibility-lambda . ,end-of-line-invisible)
 475         )
 476         basicMultiMeasureRestProperties = #`(
 477                 (molecule-callback . ,Multi_measure_rest::scheme_molecule)
 478                 (staff-position . 0)
 479         )
 480         basicNoteColumnProperties = #`(
 481                 (axes 0 1)
 482         )
 483         basicNoteHeadProperties = #`(
 484                 (molecule-callback . ,Note_head::scheme_molecule)
 485         )
 486         basicOctavateEightProperties  = #`(
 487                 (self-alignment-X . 0)
 488                 (text . "8")
 489                 (visibility-lambda . ,begin-of-line-visible)
 490                 (molecule-callback . ,Text_item::scheme_molecule)
 491                 (style . "italic")
 492         )
 493         basicTextProperties = #`( )
 494         basicRestProperties = #`(
 495                 (molecule-callback . ,Rest::scheme_molecule)
 496         )
 497
 498         basicRestCollisionProperties = #`(
 499         )
 500         basicScriptProperties    = #`(
 501                 (molecule-callback . ,Script::scheme_molecule)
 502         )
 503
 504         basicSlurProperties = #`(
 505                 (molecule-callback . ,Slur::scheme_molecule)
 506         )
 507
 508         basicSystemStartDelimiterProperties = #`(
 509                 (molecule-callback . ,System_start_delimiter::scheme_molecule)
 510                 (collapse-height . 1.0)
 511         )
 512         basicStemProperties = #`(
 513                 (molecule-callback . ,Stem::scheme_molecule)
 514         )
 515         staffSymbolBasicProperties = #`(
 516                 (molecule-callback . ,Staff_symbol::scheme_molecule)
 517                 (staff-space . 1.0 )
 518                 (line-count . 5 )
 519         )
 520         basicTextScriptProperties = #`(
 521                 (molecule-callback . ,Text_item::scheme_molecule)
 522                 (no-spacing-rods . #t)
 523         )
 524         basicTimeSignatureProperties = #`(
 525                 (molecule-callback . ,Time_signature::scheme_molecule)
 526                 (break-align-symbol . Time_signature)
 527                 (visibility-lambda . ,all-visible)
 528                 (breakable . #t)
 529         )
 530         basicTieProperties = #`(
 531                 (molecule-callback . ,Tie::scheme_molecule)
 532         )
 533         basicTieColumnProperties = #`(
 534
 535         )
 536         basicTupletSpannerProperties = #`(
 537                 (molecule-callback . ,Tuplet_spanner::scheme_molecule)
 538         )
 539         basicStemTremoloProperties = #`(
 540                 (molecule-callback . ,Stem_tremolo::scheme_molecule)
 541                 (beam-width . 4.0) ; interline!
 542                 (beam-thickness . 0.42) ; interline!
 543         )
 544
 545         basicSingleMaltGroupingItemProperties = #`(
 546
 547         )
 548         basicInstrumentNameProperties = #`(
 549                 (breakable . #t)
 550                 (molecule-callback . ,Text_item::scheme_molecule)
 551                 (break-align-symbol . Instrument_name)
 552                 (visibility-lambda . ,begin-of-line-visible)
 553         )
 554         basicVerticalAxisGroupProperties = #`(
 555                 (axes 1)
 556         )
 557         basicVoltaSpannerProperties = #`(
 558                 (molecule-callback . ,Volta_spanner::scheme_molecule)
 559         )
 560
 561         \accepts "Staff";
 562         \accepts "StaffGroup";
 563         \accepts "RhythmicStaff";
 564         \accepts "Lyrics";
 565         \accepts "ChordNames";
 566         \accepts "GrandStaff";
 567         \accepts "ChoirStaff";
 568         \accepts "PianoStaff";
 569         \accepts "NoteNames";
 570
 571
 572         markVisibilityFunction = #end-of-line-invisible
 573 };
 574
 575 \translator { \ScoreContext }
 576
 577 OrchestralScoreContext= \translator {
 578         \ScoreContext
 579
 580         barScriptPadding = #2.0         % dimension \pt
 581         markScriptPadding = #4.0
 582
 583         \consists "Mark_engraver";
 584 };
 585
 586 \translator {
 587         \type "Engraver_group_engraver";
 588         \name NoteNames;
 589         \consistsend "Axis_group_engraver";
 590         \consists "Note_name_engraver";
 591 }