+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