y

x

A = (0.68, 1.82)
B = (0.08, 1.8)
A_1 = (1.44, 0.52)
B_1 = (1.44, 0.02)
A_2 = (-0.56, 0.72)
B_2 = (0, 0)
P = (1.3, 1.3)
a = OrthogonalLine(P, xAxis)
b = OrthogonalLine(P, yAxis)
x_P = Intersect(a, c)
y_P = Intersect(b, d)
x_1 = Segment(y_P, P)
f = Segment(P, x_P)