scm_from_double (top_curve.control_[2][Y_AXIS]),
scm_from_double (top_curve.control_[3][X_AXIS]),
scm_from_double (top_curve.control_[3][Y_AXIS]),
+ ly_symbol2scm ("lineto"),
+ scm_from_double (bottom_curve.control_[3][X_AXIS]),
+ scm_from_double (bottom_curve.control_[3][Y_AXIS]),
ly_symbol2scm ("curveto"),
scm_from_double (bottom_curve.control_[2][X_AXIS]),
scm_from_double (bottom_curve.control_[2][Y_AXIS]),