2 (define-public music-descriptions
6 (description . "Abort currently running spanners.")
7 (internal-class-name . "Request")
9 (types . (general-music event abort-event))
13 (description . "Make an arpeggio on this note. Syntax:
14 @var{note}-@code{\\arpeggio}")
15 (internal-class-name . "Request")
16 (types . (general-music arpeggio-event event))
19 ;; todo: use articulation-event for slur as well.
20 ;; separate non articulation scripts
25 (internal-class-name . "Request")
26 (types . (general-music event articulation-event script-event))
32 (internal-class-name . "Music_wrapper")
33 (iterator-ctor . ,Auto_change_iterator::constructor)
34 (types . (general-music music-wrapper-music auto-change-instruction))
39 (internal-class-name . "Music")
40 (types . (general-music bar-check))
41 (iterator-ctor . ,Bar_check_iterator::constructor)
47 (internal-class-name . "Request")
48 (types . (general-music event rhythmic-event bass-figure-event))
54 (internal-class-name . "Request")
55 (types . (general-music event beam-event span-event))
61 (internal-class-name . "Request")
62 (types . (general-music break-event event))
68 (internal-class-name . "Request")
69 (types . (general-music event breathing-event))
75 (internal-class-name . "Request")
76 (types . (general-music event busy-playing-event))
81 (iterator-ctor . ,Context_specced_music_iterator::constructor)
82 (internal-class-name . "Music_wrapper")
83 (types . (context-specification general-music music-wrapper-music))
89 (internal-class-name . "Request")
90 (types . (general-music dynamic-event crescendo-event event))
96 (internal-class-name . "Request")
97 (types . (general-music dynamic-event decrescendo-event event))
103 (internal-class-name . "Request")
104 (types . (general-music extender-event event))
110 (internal-class-name . "Request")
111 (types . (general-music glissando-event event))
117 (internal-class-name . "Grace_music")
118 (iterator-ctor . ,Grace_iterator::constructor)
119 (types . (grace-music music-wrapper-music general-music))
125 (internal-class-name . "Request")
126 (types . (general-music hyphen-event event))
132 (internal-class-name . "Key_change_req")
133 (types . (general-music key-change-event event))
139 (internal-class-name . "Lyric_combine_music")
140 (types . (general-music lyric-combine-music))
141 (iterator-ctor . ,Lyric_combine_music_iterator::constructor)
146 (description . "A lyric syllable. Must be entered in lyrics mode, i.e.
147 @code{\\lyrics @{ twinkle4 twinkle4 @} } .")
149 (internal-class-name . "Request")
150 (types . (general-music rhythmic-event lyric-event event))
156 (internal-class-name . "Request")
157 (span-type . ligature)
158 (types . (general-music event span-event ligature-event))
164 (internal-class-name . "Request")
165 (types . (general-music mark-event event))
171 (internal-class-name . "Request")
172 (types . (general-music span-event melisma-playing-event event))
178 (internal-class-name . "Request")
179 (types . (general-music event))
181 (MultiMeasureRestEvent
183 (description . "Rests that may be compressed into Multi rests. Syntax
184 @code{R2.*4} for 4 measures in 3/4 time. Note the capital R.")
185 (internal-class-name . "Request")
186 (types . (general-music event multi-measure-rest-event))
192 (internal-class-name . "Music")
193 (types . (general-music))
199 (internal-class-name . "Request")
200 (types . (general-music event note-event rhythmic-event melodic-event))
206 (internal-class-name . "Music")
207 (types . (general-music layout-instruction))
208 (iterator-ctor . , Push_property_iterator::constructor)
215 (internal-class-name . "Simultaneous_music")
216 (types . (general-music part-combine-music))
217 (iterator-ctor . ,Part_combine_music_iterator::constructor)
221 (description . "Start or end phrasing slur. Syntax NOTE \\( and \\) NOTE")
222 (internal-class-name . "Request")
223 (types . (general-music span-event phrasing-slur-event slur-event))
228 (internal-class-name . "Music")
229 (types . (layout-instruction general-music))
230 (iterator-ctor . ,Property_iterator::constructor)
237 (internal-class-name . "Music")
238 (types . (layout-instruction general-music))
239 (iterator-ctor . ,Property_unset_iterator::constructor)
246 (internal-class-name . "Request")
247 (types . (general-music porrectus-event event))
253 (type . repeated-music)
254 (types . (general-music repeated-music))
260 (internal-class-name . "Request")
261 (types . (general-music event))
267 (internal-class-name . "Request")
268 (types . (general-music event rhythmic-event rest-event))
272 (description . "Music expressions concatenated. Syntax \\sequential @{..@} or simply @{..@} .")
274 (internal-class-name . "Sequential_music")
275 (iterator-ctor . ,Sequential_music_iterator::constructor)
276 (types . (general-music sequential-music))
280 (description . "Music playing together. Syntax: \\simultaneous @{ .. @} or < .. >.")
282 (internal-class-name . "Simultaneous_music")
283 (iterator-ctor . ,Simultaneous_music_iterator::constructor)
285 (types . (general-music simultaneous-music))
289 (description . "Start or end slur. Syntax NOTE( and )NOTE")
290 (internal-class-name . "Request")
291 (types . (general-music span-event slur-event))
298 (internal-class-name . "Music")
299 (types . (general-music layout-instruction))
300 (iterator-ctor . , Pop_property_iterator::constructor)
303 (OutputPropertySetMusic
307 (internal-class-name . "Music")
308 (iterator-ctor . ,Output_property_music_iterator::constructor)
309 (types . (general-music layout-instruction))
314 (description . "Start a text spanner like 8va.....|")
315 (internal-class-name . "Request")
316 (types . (general-music span-event text-span-event))
322 (internal-class-name . "Music")
323 (iterator-ctor . , Change_iterator::constructor)
324 (types . (general-music translator-change-instruction))
329 (internal-class-name . "Time_scaled_music")
330 (iterator-ctor . ,Time_scaled_music_iterator::constructor)
331 (types . (time-scaled-music music-wrapper-music general-music))
337 (internal-class-name . "Transposed_music")
338 (types . (music-wrapper-music general-music transposed-music))
345 (internal-class-name . "Untransposable_music")
346 (types . (music-wrapper-music general-music untransposable-music))
353 (internal-class-name . "Un_relativable_music")
354 (types . (music-wrapper-music general-music unrelativable-music))
361 (internal-class-name . "Relative_octave_music")
362 (types . (music-wrapper-music general-music relative-octave-music))
370 (internal-class-name . "Request_chord")
371 (iterator-ctor . ,Request_chord_iterator::constructor)
372 (types . (general-music request-chord simultaneous-music))
380 (internal-class-name . "Request")
381 (types . (general-music event))
387 (internal-class-name . "Request")
388 (types . (general-music event rhythmic-event skip-event))
394 (internal-class-name . "Request")
395 (types . (general-music event))
400 (internal-class-name . "Request")
401 (types . (general-music pedal-event sustain-pedal-event))
406 (internal-class-name . "Request")
407 (types . (general-music pedal-event sostenuto-pedal-event))
412 (internal-class-name . "Request")
413 (types . (general-music pedal-event una-corda-pedal-event))
419 (internal-class-name . "Request")
420 (types . (general-music string-number-event event))
426 (internal-class-name . "Request")
427 (types . (general-music tempo-event event))
432 (internal-class-name . "Request")
433 (types . (general-music script-event text-script-event event))
437 (description . "A tie. Entered as ~.")
438 (internal-class-name . "Request")
439 (types . (general-music tie-event event))
443 (description . "Un measured tremolo.")
444 (internal-class-name . "Request")
445 (types . (general-music event tremolo-event))
451 (internal-class-name . "Music")
452 (types . (separator general-music))
457 (iterator-ctor . ,Volta_repeat_iterator::constructor)
458 (internal-class-name . "Repeated_music")
460 (start-moment-function . ,Repeated_music::first_start)
461 (length . ,Repeated_music::volta_music_length)
462 (types . (general-music repeated-music volta-repeated-music))
465 (UnfoldedRepeatedMusic
467 (iterator-ctor . ,Unfolded_repeat_iterator::constructor)
469 (start-moment-function . ,Repeated_music::first_start)
470 (internal-class-name . "Repeated_music")
471 (types . (general-music repeated-music unfolded-repeated-music))
472 (length . ,Repeated_music::unfolded_music_length)
474 (PercentRepeatedMusic
476 (internal-class-name . "Repeated_music")
478 (iterator-ctor . ,Percent_repeat_iterator::constructor)
479 (start-moment-function . ,Repeated_music::first_start)
480 (length . ,Repeated_music::unfolded_music_length)
481 (types . (general-music repeated-music percent-repeated-music))
484 (TremoloRepeteadMusic
486 (iterator-ctor . ,Chord_tremolo_iterator::constructor)
488 (internal-class-name . "Repeated_music")
489 (start-moment-function . ,Repeated_music::first_start)
491 ;; the length of the repeat is handled by shifting the note logs
492 (length . ,Repeated_music::folded_music_length)
493 (types . (general-music repeated-music tremolo-repeated-music))
498 (internal-class-name . "Repeated_music")
500 (iterator-ctor . ,Folded_repeat_iterator::constructor)
501 (start-moment-function . ,Repeated_music::minimum_start)
502 (length . ,Repeated_music::folded_music_length)
503 (types . (general-music repeated-music folded-repeated-music))
507 (set! music-descriptions
508 (sort music-descriptions alist<?))
510 (define music-name-to-property-table (make-vector 59 '()))
514 ;; transport description to an object property.
518 (set-object-property! (car x)
520 (cdr (assq 'description (cdr x))))
523 (set! l (assoc-set! l 'name (car x)))
524 (set! l (assq-remove! l 'description))
525 (hashq-set! music-name-to-property-table (car x) l)
532 (define-public (make-music-by-name x)
533 (if (not (symbol? x))
534 (error (format "Not a symbol: ~a" x)))
537 (props (hashq-ref music-name-to-property-table x '()))
538 (name (if (pair? props)
539 (cdr (assoc 'internal-class-name props))
540 (error "Can not find music object" x)))
544 (ly-warn (format "Could not find music type `~a'" x)))
545 (ly-make-bare-music name props)
549 (define-public (old-span-request->event name)
555 ("text" . TextSpanEvent)
556 ("decrescendo" . DecrescendoEvent)
557 ("crescendo" . CrescendoEvent)
558 ("Sustain" . SustainPedalEvent)
560 ("UnaCorda" . UnaCordaEvent)
561 ("Sostenuto" . SostenutoEvent)
565 (error (format "Could not find span type ~a" name))
567 (make-music-by-name (cdr entry))
571 (define-public (make-repeated-music name)
576 '(("volta" . VoltaRepeatedMusic)
577 ("unfold" . UnfoldedRepeatedMusic)
578 ("percent" . PercentRepeatedMusic)
579 ("tremolo" . TremoloRepeteadMusic)
580 ("fold" . FoldedRepeatedMusic)
587 (string-append "Unknown repeat type `" name
588 "'\nSee music-types.scm for supported repeats"))
594 (make-music-by-name music-name)