TGeometryParticle::SetR