A = (1.5, 0)
E = (0, 0)
r = 1.073567518545604 (slider from 0 to 1.5, step 0.01)
α = 1.550008692163033 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B: (r; α)
b = Ray(E, B)
c = Circle(E, A)
C = Intersect(c, b, 1.0)
D: C + A
d = Segment(A, E)
e = Segment(E, C)
f = Segment(C, D)
g = Segment(D, A)