patch::: 1.3.99.jcn1

1.3.99.jcn1
===========

* Made several font size and initialisation fixes.

diff --git a/CHANGES b/CHANGES
index e5751612536b950241cee0770d538350476a5cab..4392a298dd006959332e9c0d0213a24032e6cf73 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,8 @@
+1.3.99.jcn1
+===========
+
+* Made several font size and initialisation fixes.
+
 1.3.98.jcn2
 ===========
 

diff --git a/VERSION b/VERSION
index 1a504215d7e399434a9955a90758aca22ae54614..3303cdd96493e95a3c1b886953a655090a99abef 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=99
-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/mf/feta-braces23.mf b/mf/feta-braces23.mf
index c14215dd7c9f2d5e859c306d86a341f4e5d8dea2..6e4ca0c7126645b7633bb4a3a0e039ee05e23331 100644 (file)
--- a/mf/feta-braces23.mf
+++ b/mf/feta-braces23.mf
@@ -8,10 +8,10 @@
 % 
 
 font_identifier:="feta-braces23";
-font_size 23;
+font_size 22.5;  %% feta23 = 22.5pt  ...
 mode_setup;
 
-staffsize#:=23pt#;
+staffsize#:=22.5pt#;
 input feta-beugel;
 end.
 

diff --git a/mf/feta-din10.mf b/mf/feta-din10.mf
index 749c181cbbd1e14313555317a012a52b7ef3eb32..55a476a584edb755b44edcd5f5a75ef0eeae6a04 100644 (file)
--- a/mf/feta-din10.mf
+++ b/mf/feta-din10.mf
@@ -1,8 +1,7 @@
-
 % feta-din10.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=10;
+design_size:=10; % feta20 = 20pt
 
 input feta-din;
 

diff --git a/mf/feta-din11.mf b/mf/feta-din11.mf
new file mode 100644 (file)
index 0000000..5fb32da
--- /dev/null
+++ b/mf/feta-din11.mf
@@ -0,0 +1,9 @@
+% feta-din11.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=11.25; % feta23 = 22.5pt
+
+input feta-din;
+
+end.
+

diff --git a/mf/feta-din12.mf b/mf/feta-din12.mf
index 9ffb1b51d3196f9b82c204a93c35dbdf68417aac..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-din12.mf
+++ b/mf/feta-din12.mf
@@ -1,9 +0,0 @@
-% feta-din10.mf
-% part of LilyPond's pretty-but-neat music font
-
-design_size:=12;
-
-input feta-din;
-
-end.
-

diff --git a/mf/feta-din13.mf b/mf/feta-din13.mf
new file mode 100644 (file)
index 0000000..762539a
--- /dev/null
+++ b/mf/feta-din13.mf
@@ -0,0 +1,9 @@
+% feta-din13.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=13; % feta26 = 26pt
+
+input feta-din;
+
+end.
+

diff --git a/mf/feta-din14.mf b/mf/feta-din14.mf
index 3c435f8d8e425dad7af61bbfcde680b985043005..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-din14.mf
+++ b/mf/feta-din14.mf
@@ -1,2 +0,0 @@
-design_size := 14.4;
-input feta-din;

diff --git a/mf/feta-din16.mf b/mf/feta-din16.mf
new file mode 100644 (file)
index 0000000..451de08
--- /dev/null
+++ b/mf/feta-din16.mf
@@ -0,0 +1,9 @@
+% feta-din16.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=16;
+
+input feta-din;
+
+end.
+

diff --git a/mf/feta-din3.mf b/mf/feta-din3.mf
index 63c89cbd60dd1e5a04dcc615ebe510b50d67145e..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-din3.mf
+++ b/mf/feta-din3.mf
@@ -1,10 +0,0 @@
-% feta-din4.mf
-% part of LilyPond's pretty-but-neat music font
-
-% size:=4;
-design_size:=16*3/15;
-
-input feta-din.mf;
-
-end.
-

diff --git a/mf/feta-din4.mf b/mf/feta-din4.mf
index 8aabec40e04ddb48b55b5805d68530b7607db585..a8e25a1da606cc6776e75d9c72405ce05552acf3 100644 (file)
--- a/mf/feta-din4.mf
+++ b/mf/feta-din4.mf
@@ -1,8 +1,7 @@
 % feta-din4.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=4;
-design_size:=16*4/15;
+design_size:=3.82; % 6.5/1.2/1.2  din5 = 6.5/1.2 :  din7 = 6.5pt
 
 input feta-din.mf;
 

diff --git a/mf/feta-din5.mf b/mf/feta-din5.mf
index 790a8087abfbd545cf61f54c251a7c56939f36b8..7b6e1fcadd5905ea08718672ef17d5bfa43ec426 100644 (file)
--- a/mf/feta-din5.mf
+++ b/mf/feta-din5.mf
@@ -1,8 +1,7 @@
 % feta-din5.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=5;
-design_size:=20*4/15;
+design_size:=4.58; % 6.5/1.2 :  din7 = 6.5pt
 
 input feta-din.mf;
 

diff --git a/mf/feta-din6.mf b/mf/feta-din6.mf
index 854e524f0085c6fae1c4537a13eb5e0da166814c..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-din6.mf
+++ b/mf/feta-din6.mf
@@ -1,10 +0,0 @@
-% feta-din5.mf
-% part of LilyPond's pretty-but-neat music font
-
-% size:=5;
-design_size:=20*6/15;
-
-input feta-din.mf;
-
-end.
-

diff --git a/mf/feta-din7.mf b/mf/feta-din7.mf
index c9854d3e5d683469ed3b1d5cdef2951a2d37930f..81aeffe2f24c5cfc0d24c580022bbe6d62d69e73 100644 (file)
--- a/mf/feta-din7.mf
+++ b/mf/feta-din7.mf
@@ -1,8 +1,7 @@
-% feta-din5.mf
+% feta-din7.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=5;
-design_size:=26*4/15;
+design_size:=6.5; % feta13 = 13pt
 
 input feta-din.mf;
 

diff --git a/mf/feta-din8.mf b/mf/feta-din8.mf
index 745fc6c252aac8be177d3dedcee4f7bc77198eff..32767f685b625a1e5a28fcd9e24e4059f6de2f63 100644 (file)
--- a/mf/feta-din8.mf
+++ b/mf/feta-din8.mf
@@ -1,7 +1,7 @@
 % feta-din8.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=8;
+design_size:=8; % feta16 = 16pt
 
 input feta-din.mf;
 

diff --git a/mf/feta-nummer10.mf b/mf/feta-nummer10.mf
index 1a802df0ddb7223202852c2883a47adc68aed895..884ca5c30a5b0cb3045dd6e7478eae4c63b7a766 100644 (file)
--- a/mf/feta-nummer10.mf
+++ b/mf/feta-nummer10.mf
@@ -1,8 +1,7 @@
-
 % feta-nummer10.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=10;
+design_size:=10; % feta20 = 20pt
 
 input feta-nummer;
 

diff --git a/mf/feta-nummer11.mf b/mf/feta-nummer11.mf
new file mode 100644 (file)
index 0000000..9bebc84
--- /dev/null
+++ b/mf/feta-nummer11.mf
@@ -0,0 +1,9 @@
+% feta-nummer11.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=11.25; % feta23 = 22.5pt
+
+input feta-nummer;
+
+end.
+

diff --git a/mf/feta-nummer12.mf b/mf/feta-nummer12.mf
index 315caebb4361a35c99bf2698311a03c53d5f531e..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-nummer12.mf
+++ b/mf/feta-nummer12.mf
@@ -1,9 +0,0 @@
-% feta-nummer10.mf
-% part of LilyPond's pretty-but-neat music font
-
-design_size:=12;
-
-input feta-nummer;
-
-end.
-

diff --git a/mf/feta-nummer13.mf b/mf/feta-nummer13.mf
new file mode 100644 (file)
index 0000000..e87025b
--- /dev/null
+++ b/mf/feta-nummer13.mf
@@ -0,0 +1,9 @@
+% feta-nummer13.mf
+% part of LilyPond's pretty-but-neat music font
+
+design_size:=13; % feta26 = 26pt
+
+input feta-nummer;
+
+end.
+

diff --git a/mf/feta-nummer14.mf b/mf/feta-nummer14.mf
index dc966e6be4aa7aef14d99bb1b94dbc55ed5d9aa0..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-nummer14.mf
+++ b/mf/feta-nummer14.mf
@@ -1,2 +0,0 @@
-design_size := 14.4;
-input feta-nummer;

diff --git a/mf/feta-nummer3.mf b/mf/feta-nummer3.mf
index 8ac70299c6717f5cb603eb664ab9312c7e4b19eb..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-nummer3.mf
+++ b/mf/feta-nummer3.mf
@@ -1,10 +0,0 @@
-% feta-nummer4.mf
-% part of LilyPond's pretty-but-neat music font
-
-% size:=4;
-design_size:=16*3/15;
-
-input feta-nummer.mf;
-
-end.
-

diff --git a/mf/feta-nummer4.mf b/mf/feta-nummer4.mf
index 97b59333d3e7aeba0870f572e3b4f5c2c82654e7..bb9a0768be197e0246b6ac8e5f097dabe3bb3507 100644 (file)
--- a/mf/feta-nummer4.mf
+++ b/mf/feta-nummer4.mf
@@ -1,8 +1,7 @@
 % feta-nummer4.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=4;
-design_size:=16*4/15;
+design_size:=3.82; % 6.5/1.2/1.2  nummer5 = 6.5/1.2 :  nummer7 = 6.5pt
 
 input feta-nummer.mf;
 

diff --git a/mf/feta-nummer5.mf b/mf/feta-nummer5.mf
index 21c474f1a77fd9cd339f102061f92736b46291ab..596be271b3e5651c41fa1bba4add3ad35c1826db 100644 (file)
--- a/mf/feta-nummer5.mf
+++ b/mf/feta-nummer5.mf
@@ -1,8 +1,7 @@
 % feta-nummer5.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=5;
-design_size:=20*4/15;
+design_size:=4.58; % 6.5/1.2 :  nummer7 = 6.5pt
 
 input feta-nummer.mf;
 

diff --git a/mf/feta-nummer6.mf b/mf/feta-nummer6.mf
index fbda92971a7001a540a227a3c15ad8d2f0634c03..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/mf/feta-nummer6.mf
+++ b/mf/feta-nummer6.mf
@@ -1,10 +0,0 @@
-% feta-nummer5.mf
-% part of LilyPond's pretty-but-neat music font
-
-% size:=5;
-design_size:=20*6/15;
-
-input feta-nummer.mf;
-
-end.
-

diff --git a/mf/feta-nummer7.mf b/mf/feta-nummer7.mf
index fcc15d6b8f8215e77b9cb65d1a98681d74f73003..6a4bbacbdec09c69f1b318b2539d843b752d7b08 100644 (file)
--- a/mf/feta-nummer7.mf
+++ b/mf/feta-nummer7.mf
@@ -1,8 +1,7 @@
-% feta-nummer5.mf
+% feta-nummer7.mf
 % part of LilyPond's pretty-but-neat music font
 
-% size:=5;
-design_size:=26*4/15;
+design_size:=6.5; % feta13 = 13pt
 
 input feta-nummer.mf;
 

diff --git a/mf/feta-nummer8.mf b/mf/feta-nummer8.mf
index d790057895043600559931a23298cf26d9dbc33f..d23a9f31b32d4fc8b39c97b1f536f0cbbd90bc38 100644 (file)
--- a/mf/feta-nummer8.mf
+++ b/mf/feta-nummer8.mf
@@ -1,7 +1,7 @@
 % feta-nummer8.mf
 % part of LilyPond's pretty-but-neat music font
 
-design_size:=8;
+design_size:=8; % feta16 = 16pt
 
 input feta-nummer.mf;
 

diff --git a/mf/feta23.mf b/mf/feta23.mf
index b4dcaea7ada8f5936c3538ad39c1f3cdfcea4b58..5ef48a8a0d004ba7d40e9c3090020bfba16057d8 100644 (file)
--- a/mf/feta23.mf
+++ b/mf/feta23.mf
@@ -1,10 +1,8 @@
-% feta16.mf
+% feta23.mf
 % part of LilyPond's pretty-but-neat music font
 
-% font_identifier:="feta16";
-% font_size 16pt#;
-
 input feta-autometric;
+% why is this 22.5?
 fet_beginfont("feta", 22.5);
 staffsize#:=22.5pt#;
 test:=0;

diff --git a/scm/element-descriptions.scm b/scm/element-descriptions.scm
index 4e88fcdf2878e1a2ed56dd1623d6e11ec7d5fe5c..da872eb5677a5ec6bbbde92e78fa59f13de5dbd5 100644 (file)
--- a/scm/element-descriptions.scm
+++ b/scm/element-descriptions.scm
@@ -251,6 +251,8 @@
                (style-to-font-name . ,style-to-font-name)
                (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . upright)
+               (font-relative-size . 0)
                 
                (meta . ,(element-description "LyricText" lyric-syllable-interface text-interface))
        ))
@@ -302,11 +304,12 @@
                 (style-to-font-name . ,style-to-font-name)
                 (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . upright)
                (font-relative-size . 0)
                (meta . ,(element-description  "NoteName"
-                       note-name-interface
-                       general-element-interface))
-       ))
+                                              note-name-interface
+                                              general-element-interface))
+               ))
 
        (OctavateEight . (
                (self-alignment-X . 0)
@@ -499,6 +502,8 @@
                (style-to-font-name . ,style-to-font-name)
                (markup-to-properties . ,markup-to-properties)
                (font-family . roman)
+               (font-shape . italic)
+               (font-relative-size . 0)
                (meta . ,(element-description "TextScript" text-script-interface text-interface side-position-interface ))
        ))
        (TextSpanner . (
@@ -549,12 +554,12 @@
                 (properties-to-font-name . ,properties-to-font-name)
                 (style-to-font-name . ,style-to-font-name)
                 (markup-to-properties . ,markup-to-properties)
-                (font-shape . italic)
+                (font-style . tuplet)
                (meta .  ,(element-description "TupletBracket" text-interface
                           tuplet-bracket-interface))
        ))
 
-       (UnaChordaPdeal . (
+       (UnaChordaPedal . (
                (molecule-callback . ,Text_item::brew_molecule)
                 (font-shape . italic)
                 (properties-to-font-name . ,properties-to-font-name)

diff --git a/scm/font.scm b/scm/font.scm
index d11a23a3c8c3bc5d689e83a2ce282abc1f49914c..955fe0dcf52b5c9d6f786d39c842f483948040bc 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -10,8 +10,9 @@
   `(
     (finger . ((font-family . number) (font-relative-size . -3)))
     (volta . ((font-family . number) (font-relative-size . -2)))
+    (tuplet . ((font-family . roman) (font-shape . italic) (font-relative-size . -1)))
     (timesig . ((font-family .  number) (font-relative-size . 0)))
-    (mmrest . ((font-family . number) (font-relative-size . -1)))
+    (mmrest . ((font-family . number) (font-relative-size . 1)))
     (mark . ((font-family . number) (font-relative-size . 1)))
     (script . ((font-family . roman) (font-relative-size . -1)))
     (large . ((font-family . roman) (font-relative-size . 1)))
@@ -60,52 +61,61 @@
 
 (define paper20-style-sheet-alist
   '(
+    ((2 medium upright music feta 26) . "feta26")
+    ((1 medium upright music feta 23) . "feta23")
     ((0 medium upright music feta 20) . "feta20")
     ((-1 medium upright music feta 16) . "feta16")
     ((-2 medium upright music feta 13) . "feta13")
-    ((-3 medium upright music feta 13) . "feta11")
-    ((-4 medium upright music feta 13) . "feta11")
-    ((1 medium upright music feta 23) . "feta23")
-    ((2 medium upright music feta 26) . "feta26")
+    ((-3 medium upright music feta 11) . "feta11")
+    ((-4 medium upright music feta 11) . "feta11")
+    ((2 medium upright braces feta-braces 26) . "feta-braces26")
+    ((1 medium upright braces feta-braces 23) . "feta-braces23")
     ((0 medium upright braces feta-braces 20) . "feta-braces20")
-    ((0 medium italic roman cmti 10) . "cmti10")
+    ((-1 medium upright braces feta-braces 16) . "feta-braces16")
+    ((-2 medium upright braces feta-braces 13) . "feta-braces13")
+    ((-3 medium upright braces feta-braces 11) . "feta-braces11")
+    ((2 medium italic roman cmti 12) . "cmti14")
     ((1 medium italic roman cmti 12) . "cmti12")
-    ((3 bold italic dynamic feta 10) . "feta-din13")
-    ((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")
+    ((0 medium italic roman cmti 10) . "cmti10")
+    ((-1 medium italic roman cmti 10) . "cmti8")
+    ((-2 medium italic roman cmti 10) . "cmti7")
+    ((-3 medium italic roman cmti 10) . "cmti6")
+    ((3 bold italic dynamic feta 16) . "feta-din16")
+    ((2 bold italic dynamic feta 16) . "feta-din16")
+    ((1 bold italic dynamic feta 13) . "feta-din13")
+    ((0 bold italic dynamic feta 11) . "feta-din11")
+    ((-1 bold italic dynamic feta 10) . "feta-din10")
+    ((-2 bold italic dynamic feta 8) . "feta-din8")
+    ((-3 bold italic dynamic feta 7) . "feta-din7")
+    ((-4 bold italic dynamic feta 5) . "feta-din5")
+    ((-5 bold italic dynamic feta 4) . "feta-din4")
     ((3 medium upright number feta-nummer 13) . "feta-nummer13")
     ((2 medium upright number feta-nummer 13) . "feta-nummer13")
-    ((1 medium upright number feta-nummer 12) . "feta-nummer12")
+    ((1 medium upright number feta-nummer 11) . "feta-nummer11")
     ((0 medium upright number feta-nummer 10) . "feta-nummer10")
     ((-1 medium upright number feta-nummer 8) . "feta-nummer8")
-    ((-2 medium upright number feta-nummer 6) . "feta-nummer6")
+    ((-2 medium upright number feta-nummer 7) . "feta-nummer7")
     ((-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 bold upright roman cmbx 14) . "cmbx14")
+    ((1 bold upright roman cmbx 12) . "cmbx12")
     ((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" )
     ((-4 medium upright roman cmr 5) . "cmr5" )
     ((-5 medium upright roman cmr 4) . "cmr4" )
-    ((2 bold upright roman cmbx 10) . "cmbx10")
-    ((1 bold upright roman cmbx 12) . "cmbx12")
-    ((-3 medium upright math msam 10) . "msam10")
-    ((-2 medium upright math msam 10) . "msam10")
-    ((-1 medium upright math msam 10) . "msam10")
     ((0 medium upright math msam 10) . "msam10")
+    ((-1 medium upright math msam 10) . "msam10")
+    ((-2 medium upright math msam 10) . "msam10")
+    ((-3 medium upright math msam 10) . "msam10")
     ))
 
 
-;; return a FONT-DESCR with relative size incremented by INCREMENT 
-(define (change-relative-size font-desc increment)
-  (cons (+ increment (car font-desc)) (cdr font-desc))
+;; return a FONT-DESCR with relative size decremented by DECREMENT
+(define (change-relative-size font-desc decrement)
+  (cons (- (car font-desc) decrement) (cdr font-desc))
   )
 
 ;; map a  function FUNC over the keys of an alist LIST, leaving the vals.