2 melisma-engraver.cc -- implement Melisma_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
13 #include "translator-group.hh"
16 Signal existence of melismas.
18 class Melisma_engraver:public Engraver
21 TRANSLATOR_DECLARATIONS(Melisma_engraver);
22 bool try_music (Music *);
27 Melisma_engraver::try_music (Music *m)
29 SCM melisma_properties = get_property ("melismaBusyProperties");
32 for (; gh_pair_p (melisma_properties);
33 melisma_properties = gh_cdr (melisma_properties))
34 busy = busy || to_boolean (get_property (gh_car (melisma_properties)));
37 for the phrasing engraver we also need this.
39 daddy_trans_->set_property ("melismaEngraverBusy",gh_bool2scm (busy));
43 Melisma_engraver::Melisma_engraver()
47 ENTER_DESCRIPTION(Melisma_engraver,
50 /* accepts */ "melisma-playing-event",
52 /* reads */ "melismaBusy melismaBusyProperties slurMelismaBusy tieMelismaBusy beamMelismaBusy",
53 /* write */ "melismaEngraverBusy");