patch::: 0.1.19.jcn1: tik

[lilypond.git] / mf / toevallig.mf

diff --git a/mf/toevallig.mf b/mf/toevallig.mf
index 69cb6e1e074dfecf5477dbb0dec6396820b94cd2..60aff66f0311bb3d1aff71bdc1bedf559d34a3a7 100644 (file)
--- a/mf/toevallig.mf
+++ b/mf/toevallig.mf
@@ -34,7 +34,9 @@ fet_beginchar("Sharp" , "1", "sharp");
        2 horizontal_protrusion  + interstem * beamwidth + stemwidth
                = beamwidth;
        
-       z2 - z1 = (beamwidth - roundness, beamheight/2);
+% wanske: whole beamheight; or ca 18 degrees
+%      z2 - z1 = (beamwidth - roundness, beamheight/2);
+       z2 - z1 = (beamwidth - roundness, beamheight);
        z1 + z2 = 2*center;
        beamslope = (y2-y1)/(x2-x1);