Proyectiviad Misma Recta

Dar en una recta d pares homólogos A,A'; B,B'; C,C' y P

K = Rotate(A', 90*°, A)
d = OrthogonalLine(B, a)
f = OrthogonalLine(B', a)
c = Line(K, P)
M = Intersect(d, c)
e = Line(K, C)
L' = Intersect(f, e)
g = Line(C, M)
M' = Intersect(f, g)
h = Line(C', L')
i = OrthogonalLine(A', a)
K' = Intersect(h, i)
j = Line(K', M')
P' = Intersect(a, j)