2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2010 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",