I changed the last line to
ListAnimate[
Table[Graphics[
Map[Point,
Map[fromPhiAndRToXAndY, Map[displaceAtom, cylCoorOfAtoms]]]], {t,
0, 1 - 1/b, 1/b}]]
Now it is working. I would liked to understand the problem, though. Documentation is not too great. Thanks if someone tried to figure it out for me. The animation, by the way, shows air molecules in motion (spherical model). Set numberOfAtoms to 1200.
