Construction d'architecte du pentagone
Author: Patrice Debart

A = (-2, 0)
B = (3, 0)
c_2 = Circle(A, B)
dAB = Line(A, B)
d = OrthogonalLine(A, dAB)
A' = Intersect(c_2, d, 2.0)
I = Midpoint(A, B)
c_1 = Circle(I, A')
F = Intersect(c_1, dAB, 1.0)
c_4 = Circle(B, F)
E = Intersect(c_2, c_4, 1.0)
c_3 = Circle(B, A)
m = LineBisector(A, B)
D = Intersect(c_4, m, 2.0)
c_5 = Circle(D, E)
C = Intersect(c_3, c_5, 2.0)
CD = Segment(C, D)
DE = Segment(D, E)
EA = Segment(E, A)
BC = Segment(B, C)
AB = Segment(A, B)