I am trying to plot this diagram, distinguished into three separate regions by the white curve. The code that I used for this purpose is provided below:
r[x_] = (-1 + 5 x^4)/(4 x^5); s[x_] = (-1 + 3 x^4)/(2 x^6);
bg = Polygon[{ImageScaled[{0, 0}], ImageScaled[{0.5, 0}],
ImageScaled[{1, 0}], ImageScaled[{1, 1}], ImageScaled[{0.78, 1}],
ImageScaled[{0, 1}]},
VertexColors -> {Green, Red, Blue, Blue, Red, Green}];
p0 = ParametricPlot[{r[x], s[x]}, {x, -100, 100},
PlotRange -> {{0.0, 1.5}, {0.0, 1.5}}, AspectRatio -> 0.5,
PlotTheme -> "Scientific", PlotStyle -> {White, Thick},
Epilog -> {{{Blue, Disk[{1, 1}, {0.03, 0.035}, {0, 2 Pi/3}]}, {Red,
Disk[{1, 1}, {0.03, 0.035}, {2 Pi/3, 4 Pi/3}]}, {Green,
Disk[{1, 1}, {0.03, 0.035}, {4 Pi/3, 2 \[Pi]}]}}, {PointSize[
0.03], Darker[Blue], Point[{0.1, 1}], Darker[Red],
Point[{0.7, 0.3}], Darker[Green], Point[{1.4, 1}]}},
Prolog -> {Rotate[bg, 180*Degree], {GrayLevel[0.9], Dotted,
Line[{{0, 1}, {1, 1}}], InfiniteLine[{{1, 0}, {1, 1}}],
InfiniteLine[{{0.66, 0}, {0.66, 1}}]}}]
which gives me the following result:
As you can see from the figure, the red-coloured region spreads away because of my choice of Polygon. I wish to restrict the red-coloured region in between the white curve. What modification should I make in my original code to achieve this?