Remove docs/default for AccidentalPlacement #'left-padding.
[lilypond/mpolesky.git] / scm / define-context-properties.scm
blob4a2a6736f2c7b4d7be560ca6225507fcb2df6e29
1 ;;;; This file is part of LilyPond, the GNU music typesetter.
2 ;;;;
3 ;;;; Copyright (C) 1998--2010  Han-Wen Nienhuys <hanwen@xs4all.nl>
4 ;;;;                  Jan Nieuwenhuizen <janneke@gnu.org>
5 ;;;;
6 ;;;; LilyPond is free software: you can redistribute it and/or modify
7 ;;;; it under the terms of the GNU General Public License as published by
8 ;;;; the Free Software Foundation, either version 3 of the License, or
9 ;;;; (at your option) any later version.
10 ;;;;
11 ;;;; LilyPond is distributed in the hope that it will be useful,
12 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 ;;;; GNU General Public License for more details.
15 ;;;;
16 ;;;; You should have received a copy of the GNU General Public License
17 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
20 (define-public all-translation-properties '())
22 (define (translator-property-description symbol type? description)
23   (if (not (and
24             (symbol? symbol)
25             (procedure? type?)
26             (string? description)))
27       (throw 'init-format-error))
30   (if (not (equal? #f (object-property symbol 'translation-doc)))
31       (ly:error (_ "symbol ~S redefined" symbol)))
33   (set-object-property! symbol 'translation-type? type?)
34   (set-object-property! symbol 'translation-doc description)
35   (set! all-translation-properties (cons symbol all-translation-properties))
36   symbol)
39 (define-public all-user-translation-properties
40   (map
41    (lambda (x)
42      (apply translator-property-description x))
43    `(
45      ;; TODO FIXME
47      (aDueText ,markup? "Text to print at a unisono passage.")
48      (alignAboveContext ,string? "Where to insert newly created context in
49 vertical alignment.")
50      (alignBassFigureAccidentals ,boolean? "If true, then the accidentals
51 are aligned in bass figure context.")
52      (alignBelowContext ,string? "Where to insert newly created context in
53 vertical alignment.")
54      (associatedVoice ,string? "Name of the @code{Voice} that has the
55 melody for this @code{Lyrics} line.")
56      (autoAccidentals ,list? "List of different ways to typeset an
57 accidental.
59 For determining when to print an accidental, several different rules
60 are tried.  The rule that gives the highest number of accidentals is
61 used.
63 Each entry in the list is either a symbol or a procedure.
65 @table @var
67 @item symbol
68 The symbol is the name of the context in which the following rules are to be
69 applied. For example, if @var{context} is @rinternals{Score} then all
70 staves share accidentals, and if @var{context} is @rinternals{Staff} then
71 all voices in the same staff share accidentals, but staves do not.
73 @item procedure
74 The procedure represents an accidental rule to be applied to the previously
75 specified context.
77 The procedure takes the following arguments:
79 @table @code
81 @item context
82 The current context to which the rule should be applied.
84 @item pitch
85 The pitch of the note to be evaluated.
87 @item barnum
88 The current bar number.
90 @item measurepos
91 The current measure position.
93 @end table
95 The procedure returns a pair of booleans. The first states whether an extra
96 natural should be added. The second states whether an accidental should be
97 printed. @code{(#t . #f)} does not make sense.
99 @end table")
100      (autoBeamCheck ,procedure? "A procedure taking three
101 arguments, @var{context}, @var{dir} [start/stop (-1 or 1)], and
102 @var{test} [shortest note in the beam].  A non-@code{#f} return value
103 starts or stops the auto beam.")
104      (autoBeaming ,boolean? "If set to true then beams are generated
105 automatically.")
106      (autoCautionaries ,list? "List similar to @code{autoAccidentals},
107 but it controls cautionary accidentals rather than normal ones.  Both
108 lists are tried, and the one giving the most accidentals wins.  In
109 case of draw, a normal accidental is typeset.")
110      (automaticBars ,boolean? "If set to false then bar lines will not
111 be printed automatically; they must be explicitly created with a
112 @code{\\bar} command.  Unlike the @code{\\cadenzaOn} keyword, measures
113 are still counted.  Bar line generation will resume according to that
114 count if this property is unset.")
117      (barAlways ,boolean? "If set to true a bar line is drawn after
118 each note.")
119      (barCheckSynchronize ,boolean? "If true then reset
120 @code{measurePosition} when finding a bar check.")
121      (barNumberVisibility ,procedure? "A Procedure that takes an
122 integer and returns whether the corresponding bar number should be
123 printed.")
124      (baseMoment ,ly:moment? "Smallest unit of time that will stand on its
125 own as a subdivided section.")
126      (bassFigureFormatFunction ,procedure? "A procedure that is
127 called to produce the formatting for a @code{BassFigure} grob.  It
128 takes a list of @code{BassFigureEvent}s, a context, and the grob to
129 format.")
130      (bassStaffProperties ,list? "An alist of property settings to
131 apply for the down staff of @code{PianoStaff}.  Used by
132 @code{\\autochange}.")
133      (beamExceptions ,list? "An alist of exceptions to autobeam rules
134 that normally end on beats.")
135      (beatStructure ,list? "List of @code{baseMoment}s that are combined
136 to make beats.")
138      (chordChanges ,boolean? "Only show changes in chords scheme?")
139      (chordNameExceptions ,list? "An alist of chord exceptions.
140 Contains @code{(@var{chord} . @var{markup})} entries.")
141      (chordNameExceptionsFull ,list? "An alist of full chord
142 exceptions.  Contains @code{(@var{chord} . @var{markup})} entries.")
143      (chordNameExceptionsPartial ,list? "An alist of partial chord
144 exceptions.  Contains @code{(@var{chord} . (@var{prefix-markup}
145 @var{suffix-markup}))} entries.")
146      (chordNameFunction ,procedure? "The function that converts lists
147 of pitches to chord names.")
148          (chordNameLowercaseMinor ,boolean? "Downcase roots of minor chords?")
149      (chordNameSeparator ,markup? "The markup object used to
150 separate parts of a chord name.")
151      (chordNoteNamer ,procedure? "A function that converts from a pitch
152 object to a text markup.  Used for single pitches.")
153      (chordPrefixSpacer ,number? "The space added between the root
154 symbol and the prefix of a chord name.")
155      (chordRootNamer ,procedure? "A function that converts from a pitch
156 object to a text markup.  Used for chords.")
157      (clefGlyph ,string? "Name of the symbol within the music font.")
158      (clefOctavation ,integer? "Add this much extra octavation.
159 Values of 7 and -7 are common.")
160      (clefPosition ,number? "Where should the center of the clef
161 symbol go, measured in half staff spaces from the center of the
162 staff.")
163      (completionBusy ,boolean? "Whether a completion-note head is playing.")
164      (connectArpeggios ,boolean? "If set, connect arpeggios across
165 piano staff.")
166      (countPercentRepeats ,boolean? "If set, produce counters for
167 percent repeats.")
168      (createKeyOnClefChange ,boolean? "Print a key signature whenever
169 the clef is changed.")
170      (createSpacing ,boolean? "Create @code{StaffSpacing} objects?
171 Should be set for staves.")
172      (crescendoSpanner ,symbol? "The type of spanner to be used for
173 crescendi.  Available values are @samp{hairpin} and @samp{text}.  If unset,
174 a hairpin crescendo is used.")
175      (crescendoText ,markup? "The text to print at start of non-hairpin
176 crescendo, i.e., @samp{cresc.}.")
177      (currentBarNumber ,integer? "Contains the current barnumber.
178 This property is incremented at every bar line.")
181      (decrescendoSpanner ,symbol? "The type of spanner to be used for
182 decrescendi.  Available values are @samp{hairpin} and @samp{text}.  If
183 unset, a hairpin decrescendo is used.")
184      (decrescendoText ,markup? "The text to print at start of
185 non-hairpin decrescendo, i.e., @samp{dim.}.")
186      (defaultBarType ,string? "Set the default type of bar line.  See
187 @code{whichBar} for information on available bar types.
189 This variable is read by @rinternals{Timing_translator} at
190 @rinternals{Score} level.")
191      (doubleRepeatType ,string? "Set the default bar line for double
192 repeats.")
193      (doubleSlurs ,boolean? "If set, two slurs are created for every
194 slurred note, one above and one below the chord.")
195      (drumPitchTable ,hash-table? "A table mapping percussion
196 instruments (symbols) to pitches.")
197      (drumStyleTable ,hash-table? "A hash table which maps drums to
198 layout settings.  Predefined values: @samp{drums-style},
199 @samp{timbales-style}, @samp{congas-style}, @samp{bongos-style}, and
200 @samp{percussion-style}.
202 The layout style is a hash table, containing the drum-pitches (e.g.,
203 the symbol @samp{hihat}) as keys, and a list
204 @code{(@var{notehead-style} @var{script} @var{vertical-position})} as
205 values.")
208      (explicitClefVisibility ,vector? "@samp{break-visibility}
209 function for clef changes.")
210      (explicitKeySignatureVisibility ,vector? "@samp{break-visibility}
211 function for explicit key changes.  @samp{\\override} of the
212 @code{break-visibility} property will set the visibility for normal
213 (i.e., at the start of the line) key signatures.")
214      (extendersOverRests ,boolean? "Whether to continue extenders as
215 they cross a rest.")
216      (extraNatural ,boolean? "Whether to typeset an extra natural sign
217 before accidentals changing from a non-natural to another
218 non-natural.")
221      (figuredBassAlterationDirection ,ly:dir? "Where to put alterations
222 relative to the main figure.")
223      (figuredBassCenterContinuations ,boolean? "Whether to vertically
224 center pairs of extender lines.  This does not work with three or more
225 lines.")
226      (figuredBassFormatter ,procedure? "A routine generating a markup
227 for a bass figure.")
228      (figuredBassPlusDirection ,ly:dir? "Where to put plus signs
229 relative to the main figure.")
230      (fingeringOrientations ,list? "A list of symbols, containing
231 @samp{left}, @samp{right}, @samp{up} and/or @samp{down}.  This list
232 determines where fingerings are put relative to the chord being
233 fingered.")
234      (firstClef ,boolean? "If true, create a new clef when starting a
235 staff.")
236      (followVoice ,boolean? "If set, note heads are tracked across
237 staff switches by a thin line.")
238      (fontSize ,number? "The relative size of all grobs in a context.")
239      (forbidBreak ,boolean? "If set to @code{##t}, prevent a line break
240 at this point.")
241      (forceClef ,boolean? "Show clef symbol, even if it has not
242 changed.  Only active for the first clef after the property is set, not
243 for the full staff.")
244      (fretLabels ,list? "A list of strings or Scheme-formatted markups
245 containing, in the correct order, the labels to be used for lettered
246 frets in tablature.")
249      (gridInterval ,ly:moment? "Interval for which to generate
250 @code{GridPoint}s.")
253      (harmonicAccidentals ,boolean? "If set, harmonic notes in chords
254 get accidentals.")
255      (harmonicDots ,boolean? "If set, harmonic notes in dotted chords get
256 dots.")
257      (highStringOne ,boolean? "Whether the first string is the string
258 with highest pitch on the instrument.  This used by the automatic
259 string selector for tablature notation.")
262      (ignoreBarChecks ,boolean? "Ignore bar checks.")
263      (ignoreFiguredBassRest ,boolean? "Don't swallow rest events.")
264      (ignoreMelismata ,boolean? "Ignore melismata for this
265 @rinternals{Lyrics} line.")
266      (implicitBassFigures ,list? "A list of bass figures that are not
267 printed as numbers, but only as extender lines.")
268      (implicitTimeSignatureVisibility ,vector? "break visibility for
269 the default time signature.")
270      (includeGraceNotes ,boolean? "Do not ignore grace notes for
271 @rinternals{Lyrics}.")
272      (instrumentCueName ,markup? "The name to print if another
273 instrument is to be taken.")
274      (instrumentEqualizer ,procedure? "A function taking a string
275 (instrument name), and returning a @code{(@var{min} . @var{max})} pair
276 of numbers for the loudness range of the instrument.")
277      (instrumentName ,markup? "The name to print left of a staff.  The
278 @code{instrumentName} property labels the staff in the first system, and
279 the @code{shortInstrumentName} property labels following lines.")
280      ;; the definition is reversed wrt traditional transposition
281      ;; otherwise \transpose { \transposition .. } won't work
282      (instrumentTransposition ,ly:pitch? "Define the transposition of
283 the instrument.  Its value is the pitch that sounds like middle@tie{}C.
284 This is used to transpose the MIDI output, and @code{\\quote}s.")
285      (internalBarNumber ,integer? "Contains the current barnumber.
286 This property is used for internal timekeeping, among others by the
287 @code{Accidental_engraver}.")
290      (keepAliveInterfaces ,list? "A list of symbols, signifying grob
291 interfaces that are worth keeping a staff with @code{remove-empty} set
292 around for.")
293      (keyAlterationOrder ,list? "An alist that defines in what order
294 alterations should be printed.  The format is @code{(@var{step}
295 . @var{alter})}, where @var{step} is a number from 0 to@tie{}6 and
296 @var{alter} from -2 (sharp) to 2 (flat).")
297      (keySignature ,list? "The current key signature.  This is an alist
298 containing @code{(@var{step} . @var{alter})} or @code{((@var{octave} .
299 @var{step}) . @var{alter})},  where @var{step} is a number in the range
300 0 to@tie{}6 and @var{alter} a fraction, denoting alteration.  For
301 alterations, use symbols, e.g. @code{keySignature = #`((6 . ,FLAT))}.")
304      (lyricMelismaAlignment ,ly:dir? "Alignment to use for a melisma syllable.")
307      (majorSevenSymbol ,markup? "How should the major 7th be formatted
308 in a chord name?")
309      (markFormatter ,procedure? "A procedure taking as arguments the
310 context and the rehearsal mark.  It should return the formatted mark as
311 a markup object.")
312      (maximumFretStretch ,number? "Don't allocate frets further than
313 this from specified frets.")
314      (measureLength ,ly:moment? "Length of one measure in the current
315 time signature.")
316      (measurePosition ,ly:moment? "How much of the current measure have
317 we had.  This can be set manually to create incomplete measures.")
318      (melismaBusyProperties ,list? "A list of properties (symbols) to
319 determine whether a melisma is playing.  Setting this property will
320 influence how lyrics are aligned to notes.  For example, if set to
321 @code{#'(melismaBusy beamMelismaBusy)}, only manual melismata and
322 manual beams are considered.  Possible values include
323 @code{melismaBusy}, @code{slurMelismaBusy}, @code{tieMelismaBusy}, and
324 @code{beamMelismaBusy}.")
325      (metronomeMarkFormatter ,procedure? "How to produce a metronome
326 markup.  Called with four arguments: text, duration, count and context.")
327      (middleCClefPosition ,number? "The position of the middle C,
328 as determined only by the clef.  This can be calculated by looking at
329 @code{clefPosition} and @code{clefGlyph}.")
330      (middleCOffset ,number? "The offset of
331 middle C from the position given by @code{middleCClefPosition} This
332 is used for ottava brackets.")
333      (middleCPosition ,number? "The place of the middle C, measured in
334 half staff-spaces.  Usually determined by looking at
335 @code{middleCClefPosition} and @code{middleCOffset}.")
336      (midiInstrument ,string? "Name of the MIDI instrument to use.")
337      (midiMaximumVolume ,number? "Analogous to
338 @code{midiMinimumVolume}.")
339      (midiMinimumVolume ,number? "Set the minimum loudness for MIDI.
340 Ranges from 0 to@tie{}1.")
341      (minimumFret ,number? "The tablature auto string-selecting
342 mechanism selects the highest string with a fret at least
343 @code{minimumFret}.")
344      (minimumPageTurnLength ,ly:moment? "Minimum length of a rest for a
345 page turn to be allowed.")
346      (minimumRepeatLengthForPageTurn ,ly:moment? "Minimum length of a
347 repeated section for a page turn to be allowed within that section.")
350      (noChordSymbol ,markup? "Markup to be displayed for rests in a
351 ChordNames context.")
352      (noteToFretFunction ,procedure? "Convert list of notes and list of
353 defined strings to full list of strings and fret numbers.
354 Parameters: The context, a list of note events, a list of
355 tabstring events, and the fretboard grob if a fretboard is desired.")
358      (ottavation ,markup? "If set, the text for an ottava spanner.
359 Changing this creates a new text spanner.")
360      (output ,ly:music-output? "The output produced by a score-level
361 translator during music interpretation.")
364      (pedalSostenutoStrings ,list? "See @code{pedalSustainStrings}.")
365      (pedalSostenutoStyle ,symbol? "See @code{pedalSustainStyle}.")
366      (pedalSustainStrings ,list? "A list of strings to print for
367 sustain-pedal.  Format is @code{(@var{up} @var{updown} @var{down})},
368 where each of the three is the string to print when this is done with
369 the pedal.")
370      (pedalSustainStyle ,symbol? "A symbol that indicates how to print
371 sustain pedals: @code{text}, @code{bracket} or @code{mixed} (both).")
372      (pedalUnaCordaStrings ,list? "See @code{pedalSustainStrings}.")
373      (pedalUnaCordaStyle ,symbol? "See @code{pedalSustainStyle}.")
374      (predefinedDiagramTable ,hash-table? "The hash table of predefined
375 fret diagrams to use in FretBoards.")
376      (printKeyCancellation ,boolean? "Print restoration alterations
377 before a key signature change.")
378      (printOctaveNames ,boolean? "Print octave marks for the
379 @code{NoteNames} context.")
380      (printPartCombineTexts ,boolean? "Set @q{Solo} and @q{A due} texts
381 in the part combiner?")
382      (proportionalNotationDuration ,ly:moment? "Global override for
383 shortest-playing duration.  This is used for switching on proportional
384 notation.")
387      (rehearsalMark ,integer? "The last rehearsal mark printed.")
388      (repeatCommands ,list? "This property is a list of commands
389 of the form @code{(list 'volta @var{x})}, where @var{x} is a string or
390 @code{#f}.  @code{'end-repeat} is also accepted as a command.")
391      (repeatCountVisibility ,procedure? "A procedure taking as
392 arguments an integer and context, returning whether the corresponding
393 percent repeat number should be printed when @code{countPercentRepeats}
394 is set.")
395      (restNumberThreshold ,number? "If a multimeasure rest has more
396 measures than this, a number is printed.")
399      (shapeNoteStyles ,vector? "Vector of symbols, listing style for
400 each note head relative to the tonic (qv.) of the scale.")
401      (shortInstrumentName ,markup? "See @code{instrumentName}.")
402      (shortVocalName ,markup? "Name of a vocal line, short version.")
403      (skipBars ,boolean? "If set to true, then skip the empty bars
404 that are produced by multimeasure notes and rests.  These bars will
405 not appear on the printed output.  If not set (the default),
406 multimeasure notes and rests expand into their full length, printing
407 the appropriate number of empty bars so that synchronization with other
408 voices is preserved.
410 @example
412   r1 r1*3 R1*3
413   \\set Score.skipBars= ##t
414   r1*3 R1*3
416 @end example")
417      (skipTypesetting ,boolean? "If true, no typesetting is done,
418 speeding up the interpretation phase.  Useful for debugging large
419 scores.")
420      (soloIIText ,markup? "The text for the start of a solo for
421 voice @q{two} when part-combining.")
422      (soloText ,markup? "The text for the start of a solo when
423 part-combining.")
424      (squashedPosition ,integer? "Vertical position of squashing for
425 @rinternals{Pitch_squash_engraver}.")
426      (staffLineLayoutFunction ,procedure? "Layout of staff lines,
427 @code{traditional}, or @code{semitone}.")
428      (stanza ,markup? "Stanza @q{number} to print before the start of a
429 verse.  Use in @code{Lyrics} context.")
430      (stemLeftBeamCount ,integer? "Specify the number of beams to draw
431 on the left side of the next note.  Overrides automatic beaming.  The
432 value is only used once, and then it is erased.")
433      (stemRightBeamCount ,integer? "See @code{stemLeftBeamCount}.")
434      (stringNumberOrientations ,list? "See
435 @code{fingeringOrientations}.")
436      (stringOneTopmost ,boolean? "Whether the first string is
437 printed on the top line of the tablature.")
438      (stringTunings ,list? "The tablature strings tuning.  It is a list
439 of the pitch (in semitones) of each string (starting with the lower
440 one).")
441      (strokeFingerOrientations ,list? "See
442 @code{fingeringOrientations}.")
443      (subdivideBeams ,boolean? "If set, multiple beams will be
444 subdivided at @code{baseMoment} positions by only drawing one beam over the beat.")
445      (suggestAccidentals ,boolean? "If set, accidentals are typeset as
446 cautionary suggestions over the note.")
447      (systemStartDelimiter ,symbol? "Which grob to make for the start
448 of the system/staff?  Set to @code{SystemStartBrace},
449 @code{SystemStartBracket} or @code{SystemStartBar}.")
450      (systemStartDelimiterHierarchy ,pair? "A nested list, indicating
451 the nesting of a start delimiters.")
454      (tablatureFormat ,procedure? "A function formatting a tablature
455 note head.  Called with three arguments: context, string number and,
456 fret number.  It returns the text as a markup.")
457      (tabStaffLineLayoutFunction ,procedure? "A function determining the
458 staff position of a tablature note head.  Called with two arguments:
459 the context and the string.")
460      (tempoHideNote ,boolean? "Hide the note=count in tempo marks.")
461      (tempoText ,markup? "Text for tempo marks.")
462      (tempoUnitCount ,number? "Count for specifying tempo.")
463      (tempoUnitDuration ,ly:duration? "Unit for specifying tempo.")
464      (tempoWholesPerMinute ,ly:moment? "The tempo in whole notes per
465 minute.")
466      (tieWaitForNote ,boolean? "If true, tied notes do not have to
467 follow each other directly.  This can be used for writing out
468 arpeggios.")
469      (timeSignatureFraction ,number-pair? "A pair of numbers,
470 signifying the time signature.  For example, @code{#'(4 . 4)} is a
471 4/4 time signature.")
472      (timeSignatureSettings ,cheap-list? "A nested alist of settings for
473 time signatures.  Contains elements for various time signatures.  The
474 element for each time signature contains entries for @code{baseMoment},
475 @code{beatStructure}, and @code{beamExceptions}.")
476      (timing ,boolean? "Keep administration of measure length,
477 position, bar number, etc.?  Switch off for cadenzas.")
478      (tonic ,ly:pitch? "The tonic of the current scale.")
479      (topLevelAlignment ,boolean? "If true, the @var{Vertical_align_engraver}
480 will create a @var{VerticalAlignment}; otherwise, it will create a
481 @var{StaffGrouper}")
482      (trebleStaffProperties ,list? "An alist of property settings to
483 apply for the up staff of @code{PianoStaff}.  Used by
484 @code{\\autochange}.")
485      (tremoloFlags ,integer? "The number of tremolo flags to add if no
486 number is specified.")
487      (tupletFullLength ,boolean? "If set, the tuplet is printed up to
488 the start of the next note.")
489      (tupletFullLengthNote ,boolean? "If set, end at the next note,
490 otherwise end on the matter (time signatures, etc.) before the note.")
491      (tupletSpannerDuration ,ly:moment? "Normally, a tuplet bracket is
492 as wide as the @code{\\times} expression that gave rise to it.  By
493 setting this property, you can make brackets last shorter.
495 @example
497   \\set tupletSpannerDuration = #(ly:make-moment 1 4)
498   \\times 2/3 @{ c8 c c c c c @}
500 @end example")
503      (useBassFigureExtenders ,boolean? "Whether to use extender lines
504 for repeated bass figures.")
506      (vocalName ,markup? "Name of a vocal line.")
507      (voltaSpannerDuration ,ly:moment? "This specifies the maximum
508 duration to use for the brackets printed for @code{\\alternative}.
509 This can be used to shrink the length of brackets in the situation
510 where one alternative is very large.")
513      (whichBar ,string? "This property is read to determine what type
514 of bar line to create.
516 Example:
518 @example
519 \\set Staff.whichBar = \"|:\"
520 @end example
522 @noindent
523 This will create a start-repeat bar in this staff only.  Valid values
524 are described in @rinternals{bar-line-interface}.")
525      )))
528 (define-public all-internal-translation-properties
529   (map
530    (lambda (x)
531      (set-object-property! (car x) 'internal-translation #t)
532      (apply translator-property-description x))
534    `(
536      (associatedVoiceContext ,ly:context? "The context object of the
537 @code{Voice} that has the melody for this @code{Lyrics}.")
540      (barCheckLastFail ,ly:moment? "Where in the measure did the last
541 barcheck fail?")
542      (beamMelismaBusy ,boolean? "Signal if a beam is present.")
543      (busyGrobs ,list? "A queue of @code{(@var{end-moment} .
544 @var{GROB})} cons cells.  This is for internal (C++) use only.  This
545 property contains the grobs which are still busy (e.g. note heads,
546 spanners, etc.).")
549      (currentCommandColumn ,ly:grob? "Grob that is X-parent to all
550 current breakable (clef, key signature, etc.) items.")
551      (currentMusicalColumn ,ly:grob? "Grob that is X-parent to all
552 non-breakable items (note heads, lyrics, etc.).")
555      (dynamicAbsoluteVolumeFunction ,procedure? "A procedure that takes
556 one argument, the text value of a dynamic event, and returns the absolute
557 volume of that dynamic event.")
560      (finalizations ,list? "A list of expressions to evaluate before
561 proceeding to next time step.  This is an internal variable.")
564      (graceSettings ,list? "Overrides for grace notes.  This property
565 should be manipulated through the @code{add-grace-property} function.")
568      (hasStaffSpacing ,boolean? "True if the current
569 @code{CommandColumn} contains items that will affect spacing.")
572      (lastKeySignature ,list? "Last key signature before a key
573 signature change.")
574      (localKeySignature ,list? "The key signature at this point in the
575 measure.  The format is the same as for @code{keySignature}, but can
576 also contain @code{((@var{octave} . @var{name}) . (@var{alter}
577 @var{barnumber} . @var{measureposition}))} pairs.")
580      (melismaBusy ,boolean? "Signifies whether a melisma is active.
581 This can be used to signal melismas on top of those automatically
582 detected.")
585      (quotedCueEventTypes ,list? "A list of symbols, representing the
586 event types that should be duplicated for @code{\\cueDuring} commands.")
587      (quotedEventTypes ,list? "A list of symbols, representing the
588 event types that should be duplicated for @code{\\quoteDuring} commands.
589 This is also a fallback for @code{\\cueDuring} if @code{quotedCueEventTypes}
590 is not set")
593      (rootSystem ,ly:grob? "The System object.")
596      (scriptDefinitions ,list? "The description of scripts.  This is
597 used by the @code{Script_engraver} for typesetting note-superscripts
598 and subscripts.  See @file{scm/script.scm} for more information.")
599      (slurMelismaBusy ,boolean? "Signal if a slur is present.")
600      (stavesFound ,grob-list? "A list of all staff-symbols found.")
603      (tieMelismaBusy ,boolean? "Signal whether a tie is present.")
604      )))
606 (define-public all-translation-properties
607   (append all-user-translation-properties
608           all-internal-translation-properties))
610 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
612 (define-public default-melisma-properties
613   '(melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy completionBusy))