ParametricPlot3D[{(-2/15) Cos[u] (3 Cos[v]-30 Sin[u]+90 (Cos[u])^4 Sin[u]-60 (Cos[u])^6 Sin[u]+5 Cos[u] Cos[v] Sin[u]),(-1/15) Sin[u] (3 Cos[v]-3 (Cos[u])^2 Cos[v]-48 (Cos[u])^4 Cos[v]+48 (Cos[u])^6 Cos[v]-60 Sin[u]+5 Cos[u] Cos[v] Sin[u]-5 (Cos[u])^3 Cos[v] Sin[u]-80 (Cos[u])^5 Cos[v] Sin[u]+80 (Cos[u])^7 Cos[v] Sin[u]),(2/15) (3+5 Cos[u] Sin[u]) Sin[v]},{u,0,2Pi},{v,0,2Pi},PlotStyle->Opacity[0.3]]