I ran the following from the notebook.
Remove[schatzOloid0]
schatzOloid0[\[Delta]_Integer, \[Omega]_?NumericQ] :=
Block[{px =
Table[{0, Cos[o], 1 + Sin[o]}, {o, 0,
2 \[Pi] - \[Pi]/Mod[\[Delta], 100, 1],
N[\[Pi]/Mod[\[Delta], 100, 1]]}],
py = Table[{Cos[o], 0, Sin[o]}, {o, 0,
2 \[Pi] - \[Pi]/Mod[\[Delta], 100, 1], \[Pi]/
Mod[\[Delta], 100, 1]}],
m = {{1, 0, 0}, {0, Cos[\[Omega]], -Sin[\[Omega]]}, {0,
Sin[\[Omega]], Cos[\[Omega]]}}, x},
x = Join[px, Dot[m, #] & /@ py];
ConvexHullMesh[x,
PlotTheme -> "SmoothShading", Boxed -> True, Axes -> True,
AxesLabel -> {"X", "Y", "Z"}, Ticks -> None
]
] /; \[Delta] > 2
Animate[schatzOloid0[37, \[Omega]], {\[Omega], 0, \[Pi]},
AnimationRunning -> False]
I then hit the play button and let it go for a couple of minutes. This is in version 11.2, running under Linux. I did not notice it stop and did not get an error message window. During this time I twice reevaluated the definition cell and also stopped/restarted the animation. Assuming I ran this as you expected, I do not know if it is platform dependent issue or if something else weird is going on (this remark is only with reference to the Animate
issue, not the other one noted regarding parameters that are zero).