2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2009 Han-Wen Nienhuys
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.
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.
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/>.
26 #include "engraver.hh"
28 #include "stream-event.hh"
31 #include "translator.icc"
34 make (guitar-like) tablature note
36 class Fretboard_engraver : public Engraver
40 vector<Stream_event*> note_events_;
41 vector<Stream_event*> tabstring_events_;
43 TRANSLATOR_DECLARATIONS (Fretboard_engraver);
46 void stop_translation_timestep ();
47 void process_music ();
48 virtual void derived_mark() const;
49 DECLARE_TRANSLATOR_LISTENER (note);
50 DECLARE_TRANSLATOR_LISTENER (string_number);
58 Fretboard_engraver::derived_mark () const
60 scm_gc_mark (last_fret_notes_);
63 Fretboard_engraver::Fretboard_engraver ()
66 last_fret_notes_ = SCM_EOL;
69 IMPLEMENT_TRANSLATOR_LISTENER (Fretboard_engraver, note);
71 Fretboard_engraver::listen_note (Stream_event *ev)
73 note_events_.push_back (ev);
76 IMPLEMENT_TRANSLATOR_LISTENER (Fretboard_engraver, string_number);
78 Fretboard_engraver::listen_string_number (Stream_event *ev)
80 tabstring_events_.push_back (ev);
84 Fretboard_engraver::process_music ()
86 if (!note_events_.size ())
89 fret_board_ = make_item ("FretBoard", note_events_[0]->self_scm ());
90 SCM fret_notes = ly_cxx_vector_to_list (note_events_);
91 SCM proc = get_property ("noteToFretFunction");
92 if (ly_is_procedure (proc))
95 context ()->self_scm (),
96 fret_board_->self_scm (),
98 ly_cxx_vector_to_list (tabstring_events_));
100 SCM changes = get_property("chordChanges");
101 if (to_boolean (changes) && scm_is_pair(last_fret_notes_)
102 && ly_is_equal (last_fret_notes_, fret_notes))
103 fret_board_->set_property ("begin-of-line-visible", SCM_BOOL_T);
105 last_fret_notes_ = fret_notes;
109 Fretboard_engraver::stop_translation_timestep ()
112 note_events_.clear ();
113 tabstring_events_.clear ();
116 ADD_TRANSLATOR (Fretboard_engraver,
118 "Generate one or more tablature noteheads from event of type"
119 " @code{NoteEvent}.",
128 "maximumFretStretch "
131 "predefinedDiagramTable",