Some slight shortening:
With[{viewpoint = {0, 0, 10}, cols = RGBColor /@ {"#EDF2F6", "#494953"}},
Manipulate[Graphics3D[{Sphere[Table[(Most[#]/(1 - Last[#])) & [
Flatten[ReIm[Exp[{7, -3} I (t + θ)]/Sqrt[2]]]],
{t, 0, 2 Pi, 2 Pi/200}], 0.1]}, Background -> cols[[-1]],
Boxed -> False, ImageSize -> 540,
Lighting -> {{"Point", cols[[1]], {0, 0, 1/2}},
{"Ambient", cols[[-1]], viewpoint}}, PlotRange -> 3,
ViewPoint -> viewpoint, ViewVertical -> {0, 1, 0}], {θ, 0, Pi/100}]]