On 12/28/2014 12:01 AM, Akira Kakuto wrote:
Dear Fabrice,

A try and error method which you may not want:

% macros=mkvi
\setuppapersize[A4][A4]

\setupcolors[state=start,cmyk=yes,mpcmyk=yes]
\definecolor[mycolor][c=0.45,m=0.00,y=0.1,k=0.00]
\definecolor[colortext][c=1,m=0.00,y=0.3,k=0.3]

\starttext

\startuniqueMPgraphic{funny}
path p ;
numeric h ;
h := OverlayHeight ;
p:=unitsquare xscaled \overlaywidth yscaled \overlayheight superellipsed
0.9 ;
pickup pencircle scaled \overlaylinewidth ;
fill p withcolor \MPcolor{\overlaycolor} ;
draw (20,1)--(20,h-1) withcolor red ;
draw p withcolor \MPcolor{\overlaylinecolor} ;
\stopuniqueMPgraphic

\defineoverlay[funny][\uniqueMPgraphic{funny}]

\define[2]\MySectionCommand
       {\framed
          [background=funny,
           frame=off,
           width=0.5\textwidth,
           align={right},
           framecolor=mycolor,
           rulethickness=1.5pt,
           backgroundcolor=white,
           offset=4pt]
          {\tfb #1\space\colortext#2}}

\setuphead[section][command=\MySectionCommand,ownnumber=yes,numbercolor=colortext]


\section{A}{PLAN DE L'ESPACE}
\stoptext

or reshuffle the drawing a bit and clip

\startuniqueMPgraphic{funny}
    numeric h ; h := OverlayHeight ;
path p ; p := unitsquare xscaled \overlaywidth yscaled \overlayheight superellipsed 0.9 ;
    pickup pencircle scaled \overlaylinewidth ;
    fill p withcolor \MPcolor{\overlaycolor} ;
    draw (20,-1)--(20,h+1) withcolor red ;
    clip currentpicture to p ;
    draw p withcolor \MPcolor{\overlaylinecolor} ;
\stopuniqueMPgraphic


-----------------------------------------------------------------
                                          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
___________________________________________________________________________________

Reply via email to