im=480;

(* Schwarzschild Droste *)

p0=Plot[ParallelTable[n,{n,10,0,-2}],{r1,2.001,10},
PlotRange->{{0,10},{0,10}},AspectRatio->1, GridLines->{{2},{}},
 ImagePadding->{{60,2},{30,2}},ImageSize->im,
 PlotStyle->{Blue,Thick},Frame->True]

(* Gullstrand Painlevé *)

t=Assuming[Reals&&2<r1<r2<Infinity, Integrate[Sqrt[2/R]/(1-2/R),{R,r1,r2}]]

p1=Plot[ParallelTable[n-Block[{r2=10},t],
{n,24,2,-2}],{r1,2.001,10},PlotRange->{{0,10},{0,10}},AspectRatio->1, 
GridLines->{{2},{}}, ImagePadding->{{60,2},{30,2}},ImageSize->im,
 PlotStyle->{Blue,Thick},Frame->True]

(* Eddington Finkelstein *)

t=Assuming[Reals&&2<r1<r2<Infinity, Integrate[2/R/(1-4/R^2),{R,r1,r2}]]

p2=Plot[ParallelTable[n-Block[{r2=10},t],{n,24,2,-2}],{r1,2.001,10},
PlotRange->{{0,10},{0,10}},AspectRatio->1, 
GridLines->{{2},{}}, ImagePadding->{{60,2},{30,2}},ImageSize->im, 
PlotStyle->{Blue,Thick},Frame->True]