From 425bf66fc6bacf9e0ce50fe0ad5c8eb2d17f9c1e Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 22 Jan 2006 16:25:22 +0000
Subject: [PATCH] * Documentation/user/notation-appendices.itely (The Feta
 font): use it.

* input/test/font-table.ly: new file. Generate font table within lily.

* Documentation/user/notation-appendices.itely (The Feta font):
use new font-table.ly file.
---
 ChangeLog                                    |  8 +++
 Documentation/user/notation-appendices.itely |  8 +--
 input/test/font-table.ly                     | 71 ++++++++++++++++++++
 lily/font-config-scheme.cc                   |  3 +-
 scm/lily-library.scm                         |  2 -
 5 files changed, 82 insertions(+), 10 deletions(-)
 create mode 100644 input/test/font-table.ly

diff --git a/ChangeLog b/ChangeLog
index da74094d04..377742ae4e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2006-01-22  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* Documentation/user/notation-appendices.itely (The Feta font):
+	use it.
+
+	* input/test/font-table.ly: new file. Generate font table within lily.
+
+	* Documentation/user/notation-appendices.itely (The Feta font):
+	use new font-table.ly file. 
+
 	* stepmake/stepmake/install-out-targets.make
 	(local-install-outfiles): only create directory if
 	$(INSTALLATION_OUT_DIR) is defined. This fixes install on Gentoo.
diff --git a/Documentation/user/notation-appendices.itely b/Documentation/user/notation-appendices.itely
index 59f53d449b..426cc4b5e3 100644
--- a/Documentation/user/notation-appendices.itely
+++ b/Documentation/user/notation-appendices.itely
@@ -173,15 +173,11 @@ Where N is in the range 0-100.
 @node The Feta font
 @appendixsec The Feta font
 
-The following symbols are available in the Feta font and may be
+The following symbols are available in the Emmentaler font and may be
 accessed directly using text markup such as @code{g^\markup @{
 \musicglyph #"scripts.segno" @}}, see @ref{Text markup}.
 
-
-@lilypondfile[noindent]{feta16list.ly}
-
-
-@lilypondfile[noindent]{parmesan16list.ly}
+@lilypondfile[noindent]{font-table.ly}
 
 
 @ignore
diff --git a/input/test/font-table.ly b/input/test/font-table.ly
new file mode 100644
index 0000000000..fa1a5f6f8f
--- /dev/null
+++ b/input/test/font-table.ly
@@ -0,0 +1,71 @@
+
+
+\paper {
+  %% ugh. text on toplevel is a bit broken... .
+  
+  oddHeaderMarkup = \markup {}
+  evenHeaderMarkup = \markup {}
+  oddFooterMarkup = \markup {}
+  evenFooterMarkup = \markup {}
+  }
+
+#(define (doc-char name)
+  (make-line-markup
+   (list
+    (make-pad-to-box-markup
+     '(0 . 30)
+     '(-2 . 2)
+     (make-typewriter-markup (make-small-markup name)))
+    (make-pad-to-box-markup
+     '(-2 . 2)
+     '(-2 . 2)
+     (make-musicglyph-markup name)))))
+
+#(define (min-length lst n)
+  "(min  (length lst) n)"
+  
+  (if (or (null? lst) (<= n 0))
+   0
+   (1+ (min-length (cdr lst) (1- n)) )))
+
+#(define (doc-chars names)
+  (let*
+   ((n (min-length names 2))
+    (head (take names n))
+    (tail (drop names n))
+    )
+
+   (cons
+    (make-line-markup (map doc-char head))
+    (if (null? tail)
+     '()
+     (doc-chars tail)))))
+
+#(define (group-lines lines)
+  (let*
+   ((n (min-length lines 25))
+    (head (take lines n))
+    (tail (drop lines n))
+    )
+
+   (cons
+    (make-column-markup head)
+    (if (null? tail)
+     '()
+     (group-lines tail)))))
+			
+#(let*
+  ((lines (doc-chars
+	   (ly:font-glyph-list (format  "~a/share/lilypond/~a/fonts/otf/emmentaler-20.otf"
+				(getenv "LILYPONDPREFIX")
+				(lilypond-version)
+			      ))))
+   (pages (group-lines lines)))
+
+  (for-each 
+   (lambda (x)
+    (collect-scores-for-book parser
+     (make-override-markup '(word-space . 8) x)))
+			pages))
+
+
diff --git a/lily/font-config-scheme.cc b/lily/font-config-scheme.cc
index 90211f8353..99e8f453c6 100644
--- a/lily/font-config-scheme.cc
+++ b/lily/font-config-scheme.cc
@@ -60,7 +60,7 @@ display_list (FcConfig *fcc)
   if (!os)
     os = FcObjectSetBuild (FC_FAMILY, FC_STYLE, (char *) 0);
 
-  FcFontSet   * fs = FcFontList (fcc, pat, os);
+  FcFontSet *fs = FcFontList (fcc, pat, os);
   FcObjectSetDestroy (os);
   if (pat)
     FcPatternDestroy (pat);
@@ -73,7 +73,6 @@ display_list (FcConfig *fcc)
 }
 
 
-
 LY_DEFINE (ly_font_config_display_fonts, "ly:font-config-display-fonts", 0, 0, 0,
 	   (),
 	   "Dump a list of all fonts visible to FontConfig.")
diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 52779ceef4..5788f37a35 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -110,8 +110,6 @@
 	(set! base (format #f "~a-~a" base count)))
 
     (ly:parser-define! parser 'output-count (1+ count))
-    
-
     (ly:score-process score header paper layout base)
     ))
 
-- 
2.39.2