summaryrefslogtreecommitdiff
path: root/macros/generic/labtex/xminus1.mf
blob: e99076494a95340de4bae6259d077bd6f69f6c38 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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.