Mathematica function BSplineCurve