This is the code line that i used to generate the following graphs
ParametricPlot3D[{{1 + Cos[t], Sin[t],
2*Sin[t/2]}, {2 *Cos[t]*Sin[\[Phi]], 2*Sin[t]*Sin[\[Phi]],
2*Cos[\[Phi]]}}, {t, 0, 2 \[Pi]}, {\[Phi], 0, \[Pi]/2},
PlotStyle -> {Directive[Green, Thickness[0.025]], Yellow}...