+ while (1)
+ {
+ if (!scm_is_pair (expr))
+ return;
+
+ SCM head = scm_car (expr);
+
+ if (head == ly_symbol2scm ("translate-stencil"))
+ {
+ o += ly_scm2offset (scm_cadr (expr));
+ expr = scm_caddr (expr);
+ }
+ else if (head == ly_symbol2scm ("combine-stencil"))
+ {
+ for (SCM x = scm_cdr (expr); scm_is_pair (x); x = scm_cdr (x))
+ interpret_stencil_expression (scm_car (x), func, func_arg, o);
+ return;
+ }
+ else if (head == ly_symbol2scm ("grob-cause"))
+ {
+ SCM grob = scm_cadr (expr);
+
+ (*func) (func_arg, scm_list_2 (head, grob));
+ interpret_stencil_expression (scm_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 (scm_car (x) == ly_symbol2scm ("placebox"))
+ {
+ SCM args = scm_cdr (x);
+ SCM what = scm_caddr (args);
+
+ if (scm_is_pair (what))
+ {
+ SCM head = scm_car (what);
+ if (ly_symbol2scm ("text") == head)
+ me->fonts_ = scm_cons (scm_cadr (what), me->fonts_);
+ else if (head == ly_symbol2scm ("char"))
+ me->fonts_ = scm_cons (scm_cadr (what), me->fonts_);
+ }
+ }