\input fig4tex
\def\GraphLegend{$y = \cos(x)$}
% 1. Definition of characteristic points
\figinit{mm}
\def\Xmin{-39.99999}
\def\Ymin{-30.02127}
\def\Xmax{39.99999}
\def\Ymax{29.97872}
\def\Xori{39.99999}
\def\Yori{30.02127}
\figpt0:(\Xori,\Yori)
% 2. Creation of the graphical file
\psbeginfig{}
\def\Xmaxx{\Xmax} % To customize the position
\def\Ymaxx{35} % of the arrow-heads of the axes.
\psaxes 0(\Xmin, \Xmaxx, \Ymin, \Ymaxx)
\pslineC(
0 0,
1.35593 .17005,
2.71186 .67833,
4.06779 1.51908,
5.42372 2.68277,
6.77966 4.15622,
8.13559 5.92274,
9.49152 7.96230,
10.84745 10.25180,
12.20338 12.76529,
13.55932 15.47431,
14.91525 18.34814,
16.27118 21.35424,
17.62711 24.45854,
18.98305 27.62587,
20.33898 30.82034,
21.69491 34.00576,
23.05084 37.14603,
24.40677 40.20557,
25.76271 43.14972,
27.11864 45.94512,
28.47457 48.56010,
29.83050 50.96502,
31.18644 53.13264,
32.54237 55.03839,
33.89830 56.66069,
35.25423 57.98116,
36.61016 58.98483,
37.96610 59.66032,
39.32203 59.99999,
40.67796 59.99999,
42.03389 59.66032,
43.38983 58.98483,
44.74576 57.98116,
46.10169 56.66069,
47.45762 55.03839,
48.81355 53.13264,
50.16949 50.96502,
51.52542 48.56010,
52.88135 45.94512,
54.23728 43.14972,
55.59322 40.20557,
56.94915 37.14603,
58.30508 34.00576,
59.66101 30.82034,
61.01694 27.62587,
62.37288 24.45854,
63.72881 21.35424,
65.08474 18.34814,
66.44067 15.47431,
67.79661 12.76529,
69.15254 10.25180,
70.50847 7.96230,
71.86440 5.92274,
73.22033 4.15622,
74.57627 2.68277,
75.93220 1.51908,
77.28813 .67833,
78.64406 .17005,
80 0
)
\psendfig
% 3. Writing text on the figure
\figvisu{\figBoxA}{\GraphLegend}{%
\figptsaxes 1:0(\Xmin, \Xmaxx, \Ymin, \Ymaxx)
% Points 1 and 2 are the end points of the arrows
\figwritee 1:(5pt) \figwriten 2:(5pt)
\figptsaxes 1:0(\Xmin, \Xmax, \Ymin, \Ymax)
% Points 1 and 2 are the first two end points of the axes
\figwrites 1:$\pi$(5pt) \figwritew 2:$1.00$(12pt)
% Points 3 and 4 are the two other end points of the axes
\figpttraC 3:=0/\Xmin,0/ \figwrites 3:$-\pi$(5pt)
\figpttraC 4:=0/0,\Ymin/ \figwritew 4:$-1.00$(8pt)
}
\centerline{\box\figBoxA}
\bye