3D印刷可能なプロットを作成する

立体向けのテーマである"ThickSurface"および"FilledSurface"を使って，簡単に3D印刷可能なプロットを作成する．

In[1]:=

RevolutionPlot3D[{Sin[t] + Sin[5 t]/10, Cos[t] + Cos[5 t]/10}, {t, 0, Pi}, RegionFunction -> (Sin[5 (#4 + #5)] > 0 &), Boxed -> False, Axes -> None, PlotTheme -> "ThickSurface"]

Out[1]=

Out[15]=