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.255061201108672, 3.771805791730236)
c = Line(A_1, A_2)
A = (4.327669471651372, 4.765497947982603)
d = Line(A, c)
e = Circle(A, a)
B = Intersect(e, d, 2.0)
f = OrthogonalLine(B, d)
g = Circle(B, b)
C = Intersect(g, f, 2.0)
i = OrthogonalLine(C, f)
j = OrthogonalLine(A, d)
D = Intersect(i, j)
k = Segment(A, B)
m = Segment(B, C)
n = Segment(C, D)
o = Segment(D, A)
X = Point(k)
p = OrthogonalLine(X, k)
Y = Intersect(p, n)
r = Segment(X, Y)
S = Area(A, X, Y, D)
O = (0, 0)
U = (0, 1)
s = Line(O, U)
P: (0.0, S)
polígono1, a_1, E, F, d_1 = Polygon(A, X, Y, D)
Textopolígono1: "Área " + (Name[A]) + (Name[X]) + (Name[Y]) + (Name[D]) + " = " + polígono1
distânciaAX = Distance(A, X)
TextoAX: "\overline{" + (Name[A]) + (Name[X]) + "} \, = \, " + distânciaAX