(*(* TC for 2-Chord *)
$N=48;
TC[{x1_,y1_,r1_}, {x2_,y2_,r2_}] := Module[{d,t},
d=(Sqrt[(((x1-x2))^2)+(((y1-y2))^2)]);
Tube[
Table[
{(1-t)x1+t x2, (1-t)y1+t y2, d(Sqrt[Max[0,t(1-t)]])},
{t,0,1,1/$N}
],
Table[(1-t)r1+t r2, {t,0,1,1/$N}]
]]*)

Graphics3D[{
Polygon[{{-10,-10,0}, {-10,10,0}, {10,10,0}, {10,-10,0}}],
Opacity[0.5],
CapForm[None], JoinForm["Round"],
TC[{0,0,2}, {7,3,2}],
TC[{0,0,3}, {7,-3,2}],
TC[{0,0,4}, {1,0,0.8}]
}]

(* TC for 2-Chord *)
$N=48;
TC[{x1_,y1_,r1_}, {x2_,y2_,r2_}] := Module[{R,M,v1,v2,v3},
R=(1/2)(Sqrt[(((x1-x2))^2)+(((y1-y2))^2)]);
M={x1+x2,y1+y2,0}/2;
v1={x1-x2,y1-y2,0}/(2R);
v2={y1-y2,x2-x1,0}/(2R);
v3={0,0,1};
ParametricPlot3D[
M+R(Cos[ϕ]v1+Sin[ϕ]v3)+(((π-ϕ)r1+ϕ r2)/π)(Cos[θ]v2+Sin[θ](Cos[ϕ]v1+Sin[ϕ]v3)),
{ϕ,0,π}, {θ,0,2π},
PlotStyle -> Opacity[0.5]
]
]

TC[{0,0,2}, {7,3,3}]

Show[{
Polygon[{{-10,-10,0}, {-10,10,0}, {10,10,0}, {10,-10,0}}] //Graphics3D,
TC[{0,0,2}, {7,3,2}],
TC[{0,0,3}, {7,-3,2}],
TC[{0,0,4}, {1,0,0.8}]
}]