Mostra pentagono

Per costruire il pentagono regolare inscritto in una circonferenza
Scegliamo il punto medio di un raggio, quindi la bisettrice di BDA
coon AB raggio perpendicolare al raggio AC. EF parallelo ad AC.
BF è il lato del pentagono regolare. 

A = (-0.59052133535041, 0.1724967502186123)
B = (-0.5774324749683732, 0.9251062221857242)
c = Circle(A, B)
a = Line(B, A)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
D = Midpoint(A, C)
J = Intersect(c, b, 1)
k = Segment(J, C)
K = Point(c)
j = Segment(B, K)
d = Segment(B, D)
e = AngularBisector(B, D, A)
E = Intersect(j, e)
f = OrthogonalLine(E, j)
F = Intersect(c, f, 2)
G = Intersect(c, e, 1)
g = Segment(E, G)
h = Segment(E, F)
α = Angle(B, D, A)
p = Circle(F, B)
H = Intersect(c, p, 2)
q = Circle(H, F)
I = Intersect(c, q, 2)
r = Circle(I, H)
L = Intersect(c, r, 2)
poly1, b_1, f_1, h_1, i, l = Polygon(B, F, H, I, L)
m = false

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)

Tool: Excerchi
Clicca su 3 rette che determinano un triangolo
Input: b, c, a
Output: p, E, D, F, q, r

d, e = AngularBisector(a, c)
f, g = AngularBisector(b, c)
h, i = AngularBisector(a, b)
D = Intersect(h, d)
E = Intersect(d, f)
F = Intersect(f, h)
j = OrthogonalLine(D, a)
k = OrthogonalLine(E, c)
l = OrthogonalLine(F, b)
G = Intersect(b, l)
H = Intersect(k, c)
I = Intersect(j, a)
p = Circle(E, H)
q = Circle(F, G)
r = Circle(D, I)