summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex')
-rw-r--r--macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex30
1 files changed, 10 insertions, 20 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex
index 333521c447..461b383bea 100644
--- a/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex
+++ b/macros/latex/contrib/tkz/tkz-euclide/latex/tkz-obj-eu-draw-circles.tex
@@ -10,9 +10,9 @@
% This work has the LPPL maintenance status “maintained”.
% The Current Maintainer of this work is Alain Matthes.
-\def\fileversion{4.22c}
-\def\filedate{2022/07/28}
-\typeout{2022/07/28 4.22c tkz-obj-eu-draw-circles.tex}
+\def\fileversion{4.23c}
+\def\filedate{2022/08/24}
+\typeout{2022/08/24 4.23c tkz-obj-eu-draw-circles.tex}
\makeatletter
%<--------------------------------------------------------------------------–>
% tkzSetUpCircle
@@ -72,27 +72,17 @@
}%
%<--------------------------------------------------------------------------–>
% #2 #3 rayon
-\pgfkeys{/tkzdrawsc/.cd,
- swap/.is if = tkz@swap@sc,
- swap/.default = true,
- swap = false,
-/tkzdrawsc/.search also={/tikz}
-}
+
\def\tkzDrawSemiCircle{\pgfutil@ifnextchar[{\tkz@DrawSemiCircle}{%
\tkz@DrawSemiCircle[]}}
\def\tkz@DrawSemiCircle[#1](#2,#3){%
\begingroup
-\pgfqkeys{/tkzdrawsc}{#1}
- \tkzDefPointBy[symmetry=center #2](#3)
- \pgfnodealias{tkz@pt}{tkzPointResult}
- \iftkz@swap@sc
- \gdef\tkz@FirstPoint{tkz@pt}
- \gdef\tkz@SecondPoint{#3}
- \else
- \gdef\tkz@FirstPoint{#3}
- \gdef\tkz@SecondPoint{tkz@pt}
-\fi
- \tkzDrawArc[#1,delta=0](#2,\tkz@FirstPoint)(\tkz@SecondPoint)
+ \pgfpointdiff{\pgfpointanchor{#2}{center}}%
+ {\pgfpointanchor{#3}{center}}%
+ \tkz@ax=\pgf@x%
+ \tkz@ay=\pgf@y%
+ \path(#2)--++(-\tkz@ax,-\tkz@ay)coordinate (tkz@pt);
+ \tkzDrawArc[#1,delta=0](#2,#3)(tkz@pt)
\endgroup
}%
%<--------------------------------------------------------------------------–>