\input fig4tex
\def\GraphLegend{$y = \sin(x)$}
% 1. Definition of characteristic points
\figinit{mm}
\def\Xmin{-39.99999}
\def\Ymin{-30.00000}
\def\Xmax{39.99999}
\def\Ymax{29.99999}
\def\Xori{39.99999}
\def\Yori{30.00000}
\figpt0:(\Xori,\Yori)
% 2. Creation of the graphical file
\psbeginfig{}
\def\Xmaxx{45} % To customize the position
\def\Ymaxx{\Ymax} % of the arrow-heads of the axes.
\psaxes 0(\Xmin, \Xmaxx, \Ymin, \Ymaxx)
\pslineC(
0 30.00022,
1.35593 26.81027,
2.71186 23.65647,
4.06779 20.57454,
5.42372 17.59941,
6.77966 14.76478,
8.13559 12.10277,
9.49152 9.64355,
10.84745 7.41498,
12.20338 5.44230,
13.55932 3.74787,
14.91525 2.35089,
16.27118 1.26719,
17.62711 .50905,
18.98305 .08505,
20.33898 0,
21.69491 .25486,
23.05084 .84675,
24.40677 1.76896,
25.76271 3.01103,
27.11864 4.55891,
28.47457 6.39505,
29.83050 8.49864,
31.18644 10.84585,
32.54237 13.41008,
33.89830 16.16229,
35.25423 19.07128,
36.61016 22.10410,
37.96610 25.22639,
39.32203 28.40276,
40.67796 31.59723,
42.03389 34.77360,
43.38983 37.89589,
44.74576 40.92871,
46.10169 43.83770,
47.45762 46.58991,
48.81355 49.15414,
50.16949 51.50135,
51.52542 53.60494,
52.88135 55.44108,
54.23728 56.98896,
55.59322 58.23103,
56.94915 59.15324,
58.30508 59.74513,
59.66101 59.99999,
61.01694 59.91494,
62.37288 59.49094,
63.72881 58.73280,
65.08474 57.64910,
66.44067 56.25212,
67.79661 54.55769,
69.15254 52.58501,
70.50847 50.35644,
71.86440 47.89722,
73.22033 45.23521,
74.57627 42.40058,
75.93220 39.42545,
77.28813 36.34352,
78.64406 33.18972,
80 29.99977952958272699600
)
\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$(8pt)
% Points 3 and 4 are the two other end points of the axes
\figpttraC 3:=0/\Xmin,0/ \figwriten 3:$-\pi$(5pt)
\figpttraC 4:=0/0,\Ymin/ \figwritew 4:$-1.00$(8pt)
}
\centerline{\box\figBoxA}
\bye