ga = unsmob_grob_array (scm_ga);
}
- p->rank_
- = ga->size ()
- ? Paper_column::get_rank (ga->array ().back ()) + 1
- : 0;
+ p->rank_ = ga->size ();
ga->add (p);
Axis_group_interface::add_element (this, p);
return columns;
}
+Grob*
+System::column (int which) const
+{
+ extract_grob_set (this, "columns", columns);
+ for (vsize i = 0; i < columns.size (); i++)
+ if (dynamic_cast<Paper_column*> (columns[i])->get_rank () == which)
+ return columns[i];
+ programming_error ("couldn't find the column of the requested index");
+ return columns[0];
+}
+
Paper_score*
System::paper_score () const
{
boxes.push_back (Box (xiv, yiv));
}
- skylines_[UP] = Skyline (boxes, 0, X_AXIS, UP);
- skylines_[DOWN] = Skyline (boxes, 0, X_AXIS, DOWN);
+ SCM horizon_padding_scm = get_property ("skyline-horizontal-padding");
+ Real horizon_padding = robust_scm2double (horizon_padding_scm, 0);
+ skylines_[UP] = Skyline (boxes, horizon_padding, X_AXIS, UP);
+ skylines_[DOWN] = Skyline (boxes, horizon_padding, X_AXIS, DOWN);
}
"pure-Y-extent "
"spaceable-staves "
"skyline-distance "
+ "skyline-horizontal-padding "
)