2 melisma-engraver.cc -- implement Melisma_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
11 #include "musical-request.hh"
12 #include "score-element.hh"
15 Signal existence of melismas.
17 class Melisma_engraver:public Engraver
20 VIRTUAL_COPY_CONS(Translator);
21 bool do_try_music (Music *);
24 ADD_THIS_TRANSLATOR(Melisma_engraver);
27 Melisma_engraver::do_try_music (Music *m )
29 if (dynamic_cast<Melisma_playing_req*>(m))
31 SCM plain (get_property ("melismaBusy"));
32 SCM slur (get_property ("slurMelismaBusy"));
33 SCM tie (get_property ("tieMelismaBusy"));
34 SCM beam (get_property ("beamMelismaBusy"));
36 if( (to_boolean (plain))
37 || (to_boolean (slur))
39 || (to_boolean (beam))) {
41 Score_element * melisma_p = new Score_element (get_property ("basicMelismaProperties"));
42 announce_element (melisma_p, m);