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--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "event.hh"
  12 #include "grob.hh"
  13 #include "translator-group.hh"
  14
  15 /**
  16    Signal existence of melismas.
  17  */
  18 class Melisma_engraver:public Engraver
  19 {
  20 public:
  21   TRANSLATOR_DECLARATIONS(Melisma_engraver);
  22   bool try_music (Music *);
  23 };
  24
  25
  26 /*
  27   HUH ?
  28
  29   how's this supposed to work?
  30  */
  31 bool
  32 Melisma_engraver::try_music (Music *m)
  33 {
  34   SCM plain (get_property ("melismaBusy"));
  35   SCM slur (get_property ("slurMelismaBusy"));
  36   SCM tie (get_property ("tieMelismaBusy"));
  37   SCM beam (get_property ("beamMelismaBusy"));
  38
  39   if ((to_boolean (plain))
  40       || (to_boolean (slur))
  41       || (to_boolean (tie))
  42       || (to_boolean (beam)))
  43     {
  44
  45       daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_T);
  46       return true;
  47     }
  48   else
  49     {
  50       daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_F);
  51       return false;
  52     }
  53 }
  54
  55 Melisma_engraver::Melisma_engraver()
  56 {
  57 }
  58
  59 ENTER_DESCRIPTION(Melisma_engraver,
  60 /* descr */       "",
  61 /* creats*/       "",
  62 /* accepts */     "melisma-playing-event",
  63 /* acks  */      "",
  64 /* reads */       "melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy",
  65 /* write */       "melismaEngraverBusy");