lily/axis-group-interface-scheme.cc

   1 /*
   2   axis-group-interface-scheme.cc -- implement Axis_group_interface
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "axis-group-interface.hh"
  11 #include "lily-guile.hh"
  12
  13 LY_DEFINE(ly_relative_group_extent, "ly:relative-group-extent",
  14           3, 0, 0, (SCM elements, SCM common, SCM axis),
  15           "Determine the extent of @var{elements} relative to @var{common} in the "
  16           "@var{axis} direction.")
  17 {
  18   SCM_ASSERT_TYPE(scm_is_pair (elements), elements, SCM_ARG1, __FUNCTION__, "list");
  19   SCM_ASSERT_TYPE(unsmob_grob (common), common, SCM_ARG2, __FUNCTION__, "grob");
  20   SCM_ASSERT_TYPE(is_axis (axis), axis, SCM_ARG3, __FUNCTION__, "axis");
  21
  22
  23   Interval ext = Axis_group_interface::relative_group_extent (elements,
  24                                                               unsmob_grob (common),
  25                                                               (Axis) scm_to_int (axis));
  26   return ly_interval2scm (ext);
  27 }
  28
  29