A = Intersect(xAxis, yAxis)
B = Point(xAxis)
h = 240 (slider from 0 to 300, step 1)
C: (0, h / 100)
a = Segment(A, B)
b = Segment(A, C)
u = Vector(A, C)
A' = Translate(A, u)
B' = Translate(B, u)
a' = Segment(A', B')
D = Point(a)
c = Circle(D, 2.364)
E = Intersect(c, a, 1)
E' = Rotate(E, 90*°, D)
d = CircleArc(D, E, E')
F = Point(d)
F' = Rotate(F, 90*°, D)
e = Segment(D, F')
f = Circle(D, 0.597)
G = Intersect(f, e, 1)
v = Vector(D, G)
F'_1 = Translate(F, v)
poly1, d_1, g, f'_1, f_1 = Polygon(D, G, F'_1, F)
texte1: "" + (LaTeX[h]) + ""