From e242e2da315de7f5e9c7c7ab8f078f17cdcde5e6 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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/curve2e.sty')

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

