Needs["Graphics`Colors`"]

    
Cn[s_] := n!/(s!*(n - s)!)
Bn[s_, u_] := Cn[s]*(u^s)*((1 - u)^(n - s))
SS[n_] := Sum[b[j]*Bn[j, t], {j, 0, n}]
L[n_] := Table[(1 - t)*b[i] + t*b[i + 1], {i, 0, n - 1}]
B2Poly := 
      ParametricPlot[Evaluate[L[n]], {t, 0, 1}, 
        AspectRatio -> Automatic, Axes -> True]
Bezier[pt_,  color_] := 
      ParametricPlot[Evaluate[SS[n]], {t, 0, 1}, 
        AspectRatio -> Automatic, Axes -> True, 
        PlotRange -> All, 
        PlotStyle -> {Thickness[pt], color}]

filledcurve[curve_, {u_, u0_, u1_}, Color_, CCC_] := 
      Module[{plottmp, grtmp}, 
        plottmp = 
          ParametricPlot[curve // Evaluate, {u, u0, u1}, 
            AspectRatio -> Automatic, 
            DisplayFunction -> Identity]; 
grtmp = 
          plottmp /. (Line[pts_] :> 
                Polygon[pts]); 
Show[grtmp, 
          DisplayFunction -> $DisplayFunction, Axes -> False, 
          PlotRange -> All, DefaultColor -> Color, 
          Background -> CCC]]

n = 9
b[0] = {3.4, 6.7}
b[1] = {3.5, 6.5}
b[2] = {4, 6}
b[3] = {6, 2}
b[4] = {4, 1}
b[5] = {2, 1.5}
b[6] = {0.6, 1.3}
b[7] = {0.2, 1.2}
b[8] = {0.2, 1.1}
b[9] = {0.2, 0}

    
p1 = B2Poly
o1 = Bezier[0.005,  Red]
s1 = SS[n]

n = 9
b[9] = {-3.4, 6.7}
b[8] = {-3.5, 6.5}
b[7] = {-4, 6}
b[6] = {-6, 2}
b[5] = {-4, 1}
b[4] = {-2, 1.5}
b[3] = {-0.6, 1.3}
b[2] = {-0.2, 1.2}
b[1] = {-0.2, 1.1}
b[0] = {-0.2, 0}

    
p5 = B2Poly
o5 = Bezier[0.005,  Red]
s5 = SS[n] /. t -> t - 4

n = 3
b[0] = {0.2, 0}
b[1] = {0.2, -0.5}
b[2] = {1, -0.5}
b[3] = {3, -0.7}
p2 = B2Poly
o2 = Bezier[0.005,  Red]
s2 = SS[n] /. t -> t - 1
ss2 = SS[n]

n = 1
b[0] = {3, -0.7}
b[1] = {-3, -0.7}
p3 = B2Poly
o3 = Bezier[0.005,  Red]
s3 = SS[n] /. t -> t - 2
ss3 = SS[n]

n = 3
b[3] = {-0.2, 0}
b[2] = {-0.2, -0.5}
b[1] = {-1, -0.5}
b[0] = {-3, -0.7}
p4 = B2Poly
o4 = Bezier[0.005,  Red]
s4 = SS[n] /. t -> t - 3

tt1 = 
      If[t < 1, Evaluate[ s1], 
        Evaluate[
          If[t  <=  2, Evaluate[ s2], 
            Evaluate[
              If[t <= 3,   Evaluate[s3],   Evaluate[
                  If[t <= 4,  Evaluate[s4], 
                    Evaluate[If[t <= 5,  Evaluate[s5]]]]]]]]]]

AAA = 
      ParametricPlot[tt1, {t, 0, 5}, AspectRatio -> Automatic, 
        Axes -> True]

filledcurve[tt1, {t, 0, 5}, Red, 
      RGBColor[0.8, 0.8, 0.8]]

s1

Show[o2,  o1,  o6]

s1[[1]]

n = 2
b[0] = {0.5, 1.1}
b[1] = {0, 1}
b[2] = {-0.5, 1.1}
p6 = B2Poly
o6 = Bezier[0.005,  Red]
ss6 = SS[n]

G = 
      ParametricPlot3D[{{s1[[1]]*Cos[v],  s1[[1]]*Sin[v], 
            s1[[2]]}, {ss2[[1]]*Cos[v],  ss2[[1]]*Sin[v], 
            ss2[[2]]}, {ss3[[1]]*Cos[v],  ss3[[1]]*Sin[v], 
            ss3[[2]]}, 
{ss6[[1]]*Cos[v], 
            ss6[[1]]*Sin[v], ss6[[2]]}}, 
{t, 0, 
          1}, {v, 0, 2*Pi}, ViewPoint -> {10, 5, 0}, PlotRange -> All,  
        PlotPoints -> {20, 30}]