On 8/29/2015 1:11 PM, Otared Kavian wrote:

Hi fabrice,

I dont’t know whether this the best solution, but you can use the following definition of the MPgraphic Funny:

\startuseMPgraphic{Funny}
     interim linecap := butt ;
     path p ;
     p := unitsquare xyscaled (OverlayWidth,OverlayHeight) ;
     drawoptions (withpen pencircle scaled 6.5pt withcolor \MPcolor{MyColorA}) ;
     draw lrcorner p --urcorner p --ulcorner p withcolor white;
     draw ulcorner p --llcorner p ;

\stopuseMPgraphic

\startuseMPgraphic{Funny}
    interim linecap := butt ;
    draw leftboundary OverlayBox ;
    setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
    tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------

___________________________________________________________________________________
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://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________