From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 15 Mar 2010 04:11:15 +0000 (-0300)
Subject: Remove ly:get-glyph and supporting infrastructure.
X-Git-Tag: release/2.13.17-1~36
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c5d9ef8c7eaed663fabcd70742ba7a0e56cb337b;p=lilypond.git

Remove ly:get-glyph and supporting infrastructure.
---

diff --git a/lily/font-metric-scheme.cc b/lily/font-metric-scheme.cc
index faa007aac5..408ede7948 100644
--- a/lily/font-metric-scheme.cc
+++ b/lily/font-metric-scheme.cc
@@ -46,25 +46,6 @@ LY_DEFINE (ly_font_get_glyph, "ly:font-get-glyph",
   return m.smobbed_copy ();
 }
 
-LY_DEFINE (ly_get_glyph, "ly:get-glyph",
-	   2, 0, 0,
-	   (SCM font, SCM index),
-	   "Retrieve a stencil for the glyph numbered @var{index}"
-	   " in @var{font}.\n"
-	   "\n"
-	   "Note that this command can only be used to access glyphs from"
-	   " fonts loaded with @code{ly:system-font-load}; currently, this"
-	   " means either the Emmentaler or Emmentaler-Brace fonts, corresponding"
-	   " to the font encodings @code{fetaMusic} and @code{fetaBraces},"
-	   " respectively.")
-{
-  Font_metric *fm = unsmob_metrics (font);
-  LY_ASSERT_SMOB (Font_metric, font, 1);
-  LY_ASSERT_TYPE (scm_is_number, index,2);
-
-  return fm->get_ascii_char_stencil (scm_to_int (index)).smobbed_copy ();
-}
-
 LY_DEFINE (ly_font_glyph_name_to_index, "ly:font-glyph-name-to-index",
 	   2, 0, 0,
 	   (SCM font, SCM name),
diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index ed53d26618..262d8a1559 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -156,15 +156,6 @@ Font_metric::index_to_charcode (size_t i) const
   return index_to_ascii (i);
 }
 
-Stencil
-Font_metric::get_ascii_char_stencil (size_t code) const
-{
-  SCM at = scm_list_3 (ly_symbol2scm ("char"), self_scm (),
-		       scm_from_unsigned (code));
-  Box b = get_ascii_char (code);
-  return Stencil (b, at);
-}
-
 Stencil
 Font_metric::get_indexed_char_stencil (size_t code) const
 {
diff --git a/lily/include/font-metric.hh b/lily/include/font-metric.hh
index b9dc5c7891..2d00a270b7 100644
--- a/lily/include/font-metric.hh
+++ b/lily/include/font-metric.hh
@@ -62,7 +62,6 @@ public:
   virtual Real design_size () const;
   virtual Stencil find_by_name (string) const;
   virtual Stencil get_indexed_char_stencil (size_t k) const;
-  virtual Stencil get_ascii_char_stencil (size_t k) const;
   virtual SCM sub_fonts () const;
   virtual SCM font_file_name () const;
   DECLARE_SMOBS (Font_metric);
diff --git a/scm/safe-lily.scm b/scm/safe-lily.scm
index 8a8faeba13..8c7059d438 100644
--- a/scm/safe-lily.scm
+++ b/scm/safe-lily.scm
@@ -54,7 +54,6 @@
    ly:format-output
    ly:get-all-function-documentation
    ly:get-all-translators
-   ly:get-glyph
    ly:get-option
    ly:grob-alist-chain
    ly:grob-default-font