lily/melisma-engraver.cc

   1 /*
   2   melisma-engraver.cc --  implement Melisma_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "musical-request.hh"
  12
  13 /**
  14    Signal existence of melismas.
  15  */
  16 class Melisma_engraver:public Engraver
  17 {
  18 public:
  19   VIRTUAL_COPY_CONS(Translator);
  20   bool do_try_music (Music *);
  21 };
  22
  23 ADD_THIS_TRANSLATOR(Melisma_engraver);
  24
  25 bool
  26 Melisma_engraver::do_try_music (Music *m )
  27 {
  28   if (dynamic_cast<Melisma_playing_req*>(m))
  29     {
  30       SCM plain (get_property ("melismaBusy", 0));
  31       SCM slur (get_property ("slurMelismaBusy", 0));
  32       SCM tie (get_property ("tieMelismaBusy", 0));
  33       return (gh_boolean_p (plain) && gh_scm2bool (plain))
  34         || (gh_boolean_p (slur) && gh_scm2bool (slur))
  35         || (gh_boolean_p (tie) && gh_scm2bool (tie));
  36     }
  37   return false;
  38 }