i'm trying to plot the intersection point between a line and a circle but it's not working. How can I do that using the following command?

Manipulate[Show[ParametricPlot[{r Cos[t] + c, r Sin[t] + d}, {t, 0, 2 Pi}, PlotRange -> {-10, 10}],Plot[Tan[t] x + b, {x, -5 Pi, 5 Pi}]], {t, 0, 2 Pi}, {b, -40, 40}, {r, 0, 8}, {c, -10, 10}, {d, -10, 10}]

I also want to measure the shortest distance between that circle and the line. Am I able to do that using the same variables?