From e242e2da315de7f5e9c7c7ab8f078f17cdcde5e6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 4 Oct 2020 21:13:32 +0000 Subject: curve2e (4oct20) git-svn-id: svn://tug.org/texlive/trunk@56538 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/curve2e/curve2e.sty | 39 +++++-------------------- 1 file changed, 7 insertions(+), 32 deletions(-) (limited to 'Master/texmf-dist/tex/latex/curve2e') diff --git a/Master/texmf-dist/tex/latex/curve2e/curve2e.sty b/Master/texmf-dist/tex/latex/curve2e/curve2e.sty index ae0e7bcea1d..0d7ccaa42da 100644 --- a/Master/texmf-dist/tex/latex/curve2e/curve2e.sty +++ b/Master/texmf-dist/tex/latex/curve2e/curve2e.sty @@ -11,7 +11,7 @@ %% \NeedsTeXFormat{LaTeX2e}[2019/01/01] \ProvidesPackage{curve2e}% - [2020-05-03 v.2.2.8 Extension package for pict2e] + [2020-10-03 v.2.2.10 Extension package for pict2e] \IfFileExists{xfp.sty}{% \RequirePackage{color} \RequirePackageWithOptions{pict2e}[2014/01/01] @@ -199,37 +199,12 @@ } }}\ignorespaces } - \def\vector(#1)#2{% - \begingroup - \GetCoord(#1)\d@mX\d@mY - \@linelen#2\unitlength - \ifdim\d@mX\p@=\z@\ifdim\d@mY\p@=\z@\@badlinearg\fi\fi - \ifdim\@linelen<\z@ \@linelen=-\@linelen\fi - \MakeVectorFrom\d@mX\d@mY to\@Vect - \DirOfVect\@Vect to\Dir@Vect - \YpartOfVect\Dir@Vect to\@ynum \@ydim=\@ynum\p@ - \XpartOfVect\Dir@Vect to\@xnum \@xdim=\@xnum\p@ - \ifdim\d@mX\p@=\z@ - \else\ifdim\d@mY\p@=\z@ - \else - \edef\sc@lelen{\fpeval{1 / abs(\@xnum)}}\relax - \@linelen=\sc@lelen\@linelen - \fi - \fi - \@tdB=\@linelen -\pIIe@concat\@xdim\@ydim{-\@ydim}\@xdim{\@xnum\@linelen}{\@ynum\@linelen}% - \@linelen\z@ - \pIIe@vector - \fillpath - \@linelen=\@tdB - \@tdA=\pIIe@FAW\@wholewidth - \@tdA=\pIIe@FAL\@tdA - \advance\@linelen-\@tdA - \ifdim\@linelen>\z@ - \moveto(0,0) - \pIIe@lineto{\@xnum\@linelen}{\@ynum\@linelen}% - \strokepath\fi - \endgroup} +\let\original@vector\vector +\def\vector(#1)#2{% + \begingroup + \GetCoord(#1)\d@mX\d@mY + \original@vector(\d@mX,\d@mY){\fpeval{round(abs(#2),6)}}% + \endgroup}% \def\Vector(#1){{% \GetCoord(#1)\@tX\@tY \ifdim\@tX\p@=\z@ -- cgit v1.2.3