plotting – How can I fill in a section of an ellipse converging on a focus rather than the center?


I am trying to plot a simple display of Kepler’s second law – equal areas of an ellipse swept out in an equal amount of time. The problem is that I need my sections area sections to have a focus as their point of convergence, not the center. Is the problem caused by my use of parametric equations?

xe[t_] := 5*Cos
ye[t_] := 3*Sin
re[t_] := Sqrt[25*Cos

P := {2.5, 0};
Q := {xe[Pi/6], ye[Pi/6]};
R := {xe[Pi/3], ye[Pi/3]};
S := {xe[7 Pi/6], ye[7 Pi/6]};
T := {xe[4 Pi/3], ye[4 Pi/3]}

p1 = ParametricPlot[{xe
l1 = ListLinePlot[{P, Q}];
l2 = ListLinePlot[{P, R}];
l3 = ListLinePlot[{P, S}];
l4 = ListLinePlot[{P, T}];
Show[p1, l1, l2, l3, l4]

enter image description here

enter image description here