[metapost] Bug in MetaPost

[Pétiard François]

Hello!

I've already written that (2012/03/24), but there is no change...

I'm on Windows 7, MiKTeX 2.9 (64 bits), MetaPost 1.803.

Here is my file test.mp:

%%%%%%%%%%%%%%%%%%%%%%%%%%
prologues:=3;
outputtemplate:="%j.eps";
beginfig(0)
label(btex $-\infty$ etex,(0,20));%%%%%%% 1
label(btex $\null-\infty$ etex,(0,0));%%% 2
label(btex $-\!\infty$ etex,(0,-20));%%%% 3
label(btex $-\,\infty$ etex,(0,-40));%%%% 4
label(btex $-\,\!\infty$ etex,(0,-60));%% 5
label(btex $+\infty$ etex,(0,-80));%%%%%% 6
endfig;
end;
%%%%%%%%%%%%%%%%%%%%%%%%%

When I make:

mpost -debug test.mp

I obtain a curious file test.eps (see the labels 1 and 5).

Is there a chance to see that bug repaired ?

Cheers

François



-- 
francois.petiard at univ-fcomte.fr
-------------- next part --------------
prologues:=3;
outputtemplate:="%j.eps";
beginfig(0)
label(btex $-\infty$ etex,(0,20));%%%%%%% 1
label(btex $\null-\infty$ etex,(0,0));%%% 2
label(btex $-\!\infty$ etex,(0,-20));%%%% 3
label(btex $-\,\infty$ etex,(0,-40));%%%% 4
label(btex $-\,\!\infty$ etex,(0,-60));%% 5
label(btex $+\infty$ etex,(0,-80));%%%%%% 6
endfig;
end;
-------------- next part --------------
% Written by metapost version 1.803
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n0="cmsy10";
_s(char0&"1",_n0,1.00000,0.0000,0.0000,);
setbounds _p to (0,-0.8302)--(17.7114,-0.8302)--
 (17.7114,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n0="cmsy10";
_s(char0,_n0,1.00000,2.2139,0.0000,);
_s("1",_n0,1.00000,12.1765,0.0000,);
setbounds _p to (0,-0.8302)--(22.1391,-0.8302)--
 (22.1391,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n0="cmsy10";
_s(char0,_n0,1.00000,0.0000,0.0000,);
_s("1",_n0,1.00000,6.0883,0.0000,);
setbounds _p to (0,-0.8302)--(16.0510,-0.8302)--
 (16.0510,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n0="cmsy10";
_s(char0,_n0,1.00000,0.0000,0.0000,);
_s("1",_n0,1.00000,9.4091,0.0000,);
setbounds _p to (0,-0.8302)--(19.3718,-0.8302)--
 (19.3718,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n0="cmsy10";
_s(char0&"1",_n0,1.00000,0.0000,0.0000,);
setbounds _p to (0,-0.8302)--(17.7114,-0.8302)--
 (17.7114,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
  addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
_n1="cmr10";
_s("+",_n1,1.00000,0.0000,0.0000,);
_n0="cmsy10";
_s("1",_n0,1.00000,7.7487,0.0000,);
setbounds _p to (0,-0.8302)--(17.7114,-0.8302)--
 (17.7114,5.8115)--(0,5.8115)--cycle;
_p endgroup
mpxbreak
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test.eps
Type: application/postscript
Size: 30089 bytes
Desc: not available
URL: <http://tug.org/pipermail/metapost/attachments/20131215/6902f062/attachment-0001.eps>
-------------- next part --------------
\gdef\mpxshipout{\shipout\hbox\bgroup
  \setbox0=\hbox\bgroup}
\gdef\stopmpxshipout{\egroup  \dimen0=\ht0 \advance\dimen0\dp0
  \dimen1=\ht0 \dimen2=\dp0
  \setbox0=\hbox\bgroup
    \box0
    \ifnum\dimen0>0 \vrule width1sp height\dimen1 depth\dimen2 
    \else \vrule width1sp height1sp depth0sp\relax
    \fi\egroup
  \ht0=0pt \dp0=0pt \box0 \egroup}
\mpxshipout% line 4 D:/TeX/Tests/test.mp
$-\infty$%
\stopmpxshipout
\mpxshipout% line 5 D:/TeX/Tests/test.mp
$\null-\infty$%
\stopmpxshipout
\mpxshipout% line 6 D:/TeX/Tests/test.mp
$-\!\infty$%
\stopmpxshipout
\mpxshipout% line 7 D:/TeX/Tests/test.mp
$-\,\infty$%
\stopmpxshipout
\mpxshipout% line 8 D:/TeX/Tests/test.mp
$-\,\!\infty$%
\stopmpxshipout
\mpxshipout% line 9 D:/TeX/Tests/test.mp
$+\infty$%
\stopmpxshipout
\end{document}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: mp106743.dvi
Type: application/octet-stream
Size: 604 bytes
Desc: not available
URL: <http://tug.org/pipermail/metapost/attachments/20131215/6902f062/attachment-0001.obj>