-
-
-
-LY_DEFINE (ly_paper_system_title_p, "ly:paper-system-title?",
- 1, 0, 0, (SCM system),
- "Is @var{system} a title system?")
-{
- Paper_system *ps = unsmob_paper_system (system);
- SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
- return SCM_BOOL (ps->is_title ());
-}
-
-LY_DEFINE (ly_paper_system_number, "ly:paper-system-number",
- 1, 0, 0, (SCM system),
- "Return the number of @var{system}.")
-{
- Paper_system *ps = unsmob_paper_system (system);
- SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
- return scm_int2num (ps->number_);
-}
-
-LY_DEFINE (ly_paper_system_break_score, "ly:paper-system-break-penalty",
- 1, 0, 0, (SCM system),
- "Return the score for page break after @var{system}.")
-{
- Paper_system *ps = unsmob_paper_system (system);
- SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
- return scm_int2num (int (ps->penalty ()));
-}
-
-LY_DEFINE (ly_paper_system_stencil, "ly:paper-system-stencil",
- 1, 0, 0, (SCM system),
- "Return the height of @var{system}.")
-{
- Paper_system *ps = unsmob_paper_system (system);
- SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
- return ps->to_stencil ().smobbed_copy ();
-}
-
-
-
-LY_DEFINE (ly_paper_system_staff_extent, "ly:paper-system-staff-extents",
- 1, 0, 0, (SCM system),
- "Return the top and bottom staff refpoint.")
-{
- Paper_system *ps = unsmob_paper_system (system);
- SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
- return ly_interval2scm (ps->staff_refpoints_);
-}
-