α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
a: y = tan(α) x
O = (0, 0)
A = Intersect(c, a, 2)
b = Line(A, yAxis)
B = Point(yAxis)
d = Line(B, a)
C = Intersect(b, d)
e = Line(O, B)
D = Intersect(f, a, 2)
g = Line(A, C)
h = Line(D, g)
E = Intersect(d, h)
P, a_1, d_1, e_1, c_1 = Polygon(A, D, E, C)