Bezier Quadratics versus Cubics

bezier2[t_,p0_,p1_,p2_]:=(1-t)^2p0+2(1-t)t p1+t^2p2
{p0,p1,p2}={{-3,0},{-1,3},{1,-3}};
Show[
ListPlot[{p0,p1,p2},PlotStyle->{PointSize->Large},PlotRange->{{-5,5},{-5,5}}],
ListPlot[Table[bezier2[t,p0,p1,p2],{t,0,1,.01}],Joined->True],AspectRatio->Full
]

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

bezier3[t_,p0_,p1_,p2_,p3_]:=(1-t)bezier2[t,p0,p1,p2]+t bezier2[t,p1,p2,p3]
{p0,p1,p2,p3}={{-3,0},{-1,3},{1,-3},{4,-4}};
Show[
ListPlot[{p0,p1,p2,p3},PlotStyle->{PointSize->Large},PlotRange->{{-5,5},{-5,5}}],
ListPlot[Table[bezier3[t,p0,p1,p2,p3],{t,0,1,.01}],Joined->True,PlotStyle->Orange],
ListPlot[Table[bezier2[t,p0,p1,p2],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],
ListPlot[Table[bezier2[t,p1,p2,p3],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],
AspectRatio->Full
]

Show[ListPlot[{{450,150},{435,240},{450,240},{570,180},{450,150},{480,240},{510,240},{510,180},{540,195},{570,240},{510,240},{525,180},{540,195},{570,255},{570,240},{555,210},{570,180},{615,195},{600,240},{600,180},{600,180}},PlotStyle->{PointSize->Large}],ListPlot[Table[bezier2[t,{450,150},{435,240},{450,240}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{450,240},{570,180},{450,150}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{450,150},{480,240},{510,240}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{510,240},{510,180},{540,195}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{540,195},{570,240},{510,240}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{510,240},{525,180},{540,195}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{540,195},{570,255},{570,240}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{570,240},{555,210},{570,180}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{570,180},{615,195},{600,240}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],ListPlot[Table[bezier2[t,{600,240},{600,180},{600,180}],{t,0,1,.01}],Joined->True,PlotStyle->Dashed],AspectRatio->Full]

Show[ListPlot[{{450,-150},{435,-240},{450,-240},{570,-180},{450,-150},{480,-240},{510,-240},{510,-180},{540,-195},{570,-240},{510,-240},{525,-180},{540,-195},{570,-255},{570,-240},{555,-210},{570,-180},{615,-195},{600,-240},{600,-180},{600,-180},{645,-180},{645,-240},{660,-180},{660,-180},{660,-240},{675,-240},{690,-195},{690,-180},{690,-285},{675,-300},{675,-210},{705,-210},{720,-210},{720,-240},{720,-210},{735,-165},{750,-210},{750,-240},{750,-195},{765,-165},{780,-225},{780,-240},{780,-210},{810,-195},{780,-210},{780,-225},{795,-240},{810,-240},{810,-210},{825,-210},{855,-225},{840,-240},{780,-240},{825,-210},{855,-225},{840,-240},{840,-330},{825,-330},{795,-285},{810,-270},{870,-225},{870,-225},{855,-225},{855,-240},{900,-240},{885,-210},{855,-210},{855,-225},{900,-255},{900,-255},{930,-240},{915,-225},{900,-210},{900,-225},{870,-240},{900,-255},{945,-225},{960,-240},{960,-240},{960,-240}},PlotStyle->{PointSize->Small}],ListPlot[Table[bezier2[t,{450,-150},{435,-240},{450,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{450,-240},{570,-180},{450,-150}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{450,-150},{480,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{510,-240},{510,-180},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{540,-195},{570,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{510,-240},{525,-180},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{540,-195},{570,-255},{570,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{570,-240},{555,-210},{570,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{570,-180},{615,-195},{600,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{600,-240},{600,-180},{600,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{600,-180},{645,-180},{645,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{645,-240},{660,-180},{660,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{660,-180},{660,-240},{675,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{675,-240},{690,-195},{690,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{690,-180},{690,-285},{675,-300}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{675,-300},{675,-210},{705,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{705,-210},{720,-210},{720,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{720,-240},{720,-210},{735,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{735,-165},{750,-210},{750,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{750,-240},{750,-195},{765,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{765,-165},{780,-225},{780,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{780,-240},{780,-210},{810,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{810,-195},{780,-210},{780,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{780,-225},{795,-240},{810,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{810,-240},{810,-210},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{825,-210},{855,-225},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{840,-240},{780,-240},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{825,-210},{855,-225},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{840,-240},{840,-330},{825,-330}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{825,-330},{795,-285},{810,-270}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{810,-270},{870,-225},{870,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{870,-225},{855,-225},{855,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{855,-240},{900,-240},{885,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{885,-210},{855,-210},{855,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{855,-225},{900,-255},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{900,-255},{930,-240},{915,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{915,-225},{900,-210},{900,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{900,-225},{870,-240},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{900,-255},{945,-225},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier2[t,{960,-240},{960,-240},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],PlotRange->All]

Show[ListPlot[{{450,-150},{435,-240},{450,-240},{570,-180},{450,-150},{480,-240},{510,-240},{510,-180},{540,-195},{570,-240},{510,-240},{525,-180},{540,-195},{570,-255},{570,-240},{555,-210},{570,-180},{615,-195},{600,-240},{600,-180},{600,-180},{645,-180},{645,-240},{660,-180},{660,-180},{660,-240},{675,-240},{690,-195},{690,-180},{690,-285},{675,-300},{675,-210},{705,-210},{720,-210},{720,-240},{720,-210},{735,-165},{750,-210},{750,-240},{750,-195},{765,-165},{780,-225},{780,-240},{780,-210},{810,-195},{780,-210},{780,-225},{795,-240},{810,-240},{810,-210},{825,-210},{855,-225},{840,-240},{780,-240},{825,-210},{855,-225},{840,-240},{840,-330},{825,-330},{795,-285},{810,-270},{870,-225},{870,-225},{855,-225},{855,-240},{900,-240},{885,-210},{855,-210},{855,-225},{900,-255},{900,-255},{930,-240},{915,-225},{900,-210},{900,-225},{870,-240},{900,-255},{945,-225},{960,-240},{960,-240},{960,-240}},PlotStyle->{PointSize->Small}],ListPlot[Table[bezier3[t,{450,-150},{435,-240},{435,-240},{450,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{450,-240},{570,-180},{570,-180},{450,-150}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{450,-150},{480,-240},{480,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{510,-240},{510,-180},{510,-180},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{540,-195},{570,-240},{570,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{510,-240},{525,-180},{525,-180},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{540,-195},{570,-255},{570,-255},{570,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{570,-240},{555,-210},{555,-210},{570,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{570,-180},{615,-195},{615,-195},{600,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{600,-240},{600,-180},{600,-180},{600,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{600,-180},{645,-180},{645,-180},{645,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{645,-240},{660,-180},{660,-180},{660,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{660,-180},{660,-240},{660,-240},{675,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{675,-240},{690,-195},{690,-195},{690,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{690,-180},{690,-285},{690,-285},{675,-300}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{675,-300},{675,-210},{675,-210},{705,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{705,-210},{720,-210},{720,-210},{720,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{720,-240},{720,-210},{720,-210},{735,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{735,-165},{750,-210},{750,-210},{750,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{750,-240},{750,-195},{750,-195},{765,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{765,-165},{780,-225},{780,-225},{780,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{780,-240},{780,-210},{780,-210},{810,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-195},{780,-210},{780,-210},{780,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{780,-225},{795,-240},{795,-240},{810,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-240},{810,-210},{810,-210},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-210},{855,-225},{855,-225},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{840,-240},{780,-240},{780,-240},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-210},{855,-225},{855,-225},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{840,-240},{840,-330},{840,-330},{825,-330}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-330},{795,-285},{795,-285},{810,-270}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-270},{870,-225},{870,-225},{870,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{870,-225},{855,-225},{855,-225},{855,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{855,-240},{900,-240},{900,-240},{885,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{885,-210},{855,-210},{855,-210},{855,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{855,-225},{900,-255},{900,-255},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-255},{930,-240},{930,-240},{915,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{915,-225},{900,-210},{900,-210},{900,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-225},{870,-240},{870,-240},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-255},{945,-225},{945,-225},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{960,-240},{960,-240},{960,-240},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],PlotRange->All]

Show[ListPlot[{{450,-150},{435,-240},{450,-240},{570,-180},{450,-150},{480,-240},{510,-240},{510,-180},{540,-195},{570,-240},{510,-240},{525,-180},{540,-195},{570,-255},{570,-240},{555,-210},{570,-180},{615,-195},{600,-240},{600,-180},{600,-180},{645,-180},{645,-240},{660,-180},{660,-180},{660,-240},{675,-240},{690,-195},{690,-180},{690,-285},{675,-300},{675,-210},{705,-210},{720,-210},{720,-240},{720,-210},{735,-165},{750,-210},{750,-240},{750,-195},{765,-165},{780,-225},{780,-240},{780,-210},{810,-195},{780,-210},{780,-225},{795,-240},{810,-240},{810,-210},{825,-210},{855,-225},{840,-240},{780,-240},{825,-210},{855,-225},{840,-240},{840,-330},{825,-330},{795,-285},{810,-270},{870,-225},{870,-225},{855,-225},{855,-240},{900,-240},{885,-210},{855,-210},{855,-225},{900,-255},{900,-255},{930,-240},{915,-225},{900,-210},{900,-225},{870,-240},{900,-255},{945,-225},{960,-240},{960,-240},{960,-240}},PlotStyle->{PointSize->Small}],ListPlot[Table[bezier3[t,{450,-150},{435,-240},{450,-240},{450,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{450,-240},{570,-180},{450,-150},{450,-150}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{450,-150},{480,-240},{510,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{510,-240},{510,-180},{540,-195},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{540,-195},{570,-240},{510,-240},{510,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{510,-240},{525,-180},{540,-195},{540,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{540,-195},{570,-255},{570,-240},{570,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{570,-240},{555,-210},{570,-180},{570,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{570,-180},{615,-195},{600,-240},{600,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{600,-240},{600,-180},{600,-180},{600,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{600,-180},{645,-180},{645,-240},{645,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{645,-240},{660,-180},{660,-180},{660,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{660,-180},{660,-240},{675,-240},{675,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{675,-240},{690,-195},{690,-180},{690,-180}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{690,-180},{690,-285},{675,-300},{675,-300}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{675,-300},{675,-210},{705,-210},{705,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{705,-210},{720,-210},{720,-240},{720,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{720,-240},{720,-210},{735,-165},{735,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{735,-165},{750,-210},{750,-240},{750,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{750,-240},{750,-195},{765,-165},{765,-165}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{765,-165},{780,-225},{780,-240},{780,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{780,-240},{780,-210},{810,-195},{810,-195}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-195},{780,-210},{780,-225},{780,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{780,-225},{795,-240},{810,-240},{810,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-240},{810,-210},{825,-210},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-210},{855,-225},{840,-240},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{840,-240},{780,-240},{825,-210},{825,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-210},{855,-225},{840,-240},{840,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{840,-240},{840,-330},{825,-330},{825,-330}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{825,-330},{795,-285},{810,-270},{810,-270}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{810,-270},{870,-225},{870,-225},{870,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{870,-225},{855,-225},{855,-240},{855,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{855,-240},{900,-240},{885,-210},{885,-210}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{885,-210},{855,-210},{855,-225},{855,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{855,-225},{900,-255},{900,-255},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-255},{930,-240},{915,-225},{915,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{915,-225},{900,-210},{900,-225},{900,-225}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-225},{870,-240},{900,-255},{900,-255}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{900,-255},{945,-225},{960,-240},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],ListPlot[Table[bezier3[t,{960,-240},{960,-240},{960,-240},{960,-240}],{t,0,1,.01}],Joined->True,PlotStyle->Black],PlotRange->All]