tkz-euclide : triangle d’or

\documentclass{scrartcl}
\usepackage[utf8]{inputenc} 
\usepackage[upright]{fourier}
\usepackage[usenames,dvipsnames]{xcolor}
\usepackage{fullpage,amsmath,tkz-euclide}
\definecolor{fondpaille}{cmyk}{0,0,0.1,0}
\pagecolor{fondpaille}
\color{Maroon}
\tkzSetUpColors[background=fondpaille,text=Maroon]
\thispagestyle{empty}   
                          
\begin{document}
   
\begin{tikzpicture}
  \tkzDefPoint(0,0){A} 
  \tkzDefPoint(5,0){C}
  \tkzDefPoint(0,5){B} 
  \tkzDrawLine[](A,C)
  \tkzDrawArc(A,C)(B)
  \tkzDefMidPoint(A,C)\tkzGetPoint{I}
  \tkzDrawSegment[color=gray,style=dashed](I,B)
  \tkzDuplicateSegment(I,B)(I,A)\tkzGetPoint{D} 
  \tkzDrawArc[color=gray,style=dashed](I,B)(D)
  \tkzDuplicateSegment(A,D)(A,B)\tkzGetPoint{E}
  \tkzDuplicateSegment(A,D)(B,A)\tkzGetPoint{G} 
  \tkzDrawArc[color=gray,style=dashed](A,D)(B)
  \tkzInterCC(A,C)(B,G)\tkzGetPoints{K}{F}
  \tkzDrawArc[color=gray,style=dashed](B,G)(F)
  \tkzDrawPoint(F)
  \tkzCompass(B,F)
  \tkzDrawPolygon[color=red](A,B,F) 
\end{tikzpicture}

\end{document}