2 piano-pedal-engraver.cc -- implement Piano_pedal_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "musical-request.hh"
11 #include "score-element.hh"
14 #include "lily-guile.hh"
15 #include "note-head.hh"
17 #include "side-position-interface.hh"
18 #include "staff-symbol-referencer.hh"
19 #include "text-item.hh"
20 #include "sustain-pedal.hh"
24 * it would be really cool if an engraver could be initialised with a
27 Piano_pedal_engraver::"sostenuto"
28 Piano_pedal_engraver::"sustain"
29 Piano_pedal_engraver::"una-chorda"
34 Would it? The semantics are unclear, and real benefits are muddy
41 engrave Piano pedals symbols.
43 class Piano_pedal_engraver : public Engraver
46 VIRTUAL_COPY_CONS (Translator);
47 Piano_pedal_engraver ();
48 ~Piano_pedal_engraver ();
50 virtual void do_creation_processing ();
51 virtual bool do_try_music (Music*);
52 virtual void do_process_music ();
53 virtual void do_pre_move_processing ();
54 virtual void do_post_move_processing ();
55 virtual void acknowledge_element (Score_element_info);
61 Span_req* start_req_l_;
62 Drul_array<Span_req*> req_l_drul_;
67 Pedal_info *info_list_;
70 ADD_THIS_TRANSLATOR (Piano_pedal_engraver);
72 Piano_pedal_engraver::Piano_pedal_engraver ()
77 Piano_pedal_engraver::do_creation_processing()
79 info_list_ = new Pedal_info[4];
80 Pedal_info *p = info_list_;
83 char * names [] = { "Sostenuto", "Sustain", "UnaChorda", 0 };
89 p->req_l_drul_[START] = 0;
90 p->req_l_drul_[STOP] = 0;
98 Piano_pedal_engraver::~Piano_pedal_engraver()
108 Piano_pedal_engraver::acknowledge_element (Score_element_info info)
110 for (Pedal_info*p = info_list_; p->name_; p ++)
114 if (Note_head* n = dynamic_cast<Note_head*> (info.elem_l_))
116 Side_position_interface st (p->item_p_);
118 if (st.get_axis( ) == X_AXIS
119 && !p->item_p_->parent_l (Y_AXIS))
120 p->item_p_->set_parent (n, Y_AXIS);
122 if (Stem* s = dynamic_cast<Stem*> (info.elem_l_))
124 Side_position_interface st (p->item_p_);
132 Piano_pedal_engraver::do_try_music (Music *m)
134 if (Span_req * s = dynamic_cast<Span_req*>(m))
136 for (Pedal_info*p = info_list_; p->name_; p ++)
138 if (s->span_type_str_ == p->name_)
140 p->req_l_drul_[s->span_dir_] = s;
149 Piano_pedal_engraver::do_process_music ()
151 for (Pedal_info*p = info_list_; p->name_; p ++)
153 SCM s = SCM_UNDEFINED;
154 if (p->req_l_drul_[STOP] && p->req_l_drul_[START])
156 if (!p->start_req_l_)
158 p->req_l_drul_[STOP]->warning (_f ("can't find start of piano pedal: %s", p->name_ ));
162 s = get_property ("stopStart" + String (p->name_ ));
164 p->start_req_l_ = p->req_l_drul_[START];
166 else if (p->req_l_drul_[STOP])
168 if (!p->start_req_l_)
170 p->req_l_drul_[STOP]->warning (_f ("can't find start of piano pedal: %s", p->name_ ));
174 s = get_property ("stop" + String (p->name_ ));
178 else if (p->req_l_drul_[START])
180 p->start_req_l_ = p->req_l_drul_[START];
181 s = get_property ("start" + String (p->name_ ));
184 if (s != SCM_UNDEFINED)
186 if (p->name_ == String ("Sustain"))
188 p->item_p_ = new Sustain_pedal (SCM_EOL);
189 p->item_p_->set_elt_property ("text", s);
193 p->item_p_ = new Text_item (SCM_EOL);
194 p->item_p_->set_elt_property ("text", s);
196 p->item_p_->set_elt_property ("style", ly_str02scm ("italic"));
199 Side_position_interface si (p->item_p_);
200 si.set_axis (Y_AXIS);
202 // todo: init with basic props.
203 p->item_p_->set_elt_property ("no-spacing-rods" , SCM_BOOL_T);
204 p->item_p_->set_elt_property ("self-alignment-X", gh_int2scm (0));
205 p->item_p_->add_offset_callback (Side_position_interface::aligned_on_self, X_AXIS);
206 p->item_p_->add_offset_callback (Side_position_interface::centered_on_parent, X_AXIS);
207 announce_element (Score_element_info (p->item_p_,
208 p->req_l_drul_[START]
209 ? p->req_l_drul_[START]
210 : p->req_l_drul_[STOP]));
216 Piano_pedal_engraver::do_pre_move_processing ()
219 for (Pedal_info*p = info_list_; p->name_; p ++)
221 if (p->name_ == String ("Sustain"))
222 sustain = p->item_p_;
225 for (Pedal_info*p = info_list_; p->name_; p ++)
229 Side_position_interface (p->item_p_).add_staff_support ();
233 if (p->name_ != String ("Sustain"))
237 Side_position_interface st (p->item_p_);
238 st.add_support (sustain);
241 typeset_element (p->item_p_);
248 Piano_pedal_engraver::do_post_move_processing ()
250 for (Pedal_info*p = info_list_; p->name_; p ++)
252 p->req_l_drul_[STOP] = 0;
253 p->req_l_drul_[START] = 0;