bugs – BezierCurve is different from BezierFunction

I'm building Naca profiles with Bezier curves.

control points = {{1, 0.}, {0.863924.0.00448168}, {0.78316, -0.019}, {0.444, -0.019}, {0.269064, -0.019}, {0, -0.014478}, {0, 0 }, {0, 0.017794}, {0.236028, 0.041}, {0.442.0.041}, {0.616096.0.041}, {0.70006.0.0378152}, {1.0.}}

bezProfile = BezierFunction[controlPoints];

Show[Graphic[{OrangeBezierCurve[Graphics[{OrangeBezierCurve[Graphique[{OrangeBezierCurve[Graphics[{OrangeBezierCurve[controlPoints],Red point[controlPoints], Green Line[controlPoints]}, Axes -> True]ParametricPlot[bezProfile

Result

The BezierFunction function gives very different results from the BezierCurve function, which is wrong !!

An explanation ??