2 melisma-engraver.cc -- implement Melisma_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "musical-request.hh"
13 #include "translator-group.hh"
16 Signal existence of melismas.
18 class Melisma_engraver:public Engraver
21 VIRTUAL_COPY_CONS(Translator);
22 bool try_music (Music *);
25 ADD_THIS_TRANSLATOR(Melisma_engraver);
28 Melisma_engraver::try_music (Music *m )
30 if (dynamic_cast<Melisma_playing_req*>(m))
32 SCM plain (get_property ("melismaBusy"));
33 SCM slur (get_property ("slurMelismaBusy"));
34 SCM tie (get_property ("tieMelismaBusy"));
35 SCM beam (get_property ("beamMelismaBusy"));
37 if( (to_boolean (plain))
38 || (to_boolean (slur))
40 || (to_boolean (beam))) {
42 daddy_trans_l_->set_property("melismaEngraverBusy",SCM_BOOL_T);
46 daddy_trans_l_->set_property("melismaEngraverBusy",SCM_BOOL_F);