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