B

b

b

a

A=\dfrac{(B+b)a}{2}

A = Point(xAxis)
B = Point(xAxis)
a = Segment(A, B)
C = (0.8626483907875677, 1.7535687043609014)
b = Line(C, a)
D = Point(b)
polígono1, b_1, a_1, c, d = Polygon(B, A, C, D)
E = Midpoint(D, B)
α = 0 rad (slider from 0 to 180*°, step 0.017453292519943295)
B' = Rotate(B, α, E)
A' = Rotate(A, α, E)
C' = Rotate(C, α, E)
D' = Rotate(D, α, E)
polígono1', b', a', c', d' = Polygon(B', A', C', D')
e = OrthogonalLine(A, yAxis)
f = OrthogonalLine(C, b_1)
F = Intersect(f, b_1)
g = Segment(C, F)