The plot3d example is taken from Maple Help.
c1 := [cos(x)-2*cos(.4*y), sin(x)-2*sin(.4*y), y];
c2 := [cos(x)+2*cos(.4*y), sin(x)+2*sin(.4*y), y];
c3 := [cos(x)+2*sin(.4*y), sin(x)-2*cos(.4*y), y];
c4 := [cos(x)-2*sin(.4*y), sin(x)+2*cos(.4*y), y];
opts:=grid = [25, 15], style = patch,
color = [default, cyan, yellow],
transparency = .5, plotlist:
plot3d([c1, c2, c3], x = 0 .. 2*Pi, y = 0 .. 10, opts);