LEFT | RIGHT |
(no file at all) | |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 2005--2019 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2005--2019 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 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 | 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 | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 13 matching lines...) Expand all Loading... |
24 { | 24 { |
25 public: | 25 public: |
26 TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver); | 26 TRANSLATOR_DECLARATIONS (Tab_staff_symbol_engraver); |
27 protected: | 27 protected: |
28 void acknowledge_staff_symbol (Grob_info); | 28 void acknowledge_staff_symbol (Grob_info); |
29 }; | 29 }; |
30 | 30 |
31 void | 31 void |
32 Tab_staff_symbol_engraver::acknowledge_staff_symbol (Grob_info gi) | 32 Tab_staff_symbol_engraver::acknowledge_staff_symbol (Grob_info gi) |
33 { | 33 { |
34 int k = scm_ilength (get_property ("stringTunings")); | 34 long k = scm_ilength (get_property ("stringTunings")); |
35 if (k >= 0) | 35 if (k >= 0) |
36 gi.grob ()->set_property ("line-count", scm_from_int (k)); | 36 gi.grob ()->set_property ("line-count", scm_from_long (k)); |
37 } | 37 } |
38 | 38 |
39 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver (Context *c) | 39 Tab_staff_symbol_engraver::Tab_staff_symbol_engraver (Context *c) |
40 : Engraver (c) | 40 : Engraver (c) |
41 { | 41 { |
42 } | 42 } |
43 | 43 |
44 #include "translator.icc" | 44 #include "translator.icc" |
45 | 45 |
46 void | 46 void |
47 Tab_staff_symbol_engraver::boot () | 47 Tab_staff_symbol_engraver::boot () |
48 { | 48 { |
49 ADD_ACKNOWLEDGER (Tab_staff_symbol_engraver, staff_symbol); | 49 ADD_ACKNOWLEDGER (Tab_staff_symbol_engraver, staff_symbol); |
50 } | 50 } |
51 | 51 |
52 ADD_TRANSLATOR (Tab_staff_symbol_engraver, | 52 ADD_TRANSLATOR (Tab_staff_symbol_engraver, |
53 /* doc */ | 53 /* doc */ |
54 "Create a tablature staff symbol, but look at" | 54 "Create a tablature staff symbol, but look at" |
55 " @code{stringTunings} for the number of lines.", | 55 " @code{stringTunings} for the number of lines.", |
56 | 56 |
57 /* create */ | 57 /* create */ |
58 "StaffSymbol ", | 58 "StaffSymbol ", |
59 | 59 |
60 /* read */ | 60 /* read */ |
61 "stringTunings ", | 61 "stringTunings ", |
62 | 62 |
63 /* write */ | 63 /* write */ |
64 "" | 64 "" |
65 ); | 65 ); |
LEFT | RIGHT |