summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-03-09 21:13:23 +0000
committerKarl Berry <karl@freefriends.org>2020-03-09 21:13:23 +0000
commit1dfeaad298797209b707cc845743f322f26e5a39 (patch)
tree47deeec823e058e61be596a80af7638c89177ce8 /Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex
parent973884a3fae9230a1d3317c8a2d7725e580fa67b (diff)
tkz-euclide (9mar20)
git-svn-id: svn://tug.org/texlive/trunk@54200 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex')
-rw-r--r--Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex70
1 files changed, 48 insertions, 22 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex
index 2ab31570ac9..6e63182107a 100644
--- a/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex
+++ b/Master/texmf-dist/tex/latex/tkz-euclide/tkz-obj-eu-points-by.tex
@@ -1,11 +1,20 @@
% tkz-tools-eu-points-by.tex
-% Copyright 2020 by Alain Matthes
-% This file may be distributed and/or modified
-% 1. under the LaTeX Project Public License and/or
-% 2. under the GNU Public License.
-\def\fileversion{3.02c}
-\def\filedate{2020/01/24}
-\typeout{2020/01/24 3.02c tkz-tools-eu-points-by.tex}
+% Copyright 2020 Alain Matthes
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status “maintained”.
+%
+% The Current Maintainer of this work is Alain Matthes.
+% utf8 encoding
+\def\fileversion{3.05c}
+\def\filedate{2020/03/03}
+\typeout{2020/03/03 3.05c tkz-tools-eu-points-by.tex}
\makeatletter
%<--------------------------------------------------------------------------–>
% Transformations Géométriques
@@ -148,7 +157,9 @@ inversion/.code args={center #1 through #2}{%
{\pgfpointanchor{\PointCS}{center}}%
\tkz@ax=\pgf@x%
\tkz@ay=\pgf@y%
+ \pgfinterruptboundingbox
\path(#1)--++(-\tkz@ax,-\tkz@ay)coordinate (\tkz@pointtsf);
+ \endpgfinterruptboundingbox
}
\endgroup
}
@@ -183,15 +194,16 @@ inversion/.code args={center #1 through #2}{%
%<--------------------------------------------------------------------------–>
\def\tkzUSymOrth(#1,#2)(#3){%
\begingroup
- \pgfpointdiff{\pgfpointanchor{#1}{center}}%
- {\pgfpointanchor{#2}{center}}%
- \tkz@ax =\pgf@y%
- \tkz@ay =\pgf@x%
- \path[coordinate]%
- (#3)--++(-\tkz@ax,\tkz@ay) coordinate (tkz@point);
- \tkzInterLL(#1,#2)(#3,tkz@point)
- \pgfnodealias{tkzPointofSym}{tkzPointResult}
- \tkz@VecK[2](#3,tkzPointofSym)
+ \pgfpointdiff{\pgfpointanchor{#1}{center}}%
+ {\pgfpointanchor{#2}{center}}%
+ \tkz@ax =\pgf@y%
+ \tkz@ay =\pgf@x%
+ \pgfinterruptboundingbox
+ \path[coordinate] (#3)--++(-\tkz@ax,\tkz@ay) coordinate (tkz@point);
+ \endpgfinterruptboundingbox
+ \tkzInterLL(#1,#2)(#3,tkz@point)
+ \pgfnodealias{tkzPointofSym}{tkzPointResult}
+ \tkz@VecK[2](#3,tkzPointofSym)
\endgroup
}
@@ -257,8 +269,10 @@ inversion/.code args={center #1 through #2}{%
\pgf@xa=\pgf@x%
\pgf@ya=\pgf@y%
\pgfmathparse{#2}\edef\tkz@coeff{\pgfmathresult}%
+ \pgfinterruptboundingbox
\path[coordinate](#1)--++(\tkz@coeff\pgf@xa,\tkz@coeff\pgf@ya)%
coordinate(\tkz@pointtsf);
+ \endpgfinterruptboundingbox
}
\endgroup
}
@@ -270,8 +284,10 @@ inversion/.code args={center #1 through #2}{%
\pgf@xa=\pgf@x%
\pgf@ya=\pgf@y%
\pgfmathparse{#2}\edef\tkz@coeff{\pgfmathresult}%
+ \pgfinterruptboundingbox
\path[coordinate](#1)--++(\tkz@coeff\pgf@xa,\tkz@coeff\pgf@ya)%
coordinate(tkzPointResult);
+ \endpgfinterruptboundingbox
\endgroup
}
%<--------------------------------------------------------------------------–>
@@ -298,7 +314,9 @@ inversion/.code args={center #1 through #2}{%
{#2}
\tkz@bx\pgf@x%
\tkz@by\pgf@y%
+ \pgfinterruptboundingbox
\path[coordinate](\tkz@bx,\tkz@by)coordinate(\tkz@pointtsf);%
+ \endpgfinterruptboundingbox
}
\endgroup
}
@@ -316,7 +334,9 @@ inversion/.code args={center #1 through #2}{%
{#2}
\tkz@bx\pgf@x%
\tkz@by\pgf@y%
- \path (\tkz@bx,\tkz@by) coordinate (tkzPointResult);%
+ \pgfinterruptboundingbox
+ \path (\tkz@bx,\tkz@by) coordinate (tkzPointResult);%
+ \endpgfinterruptboundingbox
\endgroup
}
%<--------------------------------------------------------------------------–>
@@ -345,7 +365,9 @@ inversion/.code args={center #1 through #2}{%
{\tkz@Angle}
\tkz@bx\pgf@x%
\tkz@by\pgf@y%
- \path[coordinate](\tkz@bx,\tkz@by)coordinate(\tkz@pointtsf);
+ \pgfinterruptboundingbox
+ \path[coordinate](\tkz@bx,\tkz@by)coordinate(\tkz@pointtsf);
+ \endpgfinterruptboundingbox
}
\endgroup
}
@@ -365,7 +387,9 @@ inversion/.code args={center #1 through #2}{%
{\tkz@Angle}
\tkz@bx\pgf@x%
\tkz@by\pgf@y%
- \path[coordinate](\tkz@bx,\tkz@by)coordinate(tkzPointResult);
+ \pgfinterruptboundingbox
+ \path[coordinate](\tkz@bx,\tkz@by)coordinate(tkzPointResult);
+ \endpgfinterruptboundingbox
\endgroup
}
%<--------------------------------------------------------------------------–>
@@ -381,16 +405,18 @@ inversion/.code args={center #1 through #2}{%
\else
\xdef\tkz@pointtsf{\tkz@FirstPoint}
\fi
- \tkzCalcLength[cm](#1,\PointIP)\tkzGetLength{tkz@lnb}%
- \edef\tkz@lnc{\fpeval{1/\tkz@lnb}}
+ \tkzCalcLength[cm](#1,#2)\tkzGetLength{tkz@lna}
+ \tkzCalcLength[cm](#1,\PointIP)\tkzGetLength{tkz@lnb}
+ \edef\tkz@lnc{\tkz@lna/\tkz@lnb*\tkz@lna}
\tkzVecKNorm[\tkz@lnb](#1,\PointIP)
}
\endgroup
}
\def\tkzUInversePoint(#1,#2)(#3){%
\begingroup
+ \tkzCalcLength[cm](#1,#2)\tkzGetLength{tkz@lna}%
\tkzCalcLength[cm](#1,#3)\tkzGetLength{tkz@lnb}%
- \edef\tkz@lnc{\fpeval{1/\tkz@lnb}}
+ \edef\tkz@lnc{\fpeval{\tkz@lna/\tkz@lnb*\tkz@lna}}
\tkzVecKNorm[\tkz@lnc](#1,#3)
\endgroup
}