Modifier le curseur pour déplacer le point B, 
à la souris ou avec les flèches du clavier

a = Sphere((0, 0), 4)
b = -2.4 (slider from -4 to 4, step 0.1)
B: (0, b)
A = (-0.0037602151077182045, 4.134886944430891)
c, d, e = Cone(B, A, sqrt(16 - b^(2)))
f = Segment(A, B)
volumec = Volume(c)
PointPlanxOy = PointIn(xOyPlane)
V = Volume(c)
texte1: "Volume du cône = " + V + ""
O = (0, 0, 0)
AB = Distance(A, B)
long: AB
texte3: "AB = " + long + ""