X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mf%2Fparmesan-custodes.mf;h=47848b7db0fb37c87a4db06b08f113e9febb3ebf;hb=c44e624300d9877c1790830902a10fd3868dd6d3;hp=f6734c53d94f9bacd3aa5b934d652470cbc72209;hpb=be8e0ed9c4d9bf06fb150e1f0d3cfe1518dfc3a7;p=lilypond.git

diff --git a/mf/parmesan-custodes.mf b/mf/parmesan-custodes.mf
index f6734c53d9..47848b7db0 100644
--- a/mf/parmesan-custodes.mf
+++ b/mf/parmesan-custodes.mf
@@ -3,7 +3,7 @@
 % 
 % source file of LilyPond's pretty-but-neat music font
 % 
-% (c) 2000--2006 Juergen Reuter <reuter@ipd.uka.de>
+% (c) 2000--2007 Juergen Reuter <reuter@ipd.uka.de>
 % 
 
 save black_notehead_width;
@@ -77,16 +77,15 @@ def custos_hufnagel (expr verbose_name, internal_name,
 
 		define_pixels (ht, wd, pen_size, stem_ht);
 
-		save ellipse, pat;
+		save ellipse, pat, T;
 		path ellipse, pat;
+		transform T;
 
-		pickup pencircle xscaled linethickness
-				 yscaled pen_size
-				 rotated -dalpha;
-
-		ellipse := fullcircle xscaled linethickness
-				      yscaled pen_size
-				      rotated -dalpha;
+		T := identity xscaled linethickness
+			      yscaled pen_size
+			      rotated -dalpha;
+		pickup pencircle transformed T;
+		ellipse := fullcircle transformed T;
 
 		if direction = dir_up:
 			top y1 = ht / 2;
@@ -184,14 +183,14 @@ def custos_medicaea (expr verbose_name, internal_name,
 
 		define_pixels (ht, wd, stem_ht);
 
-		save ellipse;
+		save ellipse, T;
 		path ellipse;
+		transform T;
 
-		pickup pencircle xscaled 0.6 linethickness
-				 yscaled ht;
-
-		ellipse := fullcircle xscaled 0.6 linethickness
-				      yscaled ht;
+		T := identity xscaled 0.6 linethickness
+			      yscaled ht;
+		pickup pencircle transformed T;
+		ellipse := fullcircle transformed T;
 
 		lft x1 = 0;
 		y1 = 0;
@@ -393,16 +392,15 @@ def custos_mensural (expr verbose_name, internal_name,
 
 		define_pixels (ht, wd, stem_ht);
 
-		save ellipse;
+		save ellipse, T;
 		path ellipse;
+		transform T;
 
-		pickup pencircle xscaled linethickness
-				 yscaled 0.4ht
-				 rotated -dalpha;
-
-		ellipse := fullcircle xscaled linethickness
-				      yscaled 0.4ht
-				      rotated -dalpha;
+		T := identity xscaled linethickness
+			      yscaled 0.4 ht
+			      rotated -dalpha;
+		pickup pencircle transformed T;
+		ellipse := fullcircle transformed T;
 
 		if direction > 0:
 			bot y1 = bot y3 = bot y5 = -direction * 0.33 ht;