From 266533e142e683292b7d481aa2967bb311bf7e82 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:06:04 +0000
Subject: [PATCH] lilypond-1.5.35

---
 lily/font-metric.cc | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 11f63489e8..577471baa3 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -148,11 +148,33 @@ ly_find_glyph_by_name (SCM font, SCM name)
 }
 
 
+SCM
+ly_text_dimension (SCM font, SCM text)
+{
+  Box b;
+  
+  if (!unsmob_metrics (font) || !gh_string_p(text))
+    {
+      warning ("ly-find-glyph-by-name: invalid argument.");
+      Molecule m;
+      return m.smobbed_copy ();
+    }
+  else
+    {
+      b = unsmob_metrics (font)->text_dimension (ly_scm2string (text));
+    }
+  
+  return gh_cons (ly_interval2scm (b[X_AXIS]), ly_interval2scm(b[Y_AXIS]));
+}
+
+
 static void
 font_metric_init ()
 {
    scm_c_define_gsubr ("ly-find-glyph-by-name", 2 , 0, 0,
 		       (Scheme_function_unknown) ly_find_glyph_by_name);
+   scm_c_define_gsubr ("ly-text-dimension", 2 , 0, 0,
+		       (Scheme_function_unknown) ly_text_dimension);
 }
 
 ADD_SCM_INIT_FUNC (font_metric_init, font_metric_init);
-- 
2.39.5