+ p->start_ev_ = 0;
+ }
+ }
+ else if (p->event_drul_[START])
+ {
+ p->start_ev_ = p->event_drul_[START];
+ s = ly_car (strings);
+ if (!mixed)
+ {
+ /*
+ Code dup?! see below.
+ */
+ if (previous_.size ())
+ // add extra space below the previous already-occuring pedal
+ Side_position_interface::add_support (p->line_spanner_,
+ previous_.top ());
+ previous_.push ( p->line_spanner_);
+ }
+ }
+
+ if (gh_string_p (s))
+ {
+ String propname = String (p->name_) + "Pedal";
+
+ p->item_ = make_item (propname.to_str0 ());
+ p->item_->set_property ("text", s);
+ Axis_group_interface::add_element (p->line_spanner_, p->item_);
+
+ announce_grob (p->item_,
+ (p->event_drul_[START]
+ ? p->event_drul_[START]
+ : p->event_drul_[STOP])->self_scm ());
+ }
+
+ if (!mixed)
+ {
+ p->event_drul_[START] = 0;
+ p->event_drul_[STOP] = 0;
+ }
+}
+
+void
+Piano_pedal_engraver::create_bracket_grobs (Pedal_info *p, bool mixed)
+{
+ if (!p->bracket_ && p->event_drul_[STOP])
+ {
+ String msg =_f ("can't find start of piano pedal bracket: `%s'", p->name_);
+ p->event_drul_[STOP]->origin ()->warning (msg);
+ p->event_drul_[STOP] = 0;
+ }
+
+ if (p->event_drul_[STOP])
+ {
+ if (!p->event_drul_[START])
+ {
+ if (previous_.size())
+ previous_.pop();
+ }
+
+ assert (!p->finished_bracket_);
+
+ Grob *cmc = unsmob_grob (get_property ("currentMusicalColumn"));
+
+ if (!p->bracket_->get_bound (RIGHT))
+ p->bracket_->set_bound (RIGHT, cmc);
+
+ /*
+ Set properties so that the stencil-creating function will
+ know whether the right edge should be flared ___/
+ */
+
+ if (!p->event_drul_[START])
+ {
+ SCM flare = p->bracket_->get_property ("bracket-flare");
+ p->bracket_->set_property ("bracket-flare", scm_cons (gh_car (flare),
+ gh_double2scm (0)));