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}]