S1 = (-3.06, -0.6)
S2 = (5, 3)
s = Segment(S1, S2)
A = (-1.8800000000000001, 2.56)
A' = Mirror(A, s)
a = Line(A, A')
B = (0.2, 2.02)
r = Segment(B, A')
I = Intersect(s, r)
c = OrthogonalLine(I, s)
B' = Mirror(B, c)
r_1 = Ray(I, B')