ShowAnimation[{Graphics3D[{{}, {RGBColor[0., 0., 0.], PointSize[0.025], Point[{-0.33724, 0.11471, 0.25749}]}, {RGBColor[0., 0., 0.], PointSize[0.025], Point[{0.33724, -0.11471, -0.25749}]}}, {ViewPoint -> {4., 1., 0.}, SphericalRegion -> True, Boxed -> False, Lighting -> True, DisplayFunction -> (Display[$Display, #1] & ), DisplayFunction -> Identity}]}, {True}]