Van der Weiden. El descendimiento.

Roger Van der Weiden. 1440. Museo del Prado. Madrid. Es la tabla central de un tríptico del que han desaparecido las alas laterales. Es una pintura al temple en madera que representa a Cristo bajando de la cruz.

 Los personajes son representados frontalmente y ajustados a un fondo muy estrecho formando un friso humano. Juan (de rojo y a la izquierda) y María Magdalena (a la derecha) tienen posiciones semejantes a ambos lados del cuadro componiendo una especie de paréntesis. En el centro la Virgen (de azul), que ha sufrido un desfallecimiento, tiene exactamente la misma posición que Cristo intentando transmitir que los dos sufren el mismo dolor.

Pulsa el botón Play para iniciar una secuencia de animación que muestra elementos geométricos de la composición de la obra:

(1) Marcamos un cuadrado en la región izquierda del cuadro.
(2) Dibujamos la circunferencia inscrita en el cuadrado.
(3) El pentágono inscrito en la circunferencia está marcado por los cuerpos de los personajes, especialmente los de Cristo, San Juan y la Virgen. El vértice superior coincide con el punto de corte de la diagonal marcada.
(4) Trasladamos las figuras de la izquierda hacia la parte derecha del cuadro para repetir una construcción semejante a la de los pasos 1, 2 y 3: cuadrado, circunferencia y pentágono. El papel de San Juan a la izquierda lo cumple ahora María Magdalena.
(5) Llevamos las figuras a la parte superior del cuadro. Dos de los personajes marcan lados del pentágono.
(6) El diámetro de la circunferencia y el arco marcados siguen las líneas de los cuerpos.
(7) El cuerpo de Cristo y el de la Virgen tienen posiciones parecidas. Mientras el cuerpo y los brazos se mueven mediante un ángulo de 25º, la línea de las piernas se ha llevado con una traslación
En esta dirección http://jmora7.com/Arte/arte.htm se encuentra una colección de cuadros analizados siguiendo esta forma de trabajar.

A = (0, 0)
l = 14 (slider from 0 to 15)
A1: A + (l, 0)
B = (0.56, 0.52)
a = 25 (slider from 0 to 25, step 0.001)
B1: B + (0, 7.4)
polígono1, f, g, h, i, C, D = Polygon(B1, B, 4)
F1 = Midpoint(i)
F = Midpoint(D, B)
c = Circle(F, F1)
j_1 = Ray(B, F1)
G = Point(j_1)
k = Segment(B, D)
F2 = Point(c)
polígono2, s1, s2, s3, s4, s5, F3, F4, F5 = Polygon(F1, F2, 5)
a2 = Max(0, Min[1, a - 2])
E1 = Rotate(F1, ((2 * π) * a2), F)
d = CircleArc(F, F1, E1)
a1 = Max(0, Min[1, a - 1])
L = (6.96, 10.6)
B2: B + (a1 * (G - B))
s = Segment(B, B2)
a4 = Max(0, Min[1, a - 5])
P1: F1 + (a4 * (F5 - F1))
P2: F5 + (a4 * (F4 - F5))
P4: F3 + (a4 * (F2 - F3))
P3: F4 + (a4 * (F3 - F4))
P5: F2 + (a4 * (E1 - F2))
t1 = Segment(F1, P1)
t2 = Segment(F5, P2)
t3 = Segment(F4, P3)
t4 = Segment(F3, P4)
t5 = Segment(F2, P5)
B3: B + (a1 * (D - B))
m = Segment(B, B3)
j = OrthogonalLine(L, i)
a7 = Max(0, Min[1, a - 7])
a8 = Max(0, Min[1, a - 8])
a9 = Max(0, Min[1, a - 9])
b: C ≠ C + (5.5, 0)
C1: C + (5.5, 0)
u = Vector(C, C1)
polígono11 = Translate(polígono1, Vector[(a7 * u)])
c11 = Translate(c, Vector[(a8 * u)])
polígono22 = Translate(polígono2, Vector[(a9 * u)])
B' = Mirror(B, j)
B2' = Mirror(B2, j)
s' = Segment(B', B2')
B'_1 = Mirror(B, j)
B3' = Mirror(B3, j)
m' = Segment(B'_1, B3')
a6 = Max(0, Min[1, a - 6])
v = Vector(F1, L)
F1' = Translate(F1, u)
w = Vector(F1', L)
a11 = Max(0, Min[1, a - 11])
a12 = Max(0, Min[1, a - 12])
c21 = Translate(c, Vector[(a11 * v)])
c22 = Translate(c11, Vector[(a11 * w)])
p33 = Translate(polígono2, Vector[(a12 * v)])
p34 = Translate(polígono22, Vector[(a12 * w)])
H = (5.850909090909085, 6.56)
I = (9.150909090909082, 4.42)
n = Segment(H, I)
J = (6.130909090909085, 4.68)
p = Segment(H, J)
K = (7.410909090909084, 7.28)
q = Segment(H, K)
a15 = Max(0, Min[1, a - 15])
a16 = Max(0, Min[1, a - 16])
I1: I + (a15 * (H - I))
r = Segment(I, I1)
H1: H + (a16 * (K - H))
H2: H + (a16 * (J - H))
t = Segment(H, H2)
f_1 = Segment(H, H1)
N = (0, 10)
α = 0.4363323129985824 rad (slider from 0 to 6.283185307179586, step 1°)
H'_3 = Rotate(H, (-α), N)
H'_4 = Rotate(H, (-α), N)
i_1 = Segment(H, N)
k_1 = Segment(N, H'_3)
β = Angle(H'_3, N, H)
a18 = Max(0, Min[1, a - 18])
I' = Rotate(I, ((-a18) * α), N)
I1'_1 = Rotate(I1, ((-a18) * α), N)
r1 = Segment(Rotate[I, ((-a18) * α), N], Rotate[I1, ((-a18) * α), N])
H' = Rotate(H, ((-a18) * α), N)
H1' = Rotate(H1, ((-a18) * α), N)
r2 = Segment(H', H1')
H'_1 = Rotate(H, ((-a18) * α), N)
H2' = Rotate(H2, ((-a18) * α), N)
r3 = Segment(H'_1, H2')
E = (11.39090909090908, 4.5)
H3: I + (a16 * (E - I))
e = Segment(I, E)
g_1 = Segment(I, H3)
u_1 = Vector(I, I')
I'_1 = Translate(I, u_1)
a19 = Max(0, Min[1, a - 19])
I'_2 = Translate(I, u_1)
h_1 = Segment(Translate[I, Vector[(a19 * u_1)]], Translate[H3, Vector[(a19 * u_1)]])