]> git.donarmstrong.com Git - lilypond.git/blob - lily/note-name-engraver.cc
patch::: 1.3.18.jcn1
[lilypond.git] / lily / note-name-engraver.cc
1 /*   
2   note-name-engraver.cc --  implement Note_name_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 #include "text-item.hh"
13
14 class Note_name_engraver : public Engraver
15 {
16 public:
17   VIRTUAL_COPY_CONS(Translator);
18   Link_array<Note_req> req_l_arr_;
19   Link_array<Text_item> texts_;
20   virtual bool  do_try_music (Music*m);
21   virtual void do_process_requests ();
22   virtual void do_pre_move_processing ();
23 };
24
25 ADD_THIS_TRANSLATOR (Note_name_engraver);
26
27 bool
28 Note_name_engraver::do_try_music (Music *m)
29 {
30   if (Note_req *r = dynamic_cast<Note_req* > (m))
31     {
32       req_l_arr_.push (r);
33       return true;
34     }
35   return false;
36 }
37
38
39 void
40 Note_name_engraver::do_process_requests ()
41 {
42   String s ;
43   for (int i=0; i < req_l_arr_.size (); i++)
44     {
45       if (i)
46         s += " ";
47       s += req_l_arr_[i]->pitch_.str ();
48     }
49   if (s.length_i())
50     {
51       Text_item * t = new Text_item;
52       t->set_elt_property ("text", ly_str02scm ( s.ch_C()));
53       announce_element (Score_element_info (t, req_l_arr_[0]));
54       texts_.push (t);
55     }
56 }
57
58 void
59 Note_name_engraver::do_pre_move_processing ()
60 {
61   for (int i=0; i < texts_.size (); i++)
62     {
63       typeset_element (texts_[i]);
64     }
65   texts_.clear() ;
66   req_l_arr_.clear ();
67 }