ParametricPlot3D[{Cos[t] (3+Cos[u]),Sin[t] (3+Cos[u]),Sin[u]},{t,0,2Pi},{u,0,2Pi},PlotPoints->100]

p0=ParametricPlot3D[{Cos[t] (3+((Cos[u])^(1/3))),Sin[t] (3+((Cos[u])^(1/3))),((Sin[u])^(1/3))},{t,0,2Pi},{u,0,2Pi},PlotPoints->100]

ParametricPlot3D[{Cos[t] (3+((Cos[u])^(1/3))),Sin[t] (3+((Cos[u])^(1/3))),((Sin[u])^(1/3))},{t,0,2Pi},{u,0,Pi},PlotPoints->100,PlotTheme->"ThickSurface"]

ParametricPlot3D[{Cos[t](3+0.8((Cos[u])^(1/3))),Sin[t] (3+0.8((Cos[u])^(1/3))),((Sin[u])^(1/3))},{t,0,2Pi},{u,0,Pi/2},PlotPoints->100,PlotTheme->"ThickSurface"]

region3dfinal=ParametricPlot3D[{Sin[2t]+Cos[t](3+0.8((Cos[u])^(1/3))),Sin[t] (3+0.8((Cos[u])^(1/3))),((Sin[u])^(1/3))},{t,0,2Pi},{u,0,Pi/2},PlotPoints->100,PlotTheme->"ThickSurface"]

Printout3D[region3dfinal, "bastidor.stl"]

FileNames["*.stl"]

Directory[]