* scm/font.scm (paper20-style-sheet-alist): add smaller font sizes.

* mf/GNUmakefile (SAUTER_FONTS): add smaller sizes.

diff --git a/ChangeLog b/ChangeLog
index 8fc89045614b00964982a8b668f2d8e826c2fc22..e98a0e049eab8fce3a5004d44d2d78a5cee7298d 100644 (file)
--- 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 08da78d27c7dbe820c10fc10c75afb3a1cb9e88c..1e4b6cb9843a6852c07412890a0d802f75fc1924 100644 (file)
--- 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 dd5beba6cb96e814551f147b7c4eea5401d3f20d..78aac9913c4db1554626cfe124b2ce4907ec9706 100644 (file)
--- 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 e59c4bcc709a8a2f7f96a9afd80f4ef1a35a73a4..ae33e0ebcfed4bba47f9c94b7a0459200cc4f640 100644 (file)
--- 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))