- SCM plain (get_property ("melismaBusy"));
- SCM slur (get_property ("slurMelismaBusy"));
- SCM tie (get_property ("tieMelismaBusy"));
- SCM beam (get_property ("beamMelismaBusy"));
-
- if ((to_boolean (plain))
- || (to_boolean (slur))
- || (to_boolean (tie))
- || (to_boolean (beam)))
- {
-
- daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_T);
- return true;
- }
- else
- {
- daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_F);
- return false;
- }