column = With[{
fauxLame = {#2 Abs@Cos@#1 Cos@#1, #2 Abs@Sin@#1 Sin@#1,
9 #2 ((9 #2/10 - 2/3) Cos[2 #1]^2 - 4/3)/20} &,
rad = 0.2, offset = 1
},
ParametricPlot3D[
With[{x = rad Cos@t, y = offset + rad Sin@t,
u = ArcCos@
Rescale[Cos@t, {-1, 1}, {-rad, rad}/Norm[{rad, offset}]]}, { x,
y , Min[z,
Last@fauxLame[u, y/Sin[t]/Abs@Sin@t]]}], {z, -2, -0.5}, {t, -Pi,
Pi},
Mesh -> None,
PlotStyle -> Darker@Red
]]