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
*);
29 how's this supposed to work?
32 Melisma_engraver::try_music (Music
*m
)
34 SCM
plain (get_property ("melismaBusy"));
35 SCM
slur (get_property ("slurMelismaBusy"));
36 SCM
tie (get_property ("tieMelismaBusy"));
37 SCM
beam (get_property ("beamMelismaBusy"));
39 if ((to_boolean (plain
))
40 || (to_boolean (slur
))
42 || (to_boolean (beam
)))
45 daddy_trans_
->set_property ("melismaEngraverBusy",SCM_BOOL_T
);
50 daddy_trans_
->set_property ("melismaEngraverBusy",SCM_BOOL_F
);
55 Melisma_engraver::Melisma_engraver()
59 ENTER_DESCRIPTION(Melisma_engraver
,
62 /* accepts */ "melisma-playing-event",
64 /* reads */ "melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy",
65 /* write */ "melismaEngraverBusy");