Comprobar

o = false
r = 5.5
A = (4.14, 1.12)
c = Circle(A, r)
B: A + (r, 0)
a = Segment(A, B)
C = Point(a)
d = Circle(A, C)
b = If(Radius[d] > 0, Area[d], 0)
texto1: "" + (round((100 * b / Area[c]))) + " %"
lista2: {Segment[A + (0, r), A - (0, r)], Segment[A + (r, 0), A - (r, 0)]}
lista1: {Segment[A - (r, r), A + (r, (-r))], Segment[A + (r, (-r)), A + (r, r)], Segment[A + (r, r), A + ((-r), r)], Segment[A + ((-r), r), A - (r, r)], Segment[A - (r, 0), A - (0, r)], Segment[A - (0, r), A + (r, 0)], Segment[A + (r, 0), A + (0, r)], Segment[A + (0, r), A - (r, 0)]}