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) 2006--2015 Han-Wen Nienhuys | 4 Copyright (C) 2006--2015 Han-Wen Nienhuys |
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 97 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
108 } | 108 } |
109 | 109 |
110 Bend_engraver::Bend_engraver () | 110 Bend_engraver::Bend_engraver () |
111 { | 111 { |
112 fall_ = 0; | 112 fall_ = 0; |
113 last_fall_ = 0; | 113 last_fall_ = 0; |
114 note_head_ = 0; | 114 note_head_ = 0; |
115 fall_event_ = 0; | 115 fall_event_ = 0; |
116 } | 116 } |
117 | 117 |
118 IMPLEMENT_TRANSLATOR_LISTENER (Bend_engraver, bend_after); | |
119 void | 118 void |
120 Bend_engraver::listen_bend_after (Stream_event *ev) | 119 Bend_engraver::listen_bend_after (Stream_event *ev) |
121 { | 120 { |
122 ASSIGN_EVENT_ONCE (fall_event_, ev); | 121 ASSIGN_EVENT_ONCE (fall_event_, ev); |
123 } | 122 } |
124 | 123 |
125 void | 124 void |
126 Bend_engraver::process_music () | 125 Bend_engraver::process_music () |
127 { | 126 { |
128 if (fall_event_ && !fall_) | 127 if (fall_event_ && !fall_) |
129 { | 128 { |
130 fall_ = make_spanner ("BendAfter", fall_event_->self_scm ()); | 129 fall_ = make_spanner ("BendAfter", fall_event_->self_scm ()); |
131 fall_->set_property ("delta-position", | 130 fall_->set_property ("delta-position", |
132 scm_from_double (robust_scm2double (fall_event_->get_
property ("delta-step"), 0))); | 131 scm_from_double (robust_scm2double (fall_event_->get_
property ("delta-step"), 0))); |
133 } | 132 } |
134 } | 133 } |
135 | 134 |
136 ADD_ACKNOWLEDGER (Bend_engraver, note_head); | 135 |
| 136 void |
| 137 Bend_engraver::boot () |
| 138 { |
| 139 ADD_LISTENER (Bend_engraver, bend_after); |
| 140 ADD_ACKNOWLEDGER (Bend_engraver, note_head); |
| 141 } |
137 | 142 |
138 ADD_TRANSLATOR (Bend_engraver, | 143 ADD_TRANSLATOR (Bend_engraver, |
139 /* doc */ | 144 /* doc */ |
140 "Create fall spanners.", | 145 "Create fall spanners.", |
141 | 146 |
142 /* create */ | 147 /* create */ |
143 "BendAfter ", | 148 "BendAfter ", |
144 | 149 |
145 /* read */ | 150 /* read */ |
146 "", | 151 "", |
147 | 152 |
148 /* write */ | 153 /* write */ |
149 "" | 154 "" |
150 ); | 155 ); |
OLD | NEW |