]> git.donarmstrong.com Git - lilypond.git/blob - lily/melody-engraver.cc
*** empty log message ***
[lilypond.git] / lily / melody-engraver.cc
1 /*
2   melody-engraver.cc -- implement Melody_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9
10 #include "engraver.hh"
11
12 #include "item.hh"
13 #include "melody-spanner.hh"
14 #include "pointer-group-interface.hh"
15
16 class Melody_engraver : public Engraver
17 {
18   Grob *melody_item_;
19 protected:
20   
21   DECLARE_ACKNOWLEDGER (stem);
22   TRANSLATOR_DECLARATIONS (Melody_engraver);
23 };
24
25
26 Melody_engraver::Melody_engraver ()
27 {
28   melody_item_ = 0;
29 }
30
31 void
32 Melody_engraver::acknowledge_stem (Grob_info info)
33 {
34   extract_grob_set (info.grob (), "rests", rests);
35   if (rests.size ())
36     melody_item_ = 0;
37   else
38     {
39       if (!melody_item_)
40         melody_item_ = make_item ("MelodyItem", info.grob ()->self_scm ());
41
42       Melody_spanner::add_stem (melody_item_, info.grob ());
43     }
44 }
45
46 #include "translator.icc"
47 ADD_ACKNOWLEDGER (Melody_engraver, stem);
48 ADD_TRANSLATOR (Melody_engraver,
49                 "Create information for context dependent typesetting decisions. ",
50                 "MelodyItem",
51                 "",
52                 "",
53                 "");
54