From afcd1593272b9e2b915b9677229483d6b687c85d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 8 Sep 2008 00:01:08 +0000 Subject: curves 1.52 (1sep08) git-svn-id: svn://tug.org/texlive/trunk@10456 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/curves/curves.sty | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex/latex/curves') diff --git a/Master/texmf-dist/tex/latex/curves/curves.sty b/Master/texmf-dist/tex/latex/curves/curves.sty index 17e0110298e..a57cd0bbd87 100644 --- a/Master/texmf-dist/tex/latex/curves/curves.sty +++ b/Master/texmf-dist/tex/latex/curves/curves.sty @@ -12,7 +12,7 @@ %% Internet: ilm@patch.bpa.nu \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{curves} - [2008/04/24 1.51 Curves for LaTeX picture environment] + [2008/08/29 1.52 Curves for LaTeX picture environment] \catcode`\;=11 @@ -52,6 +52,7 @@ \newif\if;noopt \;noopttrue \newif\ifcurvewarn \curvewarntrue +\newif\ifstraight \newif\if;ccn \newif\if;pt \newif\if;csym @@ -334,7 +335,8 @@ \newcommand\;slbez{\divide\;dx\tw@ \;ddx\;dx \divide\;dy\tw@ \;ddy\;dy \;bezier} -\newcommand\;bezier{\;scale\;dx\;dy \;scp\;rc \;scale\;ddx\;ddy +\newcommand\;bezier{\ifstraight \av;d\;dx\;ddx \av;d\;dy\;ddy \fi + \;scale\;dx\;dy \;scp\;rc \;scale\;ddx\;ddy \advance\;scp\;rc \;bezc\;dx\;ddx \;bezc\;dy\;ddy \;rxy\;ddx\;ddy \divide\;rc\p@ \advance\;rc\thr@@ \;tc\;rc \ifnum\;rc>\sixt@@n\;rc\sixt@@n\fi @@ -361,6 +363,7 @@ \advance\;rtc\m@ne \multiply\;rtc\;t \;tc\;t \advance\;tc\;tc \;bezd\;dx\;ddx \;bezd\;dy\;ddy \ifdim\;pl>\z@ \;dashes \else \let\n;xt\;spoints \;spoints \fi} +\newcommand\av;d[2]{\advance#1#2\divide#1\tw@#2#1} \newcommand\;scale[2]{\;td\xscale#1\advance\;td\xscaley#2% #2\yscale#2\advance#2\yscalex#1#1\;td \;rxy#1#2} \newcommand\;bezc[2]{\advance#1#1\advance#2#2% -- cgit v1.2.3