]> git.donarmstrong.com Git - lilypond.git/blob - lily/swallow-perf.cc
* flower
[lilypond.git] / lily / swallow-perf.cc
1 /*
2   swallow-performer.cc -- implement Swallow_performer
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "performer.hh"
10
11 class Swallow_performer : public Performer
12 {
13 public:
14   TRANSLATOR_DECLARATIONS (Swallow_performer);
15 protected:
16   virtual bool try_music (Music *);
17 };
18
19 bool
20 Swallow_performer::try_music (Music *m)
21 {
22   if (m->is_mus_type ("busy-playing-event")
23       || m->is_mus_type ("melisma-playing-event"))
24     return false;
25   else
26     return true;
27 }
28
29 Swallow_performer::Swallow_performer ()
30 {}
31
32 ADD_TRANSLATOR (Swallow_performer,
33                 /* descr */ "",
34                 /* creats*/ "",
35                 /* accepts */ "general-music",
36                 /* acks  */ "",
37                 /* reads */ "",
38                 /* write */ "");