source file of the GNU LilyPond music typesetter
- (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
void
Separating_line_group_engraver::do_creation_processing ()
{
- sep_span_p_ = new Separating_group_spanner;
+ sep_span_p_ = new Separating_group_spanner (SCM_EOL);
announce_element (Score_element_info (sep_span_p_, 0));
- sep_span_p_->set_bounds (LEFT, get_staff_info ().command_pcol_l ());
+ sep_span_p_->set_bound (LEFT, unsmob_element (get_property ("currentCommandColumn")));
}
void
Separating_line_group_engraver::do_removal_processing ()
{
- SCM sz (get_property ("postBreakPadding", 0));
- if (gh_number_p(sz))
- {
- sep_span_p_->padding_f_ = Real(sz);
- }
- else
- {
- sep_span_p_->padding_f_ = paper_l ()->get_realvar (ly_symbol ("postBreakPadding"));
- }
-
- sep_span_p_->set_bounds (RIGHT, get_staff_info ().command_pcol_l ());
+ sep_span_p_->set_bound (RIGHT, unsmob_element (get_property ("currentCommandColumn")));
typeset_element (sep_span_p_);
sep_span_p_ =0;
}
if (!p_ref_)
{
- p_ref_ = new Single_malt_grouping_item;
+ p_ref_
+ = new Single_malt_grouping_item
+ (get_property ("basicSingleMaltGroupingItemProperties"));
+
if (ib)
- p_ref_->set_elt_property (breakable_scm_sym, SCM_BOOL_T);
+ p_ref_->set_elt_property ("breakable", SCM_BOOL_T);
announce_element (Score_element_info (p_ref_, 0));
}
p_ref_->add_item (it);
ADD_THIS_TRANSLATOR( Separating_line_group_engraver);
+