1 /*
2 This file is part of LilyPond, the GNU music typesetter.
3
4 Copyright (C) 2005--2020 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 "spanner.hh"
22
23 class Tab_staff_symbol_engraver : public Engraver
24 {
25 public:
26 TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver);
27 protected:
28 void acknowledge_staff_symbol (Grob_info);
29 };
30
31 void
acknowledge_staff_symbol(Grob_info gi)32 Tab_staff_symbol_engraver::acknowledge_staff_symbol (Grob_info gi)
33 {
34 long k = scm_ilength (get_property (this, "stringTunings"));
35 if (k >= 0)
36 set_property (gi.grob (), "line-count", to_scm (k));
37 }
38
Tab_staff_symbol_engraver(Context * c)39 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver (Context *c)
40 : Engraver (c)
41 {
42 }
43
44 #include "translator.icc"
45
46 void
boot()47 Tab_staff_symbol_engraver::boot ()
48 {
49 ADD_ACKNOWLEDGER (Tab_staff_symbol_engraver, staff_symbol);
50 }
51
52 ADD_TRANSLATOR (Tab_staff_symbol_engraver,
53 /* doc */
54 "Create a tablature staff symbol, but look at"
55 " @code{stringTunings} for the number of lines.",
56
57 /* create */
58 "StaffSymbol ",
59
60 /* read */
61 "stringTunings ",
62
63 /* write */
64 ""
65 );
66