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.