Why when you use a function defined by Piecewise in an interval [a,b] and you use this function in RevolutionPlot3D this show us a broken surface?
peon[x_] :=
Piecewise[{{1 - x/2, 0 < x <= 1}, {1/2,
1 <= x <= 3}, {3/4 - (x - 7/2)^2, 3 <= x < 4}}]
Plot[peon[x], {x, 0, 4}, AspectRatio -> Automatic,
AxesOrigin -> {0, 0}, PlotRange -> All]
ParametricPlot[{peon[y], y}, {y, 0, 4}, PlotRange -> Full]
RevolutionPlot3D[{peon[y], y}, {y, 0, 4}, PlotRange -> All,
AspectRatio -> Automatic]
And I want to know if this discontinuity affects when you send the file to 3D printing.