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