diff options
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.tex | 70 |
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 } |