* scm/output-ascii-script.scm (as-font-alist-alist):

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index d3b36485958e45d692ada1d72fa36bfd6f8d143d..0d1cd0f5faf629db2cc1a6d353c0589ef958c70b 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -387,3 +387,24 @@ and warn if the selected font is not unique.
 
 
 )
+
+;;; ascii-script font init
+(define as-font-sheet-alist
+  '((as5 . (((* * * braces *) . ("as-braces9"))
+           ((* * * number *) . "as-number1")
+           ((0 * * music *) . ("as5"))
+           ((0 * * roman *) . "as-dummy")))
+    (as9 . (((* * * braces *) . ("as-braces9"))
+           ((0 medium upright number 10) . "as-number4")
+           ((* * * number 5) . "as-number1")
+           ((0 * * music *) . ("as9"))
+           ((0 * * roman *) . "as-dummy")))))
+
+(define-public (as-make-font-list sym)
+  (set! font-list-alist
+       (append font-list-alist as-font-sheet-alist))
+  (make-font-list sym))
+
+
+
+