From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 13 Dec 2004 20:21:41 +0000 (+0000)
Subject: * scm/encoding.scm (coding-alist): Fix encodings for fetaNumber
X-Git-Tag: release/2.5.14~424
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7bb20fad90f4f9fc18e5c32c8d8d3b4924e34271;p=lilypond.git

* scm/encoding.scm (coding-alist): Fix encodings for fetaNumber
and fetaDynamic.

* lily/rest.cc (glyph_name): Change - to . .

* scm/output-gnome.scm (text): Hello world, again.

* lily/font-metric.cc (ly:font-glyph-name-to-charcode): Use it in
new function.
(ly:font-glyph-to-index): Remove.
---

diff --git a/ChangeLog b/ChangeLog
index 989cd1c79f..720f78cbbc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-12-13  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* scm/encoding.scm (coding-alist): Fix encodings for fetaNumber
+	and fetaDynamic.
+
+	* lily/rest.cc (glyph_name): Change - to . .
+
 	* scm/output-gnome.scm (text): Hello world, again.
 
 	* scm/output-svg.scm (named-glyph): New function.  Hello world!
diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 9686b7b54d..e334548fbb 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -201,7 +201,7 @@ LY_DEFINE (ly_font_glyph_name_to_charcode, "ly:font-glyph-name-to-charcode",
 #endif
 }
 
-LY_DEFINE (ly_text_dimension,"ly:text-dimension",
+LY_DEFINE (ly_text_dimension, "ly:text-dimension",
 	   2, 0, 0,
 	  (SCM font, SCM text),
 	  "Given the font metric in @var{font} and the string @var{text}, "
@@ -219,7 +219,7 @@ LY_DEFINE (ly_text_dimension,"ly:text-dimension",
   return scm_cons (ly_interval2scm (b[X_AXIS]), ly_interval2scm (b[Y_AXIS]));
 }
 
-LY_DEFINE (ly_font_file_name,"ly:font-file-name",
+LY_DEFINE (ly_font_file_name, "ly:font-file-name",
 	   1, 0, 0,
 	   (SCM font),
 	   "Given the font metric @var{font}, "
@@ -233,7 +233,7 @@ LY_DEFINE (ly_font_file_name,"ly:font-file-name",
 
 #include "afm.hh"
 
-LY_DEFINE (ly_font_name,"ly:font-name",
+LY_DEFINE (ly_font_name, "ly:font-name",
 	   1, 0, 0,
 	   (SCM font),
 	   "Given the font metric @var{font}, "
@@ -250,7 +250,7 @@ LY_DEFINE (ly_font_name,"ly:font-name",
   return SCM_BOOL_F;
 }
 
-LY_DEFINE (ly_font_magnification,"ly:font-magnification", 1 , 0, 0,
+LY_DEFINE (ly_font_magnification, "ly:font-magnification", 1, 0, 0,
 	  (SCM font),
 	   "Given the font metric @var{font}, return the "
 	   "magnification, relative to the current outputscale.")
@@ -260,7 +260,7 @@ LY_DEFINE (ly_font_magnification,"ly:font-magnification", 1 , 0, 0,
   return scm_cdr (fm->description_);
 }
 
-LY_DEFINE (ly_font_design_size,"ly:font-design-size", 1 , 0, 0,
+LY_DEFINE (ly_font_design_size, "ly:font-design-size", 1, 0, 0,
 	  (SCM font),
 	   "Given the font metric @var{font}, return the "
 	   "design size, relative to the current outputscale.")
diff --git a/lily/rest.cc b/lily/rest.cc
index 3589735705..7769d030fe 100644
--- a/lily/rest.cc
+++ b/lily/rest.cc
@@ -108,7 +108,8 @@ Rest::glyph_name (Grob *me, int balltype, String style, bool try_ledgers)
     actual_style = "";
   }
 
-  return ("rests-") + to_string (balltype) + (ledgered_b ? "o" : "") + actual_style;
+  return ("rests." + to_string (balltype) + (ledgered_b ? "o" : "")
+	  + actual_style);
 }
 
 
diff --git a/scm/encoding.scm b/scm/encoding.scm
index 13970ef5b6..c108066f78 100644
--- a/scm/encoding.scm
+++ b/scm/encoding.scm
@@ -98,8 +98,10 @@ vector of symbols."
 
 	 ;; LilyPond FETA music font
 	 ("fetaBraces" . "feta-braces-a.enc")
-	 ("fetaDynamic" . "feta-din10.enc")
-	 ("fetaNumber" . "feta-nummer10.enc")
+	 ;;("fetaDynamic" . "feta-din10.enc")
+	 ;;("fetaNumber" . "feta-nummer10.enc")
+	 ("fetaDynamic" . "feta-alphabet20.enc")
+	 ("fetaNumber" . "feta-alphabet20.enc")
 	 ("fetaMusic" . "feta20.enc")
 	 ("parmesanMusic" . "parmesan20.enc"))
        ))
diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index e44781a6a2..30c1767c93 100644
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -273,7 +273,7 @@ lilypond -fgnome input/simple-song.ly
     bezier))
 
 (define (char font i)
-  (text font (ly:font-index-to-charcode (integer->char i))))
+  (text font (ly:font-index-to-charcode font i)))
 
 ;; FIXME: naming
 (define (filledbox breapth width depth height)