I = Point(xAxis)
S = (2.42, 1.48)
a = Line(S, I)
F = Point(a)
K = Mirror(F, S)
b = OrthogonalLine(K, a)
H = Point(b)
c = OrthogonalLine(H, b)
A = Midpoint(H, F)
d = Segment(H, F)
e = OrthogonalLine(A, d)
M = Intersect(c, e)
loc1 = Locus(M, H)