Abecedario

1

2

3

4

5

6

7

8

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: x = x(D)
I: A + 6.8 * Vector[A, B'] + (-1.0 * 0.2 * r, 0.0)
I' = Mirror(I, a)
J0': I' + (0.0, -1.0 * 4.0 * r)
k = Circle(I', J0')
J'_1 = Point(k)
J0: I + (0.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: {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: {Polygon[M, N, P, O]}
β = Angle(J0', I', J'_1)
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': {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: {Polygon[Q, K, N]}
polígono4: {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]]]]]]])
u = false
K': M' - 4.0 * r * Vector[N', M']
j = Line(M', N')
a_1 = OrthogonalLine(K', j)
c_1 = Circle(K', M')
Q' = Intersect(c_1, a_1, 2.0)
R': Q' + Vector[K', M']
lista1: {Polygon[Q', R', M']}
lista2: {Polygon[Q', K', M']}
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", ""]]]]]]])
L = (-0.72, -4.58)
p = Line(L, L + (1.0, 0.0))
q = Line(L, L + (0.0, 1.0))
S = Point(q)
T = Point(p)
s = OrthogonalLine(T, p)
t = OrthogonalLine(S, s)
U = Intersect(s, t)
polígono5, l_1, s_1, u_1, t_1 = Polygon(L, S, U, T)
W = (3.54008, 4.20976)
Z = Point(a)
e_1 = Circle((11.0, -4.0), 1.46)
V = Center(e_1)
b_1 = OrthogonalLine(V, xAxis)
f_1 = OrthogonalLine(V, b_1)
g_1, h_1 = AngularBisector(b_1, f_1)
A_1 = (11.56, -3.14)
k_1 = Circle(V, A_1)
B_1 = Intersect(k_1, b_1, 1.0)
C_1 = Rotate(B_1, β, V)
D_1 = Rotate(B_1, α, V)
E_1 = Intersect(k_1, h_1, 2.0)
F_1 = Intersect(k_1, g_1, 1.0)
G_1 = Intersect(k_1, f_1, 1.0)
H_1 = Mirror(F_1, V)
I_1 = Mirror(B_1, V)
J_1 = Mirror(G_1, V)
K_1 = Mirror(E_1, V)
j_1 = Segment(J_1, G_1)
m_1 = Segment(I_1, B_1)
n_1 = Segment(K_1, E_1)
p_1 = Segment(H_1, F_1)
v = Vector(V, C_1)
w = Vector(V, D_1)