documentclass{article}
usepackage[T1]{fontenc}
usepackage[estonian]{babel}
usepackage{mathpazo}
begin{document}

etex;
def genereeri(expr w, h, base) =
begingroup
write "documentclass{article}" to base&".tex";
write "usepackage{geometry}" to base&".tex";
write "usepackage[pdftex]{graphicx}" to base&".tex";
write "DeclareGraphicsRule{*}{mps}{*}{}" to base&".tex";
write "geometry{papersize={"& decimal(ceiling(w)) & "bp," &%
decimal(ceiling(h)) & "bp}}" to base&".tex";
write "geometry{margin={0bp,0bp}}" to base&".tex";
write "geometry{noheadfoot,nomarginpar}" to base&".tex";
write "begin{document}" to base&".tex";
write "thispagestyle{empty}" to base&".tex";
write "noindentincludegraphics{" & jobname & "." &%
decimal(charcode) & "}" to base&".tex";
write "end{document}" to base&".tex";
write EOF to base&".tex";
endgroup
enddef;

beginfig(1);

drawarrow (-2cm,0)--(2cm,0);
drawarrow (0,-1.5cm)--(0,1.5cm);

label.bot("x", (1.5cm, 0));
label.lft("y", (0,1.5cm));

draw (-1.3cm,-1.3cm) -- (1.3cm,1.3cm) dashed evenly;
draw (-1.3cm,1.3cm) -- (1.3cm,-1.3cm) dashed evenly;

draw(1cm,-0.82cm) .. (0.4cm, 0) .. (1cm,0.82cm) withpen pencircle scaled 1.5pt;
draw(-1cm,-0.82cm) .. (-0.4cm, 0) .. (-1cm,0.82cm) withpen pencircle scaled 1.5pt;


draw(-0.1cm, -0.7cm) -- (0.75cm,0.9cm);

label.top("R", (0.275cm,0));
draw (0.275cm, 0) withpen pencircle scaled 2bp;

draw(1.4cm, -0.4cm) -- (0.25cm,0.7cm);

label.bot("F", (0.7cm,0cm));

label.rt("S", (0, -0.6cm));

label.bot("F", (-0.7cm,0cm));

label.bot("M", (0.8cm, 0.7cm));

label.bot("Joon.9.2.", (0, -1.5cm));
endfig;
end

numeric w,h;
w := xpart urcorner bbox currentpicture -%
xpart llcorner bbox currentpicture;
h := ypart urcorner bbox currentpicture -%
ypart llcorner bbox currentpicture;
string base;
base:=jobname&"_"&decimal(charcode);
genereeri(w, h, base);

end{document}