Hi,
Hi,
I have corrected for the dimensions of the ellipse but I cannot achieve the same effect for the red color.
Thank you.
Fabrice
\startMPcode
def match (expr pos) =
fill unitsquare xscaled 4cm yscaled 0.2cm shifted pos withcolor yellow;
fill origin -- (4cm,0) -- (4.1cm,-0.05cm) -- (0.1cm,-0.05cm) -- cycle withcolor(.6yellow + black);
draw origin -- (0,0.2cm) -- (4cm,0.2cm) -- (4cm,0) -- (4.1cm,-0.05cm) -- (0.1cm,-0.05cm) -- cycle;
fill fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm) withcolor red;
draw fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm);
draw fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm)
withshademethod "circular"
withshadevector (0,1)
withshadecolors (red,white)
enddef;
match((0,0));
\stopMPcode