Loop

[PDF] [TEX]

% !TEX TS-program = lualatex
% Created by Alain Matthes on 2023-11-10
% Copyright (c) 2023 AlterMundus.
\documentclass[margin=10pt]{standalone}
\usepackage{tkz-euclide}
\usepackage{tkz-elements}
\begin{document}

\begin{tkzelements}
   z.A         = point: new (2 , 4)
   z.B         = point: new (0 , 0)
   z.C         = point: new (8 , 0)
   T.ABC       = triangle: new (z.A,z.B,z.C)
   z.I,z.i     = get_points(T.ABC: in_circle ())
   z.W         = T.ABC.circumcenter
   C.WA        = circle: new (z.W,z.A)
   z.O         = C.WA.south
   L.AO        = line: new (z.A,z.O)
   L.BC        = line: new (z.B,z.C)
   z.I_A       = intersection (L.AO,L.BC)
\end{tkzelements}
\begin{tikzpicture}
   \tikzset{new/.style={color=orange,ultra thin}} 
   \tkzGetNodes
   \tkzDrawCircles(W,A I,i)
   \tkzDrawArc(O,C)(B)
   \tkzDrawPolygon(A,B,C)
   \tkzDrawSegments[new](A,O B,O C,O)
   \tkzDrawLine(B,I)
   \tkzDrawPoints(A,B,C,I,I_A,W,O,i)
   \tkzFillAngles[green!20,opacity=.3](A,O,B A,C,B)
   \tkzFillAngles[teal!20,opacity=.3](O,B,C B,C,O B,A,O O,A,C)
   \tkzLabelPoints(I,I_A,W,B,C)
   \tkzLabelPoints[above](A)
\end{tikzpicture}
\end{document}