r

r

\frac{r}{2}

A = Intersect(xAxis, yAxis)
B = (4.372860709691628, 4.05435605295119)
AB = Distance(A, B)
c = Circle(A, B)
C, D = Intersect(c, yAxis)
E, F = Intersect(c, xAxis)
a = Segment(A, C)
b = Segment(A, F)
d = Circle(A, 7.0 * AB / 20.0)
G = Intersect(d, b)
e = OrthogonalLine(G, b)
AG = Distance(A, G)
f = Circle(A, AB - AG)
H, I = Intersect(f, e)
g = OrthogonalLine(I, a)
J = Intersect(a, g)
h = Circle(I, J)
k = Circle(F, AB / 2.0)
K = Intersect(k, b)
L, M = Intersect(c, k)
p = CircleSector(A, F, C)
q = CircleArc(F, L, K)
N = (-2, 2)
O = (-2, 10)
P = Point(yAxis)
Q = (-4, 8)
i = Segment(O, N)
j = Segment(Q, P)
A' = Mirror(A, i)
F'_1 = Mirror(F, i)
C' = Mirror(C, i)
p' = Sector(Mirror[Circle[A, F], i], F'_1, C')
h' = Mirror(h, i)
F' = Mirror(F, i)
L' = Mirror(L, i)
K' = Mirror(K, i)
q' = Arc(Mirror[Circle[F, L], i], L', K')
R = (-16, -1)
S = (12, -1)
T = (-2, 13)
poligon1, s, r', t = Polygon(R, T, S)