0

0

1

1

x

y

x

y

A = (-2, 0)
a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, a)
B = Point(b)
c = OrthogonalLine(B, b)
C = Point(a)
d = OrthogonalLine(C, a)
D = Intersect(c, d)
f(x) = x^(2) - 4
E = Point(a)
in: y(E) / y(C)
out: f(in)
F = Point({x(B), (out * y(D))})
e = Segment(E, F)
G = Point({in, out})
H = Point({x(G), 0})
I = Point({0, y(G)})
h = Segment(H, G)
i = Segment(G, I)