From 59efc0b223f91b5b422866d3f2b311e0046b5f4d Mon Sep 17 00:00:00 2001 From: Janek Warchol Date: Sat, 6 Aug 2011 22:55:05 +0200 Subject: [PATCH 2/2] more fiddling --- mf/feta-scripts.mf | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf index 58d2a56..bca6cc1 100644 --- a/mf/feta-scripts.mf +++ b/mf/feta-scripts.mf @@ -1564,19 +1564,19 @@ def draw_arpeggio_arrow = pickup pencircle scaled vround (0.5 rthin); - bot z10 = (0.5 w, -20); + bot z10 = (0.5 w, -5); lft z11 = (0.4 w - hround (0.8 w), 0.8 h); rt z12 = (0.6 w + hround (0.8 w), 0.8 h); before_left := z1l -- z6{z6 - z1l} .. {down}z3l; - after_left := (z3 + (0, -0.25 rthin / cosd (angle (nw)))) + after_left := (z3 + (0, -0.4 rthin / cosd (angle (nw)))) -- (z11 + 0.25 rthin * ne); (u_left, v_left) = before_left intersectiontimes after_left; before_right := (z12 + 0.25 rthin * nw) - -- (z3 + (0, -0.25 rthin / cosd (angle (nw)))); + -- (z3 + (0, -0.4 rthin / cosd (angle (nw)))); after_right := 0.85 z3r{up} .. z9{z1r - z9} -- z1r; @@ -1586,11 +1586,11 @@ def draw_arpeggio_arrow = .. subpath (v_left, infinity) of after_left .. top z11 .. lft z11 - .. {dir -50}(z11 + 0.25 rthin * sw) - .. (z10 + 0.25 rthin * sw){dir -70} + .. {dir -45}(z11 + 0.25 rthin * sw) + .. (z10 + 0.25 rthin * sw){dir -65} .. bot z10 - .. {dir 70}(z10 + 0.25 rthin * se) - .. (z12 + 0.25 rthin * se){dir 50} + .. {dir 65}(z10 + 0.25 rthin * se) + .. (z12 + 0.25 rthin * se){dir 45} .. rt z12 .. top z12 .. subpath (0, u_right) of before_right -- 1.7.0.4