Comprobar

A = (4.14, 1.12)
r = 5.5
g = Segment(A + (3.0 * r / 5.0, 0.0), A + (r, 0.0))
o = false
c = Circle(A, r)
B: A + (r, 0.0)
a = Segment(A, B)
C = Point(g)
d = Circle(A, C)
b = If(Radius[d] > 0.0, Area[d], 0.0)
f = Circle(A, 3.0 * r / 5.0)
s: 4.0 * r / 5.0
texto1: "" + (round(100.0 * (Area[c] - Area[d]) / Area[f])) + " %"
lista3 = Sequence(Segment[A + (k, r), A + (k, -(r))], k, -(r), r, r / 5.0)
lista1 = Sequence(Segment[A + (r, k), A + (-(r), k)], k, -(r), r, r / 5.0)
D: A + (r, r)
E: A + (-(r), r)
F: A + (-(r), -(r))
G: A + (r, -(r))
H: A + (-(r), -(r)) * 4.0 / 5.0
I: A + (-(r), r) * 4.0 / 5.0
J: A + (r, r) * 4.0 / 5.0
K: A + (r, -(r)) * 4.0 / 5.0
L: A + (r, -(r)) * 3.0 / 5.0
M: A + (-(r), -(r)) * 3.0 / 5.0
N: A + (-(r), r) * 3.0 / 5.0
O: A + (r, r) * 3.0 / 5.0
e = Segment(F, E)
h = Segment(E, D)
i = Segment(D, G)
j = Segment(G, F)
k = Segment(H, K)
l = Segment(K, J)
m = Segment(I, J)
n = Segment(I, H)
p = Segment(M, L)
q = Segment(O, L)
t = Segment(N, M)
a_1 = Segment(N, O)
polígono1: {Polygon[F, G, 4.0]}