(* Ring-Torus enclosed in tangent sphere *) 

plot1=Graphics[{Circle[{-1,0},1],Circle[{1,0},1],Circle[{0,0},2]}] 
Show[plot1,{AspectRatio->Automatic}]

ParametricPlot3D[
{Cos[t](1+Cos[u]),Sin[t] (1+Cos[u]), Sin[u]},{t,0,Pi}, {u,0,2Pi},{PlotRange -> {{-2,2},{0,2},{-2,2}}}]
ParametricPlot3D[
{Cos[t] 2 Cos[u], Sin[t] 2 Cos[u],2 Sin[u]},{t,0,Pi}, {u,-Pi/2,Pi/2},{PlotRange -> {{-2,2},{0,2},{-2,2}}}]

Show[%%,%]