Use `transform'.

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

diff --git a/mf/parmesan-scripts.mf b/mf/parmesan-scripts.mf
index 435cc86a13c7775b5d352a5c050c54738e0b7460..59c6993ee5e98090770467f7c9670c2d01951a55 100644 (file)
--- a/mf/parmesan-scripts.mf
+++ b/mf/parmesan-scripts.mf
@@ -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);