- toadd.translate_axis (offset,a);
-
- if (minimum > 0 && d * (-origin ()[a] + toadd.origin ()[a]) < minimum)
- toadd.translate_axis ( -toadd.origin ()[a]
- + origin ()[a] + d * minimum, a);
-
- return toadd;
-}
-
-/* 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));
-}
-
-
-/****************************************************************/
-
-
-void
-interpret_stencil_expression (SCM expr,
- void (*func) (void*, SCM),
- void *func_arg,
- Offset o)
-{
- while (1)
- {
- if (!ly_c_pair_p (expr))
- return;
-
- SCM head = ly_car (expr);
-
- 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))
- interpret_stencil_expression (ly_car (x), func, func_arg, o);
- return;
- }
- else if (head == ly_symbol2scm ("grob-cause"))
- {
- SCM grob = ly_cadr (expr);
-
- (*func) (func_arg, scm_list_2 (head, grob));
- interpret_stencil_expression (ly_caddr (expr), func, func_arg, o);
- (*func) (func_arg, scm_list_1 (ly_symbol2scm ("no-origin")));
-
- return ;
- }
- else
- {
- (*func) (func_arg,
- scm_list_4 (ly_symbol2scm ("placebox"),
- scm_make_real (o[X_AXIS]),
- scm_make_real (o[Y_AXIS]),
- expr));
- return;
- }
- }
-}
-
-
-struct Font_list
-{
- SCM fonts_;
-};
-
-static void
-find_font_function (void *fs, SCM x)
-{
- Font_list *me = (Font_list*) fs;
-
- 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)
- me->fonts_ = scm_cons (ly_cadr (what), me->fonts_);
- else if (head == ly_symbol2scm ("char"))
- me->fonts_ = scm_cons (ly_cadr (what), me->fonts_);
- }
- }