From: fred <fred>
Date: Sun, 24 Mar 2002 20:01:03 +0000 (+0000)
Subject: lilypond-0.1.26
X-Git-Tag: release/1.5.59~3689
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=16cdfc0980908f7c9e199ac275d8406791862d0f;p=lilypond.git

lilypond-0.1.26
---

diff --git a/mf/feta-eindelijk.mf b/mf/feta-eindelijk.mf
index d6d7cfcf54..bdad5b6ea1 100644
--- a/mf/feta-eindelijk.mf
+++ b/mf/feta-eindelijk.mf
@@ -52,7 +52,8 @@ def block_rest=
 	save p;
 	path p;
 	p:=z1 -- z2 -- z3 -- z4 -- cycle;
-	draw_rounded_path(p, blot_diameter);
+
+	filldraw p;
 enddef;
 
 fet_beginchar( "whole rest", "0", "wholerest");
@@ -148,10 +149,6 @@ fet_beginchar("8th rest","3","eighthrest");
 	currentpicture:=currentpicture shifted (0,interline);
 	fet_endchar;
 
-def tand(expr alpha) = 
-	(sind alpha/cosd alpha);
-	enddef;
-
 fet_beginchar("16th rest","4","sixteenthrest");
 	save alpha,cw,h,w;
 	alpha=74;
diff --git a/mf/feta-toevallig.mf b/mf/feta-toevallig.mf
index 1238eb366b..8528ee47cd 100644
--- a/mf/feta-toevallig.mf
+++ b/mf/feta-toevallig.mf
@@ -50,8 +50,9 @@ fet_beginchar("Sharp" , "1", "sharp");
 		+  vspan -- -hspan -vspan -- hspan - vspan -- cycle )
 		shifted center;
 
-	draw_rounded_path((beam shifted (0,-interbeam/2)), roundness);
-	draw_rounded_path((beam shifted (0,interbeam/2)), roundness);
+	pickup pencircle scaled roundness;
+	filldraw (beam shifted (0,-interbeam/2));
+	filldraw (beam shifted (0,interbeam/2));
 
 	pickup pencircle scaled stemwidth;
 	x3 = x4 = xpart center;
@@ -219,9 +220,11 @@ fet_beginchar("Double sharp", "2", "sharpsharp")
 	z5 = z1 reflectedabout((0,0), (1,1));
 
 	labels(1,2,3,4,5);
-	draw_rounded_path(  
-		z1{dir 45} .. {right}z2 -- z3 -- z4{down} .. {dir 225}z5 .. cycle,
-	1/20 interline);
+	pickup pencircle scaled 1/20 interline;
+	filldraw  
+		z1{dir 45} .. {right}z2 -- z3 -- 
+		z4{down} .. {dir 225}z5 .. cycle;
+	
 
 	addto currentpicture also currentpicture yscaled (-d/h);
 	addto currentpicture also currentpicture xscaled (-1);