]> git.donarmstrong.com Git - lilypond.git/blob - scm/define-translator-properties.scm
* Documentation/user/refman.itely (Ottava brackets): more doco for
[lilypond.git] / scm / define-translator-properties.scm
1 ;;;; translator-property-description.scm -- part of backend documentation
2 ;;;;
3 ;;;;  source file of the GNU LilyPond music typesetter
4 ;;;; 
5 ;;;; (c)  1998--2003  Han-Wen Nienhuys <hanwen@cs.uu.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 (equal? #f (object-property symbol 'translation-doc)))
13       (begin
14         (ly:warn (string-append "Redefining " (symbol->string symbol) "\n"))
15         (exit 2)
16       ))
17   
18   (set-object-property! symbol 'translation-type? type?)
19   (set-object-property! symbol 'translation-doc description)
20   (set! all-translation-properties (cons symbol all-translation-properties))
21   )
22
23
24
25 (translator-property-description 'acceptHashTable vector? "Internal
26 variable: store table with MusicName to Engraver entries.")
27 (translator-property-description 'acknowledgeHashTable vector?
28 "Internal variable: store interface to engraver smob table for current
29 context. Don't mess with this.")
30 (translator-property-description 'aDueText string? "text for begin of a due")
31 (translator-property-description 'alignBassFigureAccidentals boolean?
32                                  "If true, then the accidentals are aligned in bass figure context.")
33
34 (translator-property-description 'allowBeamBreak boolean?
35                                  "If true allow line breaks during beams.")
36 (translator-property-description 'associatedVoice string? "Name of the
37 Voice that has the melody for this LyricsVoice.")
38 (translator-property-description 'autoBeamSettings list? "Specifies
39 when automatically generated beams should begin and end.  The elements
40 have the format:
41
42 @example
43
44    function shortest-duration-in-beam time-signature
45
46 where
47
48     function = begin or end
49     shortest-duration-in-beam = numerator denominator; eg: 1 16
50     time-signature = numerator denominator, eg: 4 4
51
52 unspecified or wildcard entries for duration or time-signature
53 are given by * *
54
55 The user can override beam begin or end time by pushing a wildcard entries
56 '(begin * * * *) or '(end * * * *) resp., eg:
57
58     property Voice.autoBeamSettings push #'(end * * * *) = #(ly:make-moment 1 4)
59
60 The head of the list:
61     '(
62 ((end * * 3 2) . ,(ly:make-moment 1 2))
63 ((end 1 16 3 2) . ,(ly:make-moment 1 4))
64 ((end 1 32 3 2) . ,(ly:make-moment 1 8))
65      ...
66     )
67
68 @end example")
69
70 ;; "
71
72 (translator-property-description 'autoAccidentals list? "List of
73 different ways to typeset an accidental. All algorithms in the list
74 are tried, and the one returning the most accidentals is used.
75 Each entry is either a symbol containg a context name or a name-value
76 pair containing an algorithm-description.
77 The list must begin with a symbol (context name).
78 The symbols denote in which context THE FOLLOWING algorithms (until next symbol) 
79 will be interpreted. All notes in the interpretation context will share accidentals.
80 The contexts must be stated in order, innermost first.
81 The algorithms are:
82 @table @samp
83 @item same-octave:
84 This is the default algorithm. Accidentals are typeset if the note changes
85 the accidental of that note in that octave. Accidentals lasts to the end of the measure 
86 and then as many measures as specified in the value. I.e. 1 means to the end
87 of next measure, -1 means to the end of previous measure (that is: no duration at all), etc. #t means forever.
88 @item any-octave:
89 Accidentals are typeset if the note is different from 
90 the previous note on the same pitch in any octave. The value has same meaning as in
91 same-octave.
92 @end table
93 ")
94 (translator-property-description 'autoBeaming boolean? "If set to true
95 then beams are generated automatically.")
96
97 (translator-property-description 'autoCautionaries list? "List similar to
98 autoAccidentals, but it controls cautionary accidentals rather than
99 normal ones. Both lists are tried, and the one giving the most accidentals
100 wins. In case of draw, a normal accidental is typeset.
101 ")
102 (translator-property-description 'automaticBars boolean? " If set to true then bar lines will not be printed
103     automatically; they must be explicitly created with @code{bar}
104     keywords.  Unlike with the @code{cadenza} keyword, measures are
105     still counted.  Bar generation will resume according to that
106     count if this property is set to zero.
107 ")
108
109 (translator-property-description 'barAlways boolean? "If set to true a bar line is drawn after each note.
110 ")
111 (translator-property-description 'barCheckLastFail ly:moment? "Where in  the measurze did the last barcheck fail?") 
112
113 (translator-property-description 'barCheckSynchronize boolean? "If
114 true then reset measurePosition when finding a barcheck. Turn off when
115 using barchecks in polyphonic music.")
116 (translator-property-description 'barNumberVisibility procedure? "Procedure that takes an int and returns whether the corresponding bar number should be printed")
117 (translator-property-description 'bassFigureFormatFunction procedure? "DOCME")
118 (translator-property-description 'beamMelismaBusy boolean? "Signal if a beam is set when automaticMelismata is set")
119 (translator-property-description 'beatLength ly:moment? "The length of one beat in this time signature.")
120 (translator-property-description 'beatGrouping list?
121                                  "List of beatgroups. Eg. in 5/8 time #(list 2 3).")
122
123
124 (translator-property-description 'breakableSeparationItem ly:grob?
125 "The breakable items in this time step, for this staff.")
126
127 (translator-property-description 'breakAlignOrder list? "Defines the order in which
128 prefatory matter (clefs, key signatures) appears, eg. this puts the
129 key signatures after the bar lines:
130
131 @example
132         \\property Score.breakAlignOrder = #'(
133           span-bar
134           breathing-sign
135           clef
136           staff-bar
137           key
138           time-signature
139         )
140 @end example
141 ")
142 (translator-property-description 'busyGrobs list? "
143 a queue of (END-MOMENT . GROB) conses. This is for internal (C++) use only.
144 Use at your own risk.  This property contains the grobs for which  END-MOMENT >= NOW.
145 ")
146
147 (translator-property-description 'centralCPosition number? "Place of
148 the central C, measured in half staffspaces.  Usually determined by
149 looking at clefPosition and clefGlyph.")
150
151 (translator-property-description
152  'changeMoment moment-pair?
153  "duration that voices are examined for differences, when
154 part-combining.  Usually unset or zero when combining threads into one
155 voice, and 1 (or the duration of one measure) when combining voices
156 into one staff.")
157
158 (translator-property-description
159  'chordNameFunction procedure?
160  "The function that converts lists of pitches to chord names.")
161 (translator-property-description
162  'chordNoteNamer procedure?
163  "Function that converts from a pitch object to a text markup. Used for single pitches.")
164 (translator-property-description
165  'chordRootNamer procedure?
166  "Function that converts from a pitch object to a text markup. Used for chords.")
167 (translator-property-description
168  'chordNameExceptions list?
169  "Alist of chord exceptions. Contains (CHORD . MARKUP) entries.")
170 (translator-property-description
171  'chordNameExceptionsFull list?
172  "Alist of chord exceptions. Contains (CHORD . (MARKUP)) entries.")
173 (translator-property-description
174  'chordNameExceptionsPartial list?
175  "Alist of partial chord exceptions. Contains (CHORD . (PREFIX-MARKUP SUFFIX-MARKUP)) entries.")
176 (translator-property-description
177  'chordNameSeparator markup?
178  "The markup object used to separate parts of a chord name.")
179
180 (translator-property-description 'chordChanges boolean? "Only show changes in chords scheme?")
181 (translator-property-description 'clefGlyph string? "Name of the symbol within the music font")
182 (translator-property-description 'clefOctavation integer? "Add
183 this much extra octavation. Values of 7 and -7 are common.")
184
185 (translator-property-description 'clefPosition number? "Where should
186 the center of the clef symbol go?  On systems with an odd number of
187 stafflines, the value 0 puts the clef on the middle staffline; a
188 positive value shifts it up, a negative value shifts it down.  The
189 unit of this distance is the half staff space.")
190
191 (translator-property-description 'combineParts boolean? "try to combine parts?")
192 (translator-property-description 'connectArpeggios boolean? " If
193 set, connect all arpeggios that are found.  In this way, you can make
194 arpeggios that cross staves.
195 ")
196 (translator-property-description 'createKeyOnClefChange boolean? "Print a key signature whenever the clef is changed.")
197 (translator-property-description 'crescendoText markup? "Text to print at start of non-hairpin crecscendo, ie: @samp{cresc.}")
198 (translator-property-description 'crescendoSpanner symbol? "Type of spanner to be used for crescendi.  One of: @samp{hairpin}, @samp{line}, @samp{dashed-line}, @samp{dotted-line}.  If unset, hairpin type is used.")
199 (translator-property-description 'decrescendoText markup? "Text to print at start of non-hairpin decrecscendo, ie: @samp{dim.}")
200 (translator-property-description 'currentBarNumber integer? "Contains the current barnumber. This property is incremented at
201 every barline.
202 ")
203 (translator-property-description 'currentCommandColumn ly:grob? "Grob that is X-parent to all current breakable (clef, key signature, etc.) items.")
204 (translator-property-description 'currentMusicalColumn ly:grob? "Grob that is X-parent to all non-breakable items (note heads, lyrics, etc.).")
205 (translator-property-description 'defaultBarType string? "Sets the default type of bar line.  Available bar types: [FIXME];
206
207 This variable is typically read at Score level, so overriding
208 Staff.defaultBarType will have no effect.
209
210 ")
211 (translator-property-description 'devNullThread symbol? "User control of Thread_devnull_engraver: one of
212 @table @samp
213 @item (), or unset
214 Behave in normal way: remove one set of grobs when in unisolo.
215 @item always:
216 Remove any grob that comes along.
217 @item never:
218 Do nothing.
219 @end table
220 ")
221 (translator-property-description 'devNullVoice symbol? "User control of Voice_devnull_engraver: one of
222 @table @samp
223 @item (), or unset
224 Behave in normal way: remove spanners when in unisolo.
225 @item always:
226 Remove any spanners that come along.
227 @item never:
228 Do nothing.
229 @end table
230 ")
231 (translator-property-description 'decrescendoSpanner symbol? "Type of spanner to be used for decrescendi.  One of: @samp{hairpin}, @samp{line}, @samp{dashed-line}, @samp{dotted-line}.  If unset, hairpin type is used.")
232
233 (translator-property-description 'dynamicAbsoluteVolumeFunction procedure? "
234 [DOCUMENT-ME]
235 ")
236 (translator-property-description 'explicitClefVisibility procedure? "visibility-lambda function for clef changes.")
237
238 (translator-property-description 'explicitKeySignatureVisibility
239 procedure? "visibility-lambda function for explicit Key changes;
240 \\override of #'break-visibility will set the visibility for normal
241 (ie. at the start of the line) key signatures.")
242
243 (translator-property-description 'extraNatural boolean? "Whether to typeset an
244 extra natural sign before accidentals changing from a non-natural to 
245 another non-natural.
246 ")
247
248 (translator-property-description 'extraVerticalExtent number-pair?
249 "extra vertical extent, same format as MinimumVerticalExtent")
250
251
252 (translator-property-description 'finalizations list? "List of expressions to evaluate before proceeding to next time step. Internal variable.")
253 (translator-property-description 'followVoice boolean?
254                                  "if set, note heads are tracked  across staff switches by a thin line")
255 (translator-property-description 'fontSize number?
256                                  "Used to set the relative size of all grobs
257 in a context. This is done using the @code{Font_size_engraver}.")
258
259 (translator-property-description
260  'fingeringOrientations list?
261  "List of symbols, containing left, right, up and/or down. This list determines where fingerings are put wrt. to the chord being fingered.")
262
263 (translator-property-description 'forceClef boolean? "Show clef symbol, even if it hasn't changed. Only active for the first clef after the property is set, not for the full staff.")
264
265 (translator-property-description 'graceSettings vector?
266                                  "Overrides for grace notes. This
267 property should be manipulated through the @code{add-grace-property}
268 function.")
269
270 (translator-property-description 'highStringOne boolean? "Whether the
271 1st string is the string with highest pitch on the instrument (used by
272 the automatic string selector).")
273
274 (translator-property-description 'ignoreMelismata boolean?
275                                  "Ignore melismata for this @ref{LyricsVoice}.")
276 (translator-property-description 'instr markup? "see @code{instrument}")
277 (translator-property-description 'instrument markup? " If @code{Instrument_name_engraver}
278 @cindex Instrument_name_engraver
279  is
280     added to the Staff translator, then the @code{instrument} property
281     is used to label the first line of the staff and the @code{instr}
282     property is used to label subsequent lines.  If the
283     @code{midiInstrument} property is not set, then @code{instrument}
284     is used to determine the instrument for MIDI output.")
285
286 (translator-property-description 'instrumentEqualizer procedure? "[DOCUMENT-ME]")
287 (translator-property-description 'instrumentSupport list? "
288 list of grobs to attach instrument name to. 
289 ")                               
290 (translator-property-description 'keyAccidentalOrder list? "
291 Alist that defines in what order  alterations should be printed.
292 The format is (NAME . ALTER), where NAME is from 0 .. 6 and ALTER from  -1, 1.
293 ")
294 (translator-property-description 'keySignature list? "The current key signature. This is an alist containing (NAME . ALTER) or ((OCTAVE . NAME) . ALTER) or ((OCTAVE . NAME) . (ALTER . BARNUMBER)) pairs, where NAME is from 0.. 6 and ALTER from -2,-1,0,1,2. The optional barnumber contains the number of the measure of the accidental. FIXME: describe broken tie entries.")
295
296 (translator-property-description 'lastKeySignature list? "Last key
297 signature before a key signature change.")
298
299 (translator-property-description 'localKeySignature list? "the key
300 signature at this point in the measure.  The format is the same as for keySignature. Is reset at every bar line."
301
302 (translator-property-description 'localKeySignatureChanges list? "Experimental.
303  [DOCME]")
304 (translator-property-description 'majorSevenSymbol markup? "How should
305 the major7 be formatted in a chord name?")
306 (translator-property-description 'measureLength ly:moment? "Length of one
307 measure in the current time signature last?")
308 (translator-property-description 'measurePosition ly:moment? "How much
309 of the current measure (measured in whole notes) have we had.  This
310 can be set manually to create incomplete measures (anacrusis, upbeat),
311 the start of the music.
312 ")
313 (translator-property-description 'melismaBusy boolean? "Signifies
314 whether a melisma is active. This can be used to signal melismas on
315 top of those automatically detected. ")
316 (translator-property-description 'melismaBusyProperties list?
317                                  "List of  properties (symbols) to
318 determine whether a melisma  is playing.")
319
320
321 (translator-property-description 'metronomeMarkFormatter procedure?
322                                  "How to produce a metronome markup.
323 Called with 2 arguments,  event and context.")
324 (translator-property-description 'midiInstrument string? "Name of the
325 MIDI instrument to use ")
326 (translator-property-description 'midiMinimumVolume number? "[DOCUMENT-ME]")
327 (translator-property-description 'midiMaximumVolume number? "[DOCUMENT-ME]")
328 (translator-property-description 'minimumFret number? "The tablature
329 auto string-selecting mechanism selects the highest string with a fret
330 not less than minimumFret")
331 (translator-property-description 'minimumVerticalExtent number-pair?
332 "minimum vertical extent, same format as VerticalExtent")
333 (translator-property-description 'recordEventSequence procedure?
334                                  "Upon termination of this context,
335 this function is called with current context and a list of music
336 objects.  The list of contains entries with start times, music objects
337 and whether they're processed in this context.")
338
339 (translator-property-description 'noDirection boolean? "Don't set directions by a2-engraver when part-combining.")
340 (translator-property-description
341  'originalCentralCPosition integer?
342  "Used for temporary overriding central C in octavation brackets. ")
343 (translator-property-description 'othersolo boolean? "FIXME")
344 (translator-property-description 'ottavation string? "If set, the text
345 for an 8va spanner. Changing this implies a new text spanner. ")
346 (translator-property-description 'pedalSustainStrings list? "List of   string to print for sustain-pedal. Format is
347  (UP UPDOWN DOWN), where each of the three is the string to print when
348 this is done with the pedal.")
349 (translator-property-description 'pedalUnaCordaStrings list? "see pedalSustainStrings.")
350 (translator-property-description 'pedalSostenutoStrings list? "see pedalSustainStrings.")
351 (translator-property-description 'pedalSustainStyle symbol? "A symbol
352 that indicates how to print sustain pedals: text, bracket or mixed
353 (both).")
354 (translator-property-description 'pedalUnaCordaStyle symbol? "see pedalSustainStyle.")
355 (translator-property-description 'pedalSostenutoStyle symbol? "see pedalSustainStyle.")
356
357 (translator-property-description 'rehearsalMark number-or-string? "The
358 last rehearsal mark printed.")
359 (translator-property-description 'repeatCommands list? "This property is read to find any command of the form (volta . X), where X is a string or #f")
360 (translator-property-description 'scriptDefinitions list? "
361 Description of scripts. This is used by Script_engraver for typesetting note-super/subscripts. See @file{scm/script.scm} for more information
362 ")
363
364 (translator-property-description 'restNumberThreshold number?
365                                  "If a multimeasure rest takes less
366 than this number of measures, no number is printed. ")
367
368 (translator-property-description 'scriptHorizontal boolean? "  Put
369 scripts left or right of note heads.  Support for this is limited.
370 Accidentals will collide with scripts.
371 ")
372 (translator-property-description 'skipBars boolean? "If set to true, then
373 skip the empty bars that are produced by multimeasure notes and rests.
374 These bars will not appear on the printed output.  If not set (the
375 default) multimeasure notes and rests expand into their full length,
376 printing the appropriate number of empty bars so that synchronization
377 with other voices is preserved.
378
379
380 @example
381 @@lilypond[fragment,verbatim,center]
382 r1 r1*3 R1*3  \\\\property Score.skipBars= ##t r1*3 R1*3
383
384 @@end lilypond
385 @end example
386
387 ")
388 (translator-property-description 'skipTypesetting boolean?
389                                  "When true, all no typesetting is done at
390 this moment, causing  the interpretation phase to go a lot faster. This can
391 help with debugging large scores.")
392 (translator-property-description 'slurMelismaBusy boolean? "Signal a slur if automaticMelismata is set.")
393 (translator-property-description 'solo boolean? "set if solo is detected by the part combiner.")
394 (translator-property-description 'soloADue boolean? "set Solo/A due texts in the part combiner?.")
395 (translator-property-description 'soloIIText string? "text for begin of solo for voice ``two'' when part-combining.")
396 (translator-property-description 'soloText string? "text for begin of solo when part-combining.")
397 (translator-property-description 'sparseTies boolean? "only create one tie per chord.")
398 (translator-property-description 'splitInterval number-pair? "part-combiner will separate its two voices (or threads) when interval between the two voices is contained in this range.")
399 (translator-property-description 'split-interval boolean? "set if part-combiner separated voices based on splitInterval.")
400 (translator-property-description 'squashedPosition integer? " Vertical position of
401 squashing for Pitch_squash_engraver.")
402 (translator-property-description 'stringOneTopmost boolean? "Whether the 1st string is printed on the
403 top line of the tablature.")
404 (translator-property-description 'stavesFound list? "list of all staff-symbols found.")
405 (translator-property-description 'stanza markup? "Stanza `number' to
406 print before the start of a verse. Use in LyricsVoice context.")
407 (translator-property-description 'stemLeftBeamCount integer? "
408 Specify the number of beams to draw on the left side of the next note.
409 Overrides automatic beaming.  The value is only used once, and then it
410 is erased.
411 .")
412 (translator-property-description 'stemRightBeamCount integer? "idem, for the right side.")
413 (translator-property-description 'stringTunings list? "The tablature strings tuning. Must be a list of the different semitons pitch of each string (starting by the lower one).")
414 (translator-property-description 'subdivideBeams boolean? "If set, multiple beams will be subdivided at beat
415 positions - by only drawing one beam over the beat.")
416 (translator-property-description 'systemStartDelimiter symbol? "Which grob to make for the start of the system/staff? Set to @code{SystemStartBrace}, @code{SystemStartBracket} or @code{SystemStartBar}.")
417 (translator-property-description 'tablatureFormat procedure?
418                                  "Function formatting a tab notehead; it takes
419 a string number, a list of string tunings and Pitch object. It returns the text as a string.")
420
421 (translator-property-description 'tieMelismaBusy boolean? "Signal ties when automaticMelismata is set.")
422 (translator-property-description 'timeSignatureFraction number-pair? "
423 pair of numbers,  signifying the time signature. For example #'(4 . 4) is a 4/4time signature.")
424 (translator-property-description 'timing boolean? " Keep administration of measure length, position, bar number, etc?
425 Switch off for cadenzas.")
426 (translator-property-description 'tonic ly:pitch?
427                                  "The tonic of the current scale")
428 (translator-property-description 'transposing integer? "Transpose the MIDI output.  Set this property to the number of half-steps to transpose by.")
429 (translator-property-description 'tremoloFlags integer? "Number of tremolo flags to add if none is specified.")
430 (translator-property-description 'tupletNumberFormatFunction procedure?
431                                  "Function taking a music as input, producing a string. This function is called to determine the text to print on a tuplet bracket.")
432
433
434 ;; remove this? 
435 (translator-property-description 'tupletInvisible boolean? "
436     If set to true, tuplet bracket creation is switched off
437 entirely. This has the same effect as setting both
438 @code{tupletNumberVisibility} and @code{tupletBracketVisibility} to
439 @code{#f}, but as this does not even create any grobs, this setting
440 uses less memory and time.")
441
442 (translator-property-description 'tupletSpannerDuration ly:moment? "
443 Normally a tuplet bracket is as wide as the
444 @code{  imes} expression that gave rise to it. By setting this
445 property, you can make brackets last shorter. Example
446
447 @example
448 @@lilypond[verbatim,fragment]
449 context Voice   imes 2/3 @{
450   property Voice.tupletSpannerDuration = #(ly:make-moment 1 4)
451   c-[8 c c-] c-[ c c-]
452 @}
453 @@end lilypond
454 @end example
455 .")
456 (translator-property-description 'unirhythm boolean? "set if unirhythm is detected by the part combiner.")
457 (translator-property-description 'unisilence boolean? "set if unisilence is detected by the part combiner.")
458 (translator-property-description 'unison boolean? "set if unisono is detected  by the part combiner. .")
459 (translator-property-description 'verticalAlignmentChildCallback
460 procedure? "what callback to add to children of a vertical alignment.
461 It determines what alignment procedure is used on the alignment
462 itself.  .")
463 (translator-property-description 'verticalExtent number-pair? "hard
464 coded vertical extent.  The format is a pair of dimensions, for
465 example, this sets the sizes of a staff to 10 (5+5) staffspaces high.
466
467 @example
468 property Staff.verticalExtent = #(-5.0 . 5.0)
469 @end example
470
471 VerticalExtent, MinimumVerticalExtent and ExtraVerticalExtent are
472 predefined in all relevant contexts to @code{#f}, so they will not
473 inherit values.
474
475 Note that these VerticalExtents can only operate on vertical groups,
476 and therefore only work in contexts which contain an
477 @code{Axis_group_engraver}.
478 ")
479
480 (translator-property-description 'voltaOnThisStaff boolean?
481  "Normally, volta brackets are put only on the topmost staff. Setting
482 this variable to true, will force a bracket to be on this staff as
483 well.")
484
485 (translator-property-description 'voltaSpannerDuration ly:moment? "maximum duration of the volta bracket.
486
487     Set to a duration to control the size of the brackets printed by
488 @code{\\alternative}.  It specifies the number of whole notes duration
489 to use for the brackets.  This can be used to shrink the length of
490 brackets in the situation where one alternative is very large.  It may
491 have odd effects if the specified duration is longer than the music
492 given in an @code{\\alternative}.
493 .")
494 (translator-property-description 'whichBar string?
495                                  "This property is read to determine what type of barline to create.
496
497 Example:
498 @example
499 \\property Staff.whichBar = \"|:\"
500 @end example
501
502 This will create a start-repeat bar in this staff only.
503
504 If not set explicitly (by property or @code{\\bar}), this is set
505 according to values of @code{defaultBarType}, @code{barAlways},
506 @code{barNonAuto} and @code{measurePosition}.
507
508 Valid values are described in @ref{(lilypond-internals)bar-line-interface}.
509
510 .")
511
512
513 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
514
515 (define-public default-melisma-properties '(melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy))