source file of the GNU LilyPond music typesetter
- (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 2000--2001 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "dimensions.hh"
}
else if (t == "text")
{
- req_drul_[s->get_span_dir()] = s;
+ req_drul_[s->get_span_dir ()] = s;
return true;
}
}
void
Text_spanner_engraver::create_grobs ()
{
- /////
if (req_drul_[STOP])
{
if (!span_)
{
req_drul_[STOP]->origin ()->warning
- (_ ("can't find start of text spanner"));
+ (_ ("can't find start of text spanner"));
}
else
{
finished_ = span_;
span_ = 0;
current_req_ = 0;
+ req_drul_[STOP] = 0;
}
}
if (current_req_)
{
req_drul_[START]->origin ()->warning
- (_ ("already have a text spanner"));
+ (_ ("already have a text spanner"));
}
else
{
current_req_ = req_drul_[START];
span_ = new Spanner (get_property ("TextSpanner"));
-
- /* Don't remove me without testing.
-
- Urg. It seems that a padding property with empty cdr
- ``(padding)'' is set somewhere, overriding the default
- TextSpanner properties. Also, my gdb won't print *span_
- or span_->mutable_property_alis_ here */
- if (1)//!gh_number_p (span_->get_grob_property ("padding")))
- {
- span_->remove_grob_property ("padding");
- span_->set_grob_property ("padding", gh_double2scm (0));
- }
-
- Side_position::set_axis (span_, Y_AXIS);
+
+ /* Ugh. Reset (de)cresc. specific properties */
+ span_->set_grob_property ("outer", SCM_BOOL_T);
+ span_->set_grob_property ("if-text-padding", gh_double2scm (0));
+ span_->set_grob_property ("width-correct", gh_double2scm (0));
+
+ Side_position_interface::set_axis (span_, Y_AXIS);
Grob *e = unsmob_grob (get_property ("currentMusicalColumn"));
span_->set_bound (LEFT, e);
+
announce_grob (span_, req_drul_[START]);
+ req_drul_[START] = 0;
}
}
}
{
if (span_ && Note_column::has_interface (info.elem_l_))
{
- Side_position::add_support (span_, info.elem_l_);
+ Side_position_interface::add_support (span_, info.elem_l_);
add_bound_item (span_, dynamic_cast<Item*> (info.elem_l_));
}
}
{
if (finished_)
{
- Side_position::add_staff_support (finished_);
+ Side_position_interface::add_staff_support (finished_);
typeset_grob (finished_);
finished_ = 0;
}