A = Intersect(xAxis, yAxis)
B = (3, 1)
a = Segment(A, B)
C = Midpoint(a)
c = Circle(C, B)
b = OrthogonalLine(C, a)
D = Intersect(c, b, 2.0)
d = Segment(A, D)
e = Segment(D, B)
E = Intersect(c, b, 1.0)
f = Segment(B, E)
g = Segment(E, A)