a = 1.3 (slider from 0 to 5, step 0.1)
b = 2.5 (slider from 0 to 5, step 0.1)
A = (2, 1)
B = Point(Circle[A, a])
c = Segment(A, B)
d = OrthogonalLine(A, c)
e = Circle(A, b - a)
C = Intersect(e, d, 2.0)
f = Line(C, c)
g = OrthogonalLine(B, c)
D = Intersect(f, g)
poli1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
h = Distance(a_1, c_1)
Testopoli1: "Area " + (Name[A]) + (Name[B]) + (Name[D]) + (Name[C]) + " = " + poli1
i: y = a * (b - a)
E = Intersect(i, yAxis)
j: x = b - a
F = Intersect(i, j)
G = Intersect(j, xAxis)
H = Intersect(xAxis, yAxis)
k = Segment(H, G)