Run `make grand-replace'.

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

diff --git a/mf/parmesan-scripts.mf b/mf/parmesan-scripts.mf
index 435cc86a13c7775b5d352a5c050c54738e0b7460..fd260768a45dd6a3c13d05e83b601d85bc9e711c 100644 (file)
--- a/mf/parmesan-scripts.mf
+++ b/mf/parmesan-scripts.mf
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2002--2008 Juergen Reuter <reuter@ipd.uka.de>
 % 
 
 fet_begingroup ("scripts");
@@ -15,14 +15,14 @@ fet_beginchar ("ictus", "ictus");
 
        define_pixels (wd, ht);
 
-       save ellipse;
+       save ellipse, T;
        path ellipse;
+       transform T;
 
-       pickup pencircle xscaled wd
-                        yscaled blot_diameter;
-
-       ellipse := fullcircle xscaled wd
-                             yscaled blot_diameter;
+       T := identity xscaled wd
+                     yscaled blot_diameter;
+       pickup pencircle transformed T;
+       ellipse := fullcircle transformed T;
 
        set_char_box (wd# / 2, wd# / 2, ht# / 2, ht# / 2);