%
% source file of LilyPond's pretty-but-neat music font
%
-% (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2002--2009 Juergen Reuter <reuter@ipd.uka.de>
%
fet_begingroup ("scripts");
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);