β = 0.4 (slider from 0 to 6.283185307179586, step 0.0010)
k = 4 (slider from 1 to 8, step 1)
A = Point(xAxis)
B: -(A)
D: k * (cos(β), sin(β)) + B
e = Line(B, D)
a = Segment(A, D)
b = LineBisector(a)
K = Segment(B, D)
C = Intersect(b, e)
poly1, c, a_1, d = Polygon(A, D, C)