From: Werner Lemberg <wl@gnu.org>
Date: Fri, 20 Apr 2007 17:05:04 +0000 (+0200)
Subject: (get_subpath_i): Don't use `round' but `floor' since the former
X-Git-Tag: release/2.11.23-1~15^2^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7abcb3538747f78361e4857078f63b7076bcf027;p=lilypond.git

(get_subpath_i): Don't use `round' but `floor' since the former
is a no-op in metapost.
---

diff --git a/mf/parmesan-macros.mf b/mf/parmesan-macros.mf
index b9bbb5ebf2..6fd040c531 100644
--- a/mf/parmesan-macros.mf
+++ b/mf/parmesan-macros.mf
@@ -106,9 +106,9 @@ def get_subpath_i (expr curve, dir_in, dir_out, offset) =
 		t_out := t_out + length curve;
 	fi;
 
-	(subpath (round t_in, round t_out) of curve) shifted offset
+	(subpath (floor (t_in + 0.5), floor (t_out + 0.5)) of curve)
+	  shifted offset
 	endgroup
 enddef;
 
-
 % EOF