\startMPcode
=C2=A0
=C2=A0 def ma= tch (expr alpha, pos) =3D
=C2=A0 =C2=A0 fill unitsquare xscaled 4cm =C2= =A0yscaled 0.2cm rotated alpha shifted pos
=C2=A0 =C2=A0 withcolor yello= w ;
=C2=A0 =C2=A0 fill origin -- (4cm,0) -- (4.1cm,-0.05cm) -- =C2=A0(0.= 1cm,-0.05cm) --
=C2=A0 =C2=A0 cycle rotated alpha withcolor(.6yellow + b= lack);
=C2=A0 =C2=A0 draw origin -- (0,0.2cm) -- (4cm,0.2cm) -- (4cm,0) = -- (4.1cm,-0.05cm)
=C2=A0 =C2=A0 -- (0.1cm,-0.05cm) -- cycle rotated alp= ha withcolor blue;
=C2=A0 =C2=A0 =C2=A0draw origin -- (0,0.2cm) -- (4cm,= 0.2cm) -- (4cm,0) -- (4.1cm,-0.05cm)
=C2=A0 =C2=A0 -- (0.1cm,-0.05cm) --= cycle rotated alpha withcolor blue;
=C2=A0 =C2=A0 draw fullcircle xscal= ed 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm)
=C2=A0 =C2=A0 rotated a= lpha;
=C2=A0 =C2=A0 draw fullcircle xscaled 0.50cm yscaled 0.44cm shifte= d (4.125cm,0.1cm)
=C2=A0 =C2=A0 rotated alpha
=C2=A0 =C2=A0 withshade= method "circular 1"
=C2=A0 =C2=A0 withshadevector (0,1)
=C2= =A0 =C2=A0 withshadecolors (red,white);
=C2=A0 =C2=A0 enddef;
=C2=A0 = match(0,(0,0));
=C2=A0 match(90,(4.2cm,0)); =C2=A0
=C2=A0 match(90,(0= ,0));
=C2=A0 match(0,(0,4.2cm));
=C2=A0
\stopMPcode<= /div>

Le=C2=A0sam. 15 f=C3=A9vr. 2020 =C3=A0=C2=A000:01, Fabrice Couvre= ur <fabrice1.couvreur@gma= il.com> a =C3=A9crit=C2=A0:

Hi,
Hi,<= /span>
I have corrected for the dimensions of the ellip= se but I cannot achieve the same effect for the red color.
Thank you.
Fabrice
\startMPcode
=C2=A0 def match (expr pos) = =3D
=C2=A0 =C2=A0 fill unitsquare xscaled 4cm =C2=A0yscaled 0.2cm shifte= d pos withcolor yellow;
=C2=A0 =C2=A0 fill origin -- (4cm,0) -- (4.1cm,-= 0.05cm) -- =C2=A0(0.1cm,-0.05cm) -- cycle =C2=A0withcolor(.6yellow + black)= ;
=C2=A0 =C2=A0 draw origin -- (0,0.2cm) -- (4cm,0.2cm) -- (4cm,0) -- (4= .1cm,-0.05cm) -- (0.1cm,-0.05cm) -- cycle;
=C2=A0 =C2=A0 fill fullcircle= xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm) withcolor red;
= =C2=A0 =C2=A0 draw fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125c= m,0.1cm);
=C2=A0 =C2=A0 draw fullcircle xscaled 0.50cm yscaled 0.44cm sh= ifted (4.125cm,0.1cm)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withshademethod = "circular"
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withshadevector (= 0,1)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0withshadecolors (red,white)
= =C2=A0 enddef;
=C2=A0 match((0,0));
=C2=A0
\stopMPcode

=

Le=C2=A0ven. 14 f=C3=A9vr. 2020 = =C3=A0=C2=A016:43, Fabrice L <fabrice.alpha@gmail.com> a =C3=A9crit=C2=A0:
<= /div>
Hi,
Le 13 f=C3=A9vr. 2020 =C3=A0 16:45, Fabrice= Couvreur <fabrice1.couvreur@gmail.com> a =C3=A9crit :

How to have the color defined by {yellow!60!black} with Metapost ?

color MyColor ; MyColor :=3D .6[= yellow,black] ;

See metafun manual, section 1.13.<= /div>

Thank you.
Fabrice=

Fabrice (another one !).<= br>
___________________________________________________________________________= ________
If your question is of interest to others as well, please add a= n entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/li= stinfo/ntg-context
webpage =C2=A0: http://www.pragma-ade.nl / http://context.aanhet.net
archive = =C2=A0: https://bitbucket.org/phg/context-mirror/commits/
wiki = =C2=A0=C2=A0=C2=A0=C2=A0: http://contextgarden.net
_____________________________________= ______________________________________________
=
_________________________________________________________________= __________________
If your question is of interest to others as well, please add an entry to t= he Wiki!

maillist : ntg-cont= ext@ntg.nl / http://www.ntg.nl/mailman/listinfo/nt= g-context
webpage=C2=A0 : http://www.pragma-ade.nl / http://context.aanhet.net=
archive=C2=A0 : https://bitbucket.org/phg/context-m= irror/commits/
wiki=C2=A0 =C2=A0 =C2=A0: http://contextgarden.net
___________________________________________________________________________= ________