mode_setup;
input labtex;
u#=12pt#; if mode=smoke: u#:=.4pt#; fi
nib#=.5pt#; if mode=smoke: nib#:=.1pt#; fi
define_pixels(u, nib);
beginchar(0, 12u#, 6u#, 0);
 pickup pencircle scaled 2nib;
 z1=(w/8,h); z2=(w/4, h/2); z3=(w/2, h/4); % points on the curve
 z4=(w,h/8);
 path p; p=z1..z2..z3..z4;
 draw p;                     % draw the $1/x$ curve
 z.x=point 2.6 of p;         % another point
 z5=(x2,0); z6=(x.x,0);      % points on the $x$-axis
 pickup pencircle scaled nib;
 draw origin--(w,0);         % bottom axis
 draw z2--z5; draw z.x--z6;  % vertical struts
 pickup pencircle scaled 6nib;
 drawdot z2; drawdot z.x; drawdot z5; drawdot z6;
 save I; numeric I; I=0;
 labtex(z2, z.x, z5, (x.x,0)); 
endchar;

beginchar(1, 12u#, 6u#, 0);
 pickup pencircle scaled 2nib;
 z1=(w/8,h); z2=(w/4, h/2); z3=(w/2, h/4); % points on the curve
 z4=(w,h/8);
 path p; p=z1..z2..z3..z4;
 draw p;                     % draw the $1/x$ curve
 z.x=point 2.6 of p;         % another point
 z5=(x2,0); z6=(x.x,0);      % points on the $x$-axis
 pickup pencircle scaled nib;
 draw origin--(w,0);         % bottom axis
 draw z2--z5; draw z.x--z6;  % vertical struts
 pickup pencircle scaled 6nib;
 drawdot z2; drawdot z.x; drawdot z5; drawdot z6;
 save I; numeric I; I=0;
 labtex(z2, z.x, z5, (x.x,0)); 
endchar;

bye.