AB e AD sono raggi perpendicolari di una stessa circonferenza.
C è punto medio di AB. E è intersezione della retta per AB con la
circonferenza di centro C e raggio CD. BF è il lato del decagono 
regolare inscritto nella circonferenza di centro A.

A = (-1.8246346382862326, 1.2015207478753198)
B = (0.011732161702417854, 1.2272041996234129)
c = Circle(A, B)
C = Midpoint(A, B)
a = Line(A, B)
b = OrthogonalLine(A, a)
D = Intersect(c, b, 2)
d = Circle(C, D)
E = Intersect(d, a, 2)
e = Circle(B, E)
F = Intersect(c, e, 1)
f = Circle(F, B)
G = Intersect(c, f, 2)
g = Circle(G, F)
H = Intersect(c, g, 2)
h = Circle(H, G)
I = Intersect(c, h, 2)
k = Circle(I, H)
J = Point(k)
p = Circle(J, I)
K = Intersect(c, p, 2)
q = Circle(K, J)
L = Intersect(c, q, 1)
r = Circle(L, K)
M = Intersect(c, r, 2)
distanzaHG = Distance(H, G)
TestoHG: "\overline{" + (Name[H]) + (Name[G]) + "} \, = \, " + distanzaHG
distanzaGF = Distance(G, F)
TestoGF: "\overline{" + (Name[G]) + (Name[F]) + "} \, = \, " + distanzaGF
distanzaFB = Distance(F, B)
TestoFB: "\overline{" + (Name[F]) + (Name[B]) + "} \, = \, " + distanzaFB
distanzaML = Distance(M, L)
TestoML: "\overline{" + (Name[M]) + (Name[L]) + "} \, = \, " + distanzaML
distanzaLK = Distance(L, K)
TestoLK: "\overline{" + (Name[L]) + (Name[K]) + "} \, = \, " + distanzaLK
distanzaKJ = Distance(K, J)
TestoKJ: "\overline{" + (Name[K]) + (Name[J]) + "} \, = \, " + distanzaKJ
distanzaJI = Distance(J, I)
TestoJI: "\overline{" + (Name[J]) + (Name[I]) + "} \, = \, " + distanzaJI
distanzaIH = Distance(I, H)
TestoIH: "\overline{" + (Name[I]) + (Name[H]) + "} \, = \, " + distanzaIH
N = Intersect(c, e, 2)
distanzaBN = Distance(B, N)
TestoBN: "\overline{" + (Name[B]) + (Name[N]) + "} \, = \, " + distanzaBN
distanzaNM = Distance(N, M)
TestoNM: "\overline{" + (Name[N]) + (Name[M]) + "} \, = \, " + distanzaNM
poly1, b_1, f_1, g_1, h_1, i, j, k_1, l, m, n = Polygon(B, F, G, H, I, J, K, L, M, N)

Tool: Circocerchio
Clicca sul triangolo
Input: poly1
Output: p, T

A = (-1.9867180309718853, 3.399206189848298)
B = (-3.080683477006394, 1.9442321466224008)
C = (-0.6192612234287485, 1.9004735287810202)
poly1, c, a, b = Polygon(A, B, C)
j = LineBisector(a)
l = LineBisector(c)
T = Intersect(j, l)
p = Circle(T, B)

Tool: Circonferenza inscrita (command Circonferenzainscrita)
Clicca sui vertici del triangolo
Input: N, P, Q
Output: c_1, R

poly2, q_1, n_1, p_1 = Polygon(N, P, Q)
r = AngularBisector(N, Q, P)
s = AngularBisector(P, N, Q)
R = Intersect(r, s)
t = OrthogonalLine(R, p_1)
S = Intersect(t, p_1)
c_1 = Circle(R, S)

Tool: Ortocentro
Clicca sui vertici del triangolo
Input: E_1, F_1, G_1
Output: H_1

j_1 = Line(F_1, G_1)
l_1 = Line(G_1, E_1)
m_1 = OrthogonalLine(F_1, l_1)
n_1 = OrthogonalLine(E_1, j_1)
H_1 = Intersect(m_1, n_1)