A = (-3.0920774585133324, 0.2815089172923072)
B = (0.7091270693118297, 0.2815089172923072)
C = (-1.9069110277845747, 3.8948212060994956)
α = Angle(B, A, C)
a = Segment(B, C)
B' = Rotate(B, α / 3.0, A)
b = Ray(A, B')
c = Segment(A, B)
B'' = Mirror(B', c)
d = Ray(A, B'')
D = Intersect(a, b)
E = Intersect(a, d)
F = If(Defined[D], D, E)
e = AngularBisector(F, A, C)
f = Line(A, F)
g = Segment(A, C)