Run `make grand-replace'.

[lilypond.git] / mf / parmesan-rests.mf

diff --git a/mf/parmesan-rests.mf b/mf/parmesan-rests.mf
index 1d08c0b9a7d8d58d368a592a875da30db449c6fa..540b7898de347017d9319bb9f7a1e3ad171f8f98 100644 (file)
--- a/mf/parmesan-rests.mf
+++ b/mf/parmesan-rests.mf
@@ -3,13 +3,13 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 2001--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2001--2008 Juergen Reuter <reuter@ipd.uka.de>
 % 
 % Neo-mensural rests originally by
 % Christian Mondrup and Mats Bengtsson.
 % 
 
-fet_begingroup("rests")
+fet_begingroup ("rests")
 
 
 %%%%%%%%
@@ -38,7 +38,7 @@ def neomens_half_block_rest =
 enddef;
 
 
-fet_beginchar ("Neo-mensural maxima rest", "-3neomensural");
+fet_beginchar ("Neo-mensural maxima rest", "M3neomensural");
        set_char_box (0, 3 neomens_block_rest_x#,
                      neomens_block_rest_y#, neomens_block_rest_y#);
 
@@ -49,7 +49,7 @@ fet_beginchar ("Neo-mensural maxima rest", "-3neomensural");
 fet_endchar;
 
 
-fet_beginchar ("Neo-mensural longa rest", "-2neomensural");
+fet_beginchar ("Neo-mensural longa rest", "M2neomensural");
        set_char_box (0, neomens_block_rest_x#,
                      neomens_block_rest_y#, neomens_block_rest_y#);
 
@@ -58,7 +58,7 @@ fet_beginchar ("Neo-mensural longa rest", "-2neomensural");
 fet_endchar;
 
 
-fet_beginchar ("Neo-mensural breve rest", "-1neomensural");
+fet_beginchar ("Neo-mensural breve rest", "M1neomensural");
        set_char_box (0, neomens_block_rest_x#,
                      0, neomens_block_rest_y#);
 
@@ -186,11 +186,11 @@ fet_beginchar ("Neo-mensural 16th rest", "4neomensural");
        rt x3 = w;
        top y3 = h;
        lft x4 = 0;
-       bot y4 = h/2;
+       bot y4 = h / 2;
        rt x5 = w;
-       top y5 = 5/8h;
+       top y5 = 5/8 h;
        lft x6 = 0;
-       bot y6 = h/8;
+       bot y6 = h / 8;
 
        z11 = z1 - stafflinethickness * unitvector (z2 - z1);
        z14 = z4 + stafflinethickness * unitvector (z4 - z3);
@@ -252,9 +252,9 @@ define_pixels (mens_block_rest_y, mens_half_block_rest_y,
               pen_width, pen_height);
 
 
-fet_beginchar ("Mensural maxima rest", "-3mensural");
+fet_beginchar ("Mensural maxima rest", "M3mensural");
        set_char_box (0, pen_width#,
-                     mens_block_rest_y#, 2mens_block_rest_y#);
+                     mens_block_rest_y#, 2 mens_block_rest_y#);
 
        pickup pencircle xscaled pen_width
                         yscaled pen_height
@@ -265,7 +265,7 @@ fet_beginchar ("Mensural maxima rest", "-3mensural");
 fet_endchar;
 
 
-fet_beginchar ("Mensural longa rest", "-2mensural");
+fet_beginchar ("Mensural longa rest", "M2mensural");
        set_char_box (0, pen_width#,
                      mens_block_rest_y#, mens_block_rest_y#);
 
@@ -278,7 +278,7 @@ fet_beginchar ("Mensural longa rest", "-2mensural");
 fet_endchar;
 
 
-fet_beginchar ("Mensural breve rest", "-1mensural");
+fet_beginchar ("Mensural breve rest", "M1mensural");
        set_char_box (0, pen_width#,
                      0, mens_block_rest_y#);
 
@@ -317,7 +317,7 @@ fet_beginchar ("Mensural half rest", "1mensural");
 fet_endchar;
 
 
-mensrestsize# = .8staff_space#;
+mensrestsize# = .8 staff_space#;
 
 
 fet_beginchar ("Mensural 4th rest", "2mensural");
@@ -345,7 +345,9 @@ fet_beginchar ("Mensural 4th rest", "2mensural");
        labels (1, 2, 3, 4);
 fet_endchar;
 
-
+%
+% FIXME: The left sharp corner produces ugly results at lower resolutions.
+%
 fet_beginchar ("Mensural 8th rest", "3mensural");
        set_char_box (0, mensrestsize#,
                      0, mensrestsize#);
@@ -375,6 +377,9 @@ fet_endchar;
 % FIXME: So far, I have never seen a semifusa rest printed.  Hence,
 % the shape of this font character is currently pure invention.  --jr
 %
+%
+% FIXME: The left sharp corner produces ugly results at lower resolutions.
+%
 fet_beginchar ("Mensural 16th rest", "4mensural");
        set_char_box (0, mensrestsize#,
                      0, staff_space#);