2 piano-pedal-engraver.cc -- implement Piano_pedal_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
10 #include "musical-request.hh"
13 #include "lily-guile.hh"
14 #include "rhythmic-head.hh"
16 #include "side-position-interface.hh"
17 #include "staff-symbol-referencer.hh"
20 class Piano_pedal_engraver : public Engraver
23 TRANSLATOR_DECLARATIONS(Piano_pedal_engraver);
24 ~Piano_pedal_engraver ();
26 virtual void initialize ();
27 virtual bool try_music (Music*);
28 virtual void stop_translation_timestep ();
29 virtual void start_translation_timestep ();
30 virtual void acknowledge_grob (Grob_info);
31 virtual void create_grobs ();
37 Span_req* start_req_l_;
38 Drul_array<Span_req*> req_l_drul_;
43 Pedal_info *info_list_;
48 Piano_pedal_engraver::Piano_pedal_engraver ()
53 Piano_pedal_engraver::initialize ()
55 info_list_ = new Pedal_info[4];
56 Pedal_info *p = info_list_;
59 char * names [] = { "Sostenuto", "Sustain", "UnaCorda", 0 };
65 p->req_l_drul_[START] = 0;
66 p->req_l_drul_[STOP] = 0;
74 Piano_pedal_engraver::~Piano_pedal_engraver ()
84 Piano_pedal_engraver::acknowledge_grob (Grob_info info)
86 for (Pedal_info*p = info_list_; p && p->name_; p ++)
90 if (Rhythmic_head::has_interface (info.grob_l_))
92 Side_position_interface::add_support (p->item_p_, info.grob_l_);
94 if (Side_position_interface::get_axis (p->item_p_) == X_AXIS
95 && !p->item_p_->parent_l (Y_AXIS))
96 p->item_p_->set_parent (info.grob_l_, Y_AXIS);
98 if (Stem::has_interface (info.grob_l_))
100 Side_position_interface::add_support (p->item_p_,info.grob_l_);
107 Piano_pedal_engraver::try_music (Music *m)
109 if (Span_req * s = dynamic_cast<Span_req*> (m))
111 for (Pedal_info*p = info_list_; p->name_; p ++)
113 if (scm_equal_p (s->get_mus_property ("span-type"),
114 ly_str02scm (p->name_))==SCM_BOOL_T)
116 p->req_l_drul_[s->get_span_dir ()] = s;
125 Piano_pedal_engraver::create_grobs ()
127 for (Pedal_info*p = info_list_; p && p->name_; p ++)
129 if (p->item_p_ || ! (p->req_l_drul_[STOP] || p->req_l_drul_[START]))
133 SCM strings = get_property (("pedal" + String (p->name_) + "Strings").ch_C ());
134 if (scm_ilength (strings) < 3)
137 if (p->req_l_drul_[STOP] && p->req_l_drul_[START])
139 if (!p->start_req_l_)
141 p->req_l_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->name_));
145 s = ly_cadr (strings);
147 p->start_req_l_ = p->req_l_drul_[START];
149 else if (p->req_l_drul_[STOP])
151 if (!p->start_req_l_)
153 p->req_l_drul_[STOP]->origin ()->warning (_f ("can't find start of piano pedal: `%s'", p->name_));
157 s = ly_caddr (strings);
161 else if (p->req_l_drul_[START])
163 p->start_req_l_ = p->req_l_drul_[START];
164 s = ly_car (strings);
169 String propname = String (p->name_) + "Pedal";
170 p->item_p_ = new Item (get_property (propname.ch_C ()));
171 p->item_p_->set_grob_property ("text", s);
173 announce_grob (p->item_p_,
174 p->req_l_drul_[START]
175 ? p->req_l_drul_[START]
176 : p->req_l_drul_[STOP]);
178 p->req_l_drul_[START] = 0;
179 p->req_l_drul_[STOP] = 0;
184 Piano_pedal_engraver::stop_translation_timestep ()
187 for (Pedal_info*p = info_list_; p->name_; p ++)
189 if (p->name_ == String ("Sustain"))
190 sustain = p->item_p_;
193 for (Pedal_info*p = info_list_; p->name_; p ++)
197 Side_position_interface::add_staff_support (p->item_p_);
202 if (p->name_ != String ("Sustain"))
206 Side_position_interface::add_support (p->item_p_,sustain);
209 typeset_grob (p->item_p_);
216 Piano_pedal_engraver::start_translation_timestep ()
218 for (Pedal_info*p = info_list_; p->name_; p ++)
220 p->req_l_drul_[STOP] = 0;
221 p->req_l_drul_[START] = 0;
224 ENTER_DESCRIPTION(Piano_pedal_engraver,
225 /* descr */ "Engrave piano pedal symbols.",
226 /* creats*/ "SostenutoPedal SustainPedal UnaCordaPedal",
227 /* acks */ "rhythmic-head-interface stem-interface",
228 /* reads */ "pedalSostenutoStrings pedalSustainStrings pedalUnaCordaStrings",