Faire varier a avec le curseur :

Chap 13 - Exercice 115

Afficher P et (CP) (question 5)

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
poly1, a_1, b, c, d, C, D = Polygon(A, B, 4.0)
a = 0.3 (slider from -5 to 5, step 0.1)
u: a * Vector[A, D]
M = Translate(A, u)
v: 1.0 / a * Vector[A, B]
N = Translate(A, v)
e = Line(B, M)
f = Line(D, N)
P = Translate(M, v)
g = Line(C, P)
poly2, a_2, n, p, m = Polygon(A, N, P, M)
h = false