curve2e (10apr20)

git-svn-id: svn://tug.org/texlive/trunk@54657 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 11 insertions, 9 deletions

diff --git a/Master/texmf-dist/tex/latex/curve2e/curve2e.sty b/Master/texmf-dist/tex/latex/curve2e/curve2e.sty
index 3d864e916f5..09f38b7ef53 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-02-28 v.2.2.3 Extension package for pict2e]
+        [2020-04-02 v.2.2.6 Extension package for pict2e]
 \IfFileExists{xfp.sty}{%
   \RequirePackage{color}
   \RequirePackageWithOptions{pict2e}[2014/01/01]
@@ -161,7 +161,7 @@
     {\IfNoValueTF{#3}{\PackageError{curve2e}
       {\string\multiput\space Increment components missing}%
       {Nothing done}
-    }
+    }%
     {\put(#1){\let\c@multicnt\@multicnt
       \CopyVect #2 to \R
       \CopyVect#3 to\D
@@ -170,9 +170,9 @@
           \put(\R){#5}%
           \IfValueTF{#6}{#6}{\AddVect#3 and\R to \R}%
           \advance\@multicnt\m@ne
-        }
-      }
-    }
+        }%
+      }%
+    }%
   }\ignorespaces
 }
 \NewDocumentCommand{\xmultiput}{O{0,0} d() d() m m o }{%
@@ -315,7 +315,7 @@
 \def\CosOf#1to#2{\edef#2{\fpeval{round(cosd#1,6)}}}\relax
 \def\ArgOfVect#1to#2{\GetCoord(#1){\t@X}{\t@Y}%
 \fptest{\t@X=\z@ && \t@Y=\z@}{\edef#2{0}%
-\PackageWarning{curve2e}{Null vector}{Check your data\Messagebreak
+\PackageWarning{curve2e}{Null vector}{Check your data\MessageBreak
 Computations go on, but the results may be meaningless}}{%
 \edef#2{\fpeval{round(atand(\t@Y,\t@X),6)}}}\ignorespaces}
 \def\MakeVectorFrom#1#2to#3{\edef#3{#1,#2}\ignorespaces}%
@@ -615,7 +615,9 @@ Computations go on, but the results may be meaningless}}{%
 \GetCoord(\@Dpzero)\@DXpzero\@DYpzero
 \GetCoord(\@Dpuno)\@DXpuno\@DYpuno
 \DivideFN\@Chord by2 to\@semichord
-\ifdim\@DXpzero\p@=\z@
+\fptest{\@DYpuno=0 && \@DYpzero=0}{\GetCoord(\@Puno)\@tX\@tY
+  \pIIe@lineto{\@tX\unitlength}{\@tY\unitlength}}%
+{\ifdim\@DXpzero\p@=\z@
    \@tdA=1.333333\p@
    \Numero\@KCzero{\@semichord\@tdA}%
 \fi
@@ -662,11 +664,11 @@ Computations go on, but the results may be meaningless}}{%
 \GetCoord(\@CPuno)\@XCPuno\@YCPuno
 \pIIe@curveto{\@XCPzero\unitlength}{\@YCPzero\unitlength}%
              {\@XCPuno\unitlength}{\@YCPuno\unitlength}%
-             {\@XPuno\unitlength}{\@YPuno\unitlength}\egroup
+             {\@XPuno\unitlength}{\@YPuno\unitlength}}\egroup
 \CopyVect\@Puno to\@Pzero
 \CopyVect\@Duno to\@Dzero
 \ignorespaces}%
-\def\Curve{\@ifstar{\let\fillstroke\fillpath\Curve@}%
+\def\Curve{\@killglue\@ifstar{\let\fillstroke\fillpath\Curve@}%
 {\let\fillstroke\strokepath\Curve@}}
 
 \def\Curve@(#1)<#2>{%