Hi Henri,
Why does the blue path not rotate 90 with the draw command but rotate with the fill command ?

\startMPcode
 
  def match (expr alpha, pos) =
    fill unitsquare xscaled 4cm  yscaled 0.2cm rotated alpha shifted pos
    withcolor yellow ;
    fill origin -- (4cm,0) -- (4.1cm,-0.05cm) --  (0.1cm,-0.05cm) --
    cycle rotated alpha withcolor(.6yellow + black);
    draw origin -- (0,0.2cm) -- (4cm,0.2cm) -- (4cm,0) -- (4.1cm,-0.05cm)
    -- (0.1cm,-0.05cm) -- cycle rotated alpha withcolor blue;
     draw origin -- (0,0.2cm) -- (4cm,0.2cm) -- (4cm,0) -- (4.1cm,-0.05cm)
    -- (0.1cm,-0.05cm) -- cycle rotated alpha withcolor blue;
    draw fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm)
    rotated alpha;
    draw fullcircle xscaled 0.50cm yscaled 0.44cm shifted (4.125cm,0.1cm)
    rotated alpha
    withshademethod "circular 1"
    withshadevector (0,1)
    withshadecolors (red,white);
    enddef;
  match(0,(0,0));
  match(90,(4.2cm,0));  
  match(90,(0,0));
  match(0,(0,4.2cm));
 
\stopMPcode


Le sam. 15 févr. 2020 à 00:01, Fabrice Couvreur <fabrice1.couvreur@gmail.com> a écrit :
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



Le ven. 14 févr. 2020 à 16:43, Fabrice L <fabrice.alpha@gmail.com> a écrit :
Hi,

Le 13 févr. 2020 à 16:45, Fabrice Couvreur <fabrice1.couvreur@gmail.com> a écrit :

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

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

See metafun manual, section 1.13.

Thank you.
Fabrice

Fabrice (another one !).
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________