On 2/17/2021 10:26 PM, Wolfgang Schuster wrote:
Fabrice Couvreur schrieb am 17.02.2021 um 18:40:
Hi,The code works, but is it possible to make it shorter ?
Thank you
Fabrice
\startuseMPgraphic{DiagonalRule}
rulethickness := \frameddimension{rulethickness};
drawoptions(
withpen pencircle scaled rulethickness
withcolor \MPcolor{\framedparameter{framecolor}});
pair leftcorner, rightcorner, Leftcorner, Rightcorner;
leftcorner := (rulethickness, \overlayheight-rulethickness);
rightcorner := (\overlaywidth-rulethickness, rulethickness);
Leftcorner := ( rulethickness, rulethickness);
Rightcorner :=
(\overlaywidth-rulethickness,\overlayheight-rulethickness);
draw leftcorner -- rightcorner;
draw Leftcorner -- Rightcorner;
\stopuseMPgraphic
\startuseMPgraphic{DiagonalRule}
drawoptions(
withpen pencircle scaled OverlayLineWidth
withcolor OverlayLineColor
);
draw ulcorner OverlayBox -- lrcorner OverlayBox ;
draw llcorner OverlayBox -- urcorner OverlayBox ;
\stopuseMPgraphic
Often this also works:
\startuseMPgraphic{DiagonalRule}
draw image (
draw ulcorner OverlayBox -- lrcorner OverlayBox ;
draw llcorner OverlayBox -- urcorner OverlayBox ;
)
withpen pencircle scaled OverlayLineWidth
withcolor OverlayLineColor ;
\stopuseMPgraphic
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | 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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
