read bezier:

x := 0,1,2,3,4,5;
y := 0,2,4,1,0,-1;

x := x,6:
y := y,1:

x := x,7:
y := y,0:
n := nops([y]);

p1 := interp([x],[y],t):
plot1 := plot(p1, t=0..7, colour=YELLOW):
# plot1;

P     := pairs([x],[y]):
plot2 := plot([P], t=0..7,style=line, colour=GREEN):
# plot2;

p3    := BezierApprox([y], t);
plot3 := plot(p3, t=0..7, colour=CYAN):
# plot3;

plot4 := plot([P],style=point, colour=WHITE):
# plot4;

with(plots):
display({plot1,plot2,plot3,plot4},title=`Linear, Lagrange and Bezier forms`);

display({plot2,plot3,plot4}, title=`7th-Degree Bezier and Piecewise Linear Forms`);

display({plot1,plot2,plot4}, title=`7th-Degree Lagrange and Piecewise Linear Forms`);