wmii.mp (494B)
1 beginfig(1) 2 %u=0.6cm; 3 u=0.2cm; 4 h=3u; 5 tab=u; 6 linecap:=butt; 7 linejoin:=beveled; 8 pickup pencircle scaled 1.1u; 9 draw (.5u,h)--(.5u,.5u)--(1.5u+tab,.5u)--(1.5u+tab,h)--(1.5u+tab,.5u)--(2.5u+2tab,.5u)\ 10 --(2.5u+2tab,h-.5u)--(3.5u+3tab,h-.5u); 11 linejoin:=mitered; 12 draw (3.5u+3tab,h-.5u)--(3.5u+3tab,0)--(3.5u+3tab,h-.5u)--(4.5u+4tab,h-.5u)--(4.5u+4tab,0);; 13 14 gap=.6u; 15 draw (3.5u+3tab,h+gap)--(3.5u+3tab,h+u+gap); 16 draw (4.5u+4tab,h+gap)--(4.5u+4tab,h+u+gap); 17 endfig 18 19 end