-/*
- UGH. Junk all mutators.
-*/
-LY_DEFINE (ly_stencil_set_extent_x, "ly:stencil-set-extent!",
- 3, 0, 0, (SCM stil, SCM axis, SCM np),
- "Set the extent of @var{stil} "
- "(@var{extent} must be a pair of numbers) "
- "in @var{axis} direction (0 or 1 for x- and y-axis respectively).")
-{
- Stencil *s = unsmob_stencil (stil);
- SCM_ASSERT_TYPE (s, stil, SCM_ARG1, __FUNCTION__, "stencil");
- SCM_ASSERT_TYPE (is_axis (axis), axis, SCM_ARG2, __FUNCTION__, "axis");
- SCM_ASSERT_TYPE (is_number_pair (np), np, SCM_ARG3, __FUNCTION__,
- "number pair");
-
- Interval iv = ly_scm2interval (np);
- s->dim_[Axis (scm_to_int (axis))] = iv;
-
- return SCM_UNSPECIFIED;
-}