FilledCurveWolfram Mathematica中的多余线条

问题描述

我正在尝试使用功能FilledCurve使用Wolfram Mathematica（v。10.0）创建自定义箭头。在Wolfram输出上，结果看起来不错。当我将图片另存为pdf时，箭头的左边框上出现了一些不良的垂直线。在插入图片的乳胶文档中也可以看到它。 代码是

px = 0.7; py = 0.14; mpx = -0.2;
pts = {{-px,py},{mpx,0},{-px,-py}};
ah = Graphics[{FilledCurve[{BSplineCurve[pts],Line[{{-px,-py},{0,py}}]}]}]

要查看此问题，您需要将输出另存为pdf并在Adobe Acrobat Reader中打开（或将其插入到乳胶文档中。）

有什么建议吗？ 谢谢！

解决方法

WM中似乎有一些袋子。 我只是通过从线“手动”创建所需的曲线来解决问题。 最终代码（有一些小的改进）如下：

px = 0.7; py = 0.14; mpx = -0.3;
pts = {{-px,py},{mpx,0},{-px,-py}};
curpts = Table[f[t],{t,1,0.02}];
f = BSplineFunction[pts];
linpts = {{-px,-py},{0,py}};
allpts = Join[curpts,{linpts[[-2]],linpts[[-1]]}];
ah = Graphics[{FilledCurve[Line[allpts]],Line[linpts]}]

Result: