I have some code here, that worked fine 10 or 20 years ago. Now it won't animate any more and seems to have a problem with $CellContext of variable t. ChatGPT suggested wrapping Animate with DynamicModule[{t},...], but that didn't help. Does anyone know, what's wrong? Here is the code:
AnzahlBilder = b = 18;
numberOfAtoms = 120;
cylRadius = 20;
waveLength = 0.4*cylRadius;
waveConstant = N[2Pi/waveLength];
amplitude = 0.10*waveLength;
angularFrequency = N[2Pi];
fromXAndYToPhiAndR[{x_,y_}] := {ArcTan[x,y], Sqrt[x^2+y^2]}
fromPhiAndRToXAndY[{phi_,r_}] := r*{Cos[phi],Sin[phi]}
coordinatesOfAtoms = Table[
{Random[Real,{-cylRadius,cylRadius}],
Random[Real,{-cylRadius,cylRadius}]},
{numberOfAtoms}];
cylCoorOfAtoms = Map[fromXAndYToPhiAndR, coordinatesOfAtoms];
displaceAtom[{phi_,r_}] := {phi,
Max[0, r + amplitude*Sin[waveConstant*r - angularFrequency*t]]}
Animate[Graphics[Map[Point, Map[fromPhiAndRToXAndY,
Map[displaceAtom, cylCoorOfAtoms]]]], {t, 0, 1-1/b, 1/b}]