Re: LuaTeX で MePoTeX マクロを

名前: wanderer
日時: 2012-12-26 11:06:19
IPアドレス: 220.107.95.*

>>56952
みなもさん、はじめまして。
MePoTeX愛用させていただいています。updateお疲れ様でした。

LuaTeXの話ではないので、ここにぶら下がるのはどうかと思いましたが…

25日にW32TeXのmpostがupdateされたので試してみました。
環境はXPSP3、25日のW32TeXの更新をあてた状態です。
e-pTeX, Version 3.1415926-p3.3-110825-2.5 (sjis) (TeX Live 2012/W32TeX) (format=platex 2012.12.1)
MetaPost, version 1.780 (kpathsea version 6.1.1dev)
MePoTeX 2012/12/21 MetaPost in TeX ver3.70

24日までの環境、MetaPost, version 1.504 (kpathsea version 6.1.1dev)では問題なく動作していたのですが、
mpost更新後、以下の(1)、(2)の状況が起こりました。

(1)mpt371.zipに含まれているnew370.texをコンパイルすると、4枚目の図でmpost.exeが強制終了する。
new370.texから抜き出した、エラーが再現するソースは

\documentclass{jarticle}
\usepackage[dviout]{graphicx}
\usepackage[leavefile,all,prl]{MePoTeX}

\begin{document}

\begin{MPpic}<8mm>(0,0)(2.5,2)
  \sendMP{SetProjDir(10,0)(blue);
    SetPolyUra;
    drawSurface((t++1)*cosd s,(t++1)*sind s,t)(0,360,30)(-2,2,10);}
\end{MPpic}

\end{document}

です。


(2)mptman.texをコンパイルすると、19枚目の図でmpost.exeがエラーを吐く。
抜き出したソースは

\documentclass{jarticle}
\usepackage[dviout]{graphicx}
\usepackage[leavefile,all,prl]{MePoTeX}

\begin{document}

\begin{MPpic}<6mm>(11,12)(-3,-6)
\mptPoint{z.A}[A][r]<-1mm,0mm>{(0,0)}
\mptPoint{z.B}[B][tl]<1mm,0mm>{(5w,0)}
\sendMP{z.C-z.A=whatever*dir40; z.C-z.B=whatever*dir130;}
\mptLabel{z.C}[b]<0mm,1mm>{C}
\sendMP{z.a.v1=z.C; z.a.v2=z.B; z.b.v1=z.A; z.b.v2=z.C; z.c.v1=z.B; z.c.v2=z.A;}
\mptDrawPath{Polygon(4,z.a)}
\mptDrawPath{Polygon(4,z.b)}
\mptDrawPath{Polygon(4,z.c)}
\sendMP{z0-z.c.v3=z.C-z.A; z1-z.b.v4=z.B-z.A;}
\mptDrawPath[filltype=solid,fillcolor=PineGreen]{z.A--z.c.v3--z0--z.C--cycle;}
\mptDrawPath[filltype=amikake,fillcolor=blue,amiwidth=1pt]{z.A--z.B--z1--z.b.v4--cycle;}
\mptDrawPath{z.A--z.B--z.C}
\mptRightAngleMark{z.A}{z.C}{z.B}
\mptZuLabel{(2.5w,-5.8h)}{三平方}
\end{MPpic}

\end{document}

これをtest.texとしてコンパイルすると、@test.mpが作成され、@test.logに残されたエラーメッセージは

! Value is too large (4871.61713).
<for(2)> ...z.c.v[(EXPR0)-1]-z.c)rotated(360/(4));
                                                  z.c.s[(EXPR0)]=1/2[z.c.v[(...

Polygon->...SUFFIX3)v[_n],(SUFFIX3)v[_n-1]];endfor
                                                  .if.unknown(SUFFIX3):(SUFF...
l.34 _pth:=Polygon(4,z.c)
                         ;
?

となります。

自力解決はできそうもないので、ご報告まで。

この書き込みへの返事：