- Paper_line *pl = new Paper_line (Offset (x.length (), y.length ()),
- stencils, penalty);
-
- scm_gc_unprotect_object (pl->self_scm ());
- return pl->self_scm ();
+ Stencil sys_stencil (Box (x,y),
+ scm_cons (ly_symbol2scm ("combine-stencil"),
+ exprs));
+
+ Paper_system *pl = new Paper_system (sys_stencil, false);
+ pl->staff_refpoints_ = staff_refpoints;
+ Item * break_point =this->get_bound(LEFT);
+ pl->penalty_ =
+ robust_scm2double (break_point->get_property ("page-penalty"), 0.0);
+
+ return scm_gc_unprotect_object (pl->self_scm ());