Date: 5 Octubre 2013

A = (0, -1)
B = (10.08, -2.36)
polígono4, c, d, i, j, J, K = Polygon(A, B, 4)
C = PointIn(polígono4)
polígono1, f, k, l = Polygon(A, B, C)
p = OrthogonalLine(C, f)
a = 0 (slider from 0 to 1, step 0.01)
D = Intersect(p, f)
E: C + a * (D - C)
F = Midpoint(C, E)
b = Line(F, f)
G = Intersect(b, l)
H = Intersect(b, k)
I = Intersect(b, k)
polígono3, h_1, g_1, e = Polygon(G, E, H)
α = Angle(B, A, C)
β = Angle(C, B, A)
γ = Angle(A, C, B)
N: A + a * (D - A)
O: B + a * (D - B)
P = Midpoint(A, N)
Q = Midpoint(O, B)
g = OrthogonalLine(P, f)
h = OrthogonalLine(Q, f)
R = Intersect(g, l)
S = Intersect(h, k)
polígono2, r, g_2, h_2, s, q, p_1 = Polygon(R, G, H, S, Q, P)
polígono5, p_2, r_1, n_1 = Polygon(R, N, P)
polígono6, q_1, o, s_1 = Polygon(O, S, Q)
ε = Angle(H, E, G)
δ = Angle(R, N, P)
ζ = Angle(Q, O, S)
nada = -1.8 (slider from -5 to 5, step 0.1)