O = Intersect(xAxis, yAxis)
c = Circle(O, 3390)
Seisme = Point(c)
temps = 390.85 (slider from 0 to 500, step 0.05)
A = Intersect(c, xAxis, 2)
S1 = Rotate(Seisme, ((temps * 2) * π / 103), O)
S2 = Rotate(Seisme, (-(((temps * 2) * π / 103))), O)
sismographe = Point(c)
a = Sphere(O, sismographe)
b = Sphere(Seisme, S1)
d = IntersectConic(b, a)
B = PointIn(a)