Zone de baignade
Author: Vincent MAILLE
Date: 18/10/2006

C = (42.25400404709189, 467.21652165232894)
E = (97.88965075133116, 62.730333451238025)
a = Line(C, E)
b = 40 (slider from 0 to 320, step 0.1)
c = OrthogonalLine(C, a)
d = Circle(C, (320 - b) / 2)
B = Intersect(d, c, 2)
e = OrthogonalLine(B, c)
g = Circle(C, b)
D = Intersect(g, a, 2)
f = OrthogonalLine(D, a)
A = Intersect(e, f)
P, c_1, b_1, a_1, d_1 = Polygon(C, B, A, D)
h = Segment(C, B)
i = Segment(B, A)
j = Segment(A, D)
T1: "x=" + b
T2: "AD=" + ((320 - b) / 2)
T3: "AB=" + b
T4: "A(x)=" + P