+
+
+IMPLEMENT_SMOBS (Font_metric);
+IMPLEMENT_DEFAULT_EQUAL_P (Font_metric);
+IMPLEMENT_TYPE_P (Font_metric, "ly:font-metric?");
+
+
+SCM
+Font_metric::font_file_name () const
+{
+ return scm_car (description_);
+}
+
+String
+Font_metric::font_name () const
+{
+ String s ("unknown");
+ return s;
+}
+
+#include "afm.hh"
+
+
+int
+Font_metric::index_to_ascii (int i) const
+{
+ return i;
+}
+
+unsigned
+Font_metric::index_to_charcode (int i) const
+{
+ return (unsigned) index_to_ascii (i);
+}
+
+Stencil
+Font_metric::get_ascii_char_stencil (int code) const
+{
+ SCM at = scm_list_3 (ly_symbol2scm ("char"), self_scm (),
+ scm_int2num (code));
+ Box b = get_ascii_char (code);
+ return Stencil (b, at);
+}
+
+Stencil
+Font_metric::get_indexed_char_stencil (int code) const
+{
+ int idx = index_to_ascii (code);
+ SCM at = scm_list_3 (ly_symbol2scm ("char"), self_scm (), scm_int2num (idx));
+ Box b = get_indexed_char (code);
+ return Stencil (b, at);
+}
+
+
+Offset
+Font_metric::attachment_point (String) const
+{
+ return Offset (0, 0);
+}
+
+SCM
+Font_metric::sub_fonts () const
+{
+ return SCM_EOL;
+}
+
+Stencil
+Font_metric::text_stencil (String str) const
+{
+ SCM lst = scm_list_3 (ly_symbol2scm ("text"),
+ this->self_scm (),
+ scm_makfrom0str (str.to_str0 ()));
+
+ Box b = text_dimension (str);
+ return Stencil (b, lst);
+}
+
+Box
+Font_metric::text_dimension (String) const
+{
+ return Box (Interval (0, 0), Interval (0, 0));
+}