2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2015 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/>.
24 #include "articulations.hh"
27 #include "engraver.hh"
29 #include "stream-event.hh"
32 #include "translator.icc"
37 make (guitar-like) tablature note
39 class Fretboard_engraver : public Engraver
43 vector<Stream_event *> note_events_;
44 vector<Stream_event *> tabstring_events_;
45 vector<Stream_event *> fingering_events_;
47 TRANSLATOR_DECLARATIONS (Fretboard_engraver);
50 void stop_translation_timestep ();
51 void process_music ();
52 virtual void derived_mark () const;
53 DECLARE_TRANSLATOR_LISTENER (note);
54 DECLARE_TRANSLATOR_LISTENER (string_number);
55 DECLARE_TRANSLATOR_LISTENER (fingering);
62 Fretboard_engraver::derived_mark () const
64 scm_gc_mark (last_placements_);
67 Fretboard_engraver::Fretboard_engraver ()
70 last_placements_ = SCM_BOOL_F;
73 IMPLEMENT_TRANSLATOR_LISTENER (Fretboard_engraver, note);
75 Fretboard_engraver::listen_note (Stream_event *ev)
77 note_events_.push_back (ev);
80 IMPLEMENT_TRANSLATOR_LISTENER (Fretboard_engraver, string_number);
82 Fretboard_engraver::listen_string_number (Stream_event *ev)
84 tabstring_events_.push_back (ev);
87 IMPLEMENT_TRANSLATOR_LISTENER (Fretboard_engraver, fingering);
89 Fretboard_engraver::listen_fingering (Stream_event *ev)
91 fingering_events_.push_back (ev);
95 Fretboard_engraver::process_music ()
97 if (!note_events_.size ())
100 SCM tab_strings = articulation_list (note_events_,
102 "string-number-event");
103 SCM fingers = articulation_list (note_events_,
106 fret_board_ = make_item ("FretBoard", note_events_[0]->self_scm ());
107 SCM fret_notes = ly_cxx_vector_to_list (note_events_);
108 SCM proc = get_property ("noteToFretFunction");
109 if (ly_is_procedure (proc))
111 context ()->self_scm (),
113 scm_list_2 (tab_strings, fingers),
114 fret_board_->self_scm ());
115 SCM changes = get_property ("chordChanges");
116 SCM placements = fret_board_->get_property ("dot-placement-list");
117 if (to_boolean (changes)
118 && ly_is_equal (last_placements_, placements))
119 fret_board_->set_property ("begin-of-line-visible", SCM_BOOL_T);
121 last_placements_ = placements;
125 Fretboard_engraver::stop_translation_timestep ()
128 note_events_.clear ();
129 tabstring_events_.clear ();
130 fingering_events_.clear ();
133 ADD_TRANSLATOR (Fretboard_engraver,
135 "Generate fret diagram from one or more events of type"
136 " @code{NoteEvent}.",
145 "maximumFretStretch "
147 "noteToFretFunction "
148 "predefinedDiagramTable "