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) 2005--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2005--2011 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 51 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
62 void | 62 void |
63 Hara_kiri_engraver::add_element (Grob *e) | 63 Hara_kiri_engraver::add_element (Grob *e) |
64 { | 64 { |
65 Axis_group_engraver::add_element (e); | 65 Axis_group_engraver::add_element (e); |
66 } | 66 } |
67 | 67 |
68 Spanner * | 68 Spanner * |
69 Hara_kiri_engraver::get_spanner () | 69 Hara_kiri_engraver::get_spanner () |
70 { | 70 { |
71 Spanner *sp = make_spanner ("VerticalAxisGroup", SCM_EOL); | 71 Spanner *sp = make_spanner ("VerticalAxisGroup", SCM_EOL); |
| 72 sp->set_property ("extremal-ignorable", get_property ("extremalIgnorable")); |
72 return sp; | 73 return sp; |
73 } | 74 } |
74 | 75 |
75 void | 76 void |
76 Hara_kiri_engraver::acknowledge_grob (Grob_info i) | 77 Hara_kiri_engraver::acknowledge_grob (Grob_info i) |
77 { | 78 { |
78 Axis_group_engraver::acknowledge_grob (i); | 79 Axis_group_engraver::acknowledge_grob (i); |
79 if (staffline_) | 80 if (staffline_) |
80 { | 81 { |
81 for (SCM s = interesting_; scm_is_pair (s); s = scm_cdr (s)) | 82 for (SCM s = interesting_; scm_is_pair (s); s = scm_cdr (s)) |
82 { | 83 { |
83 if (i.grob ()->internal_has_interface (scm_car (s))) | 84 if (i.grob ()->internal_has_interface (scm_car (s))) |
84 Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob ()
); | 85 Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob ()
); |
85 } | 86 } |
86 } | 87 } |
87 } | 88 } |
88 | 89 |
89 ADD_ACKNOWLEDGER (Hara_kiri_engraver, grob); | 90 ADD_ACKNOWLEDGER (Hara_kiri_engraver, grob); |
90 ADD_TRANSLATOR (Hara_kiri_engraver, | 91 ADD_TRANSLATOR (Hara_kiri_engraver, |
91 /* doc */ | 92 /* doc */ |
92 "Like @code{Axis_group_engraver}, but make a hara-kiri" | 93 "Like @code{Axis_group_engraver}, but make a hara-kiri" |
93 " spanner, and add interesting items (i.e., note heads, lyric" | 94 " spanner, and add interesting items (i.e., note heads, lyric" |
94 " syllables, and normal rests).", | 95 " syllables, and normal rests).", |
95 | 96 |
96 /* create */ | 97 /* create */ |
97 "VerticalAxisGroup ", | 98 "VerticalAxisGroup ", |
98 | 99 |
99 /* read */ | 100 /* read */ |
| 101 "extremalIgnorable " |
100 "keepAliveInterfaces ", | 102 "keepAliveInterfaces ", |
101 | 103 |
102 /* write */ | 104 /* write */ |
103 "" | 105 "" |
104 ); | 106 ); |
105 | 107 |
OLD | NEW |