From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 30 Oct 2000 21:24:54 +0000 (+0100)
Subject: patch::: 1.3.101.jcn1
X-Git-Tag: release/1.3.102~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f32008cd131ba353b90dc64ed4c38d63d61d922c;p=lilypond.git

patch::: 1.3.101.jcn1

1.3.101.jcn1
============

* Silly font initialisation fix for paper19 non-feature.
---

diff --git a/CHANGES b/CHANGES
index 0c45c08fa7..4abb3b88fb 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,7 @@
+1.3.101.jcn1
+============
+
+* Silly font initialisation fix for paper19 non-feature.
 
 1.3.101
 =======
diff --git a/VERSION b/VERSION
index f45f6ae029..86e18c9b98 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=101
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=jcn1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/scm/font.scm b/scm/font.scm
index fc59fcdfad..cde631b71d 100644
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -60,8 +60,9 @@
     ((-2 medium upright number feta-nummer 6) . "feta-nummer6")
     ((-3 medium upright number feta-nummer 5) . "feta-nummer5")
     ((-4 medium upright number feta-nummer 4) . "feta-nummer4")
-    ((0 medium upright roman cmr 10) . "cmr10")
+    ((2 medium upright roman cmr 14) . "cmr14")
     ((1 medium upright roman cmr 12) . "cmr12")
+    ((0 medium upright roman cmr 10) . "cmr10")
     ((-1 medium upright roman cmr 8) . "cmr8" )
     ((-2 medium upright roman cmr 7) . "cmr7" )
     ((-3 medium upright roman cmr 6) . "cmr6" )
@@ -91,11 +92,11 @@
     ((2 bold italic dynamic feta 10) . "feta-din13")
     ((1 bold italic dynamic feta 10) . "feta-din12")
     ((0 bold italic dynamic feta 10) . "feta-din10")
-    ((-1 bold italic dynamic feta 10) . "feta-din8")
-    ((-2 bold italic dynamic feta 10) . "feta-din7")
-    ((-3 bold italic dynamic feta 10) . "feta-din6")
-    ((-4 bold italic dynamic feta 10) . "feta-din5")
-    ((-5 bold italic dynamic feta 10) . "feta-din4")
+    ((-1 bold italic dynamic feta 8) . "feta-din8")
+    ((-2 bold italic dynamic feta 7) . "feta-din7")
+    ((-3 bold italic dynamic feta 6) . "feta-din6")
+    ((-4 bold italic dynamic feta 5) . "feta-din5")
+    ((-5 bold italic dynamic feta 4) . "feta-din4")
     ((2 medium upright music feta 26) . "feta26")
     ((1 medium upright music feta 23) . "feta23")
     ((0 medium upright music feta 20) . "feta20")
@@ -138,10 +139,10 @@
 (define font-list-alist
   (map-alist-vals (lambda (x) (change-style-sheet-relative-size
 			       paper20-style-sheet-alist x))
-		  '((paper11 . -4)
-		    (paper13 . -3)
-		    (paper16 . -2)
-		    (paper19 . -1)		    
+		  '((paper11 . -3)
+		    (paper13 . -2)
+		    (paper16 . -1)
+		    (paper19 . -0.5)	
 		    (paper20 . 0)
 		    (paper23 . 1)
 		    (paper26 . 2)