verbatimtex
\input latex.pre
etex

beginfig(1);
numeric u;
u=5mm;

z1=(u,0);
z2=(3u,4u);
z3=0.48[z1,z2];
z4-z3=whatever*((z2-z1) rotated 90);
x4=0;
draw z1--z2;
draw z3--z4;
draw z3 withpen pencircle scaled 3pt;
draw z4 withpen pencircle scaled 3pt;
label.rt(btex $l$ etex, z2);
label.lft(btex $A$ etex, z4);
label.lrt(btex $X$ etex, z3);
endfig;
bye
