ly/engraver.ly

   1
   2 \version "1.3.96"
   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         \consistsend "Axis_group_engraver";
  37
  38 %{
  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.
  42
  43         This is commented out, so you don't get funny things on the
  44         PianoStaff
  45         \consists "Instrument_name_engraver";
  46 %}
  47
  48
  49
  50         \accepts "Voice";
  51 }
  52
  53 ChoirStaffContext = \translator {
  54         \type "Engraver_group_engraver";
  55         \name ChoirStaff;
  56         alignmentReference = \center;
  57         \consists "System_start_delimiter_engraver";
  58         SystemStartDelimiter \push #'glyph = #'bracket
  59
  60         \accepts "Staff";
  61         \accepts "RhythmicStaff";
  62         \accepts "GrandStaff";
  63         \accepts "PianoStaff";
  64         \accepts "Lyrics";
  65         \accepts "ChordNames";
  66 }
  67
  68
  69 RhythmicStaffContext=\translator{
  70         \type "Engraver_group_engraver";
  71
  72         \consists "Property_engraver";
  73         \consists "Output_property_engraver";
  74
  75         Generic_property_list = #generic-staff-properties
  76
  77         \consists "Pitch_squash_engraver";
  78         \consists "Separating_line_group_engraver";
  79         \name RhythmicStaff;
  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
  84
  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";
  91         \accepts "Voice";
  92 }
  93
  94
  95 VoiceContext = \translator {
  96         \type "Engraver_group_engraver";
  97         \name Voice;
  98
  99         Generic_property_list = #generic-voice-properties
 100
 101         \consists "Output_property_engraver";
 102         \consists "Arpeggio_engraver";
 103
 104         \consists "Dynamic_engraver";   % must come before text_engraver.
 105         \consists "Text_spanner_engraver";
 106         \consists "Property_engraver";
 107
 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";
 114
 115         \consists "Chord_tremolo_engraver";
 116         \consists "Melisma_engraver";
 117         \consists "Text_engraver";
 118         \consists "A2_engraver";
 119         \consists "Voice_devnull_engraver";
 120
 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!
 130         \accepts Grace;
 131 }
 132
 133 GraceContext=\translator {
 134         \type "Grace_engraver_group";
 135         \name "Grace";
 136         \consists "Output_property_engraver";
 137
 138         Generic_property_list = #generic-grace-properties
 139
 140         \consists "Note_heads_engraver";
 141         \consists "Local_key_engraver";
 142         \consists "Stem_engraver";
 143         \consists "Beam_engraver";
 144         \consists "Slur_engraver";
 145
 146         \consists "Auto_beam_engraver";
 147         \consists "Align_note_column_engraver";
 148
 149         \consists "Rhythmic_column_engraver";
 150
 151         \consists "Dynamic_engraver";% in Grace ???
 152         \consists "Text_engraver"; % in Grace ???
 153
 154         \consists "Property_engraver";
 155
 156         Stem \push  #'style = #"grace"
 157         Stem \push  #'flag-style = #"grace"
 158         Stem \push  #'stem-length = #6.0
 159         Stem \push  #'direction = #1
 160
 161         NoteHead \push #'font-relative-size = #-1
 162         Stem \push #'font-relative-size = #-1
 163         Stem \push #'stem-shorten = #'(0)
 164         Beam \push #'font-relative-size = #-1
 165         TextScript \push #'font-relative-size = #-1
 166         Slur \push #'font-relative-size = #-1
 167         Accidentals \push #'font-relative-size = #-1
 168         Beam \push #'thickness = #0.3
 169         Beam \push #'space-function = #(lambda (x) 0.5)
 170
 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 =
 173                 #'(0.0 2.5 2.0 1.5)
 174         Stem \push #'beamed-minimum-lengths
 175                  = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
 176
 177         weAreGraceContext = ##t
 178         graceAccidentalSpace= 1.5 ; % in staff space
 179 }
 180
 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";
 188         \name Thread;
 189 }
 190
 191 GrandStaffContext=\translator{
 192         \type "Engraver_group_engraver";
 193         \name GrandStaff;
 194         \consists "Span_bar_engraver";
 195         \consists "Span_arpeggio_engraver";
 196         \consists "System_start_delimiter_engraver";
 197         SystemStartDelimiter \push #'glyph = #'brace
 198
 199         \consists "Property_engraver";
 200         Generic_property_list = #generic-grand-staff-properties
 201         \accepts "Staff";
 202 }
 203
 204 PianoStaffContext = \translator{
 205         \GrandStaffContext
 206         \name "PianoStaff";
 207
 208         \consists "Vertical_align_engraver";
 209
 210         alignmentReference = \center;
 211         VerticalAlignment \push #'threshold = #'(12 . 12)
 212
 213 %       \consistsend "Axis_group_engraver";
 214 }
 215
 216 StaffGroupContext= \translator {
 217         \type "Engraver_group_engraver";
 218         \name StaffGroup;
 219
 220         \consists "Span_bar_engraver";
 221         \consists "Span_arpeggio_engraver";
 222         \consists "Output_property_engraver";
 223         SystemStartDelimiter \push #'glyph = #'bracket
 224
 225         \consists "System_start_delimiter_engraver";
 226         \accepts "Staff";
 227         \accepts "RhythmicStaff";
 228         \accepts "GrandStaff";
 229         \accepts "PianoStaff";
 230
 231         \accepts "Lyrics";
 232         \accepts "ChordNames";
 233 }
 234
 235
 236 % UGH! JUNKME
 237 LyricsVoiceContext= \translator{
 238         \type "Engraver_group_engraver";
 239         \consistsend "Axis_group_engraver";
 240         LyricVoiceMinimumVerticalExtent = #(cons -1.2 1.2)
 241
 242         \name LyricVoice ;
 243         \consists "Separating_line_group_engraver";
 244         \consists "Lyric_engraver";
 245         \consists "Extender_engraver";
 246         \consists "Hyphen_engraver";
 247         \consists "Stanza_number_engraver";
 248         phrasingPunctuation = #".,;:!?\""
 249
 250 }
 251 NoteNamesContext = \translator {
 252         \type "Engraver_group_engraver";
 253         \name NoteNames;
 254         \consistsend "Axis_group_engraver";
 255         \consists "Note_name_engraver";
 256         \consists "Separating_line_group_engraver";
 257 }
 258
 259 LyricsContext = \translator {
 260         \type "Engraver_group_engraver";
 261         \name Lyrics;
 262         \consists Vertical_align_engraver; %need this for getting folded repeats right.
 263         Generic_property_list = #generic-lyrics-properties
 264         \consists "Property_engraver";
 265         \consistsend "Axis_group_engraver";
 266
 267         \accepts "LyricVoice";
 268 }
 269
 270 ChordNamesVoiceContext = \translator {
 271         \type "Engraver_group_engraver";
 272         \name ChordNamesVoice ;
 273
 274         \consists "Output_property_engraver";
 275         \consistsend "Axis_group_engraver";
 276         \consists "Separating_line_group_engraver";
 277         \consists "Chord_name_engraver";
 278 }
 279 ChordNamesContext = \translator {
 280         \type "Engraver_group_engraver";
 281         \name ChordNames;
 282
 283         Generic_property_list = #generic-chord-staff-properties
 284
 285         \consists "Property_engraver";
 286         \consists "Output_property_engraver";
 287         \accepts "ChordNamesVoice";
 288
 289         VerticalAxisGroup \push #'invisible-staff = ##t
 290         \consistsend "Axis_group_engraver";
 291         }
 292
 293
 294 ScoreWithNumbers = \translator {
 295         \type "Score_engraver";
 296
 297         % uncomment to bar numbers on a whole system.
 298         \consists "Bar_number_engraver";
 299 }
 300
 301 StupidScore = \translator {
 302         \type "Score_engraver";
 303         \name Score;
 304         \consists "Note_heads_engraver";
 305 }
 306
 307
 308
 309 BarNumberingStaffContext = \translator {
 310         \StaffContext
 311         \consists "Mark_engraver";
 312 }
 313
 314 HaraKiriStaffContext = \translator {
 315         \StaffContext
 316         \remove "Axis_group_engraver";
 317         \consistsend "Hara_kiri_engraver";
 318         \consists "Instrument_name_engraver";
 319         \accepts "Voice";
 320 }
 321 %{
 322   The HaraKiriStaffContexts doesn't override \name,
 323   so it is still named `Staff'.
 324
 325   %\translator { \HaraKiriStaffContext }
 326 %}
 327
 328 OrchestralPartStaffContext = \translator {
 329         \StaffContext
 330         \consists "Mark_engraver";
 331 }
 332
 333 ScoreContext = \translator {
 334         \type Score_engraver;
 335         \name Score;
 336
 337
 338         \consists "Repeat_acknowledge_engraver";
 339         \consists "Timing_engraver";
 340         \consists "Output_property_engraver";
 341         \consists "System_start_delimiter_engraver";
 342         \consists "Mark_engraver";
 343         \consists "Break_align_engraver";
 344         \consists "Spacing_engraver";
 345         \consists "Vertical_align_engraver";
 346
 347         \consists "Lyric_phrasing_engraver";
 348         \consists "Bar_number_engraver";
 349         \consists "Span_arpeggio_engraver";
 350
 351
 352         \accepts "Staff";
 353         \accepts "StaffGroup";
 354         \accepts "RhythmicStaff";
 355         \accepts "Lyrics";
 356         \accepts "ChordNames";
 357         \accepts "GrandStaff";
 358         \accepts "ChoirStaff";
 359         \accepts "PianoStaff";
 360         \accepts "NoteNames";
 361
 362         soloText = #"Solo"
 363         soloIIText = #"Solo II"
 364         aDueText = #"\\`a2"
 365         soloADue = ##t
 366         splitInterval = #'(0 . 1)
 367         changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
 368
 369         defaultClef = #"treble"
 370
 371         StaffMinimumVerticalExtent = #(cons -4.0 4.0)
 372
 373         barAuto = ##t
 374         voltaVisibility = ##t
 375         %  name, glyph id, c0 position
 376         supportedClefTypes = #'(
 377           ("treble" . ("clefs-G" -2))
 378           ("violin" . ("clefs-G" -2))
 379           ("G" . ("clefs-G" -2))
 380           ("G2" . ("clefs-G" -2))
 381           ("french" . ("clefs-G" -4 ))
 382           ("soprano" . ("clefs-C" -4 ))
 383           ("mezzosoprano" . ("clefs-C" -2 ))
 384           ("alto" . ("clefs-C" 0 ))
 385           ("tenor" . ("clefs-C" 2 ))
 386           ("baritone" . ("clefs-C" 4 ))
 387           ("varbaritone"  . ("clefs-F" 0))
 388           ("bass" . ("clefs-F" 2 ))
 389           ("F" . ( "clefs-F" 2))
 390           ("subbass" . ("clefs-F" 4))
 391         )
 392         % where is c0 in this clef?
 393         clefPitches = #'(("clefs-G" . -4)
 394           ("clefs-C" . 0)
 395           ("clefs-F" . 4))
 396
 397
 398         automaticPhrasing = ##t;
 399         alignmentReference = \down;
 400         defaultClef = #"treble"
 401         defaultBarType = #"|"
 402
 403         explicitClefVisibility = #all-visible
 404         explicitKeySignatureVisibility = #all-visible
 405
 406         scriptDefinitions = #default-script-alist
 407
 408         startSustain = #"Ped."
 409         stopSustain = #"*"
 410         stopStartSustain = #"*Ped."
 411         startUnaChorda = #"una chorda"
 412         stopUnaChorda = #"tre chorde"
 413         % should make separate lists for stopsustain and startsustain
 414
 415
 416        %
 417        % what order to print accs.  We could compute this,
 418        % but computing is more work than putting it here.
 419        %
 420        % Flats come first, then sharps.
 421        keyAccidentalOrder = #'(
 422          (6 . -1) (2  . -1) (5 . -1 ) (1  . -1) (4  . -1) (0  . -1) (3  . -1)
 423          (3  . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
 424        )
 425         breakAlignOrder = #'(
 426           Instrument_name
 427           Left_edge_item
 428           Span_bar
 429           Breathing_sign
 430           Clef_item
 431           Key_item
 432           Staff_bar
 433           Time_signature
 434           Stanza_number
 435         )
 436
 437
 438         \elementdescriptions #all-element-descriptions
 439         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 440         % TODO: uniform naming.;
 441         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 442
 443
 444
 445         \include "auto-beam-settings.ly";
 446
 447 }
 448
 449 OrchestralScoreContext= \translator {
 450         \ScoreContext
 451 }
 452