From e4452b2e26a5835c6c330abbde3d537611ec7c39 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 7 Sep 2003 20:30:10 +0000
Subject: [PATCH] * scm/font.scm (paper20-style-sheet-alist): add smaller font
 sizes.

* mf/GNUmakefile (SAUTER_FONTS): add smaller sizes.
---
 ChangeLog          |  6 ++++++
 mf/GNUmakefile     |  3 ++-
 scm/font.scm       | 15 ++++++++++++---
 scm/new-markup.scm |  4 +++-
 4 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8fc8904561..e98a0e049e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-07  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* scm/font.scm (paper20-style-sheet-alist): add smaller font sizes.
+
+	* mf/GNUmakefile (SAUTER_FONTS): add smaller sizes.
+
 2003-09-05  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* Documentation/user/tutorial.itely (A lead sheet): remove
diff --git a/mf/GNUmakefile b/mf/GNUmakefile
index 08da78d27c..1e4b6cb984 100644
--- a/mf/GNUmakefile
+++ b/mf/GNUmakefile
@@ -56,7 +56,8 @@ INSTALLATION_OUT_FILES3=$(TFM_FILES)
 #MAKE_PFB_FILES=1
 
 SAUTER_FONTS = cmbxti7 cmbxti8 cmbxti12 cmbxti14 \
-	cmcsc7 cmcsc12 cmtt17 cmbx14 cmbx17 cmtt6
+	cmcsc7 cmcsc12 cmtt17 cmbx14 cmbx17 cmtt6 cmbx6 cmbx5 cmbxti5 \
+	cmti6 cmti5 
 
 ALL_FONTS = $(FETA_FONTS) $(SAUTER_FONTS)
 
diff --git a/scm/font.scm b/scm/font.scm
index dd5beba6cb..78aac9913c 100644
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -73,7 +73,9 @@
     ((0 medium italic roman 10) . "cmti10")
     ((-1 medium italic roman 8) . "cmti8")    
     ((-2 medium italic roman 7) . "cmti7")
-    ((-3 medium italic roman 7) . "cmti7")    
+    ((-3 medium italic roman 6) . "cmti6")    
+    ((-4 medium italic roman 5) . "cmti5")    
+    ((-5 medium italic roman 5) . "cmti5")    
 
     ;;; cmbx17 is sauter, not commonly available as Type1.
     ((4 bold upright roman 17) . "cmbx17") 
@@ -84,14 +86,21 @@
     ((0 bold upright roman 10) . "cmbx10")
     ((-1 bold upright roman 8) . "cmbx8")
     ((-2 bold upright roman 7) . "cmbx7")
-    
+    ((-3 bold upright roman 6) . "cmbx6")
+    ((-4 bold upright roman 5) . "cmbx5")
+    ((-5 bold upright roman 5) . "cmbx5")
+     
+     
     ((2 bold italic roman 12) . "cmbxti12")
     ((1 bold italic roman 12) . "cmbxti12")
     ((0 bold italic roman 10) . "cmbxti10")
 
     ((-1 bold italic roman 8) . "cmbxti8")
     ((-2 bold italic roman 7) . "cmbxti7")
-    
+    ((-3 bold italic roman 6) . "cmbxti6")
+    ((-4 bold italic roman 5) . "cmbxti5")
+    ((-5 bold italic roman 5) . "cmbxti5")
+     
     ((4 medium upright typewriter 17) . "cmtt17")
     ((3 medium upright typewriter 17) . "cmtt17")
     ((2 medium upright typewriter 12) . "cmtt12")
diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index e59c4bcc70..ae33e0ebcf 100644
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -243,7 +243,9 @@ Syntax: \\fraction MARKUP1 MARKUP2."
 
 
 (define-public (note-markup grob props . rest)
-  "Syntax: \\note #LOG #DOTS #DIR. "
+  "Syntax: \\note #LOG #DOTS #DIR.  By using fractional values
+for DIR, you can obtain longer or shorter stems."
+ 
   (let*
       (
        (log (car rest))
-- 
2.39.2