On 2/9/2015 3:30 PM, Fabrice Couvreur wrote:
Hi,
How hatched trapezoid MBCD?
Best regards,
Fabrice
\starttext
\startMPcode
path p ;
p=unitsquare scaled 4cm ;
draw p ;
pair z ;
z=point 3.6 of p ;
draw z--urcorner p ;
label.llft(btex B etex,llcorner p) ;
label.lrt(btex C etex,lrcorner p) ;
label.ulft(btex A etex,ulcorner p) ;
label.urt(btex D etex, urcorner p) ;
label.lft(btex M etex, z) ;
\stopMPcode
\stoptext
\startMPpage[offset=2pt]
path p, q, r ; pair z ;
p := unitsquare scaled 4cm ;
z := point 3.6 of p ;
q := z--urcorner p ;
r := q -- reverse bottomboundary p -- cycle ;
draw p ;
draw q ;
draw r numberstriped (.25,10,5) withcolor blue ;
draw thetextext.llft("B", llcorner p) ;
draw thetextext.lrt ("C", lrcorner p) ;
draw thetextext.ulft("A", ulcorner p) ;
draw thetextext.urt ("D", urcorner p) ;
draw thetextext.lft ("M", z) ;
\stopMPpage
-----------------------------------------------------------------
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
___________________________________________________________________________________