OLD | NEW |
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) 2013--2015 Aleksandr Andreev <aleksandr.andreev@gmail.com> | 4 Copyright (C) 2013--2015 Aleksandr Andreev <aleksandr.andreev@gmail.com> |
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 114 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
125 if (robust_scm2double (ligature->get_property ("minimum-length"), 0.0) | 125 if (robust_scm2double (ligature->get_property ("minimum-length"), 0.0) |
126 < min_length) | 126 < min_length) |
127 ligature->set_property ("minimum-length", scm_from_double (min_length)); | 127 ligature->set_property ("minimum-length", scm_from_double (min_length)); |
128 | 128 |
129 } | 129 } |
130 | 130 |
131 | 131 |
132 void | 132 void |
133 Kievan_ligature_engraver::boot () | 133 Kievan_ligature_engraver::boot () |
134 { | 134 { |
135 ADD_LISTENER (Ligature_engraver, ligature); | 135 ADD_LISTENER (Kievan_ligature_engraver, ligature); |
136 ADD_ACKNOWLEDGER (Ligature_engraver, rest); | 136 ADD_ACKNOWLEDGER (Kievan_ligature_engraver, rest); |
137 ADD_ACKNOWLEDGER (Ligature_engraver, ligature_head); | 137 ADD_ACKNOWLEDGER (Kievan_ligature_engraver, ligature_head); |
138 } | 138 } |
139 | 139 |
140 ADD_TRANSLATOR (Kievan_ligature_engraver, | 140 ADD_TRANSLATOR (Kievan_ligature_engraver, |
141 /* doc */ | 141 /* doc */ |
142 "Handle @code{Kievan_ligature_events} by glueing Kievan" | 142 "Handle @code{Kievan_ligature_events} by glueing Kievan" |
143 " heads together.", | 143 " heads together.", |
144 | 144 |
145 /* create */ | 145 /* create */ |
146 "KievanLigature ", | 146 "KievanLigature ", |
147 | 147 |
148 /* read */ | 148 /* read */ |
149 "", | 149 "", |
150 | 150 |
151 /* write */ | 151 /* write */ |
152 "" | 152 "" |
153 ); | 153 ); |
OLD | NEW |