scm/define-context-properties.scm

   1 ;;;; define-context-properties.scm -- part of backend documentation
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c) 1998--2006  Han-Wen Nienhuys <hanwen@xs4all.nl>
   6 ;;;;                  Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8
   9 (define-public all-translation-properties '())
  10
  11 (define (translator-property-description symbol type? description)
  12   (if (not (and
  13             (symbol? symbol)
  14             (procedure? type?)
  15             (string? description)))
  16       (throw 'init-format-error))
  17
  18
  19   (if (not (equal? #f (object-property symbol 'translation-doc)))
  20       (ly:error (_ "symbol ~S redefined" symbol)))
  21
  22   (set-object-property! symbol 'translation-type? type?)
  23   (set-object-property! symbol 'translation-doc description)
  24   (set! all-translation-properties (cons symbol all-translation-properties))
  25   symbol)
  26
  27 (define-public all-user-translation-properties
  28   (map
  29    (lambda (x)
  30      (apply translator-property-description x))
  31    `(
  32
  33      ;; TODO FIXME
  34
  35      (aDueText ,string? "Text to print at a unisono passage.")
  36      (alignBelowContext ,string? "Where to insert newly created context in vertiical alignment.")
  37      (alignAboveContext ,string? "Where to insert newly created context in vertiical alignment.")
  38      (alignBassFigureAccidentals ,boolean?
  39                                  "If true, then the accidentals are aligned in bass figure context.")
  40
  41      (allowBeamBreak ,boolean? "If true allow line breaks for beams over bar lines.")
  42      (associatedVoice ,string? "Name of the
  43 @code{Voice} that has the melody for this @code{Lyrics} line.")
  44      (autoBeamSettings ,list? "Specifies
  45 when automatically generated beams should begin and end.
  46 See @usermanref{Setting automatic beam behavior} for more information.
  47 ")
  48      (autoAccidentals ,list? "List of
  49 different ways to typeset an accidental.
  50
  51 For determining when to print an accidental, several different rules
  52 are tried.  The rule that gives the highest number of accidentals is
  53 used.  Each rule consists of
  54
  55 @table @var
  56
  57 @item context:
  58       In which context is the rule applied. For example, if
  59 @var{context} is @internalsref{Score} then all staves share
  60 accidentals, and if @var{context} is @internalsref{Staff} then all
  61 voices in the same staff share accidentals, but staves do not.
  62
  63 @item octavation:
  64       Whether the accidental changes all octaves or only the current
  65       octave. Valid choices are
  66
  67      @table @samp
  68       @item same-octave:
  69       This is the default algorithm. Accidentals are typeset if the note changes
  70       the accidental of that note in that octave. Accidentals lasts to the end of the measure
  71       and then as many measures as specified in the value. I.e. 1 means to the end
  72       of next measure, -1 means to the end of previous measure (that is: no duration at all), etc. #t means forever.
  73       @item any-octave:
  74       Accidentals are typeset if the note is different from
  75       the previous note on the same pitch in any octave. The value has same meaning as in
  76       same-octave.
  77       @end table
  78
  79 @item laziness
  80
  81 Over how many bar lines the accidental lasts.
  82 If @var{laziness} is @code{-1} then the accidental is forgotten
  83 immediately, and if @var{laziness} is @code{#t} then the accidental
  84 lasts forever.
  85 @end table
  86 ")
  87      (autoBeamCheck ,procedure? "Procedure taking three
  88 arguments, CONTEXT, DIR start/stop (-1 or 1) and TEST shortest
  89 note in the beam.  A non-#f return value starts or stops the auto beam.")
  90      (autoBeaming ,boolean? "If set to true then beams are generated
  91 automatically.")
  92
  93      (autoCautionaries ,list? "List similar to
  94 @code{autoAccidentals}, but it controls cautionary accidentals rather than
  95 normal ones. Both lists are tried, and the one giving the most accidentals
  96 wins. In case of draw, a normal accidental is typeset.
  97 ")
  98      (automaticBars ,boolean? " If set to true then bar lines will not be
  99 printed automatically; they must be explicitly created with
 100 @code{\\bar} command.  Unlike the @code{\\cadenza} keyword, measures
 101 are still counted.  Bar generation will resume according to that count
 102 if this property is unset.
 103 ")
 104
 105      (barAlways ,boolean? "If set to true a bar line is drawn after each
 106 note.")
 107
 108      (barCheckSynchronize ,boolean? "If true then reset @code{measurePosition}
 109 when finding a barcheck.")
 110
 111      (barNumberVisibility ,procedure? "Procedure that takes an int and
 112 returns whether the corresponding bar number should be printed")
 113      (bassStaffProperties ,list? "Alist of property settings to apply
 114 for the down staff of PianoStaff. Used by @code{\\autochange}")
 115      (trebleStaffProperties ,list? "Alist of property settings to apply
 116 for the up staff of PianoStaff. Used by @code{\\autochange}")
 117
 118      (figuredBassFormatter ,procedure? "Routine generating a markup
 119 for a bass figure.")
 120      (bassFigureFormatFunction ,procedure? "Procedure that is called
 121 to produce the formatting for a @code{BassFigure} grob. It takes a
 122 list of @code{BassFigureEvent}s, a context, and the grob to format.")
 123
 124      (beatLength ,ly:moment? "The length of one beat in this time signature.")
 125      (beatGrouping ,list?
 126                    "List of beatgroups, e.g., in 5/8 time @code{'(2
 127 3)}.")
 128
 129
 130
 131      (middleCPosition ,number? "Place of the middle C, measured in half
 132 staff-spaces.  Usually determined by looking at @code{clefPosition} and
 133 @code{clefGlyph}.")
 134
 135      (chordNameFunction ,procedure?
 136                         "The function that converts lists of pitches to chord names.")
 137      (chordNoteNamer ,procedure?
 138                      "Function that converts from a pitch object to a text markup. Used for single pitches.")
 139      (chordRootNamer ,procedure?
 140                      "Function that converts from a pitch object to a text markup. Used for chords.")
 141      (chordNameExceptions ,list?
 142                           "An alist of chord exceptions.
 143 Contains (@var{chord} . @var{markup}) entries.")
 144      (chordNameExceptionsFull ,list?
 145                               "An alist of chord exceptions.
 146 Contains (@var{chord} . @var{markup}) entries.")
 147      (chordNameExceptionsPartial
 148       ,list?
 149       "An alist of partial chord exceptions. Contains (@var{chord} . (@var{prefix-markup} @var{suffix-markup})) entries.")
 150
 151      (chordNameSeparator ,markup?
 152                          "The markup object used to separate
 153  parts of a chord name.")
 154      (chordPrefixSpacer ,number?
 155                         "The space added between the root symbol and the prefix
 156  of a chord name")
 157      (chordChanges ,boolean? "Only show changes in chords scheme?")
 158      (clefGlyph ,string? "Name of the symbol within the music font.")
 159      (clefOctavation ,integer? "Add
 160 this much extra octavation. Values of 7 and -7 are common.")
 161
 162      (clefPosition ,number? "Where should the center of the clef
 163 symbol go, measured in half staff spaces from the center of the staff.")
 164
 165      (connectArpeggios ,boolean? " If set, connect arpeggios across
 166 piano staff.")
 167      (countPercentRepeats ,boolean? "If set, produce counters for
 168 percent repeats. ")
 169      (createKeyOnClefChange ,boolean? "Print a key signature whenever the clef is changed.")
 170      (createSpacing ,boolean? "Create @code{StaffSpacing} objects?
 171 Should be set for staves.")
 172      (crescendoText ,markup? "Text to print at start of non-hairpin crescendo, i.e.: @samp{cresc.}")
 173      (crescendoSpanner ,symbol? "Type of spanner to be used for crescendi.
 174 One of: @samp{hairpin}, @samp{line}, @samp{dashed-line},
 175 @samp{dotted-line}.  If unset, hairpin type is used.")
 176      (decrescendoText ,markup? "Text to print at start of non-hairpin decrescendo, i.e.: @samp{dim.}")
 177
 178      (drumPitchTable ,hash-table? "A table mapping percussion
 179 instruments (symbols) to pitches.")
 180
 181      (drumStyleTable ,hash-table? "A hash table containing mapping
 182 drums to layout settings.  Predefined values: @samp{drums-style},
 183 @samp{timbales-style}, @samp{congas-style}, @samp{bongos-style} and
 184 @samp{percussion-style}.
 185
 186 The layout style is a hash table, containing the drum-pitches (e.g. the
 187 symbol @samp{hihat}) as key, and a list (@var{notehead-style}
 188 @var{script} @var{vertical-position}) as values.
 189  ")
 190      (currentBarNumber ,integer? "Contains the current barnumber. This property is incremented at every bar line. ")
 191      (defaultBarType ,string? "Sets the default type of bar line.
 192 See @code{whichBar} for information on available bar types.
 193
 194 This variable is  read by @internalsref{Timing_translator} at
 195 @internalsref{Score} level.
 196 ")
 197
 198      (decrescendoSpanner ,symbol? "See @code{crescendoSpanner}.")
 199      (doubleSlurs ,boolean?
 200                   "When set, two slurs are created for every slurred
 201 note, one above and one below the chord.")
 202      (explicitClefVisibility ,vector? "@samp{break-visibility} function for clef changes.")
 203
 204      (explicitKeySignatureVisibility ,vector?
 205 "@samp{break-visibility} function for explicit key
 206 changes. @samp{\\override} of the @code{break-visibility} property will set the
 207 visibility for normal (i.e. at the start of the line) key signatures.")
 208
 209      (extraNatural ,boolean? "Whether to typeset an
 210 extra natural sign before accidentals changing from a non-natural to
 211 another non-natural.")
 212
 213      (extraVerticalExtent ,number-pair?
 214                           "extra vertical extent, same format as @var{minimumVerticalExtent}")
 215
 216
 217      (figuredBassCenterContinuations ,boolean? "Whether to vertically center pairs of extender lines.")
 218      (figuredBassPlusDirection ,ly:dir? "Where to put plus signs relative to the the main figure.")
 219
 220      (figuredBassAlterationDirection ,ly:dir? "Where to put
 221 alterations relative to the main figure.")
 222      (followVoice ,boolean? "If set, note heads are tracked across staff
 223 switches by a thin line")
 224
 225      (fontSize ,number?
 226                "The relative size of all grobs in a context. ")
 227
 228      (forbidBreak ,boolean? "If set to ##t, prevent a line break at this point.")
 229
 230      (fingeringOrientations ,list?
 231                             "List of symbols, containing
 232 @samp{left}, @samp{right}, @samp{up} and/or @samp{down}. This list
 233 determines where fingerings are put relative to the chord being
 234 fingered.")
 235
 236      (firstClef ,boolean? "If true, create a new clef when starting a
 237 staff.")
 238      (forceClef ,boolean? "Show clef symbol, even if it has not
 239 changed. Only active for the first clef after the property is set, not
 240 for the full staff.")
 241      (gridInterval ,ly:moment?
 242                    "Interval for which to generate @ref{GridPoint}s")
 243
 244      (hairpinToBarline ,boolean? "If set, end a hairpin at the barline before the ending note.")
 245
 246      (harmonicAccidentals ,boolean? "If set, harmonic notes in chords
 247 get accidentals.")
 248      (highStringOne ,boolean? "Whether the 1st string is the string with
 249 highest pitch on the instrument. This used by the automatic string
 250 selector for tab notation.")
 251
 252      (ignoreFiguredBassRest ,boolean? "Don't swallow rest events.")
 253      (ignoreBarChecks ,boolean? "Ignore bar checks")
 254      (ignoreMelismata ,boolean? "Ignore melismata for this @internalsref{Lyrics} line.")
 255
 256      (implicitBassFigures ,list? "List of bass figures that are not
 257 printed as numbers, but only as extender lines.")
 258
 259
 260      (instrumentCueName ,markup? "Name to print if another instrument is to be taken.")
 261      (instrumentName ,markup? "The name to print left of a staff.  The
 262 @code{instrument} property labels the staff in the first system, and
 263 the @code{instr} property labels following lines.")
 264      (instrumentEqualizer ,procedure? "
 265 Function taking a string (instrument name), and returning a (@var{min} . @var{max}) pair of numbers for the loudness range of the instrument.
 266 ")
 267      (instrumentTransposition ,ly:pitch? "Defines the transposition of
 268 the instrument. Its value is the pitch that sounds like middle C. This
 269 is used to transpose the MIDI output, and @code{\\quote}s.")
 270
 271      (internalBarNumber ,integer? "Contains the current barnumber. This property is used for internal timekeeping, among others by the @code{Accidental_engraver}.")
 272
 273      (keepAliveInterfaces ,list? "List of symbols, signifying grob interfaces that
 274 are worth keeping an staff with @code{remove-empty} set around for.")
 275      (keyAlterationOrder ,list? " Alist that defines in what order
 276 alterations should be printed.  The format is (@var{step}
 277 . @var{alter}), where @var{step} is from 0 .. 6 and @var{alter} from
 278 -2 (sharp) and 2 (flat).
 279 ")
 280
 281      (keySignature ,list? "The current key signature. This is an alist
 282 containing (@var{name} . @var{alter}) or ((@var{octave} . @var{name}) . @var{alter}).
 283  where @var{name} is from 0.. 6 and
 284 @var{alter} from -4 (double flat) to 4 (double sharp).
 285 ")
 286      (majorSevenSymbol ,markup? "How should
 287 the major 7th be formatted in a chord name?")
 288      (markFormatter ,procedure? "Procedure
 289 taking as arguments context and rehearsal mark. It should return the
 290 formatted mark as a markup object.")
 291
 292      (measureLength ,ly:moment? "Length of one
 293 measure in the current time signature.")
 294
 295      (measurePosition ,ly:moment? "How much of the current measure
 296 have we had.  This can be set manually to create incomplete
 297 measures.")
 298
 299      (melismaBusyProperties ,list? "List of properties (symbols) to
 300 determine whether a melisma is playing.  Setting this property will
 301 influence how lyrics are aligned to notes.  For example, if set to
 302 @code{#'(melismaBusy beamMelismaBusy)}, only manual melismata and
 303 manual beams are considered. Possible values include
 304 @code{melismaBusy}, @code{slurMelismaBusy}, @code{tieMelismaBusy}, and
 305 @code{beamMelismaBusy}")
 306
 307
 308      (metronomeMarkFormatter ,procedure? "How to produce a metronome
 309 markup.  Called with 2 arguments, event and context.")
 310      (midiInstrument ,string? "Name of the MIDI instrument to use ")
 311      (midiMinimumVolume ,number? "Sets the minimum loudness for MIDI. Ranges from 0 to 1.")
 312      (midiMaximumVolume ,number? "Analogous to @code{midiMinimumVolume}.")
 313      (minimumFret ,number? "The tablature auto string-selecting mechanism
 314 selects the highest string with a fret at least @code{minimumFret}")
 315      (minimumPageTurnLength ,ly:moment? "Minimum length of a rest for a page turn to be allowed")
 316      (minimumRepeatLengthForPageTurn ,ly:moment? "Minimum length of a repeated section for a page
 317 turn to be allowed within that section")
 318      (minimumVerticalExtent ,number-pair? "minimum vertical extent, same
 319 format as @var{verticalExtent}")
 320      (output ,ly:music-output? "The output produced by a score-level translator during music interpretation")
 321      (ottavation ,string? "If set, the text for an ottava spanner. Changing
 322 this creates a new text spanner. ")
 323      (pedalSustainStrings ,list? "List of string to print for
 324 sustain-pedal. Format is (@var{up} @var{updown} @var{down}), where
 325 each of the three is the string to print when this is done with the
 326 pedal.")
 327      (pedalUnaCordaStrings ,list? "See @code{pedalSustainStrings}.")
 328      (pedalSostenutoStrings ,list? "See @code{pedalSustainStrings}.")
 329      (pedalSustainStyle ,symbol? "A symbol that indicates how to print
 330 sustain pedals: @code{text}, @code{bracket} or @code{mixed} (both).")
 331      (pedalUnaCordaStyle ,symbol? "see @code{pedalSustainStyle}.")
 332      (pedalSostenutoStyle ,symbol? "see @code{pedalSustainStyle}.")
 333      (printKeyCancellation ,boolean? "Print restoration alterations before a key signature change. ")
 334      (printPartCombineTexts ,boolean? "set Solo/A due texts in the part combiner?")
 335      (printOctaveNames ,boolean? "Print octave marks for the NoteNames context.")
 336
 337      (proportionalNotationDuration ,ly:moment? "Global override for
 338 shortest-playing duration. This is used for switching on proportional
 339 notation.")
 340      (recordEventSequence ,procedure? "When Recording_group_engraver
 341 is in this context, then upon termination of the context, this
 342 function is called with current context and a list of music objects.
 343 The list of contains entries with start times, music objects and
 344 whether they are processed in this context.")
 345
 346      (rehearsalMark ,integer? "The last rehearsal mark printed.")
 347      (repeatCommands ,list? "This property is read to find any command of the form @code{(volta . @var{x})}, where @var{x} is a string or @code{#f}")
 348      (restNumberThreshold ,number?
 349                           "If a multimeasure rest has more measures
 350 than this, a number is printed. ")
 351      (shapeNoteStyles ,vector? "Vector of symbols, listing style for each note
 352 head relative to the tonic (qv.) of the scale.")
 353      (shortInstrumentName ,markup? "See @code{instrument}")
 354      (shortVocalName ,markup? "Name of a vocal line, short version.")
 355      (skipBars ,boolean? "If set to true, then
 356 skip the empty bars that are produced by multimeasure notes and rests.
 357 These bars will not appear on the printed output.  If not set (the
 358 default) multimeasure notes and rests expand into their full length,
 359 printing the appropriate number of empty bars so that synchronization
 360 with other voices is preserved.
 361
 362
 363 @example
 364 @{
 365 r1 r1*3 R1*3
 366 \\set Score.skipBars= ##t
 367 r1*3 R1*3
 368 @}
 369 @end example
 370 ")
 371      (skipTypesetting ,boolean?
 372                       "When true, all no typesetting is done, speeding
 373 up the interpretation phase. This speeds up debugging large scores.")
 374      (soloIIText ,string? "text for begin of solo for voice ``two'' when part-combining.")
 375      (soloText ,string? "text for begin of solo when part-combining.")
 376      (squashedPosition ,integer? " Vertical position of
 377 squashing for @internalsref{Pitch_squash_engraver}.")
 378
 379      (stringNumberOrientations ,list? "See @code{fingeringOrientations}")
 380      (stringOneTopmost ,boolean? "Whether the 1st string is printed on the
 381 top line of the tablature.")
 382
 383      (stanza ,markup? "Stanza `number' to print before the start of a
 384 verse. Use in Lyrics context.")
 385
 386      (stemLeftBeamCount ,integer? " Specify the number of beams to draw on
 387 the left side of the next note.  Overrides automatic beaming.  The
 388 value is only used once, and then it is erased.")
 389
 390      (stemRightBeamCount ,integer? "See @code{stemLeftBeamCount}.")
 391
 392      (stringTunings ,list? "The tablature strings tuning. It is a list
 393 of the pitch (in semitones) of each string (starting with the lower
 394 one).")
 395
 396      (subdivideBeams ,boolean? "If set, multiple beams will be subdivided
 397 at beat positions by only drawing one beam over the beat.")
 398      (suggestAccidentals ,boolean? "If set, accidentals are typeset as cautionary suggestions over the note.")
 399
 400      (systemStartDelimiterHierarchy ,pair? "A nested list, indicating the nesting of a start delimiters.")
 401
 402      (systemStartDelimiter ,symbol? "Which grob to make for the start of
 403 the system/staff? Set to @code{SystemStartBrace},
 404 @code{SystemStartBracket} or @code{SystemStartBar}.")
 405
 406      (tablatureFormat ,procedure? "Function formatting a tab note head; it
 407 takes a string number, a list of string tunings and Pitch object. It
 408 returns the text as a string.")
 409
 410      (tieWaitForNote ,boolean? "If true, tied notes do not have to follow each other directly.
 411 This can be used for writing out arpeggios")
 412      (timeSignatureFraction ,number-pair?
 413                             "pair of numbers, signifying the time
 414 signature. For example @code{#'(4 . 4)} is a 4/4 time signature.")
 415
 416      (timing ,boolean? " Keep administration of measure length, position, bar number, etc?
 417 Switch off for cadenzas.")
 418      (tonic ,ly:pitch?
 419             "The tonic of the current scale")
 420
 421      (tremoloFlags ,integer? "Number of tremolo flags to add if no
 422 number is specified.")
 423
 424      (tupletFullLength ,boolean? "If set, the tuplet is printed up to
 425 the start of the next note.")
 426      (tupletFullLengthNote ,boolean? "If set, end at the next note, otherwise end on the matter (time sigs, etc.) before the note.")
 427      (tupletSpannerDuration ,ly:moment? "
 428 Normally a tuplet bracket is as wide as the
 429 @code{\\times} expression that gave rise to it.  By setting this
 430 property, you can make brackets last shorter.  Example
 431
 432 @example
 433 @{
 434 \\set tupletSpannerDuration = #(ly:make-moment 1 4)
 435 \\times 2/3 @{ c8 c c c c c @}
 436 @}
 437 @end example
 438 .")
 439
 440      (useBassFigureExtenders ,boolean? "Whether to use extender lines
 441 for repeated bass figures")
 442
 443      (verticalExtent ,number-pair? "Hard coded vertical extent.  The format
 444 is a pair of dimensions, for example, this sets the sizes of a staff
 445 to 10 (5+5) staff-spaces high.
 446
 447 @example
 448 \\set Staff.verticalExtent = #'(-5.0 . 5.0)
 449 @end example
 450
 451
 452 This does not work for Voice or any other context that doesn't form a
 453 vertical group.")
 454
 455      (verticallySpacedContexts ,list? "List of symbols, containing
 456 context names whose vertical axis groups should be taken into account for
 457 vertical spacing of systems.")
 458
 459      (vocalName ,markup? "Name of a vocal line.")
 460
 461      (voltaOnThisStaff ,boolean?
 462                        "Normally, volta brackets are put only on the
 463 topmost staff.  This variable overrides this behavior, when set to
 464 @code{#t} or @code{#f}.")
 465
 466      (voltaSpannerDuration ,ly:moment? "This specifies the maximum duration
 467 to use for the brackets printed for @code{\\alternative}.  This can be
 468 used to shrink the length of brackets in the situation where one
 469 alternative is very large.")
 470
 471      (whichBar
 472       ,string?
 473       "This property is read to determine what type of bar line to create.
 474
 475 Example:
 476 @example
 477 \\set Staff.whichBar = \"|:\"
 478 @end example
 479
 480 This will create a start-repeat bar in this staff only.
 481 Valid values are described in @internalsref{bar-line-interface}.
 482 ")
 483      (tempoWholesPerMinute ,ly:moment? "The tempo in whole notes per minute.")
 484      (tempoUnitDuration ,ly:duration? "Unit for specifying tempo.")
 485      (tempoUnitCount ,number? "Count for specifying tempo.")
 486
 487      )))
 488
 489 (define-public all-internal-translation-properties
 490   (map
 491    (lambda (x)
 492      (set-object-property! (car x) 'internal-translation #t)
 493      (apply translator-property-description x)
 494
 495      )
 496
 497    `((slurMelismaBusy ,boolean? "Signal if a slur is present.")
 498      (originalCentralCPosition
 499       ,integer?
 500       "Used for temporary overriding middle C in octavation brackets. ")
 501      (melismaBusy ,boolean? "Signifies
 502 whether a melisma is active. This can be used to signal melismas on
 503 top of those automatically detected. ")
 504      (graceSettings ,list?
 505                     "Overrides for grace notes. This property should
 506 be manipulated through the @code{add-grace-property} function.")
 507      (currentCommandColumn ,ly:grob? "Grob that is X-parent to all
 508 current breakable (clef, key signature, etc.) items.")
 509      (currentMusicalColumn ,ly:grob? "Grob that is X-parent to all
 510 non-breakable items (note heads, lyrics, etc.).")
 511      (breakableSeparationItem ,ly:grob?
 512                               "The breakable items in this time step,
 513 for this staff.")
 514
 515      (localKeySignature ,list? "the key signature at this point in the
 516 measure.  The format is the same as for keySignature, but can also
 517 contain ((@var{octave} . @var{name}) . (@var{alter} . @var{barnumber}))
 518 pairs. It is reset at every bar line.")
 519
 520
 521      (localKeySignatureChanges ,list? "Experimental. [DOCME]")
 522
 523      (finalizations ,list? "List of expressions to evaluate before proceeding to next time step. Internal variable.")
 524      (busyGrobs ,list? "a queue of (@var{end-moment} . @var{GROB})
 525 conses. This is for internal (C++) use only.  This property contains
 526 the grobs which are still busy (e.g. note heads, spanners, etc.)
 527 ")
 528      (barCheckLastFail ,ly:moment? "Where in the measure did the last barcheck fail?")
 529      (associatedVoiceContext ,ly:context? "The context object of the Voice that has the melody for this Lyrics.")
 530      (beamMelismaBusy ,boolean? "Signal if a beam is present.")
 531      (dynamicAbsoluteVolumeFunction ,procedure? "[DOCUMENT-ME]")
 532
 533      (lastKeySignature ,list? "Last key signature before a key
 534 signature change.")
 535      (rootSystem ,ly:grob? "The System object")
 536      (scriptDefinitions ,list? "Description of scripts. This is used by
 537 Script_engraver for typesetting note-super/subscripts. See
 538 @file{scm/script.scm} for more information
 539 ")
 540      (quotedEventTypes ,list? "List of symbols, representing the
 541 event types that should be duplicated for @code{\\quote} commands.")
 542
 543 ;     (quotes ,hash-table? "Hash table, mapping names to music-event vectors.")
 544      (stavesFound ,grob-list? "list of all staff-symbols found.")
 545      (instrumentSupport ,grob-list? "list of grobs to attach instrument name
 546 to.")
 547      (tieMelismaBusy ,boolean? "Signal whether a tie is present.")
 548      )))
 549
 550 (define-public all-translation-properties
 551   (append all-user-translation-properties
 552           all-internal-translation-properties))
 553
 554 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 555
 556 (define-public default-melisma-properties '(melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy))