h = 0.5 (slider from 0 to 1, step 0.1)
a = 4 (slider from 0 to 10, step 0.1)
b = 3 (slider from 0 to 10, step 0.1)
A_1 = (1.8279113079941012, 3.810283954559275)
A_2 = (11.22183006048359, 3.8063593525855803)
c = Line(A_1, A_2)
A = (7.380902277869383, 4.207102990271733)
e = Circle(A, a)
d = Line(A, c)
B = Intersect(e, d, 2.0)
f = OrthogonalLine(B, d)
g = Circle(B, b)
C = Intersect(g, f, 2.0)
a_1 = Segment(A, C)
k = Segment(A, B)
X_1 = Point(k)
q = Circle(X_1, h)
X_2 = Intersect(q, k, 2.0)
s = OrthogonalLine(X_2, k)
Z_2 = Intersect(s, a_1)
p = OrthogonalLine(X_1, k)
Z_1 = Intersect(p, a_1)
m = Segment(B, C)
distânciaAX = Distance(A, X_1)
TextoAX: "\overline{" + (Name[A]) + (Name[X_1]) + "} \, = \, " + distânciaAX
l = Length(Vector[Vector[A, X_1]])
S = Area(A, X_1, Z_1)
P_1: (l, S)
lg1 = Locus(P_1, X_1)
l_1: (l, 0.0)
l_2: (l + h, 0.0)
S_1: (0.0, S)
T = Area(X_1, X_2, Z_2, Z_1)
S_2: (0.0, S + T)
b_1 = Segment(l_1, P_1)
c_1 = Segment(P_1, S_1)
P_2: (l + h, S + T)
e_1 = Segment(l_2, P_2)
f_1 = Segment(P_2, S_2)
d_1 = Segment(X_1, Z_1)
g_1 = Segment(X_2, Z_2)
polígono1, z_1, a_2, x_1 = Polygon(A, X_1, Z_1)
polígono2, x_2, x_3, z_2, z_3 = Polygon(X_1, X_2, Z_2, Z_1)