-/* See scheme Function. */
-void
-Stencil::add_at_edge (Axis a, Direction d, Stencil const &s, Real padding,
- Real minimum)
-{
- add_stencil (moved_to_edge (a, d, s, padding, minimum));
-}
-
-
-/****************************************************************/
-
-LY_DEFINE (ly_interpret_stencil, "ly:interpret-stencil",
- 4, 0, 0, (SCM expr, SCM func, SCM arg1, SCM offset),
- "Parse EXPR, feed bits to FUNC with first arg ARG1")
-{
- Offset o = ly_scm2offset (offset);
- while (1)
- {
- if (!ly_c_pair_p (expr))
- return SCM_UNDEFINED;
-
- SCM head = ly_car (expr);
- if (unsmob_input (head))
- {
- Input *ip = unsmob_input (head);
- scm_call_2 (func, arg1,
- scm_list_4 (ly_symbol2scm ("define-origin"),
- scm_makfrom0str (ip->file_string ()
- .to_str0 ()),
- scm_int2num (ip->line_number ()),
- scm_int2num (ip->column_number ())));
- expr = ly_cadr (expr);
- }
- else if (head == ly_symbol2scm ("no-origin"))
- {
- scm_call_2 (func, arg1, scm_list_1 (head));
- expr = ly_cadr (expr);
- }
- else if (head == ly_symbol2scm ("translate-stencil"))
- {
- o += ly_scm2offset (ly_cadr (expr));
- expr = ly_caddr (expr);
- }
- else if (head == ly_symbol2scm ("combine-stencil"))
- {
- for (SCM x = ly_cdr (expr); ly_c_pair_p (x); x = ly_cdr (x))
- ly_interpret_stencil (ly_car (x), func, arg1, ly_offset2scm (o));
- return SCM_UNDEFINED;
- }
- else
- {
- scm_call_2 (func, arg1,
- scm_list_4 (ly_symbol2scm ("placebox"),
- scm_make_real (o[X_AXIS]),
- scm_make_real (o[Y_AXIS]),
- expr));
- return SCM_UNDEFINED;
- }
- }
-}
-
-LY_DEFINE (ly_find_font_function, "ly:find-font-function",
- 2, 0, 0, (SCM fs, SCM x),
- "Make font list.")
-{
- if (ly_car (x) == ly_symbol2scm ("placebox"))
- {
- SCM args = ly_cdr (x);
- SCM what = ly_caddr (args);
-
- if (ly_c_pair_p (what))
- {
- SCM head = ly_car (what);
- if (ly_symbol2scm ("text") == head)
- fs = scm_cons (ly_cadr (what), fs);
- else if (head == ly_symbol2scm ("char"))
- fs = scm_cons (ly_cadr (what), fs);
- }
- }
- return SCM_UNDEFINED;
-}
-
-SCM
-find_expression_fonts (SCM expr)