Ayuda

r = 0.79 (slider from 0.2 to 1.4, step 0.01)
A = (1.3, -4.24)
B: A + (r, 0.0)
B' = Rotate(B, 80.0°, A)
D: B + 5.0 * Vector[A, B']
a: 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 x = x(D)
I: A + 6.8 * Vector[A, B'] + (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.2 * r, 0.0)
I' = Mirror(I, a)
J0': I' + (0.0, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 4.0 * r)
k = Circle(I', J0')
J' = Point(k)
J0: I + (0.0, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 4.0 * r)
J1 = Rotate(J0, 135.0°, I)
o = Circle(I, J0)
J = Point(o)
C: A + 7.5 * Vector[A, B']
B'' = Mirror(B, a)
e_2 = 2.718281828459045
A' = Mirror(A, a)
E = Mirror(C, a)
polígono1, p1a, p1b, p1c, p1d, p1e, p1f, p1g = Polygon(A, C, E, A', B'', D, B)
F: D + (0.0, 3.0 * r)
G: D + (0.0, 5.0 * r)
H: D + (r, 4.0 * r)
i_1 = Ellipse(G, F, H)
l = Circle(I', 4.0 * r)
α = Angle(J0, I, J)
M = Rotate(J0 + (r / 3.0, 0.0), α, I)
N = Rotate(J0 - (r / 3.0, 0.0), α, I)
m = Circle(I, r / 3.0)
f = Line(I, Line[N, M])
O, P = Intersect(m, f)
polígono2, p2b, p2c, p2d, p2a = Polygon(M, N, P, O)
β = Angle(J0', I', J')
M' = Rotate(J0' + (r / 3.0, 0.0), β, I')
N' = Rotate(J0' - (r / 3.0, 0.0), β, I')
n = Circle(I', r / 3.0)
g = Line(I', Line[N', M'])
O', P' = Intersect(n, g)
polígono2', pp2b, pp2a, pp2c, pp2d = Polygon(M', N', P', O')
K: N + 4.0 * r * Vector[N, M]
b = Line(J, K)
c = OrthogonalLine(K, b)
d_1 = Circle(K, N)
Q = Intersect(d_1, c, 1.0)
R: Q + Vector[K, N]
e = Line(M', N')
h = OrthogonalLine(M', e)
polígono3, n_1, q, k_1 = Polygon(Q, K, N)
polígono4, p, s, t = Polygon(Q, R, N)
d = If(α < 10.0 * ° ∨ α > 350.0 * °, 0.0, If[α > 305.0 * ° ∧ α < 325.0 * °, 1.0, If[α > 260.0 * ° ∧ α < 280.0 * °, 2.0, If[α > 215.0 * ° ∧ α < 235.0 * °, 3.0, If[α > 170.0 * ° ∧ α < 190.0 * °, 4.0, If[α > 125.0 * ° ∧ α < 145.0 * °, 5.0, If[α > 35.0 * ° ∧ α < 55.0 * °, 7.0, 9.0]]]]]])
i = If(β < 10.0 * ° ∨ β > 350.0 * °, 0.0, If[β > 35.0 * ° ∧ β < 55.0 * °, 1.0, If[β > 80.0 * ° ∧ β < 100.0 * °, 2.0, If[β > 125.0 * ° ∧ β < 145.0 * °, 3.0, If[β > 170.0 * ° ∧ β < 190.0 * °, 4.0, If[β > 225.0 * ° ∧ β < 245.0 * °, 5.0, If[β > 260.0 * ° ∧ β < 280.0 * °, 6.0, If[β > 305.0 * ° ∧ β < 325.0 * °, 7.0, 9.0]]]]]]])
texto1 = If(i ≟ 0.0, If[d ≟ 1.0, "A (1)", If[d ≟ 2.0, "B (2)", If[d ≟ 3.0, "C (3)", If[d ≟ 4.0, "D (4)", If[d ≟ 0.0, "Inicio - Final Palabras", ""]]]]], If[d ≟ 0.0, If[i ≟ 3.0, "E (5)", If[i ≟ 2.0, "F (6)", If[i ≟ 1.0, "G (7)", If[i ≟ 4.0, "D (4)", ""]]]], If[d ≟ 1.0, If[i ≟ 4.0, "K (0)", If[i ≟ 3.0, "L", If[i ≟ 2.0, "M", If[i ≟ 1.0, "N", ""]]]], If[d ≟ 2.0, If[i ≟ 5.0, "O", If[i ≟ 4.0, "P", If[i ≟ 3.0, "Q", If[i ≟ 2.0, "R", If[i ≟ 1.0, "S", If[i ≟ 7.0, "H (8)", ""]]]]]], If[d ≟ 3.0, If[i ≟ 7.0, "I (9)", If[i ≟ 1.0, "Anulación", If[i ≟ 2.0, "Y", If[i ≟ 3.0, "U", If[i ≟ 4.0, "T", ""]]]]], If[d ≟ 4.0, If[i ≟ 2.0, "J", If[i ≟ 1.0, "V", If[i ≟ 3.0, "Inicio - Final Números", ""]]], If[d ≟ 5.0, If[i ≟ 1.0, "X", If[i ≟ 2.0, "W", ""]], If[d ≟ 7.0 ∧ i ≟ 2.0, "Z", ""]]]]]]])
u = false