n21 =

I = Intersect(xAxis, yAxis)
ControlEsfera = Point(xAxis)
c = Circle(I, ControlEsfera)
B_1 = Intersect(c, yAxis, 1)
n21 = 1.38 (slider from 0 to 3, step 0.01)
CasillaDeEntrada1 = Textfield(n21)
p = Ray(B_1, Vector[(0, -1)])
A = Point(p)
f, g = Tangent(A, c)
D_1 = Intersect(c, g, 1)
F_1 = Intersect(c, f, 1)
d = CircumcircleArc(D_1, B_1, F_1)
E = Point(d)
α: 180° - Angle[A, E, I]
β: asind((1 / n21 * sin(α)))
I' = Rotate(I, β, E)
h = Line(E, I')
F = Intersect(c, h, 2)
i = Segment(E, A)
I'_1 = Mirror(I, F)
G_1 = Rotate(I'_1, 360° - α, F)
H = Mirror(F, yAxis)
G' = Mirror(G_1, yAxis)
j = Segment(E, F)
G = Mirror(E, yAxis)
k = Segment(G, H)
l = Segment(G, A)
m = Line(F, G_1)
n = Line(H, G')
D = Intersect(n, m)
e = Circle(D, 1.5)
H_1 = Intersect(e, n, 2)
J = Intersect(e, m, 2)
q = Circle(H_1, 0.5)
r = Circle(J, 0.5)
B = Intersect(q, n, 1)
C = Intersect(r, m, 1)
s = Circle(B, (2 / 3 * Distance[B, H_1]))
M = Intersect(s, n, 2)
N = Intersect(q, s, 2)
O = Intersect(q, s, 1)
t = CircumcircleArc(O, M, N)
O' = Mirror(O, yAxis)
M' = Mirror(M, yAxis)
N' = Mirror(N, yAxis)
t' = CircumcircleArc(O', M', N')
a = Segment(F, C)
b = Segment(H, B)
C_1 = Midpoint(H_1, J)
f_1 = Segment(C_1, A)