Théorème de Pappus
Author: Yvan Monka - m@ths et tiques 2005

A = (-2.7666666666666666, 3.1)
B = (2.433333333333333, 1.7)
a = Line(A, B)
A' = (-1.8333333333333333, -4.233333333333333)
C' = (8.6, -3.9)
b = Line(A', C')
C = Point(a)
B' = Point(b)
c = Segment(A, B')
d = Segment(A, C')
e = Segment(B, A')
f = Segment(B, C')
g = Segment(C, A')
h = Segment(C, B')
D = Intersect(c, e)
E = Intersect(d, g)
F = Intersect(f, h)
i = Line(D, E)