% complile with »pdflatex -shell-escape«
\documentclass[tikz,convert=pdf2svg]{standalone}
\usepackage{tkz-euclide}
\usetkzobj{all}
\usetikzlibrary{calc,intersections}
\begin{document}
 \begin{tikzpicture}
  \tkzSetUpLine[line width=0.4pt]
  \pgfmathsetmacro{\AD}{3.45};
  \pgfmathsetmacro{\AG}{2.48*\AD};
  \coordinate (A) at (0,0);
  \coordinate (D) at (0:\AD);
  \coordinate (G) at (-90:\AG);
  \coordinate (ABG) at ($ (A) !0.5! (G) $);
  \coordinate (d) at ($ (A) !0.51! (D) $);
  \coordinate (g) at ($ (A) !0.8! (G) $);
  \coordinate (J) at ($ (A) !0.66! (G) $);
  \coordinate (J1) at ($(J)+(180:0.1)$);
  \coordinate (J2) at ($(J)+(0:0.1)$);
  \tkzDefLine[parallel=through D](A,G) \tkzGetPoint{G2}
  \begin{pgfinterruptboundingbox}
   \tkzInterLC(D,G2)(ABG,A) \tkzGetPoints{B}{B2}
  \end{pgfinterruptboundingbox}
  \tkzDefLine[parallel=through B](D,A) \tkzGetPoint{C}
  \tkzDefLine[parallel=through d](A,G) \tkzGetPoint{d2}
  \path[draw, name path=AbB] (A) to[bend left=17] (B);
  \path[name path=dd2] (d) to (d2);
  \path[name intersections={of=dd2 and AbB,name=b}];
  \coordinate (b) at (b-1);
  \tkzDefLine[parallel=through b](d,A) \tkzGetPoint{c}
  \draw (A) -- (D);
  \draw (A) -- (G);
  \draw (A) -- (B);
  \draw (A) -- (b);
  \draw (B) -- (C);
  \draw (B) -- (D);
  \draw (B) -- (G);
  \draw (J1) -- (J2);
  \draw (b) -- (c);
  \draw (b) -- (d);
  \draw (b) -- (g);
  \draw (A) +(135:0.25) node{$A$};
  \draw (B) +(0:0.25) node{$B$};
  \draw (C) +(180:0.25) node{$C$};
  \draw (D) +(90:0.25) node{$D$};
  \draw (G) +(180:0.25) node{$G$};
  \draw (J) +(180:0.25) node{$J$};
  \draw (b) +(45:0.25) node{$b$};
  \draw (c) +(180:0.25) node{$c$};
  \draw (d) +(90:0.25) node{$d$};
  \draw (g) +(180:0.25) node{$g$};
 \end{tikzpicture}
\end{document}