set design to 10 (constant).

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index 1f1023514e02f646d69549e3ef16b70e8628dd71..27b7ada9ef84c9706fb191e66b889b258deced5f 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -135,6 +135,11 @@
 
 
 
+;
+; Each size family is a vector of fonts, loaded with a delay.
+; The vector should be sorted according to ascending design size.
+;
+
 (define-public (make-font-tree factor)
   (let*
       ((n (make-font-tree-node 'font-encoding 'music))
@@ -190,15 +195,15 @@
        
        (braces 10 #(,(delay
                       (ly:make-virtual-font
-                       (ly:font-load "feta-braces00")
-                       (ly:font-load "feta-braces10")
-                       (ly:font-load "feta-braces20")
-                       (ly:font-load "feta-braces30")
-                       (ly:font-load "feta-braces40")
-                       (ly:font-load "feta-braces50")
-                       (ly:font-load "feta-braces60")
-                       (ly:font-load "feta-braces70")
-                       (ly:font-load "feta-braces80"))
+                       (ly:font-load "feta-braces-a")
+                       (ly:font-load "feta-braces-b")
+                       (ly:font-load "feta-braces-c")
+                       (ly:font-load "feta-braces-d")
+                       (ly:font-load "feta-braces-e")
+                       (ly:font-load "feta-braces-f")
+                       (ly:font-load "feta-braces-g")
+                       (ly:font-load "feta-braces-h")
+                       (ly:font-load "feta-braces-i"))
                       )))))
 
     (for-each