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--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "musical-request.hh"
  12 #include "score-element.hh"
  13
  14 /**
  15    Signal existence of melismas.
  16  */
  17 class Melisma_engraver:public Engraver
  18 {
  19 public:
  20   VIRTUAL_COPY_CONS(Translator);
  21   bool do_try_music (Music *);
  22 };
  23
  24 ADD_THIS_TRANSLATOR(Melisma_engraver);
  25
  26 bool
  27 Melisma_engraver::do_try_music (Music *m )
  28 {
  29   if (dynamic_cast<Melisma_playing_req*>(m))
  30     {
  31       SCM plain (get_property ("melismaBusy"));
  32       SCM slur (get_property ("slurMelismaBusy"));
  33       SCM tie (get_property ("tieMelismaBusy"));
  34       SCM beam (get_property ("beamMelismaBusy"));
  35
  36       if( (to_boolean (plain))
  37           || (to_boolean (slur))
  38           || (to_boolean (tie))
  39           || (to_boolean (beam))) {
  40
  41         Score_element * melisma_p = new Score_element (get_property ("basicMelismaProperties"));
  42         announce_element (melisma_p, m);
  43
  44         return true;
  45       }
  46     }
  47   return false;
  48 }