LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
if (ly_is_procedure (length_callback_))
{
SCM res = scm_call_1 (length_callback_, self_scm ());
if (ly_is_procedure (length_callback_))
{
SCM res = scm_call_1 (length_callback_, self_scm ());
if (ly_is_procedure (lst))
{
SCM res = scm_call_1 (lst, self_scm ());
if (ly_is_procedure (lst))
{
SCM res = scm_call_1 (lst, self_scm ());
last = m->to_relative_octave (last);
(void) music_list_to_relative (get_property ("articulations"), last, true);
last = m->to_relative_octave (last);
(void) music_list_to_relative (get_property ("articulations"), last, true);
if (d)
set_property ("duration",
d->compressed (factor.main_part_).smobbed_copy ());
if (d)
set_property ("duration",
d->compressed (factor.main_part_).smobbed_copy ());
art_ev = scm_cons (m->to_event ()->unprotect (), art_ev);
}
e->set_property ("articulations", scm_reverse_x (art_ev, SCM_EOL));
art_ev = scm_cons (m->to_event ()->unprotect (), art_ev);
}
e->set_property ("articulations", scm_reverse_x (art_ev, SCM_EOL));