]> git.donarmstrong.com Git - lilypond.git/blob - lily/note-name-engraver.cc
Issue 4865/2: Rewrite of new translator initializations
[lilypond.git] / lily / note-name-engraver.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1999--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
5
6   LilyPond is free software: you can redistribute it and/or modify
7   it under the terms of the GNU General Public License as published by
8   the Free Software Foundation, either version 3 of the License, or
9   (at your option) any later version.
10
11   LilyPond is distributed in the hope that it will be useful,
12   but WITHOUT ANY WARRANTY; without even the implied warranty of
13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14   GNU General Public License for more details.
15
16   You should have received a copy of the GNU General Public License
17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
18 */
19
20 #include "engraver.hh"
21 #include "item.hh"
22 #include "pitch.hh"
23 #include "stream-event.hh"
24
25 #include "translator.icc"
26
27 class Note_name_engraver : public Engraver
28 {
29 public:
30   TRANSLATOR_DECLARATIONS (Note_name_engraver);
31
32   vector<Stream_event *> events_;
33   DECLARE_TRANSLATOR_LISTENER (note);
34   void process_music ();
35   void stop_translation_timestep ();
36 };
37
38 void
39 Note_name_engraver::listen_note (Stream_event *ev)
40 {
41   events_.push_back (ev);
42 }
43
44 void
45 Note_name_engraver::process_music ()
46 {
47   string s;
48   for (vsize i = 0; i < events_.size (); i++)
49     {
50       if (i)
51         s += " ";
52       Pitch p = *unsmob<Pitch> (events_[i]->get_property ("pitch"));
53
54       if (!to_boolean (get_property ("printOctaveNames")))
55         p = Pitch (-1, p.get_notename (), p.get_alteration ());
56
57       s += p.to_string ();
58     }
59   if (s.length ())
60     {
61       Item *t = make_item ("NoteName", events_[0]->self_scm ());
62       t->set_property ("text", ly_string2scm (s));
63     }
64 }
65
66 void
67 Note_name_engraver::stop_translation_timestep ()
68 {
69   events_.clear ();
70 }
71
72 Note_name_engraver::Note_name_engraver ()
73 {
74 }
75
76 void
77 Note_name_engraver::boot ()
78 {
79   ADD_LISTENER (Note_name_engraver, note);
80 }
81
82 ADD_TRANSLATOR (Note_name_engraver,
83                 /* doc */
84                 "Print pitches as words.",
85
86                 /* create */
87                 "NoteName ",
88
89                 /* read */
90                 "printOctaveNames ",
91
92                 /* write */
93                 ""
94                );