Manipulate[Graphics[{BezierCurve[pts,SplineDegree->d],Dashed,Green,Line[pts]},PlotRange->5,Frame->True, PlotLabel->pts],{{pts,{{0,0},{.5,.5},{1,1},{3,0}}},Locator,LocatorAutoCreate->True},{{d,3,"degree"},2,6,1}]

Manipulate[Graphics[{BezierCurve[pts,SplineDegree->d],Dashed,Green,Line[pts]},PlotRange->All,Frame->True, PlotLabel->pts],{{pts,{{0,-1},{-1.28,-1.005},{-1.28,1.005},{0,1},{1.28,1.005},{1.28,-1.005},{0,-1}}},Locator,LocatorAutoCreate->True},{{d,3,"degree"},2,6,1}]

pts1={{-0.01,0.295},{2.535,-0.945},{2.485,1.135},{1.1,1.01},{-0.285,1.115},{-0.19,2.155},{0.84`,2.075`},{2.485,2.095},{1.285,0.955},{0.025,0.09}}

pts2={{.5,0.08},{1.825,-0.42},{2.525,0.08},{2.505,.985},{2.5,0.12},{2.92,-0.41},{3.09,.75},{3.05,1.025},{2.8,1.075},{3.11,0.07},{3.74,-0.53},{3.7,1.03},{3.58,2.33},{3.24,1.37},{3.49,-.916},{4.19,-0.63},{4.63,-0.21},{4.61,0.49},{3.68,0.89}}

pts3={{2.25,.9},{2.27,0.68},{2.94,0.74},{2.99,0.9}}

Graphics[{{BezierCurve[pts1]},{BezierCurve[pts2]},{BezierCurve[pts3]}}]