Hello,
I want to reproduce this figure.
In the example below, it seemed to me that he had to write
dir(180-angle(1,0.5)), but not.
\starttext
\startMPcode
path p ;
p := (3.5cm,-1.5cm)--(0cm,0.25cm)--1.2cm*dir(180-angle(1,0.5)) ;
draw p dashed evenly withcolor 0.625white;
draw p reflectedabout ((3.75cm,-1.5cm),(3.75cm,1.5cm)) dashed evenly
withcolor 0.625white ;
draw (-1cm,-1.5cm)--(8.5cm,-1.5cm)--(8.5cm,0.9cm)--(-1cm,0.9cm)--cycle
withcolor 0.625white ;
for i=0 upto 14 :
draw unitsquare scaled 0.5cm shifted(i/2*cm,0*cm) ;
endfor ;
for i=0 upto 10 :
draw unitsquare scaled 0.5cm shifted((i+2)/2*cm,-1/2*cm) ;
endfor ;
for i=0 upto 6 :
draw unitsquare scaled 0.5cm shifted((i+4)/2*cm,-1*cm) ;
endfor ;
for i=0 upto 2 :
draw unitsquare scaled 0.5cm shifted((i+6)/2*cm,-3/2*cm) ;
endfor ;
\stopMPcode
\stoptext
Thank you.
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] / 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
___________________________________________________________________________________
