Simetrías

Los 20 rosetones diédricos del claustro de la Catedral Vieja (Sé Velha) de Coímbra

ver = 0 (slider from 0 to 1, step 1)
tiempo = -5 (slider from -5 to 95, step 5)
cambio = 5
tiempo2: tiempo - ((20 * cambio) * floor(abs(tiempo) / ((20 * cambio))))
r1 = 0.606
A = (-0.03333333333333333, -0.06666666666666667)
AC: A + ((5.9, 5.9) * r1 / 2)
c = Circle(AC, (2.95 * r1))
a = OrthogonalLine(AC, xAxis)
AV = Intersect(c, a, 1)
F = (-5.2, -12.9)
B = (14.533333333333333, 0.3333333333333333)
r2 = 0.5499999999999996
simetrías = false
s3a = Sequence(CircleSector[AC, Rotate[AV, ((2 * k) * 60°), AC], Rotate[AV, (((2 * k) + 1) * 60°), AC]], k, 0, 2)
s3b = Sequence(CircleSector[AC, Rotate[AV, (((2 * k) + 1) * 60°), AC], Rotate[AV, (((2 * k) + 2) * 60°), AC]], k, 0, 2)
s5a = Sequence(CircleSector[AC, Rotate[AV, ((2 * k) * 36°), AC], Rotate[AV, (((2 * k) + 1) * 36°), AC]], k, 0, 4)
s5b = Sequence(CircleSector[AC, Rotate[AV, (((2 * k) + 1) * 36°), AC], Rotate[AV, (((2 * k) + 2) * 36°), AC]], k, 0, 4)
s6a = Sequence(CircleSector[AC, Rotate[AV, ((2 * k) * 30°), AC], Rotate[AV, (((2 * k) + 1) * 30°), AC]], k, 0, 5)
AA: A + ((5.9, 0) * r1)
BB: B + ((5.9, 0) * r2)
t: (tiempo + cambio) / cambio
s6b = Sequence(CircleSector[AC, Rotate[AV, (((2 * k) + 1) * 30°), AC], Rotate[AV, (((2 * k) + 2) * 30°), AC]], k, 0, 5)
s4a = Sequence(CircleSector[AC, Rotate[AV, ((2 * k) * 45°), AC], Rotate[AV, (((2 * k) + 1) * 45°), AC]], k, 0, 3)
s4b = Sequence(CircleSector[AC, Rotate[AV, (((2 * k) + 1) * 45°), AC], Rotate[AV, (((2 * k) + 2) * 45°), AC]], k, 0, 3)
s8a = Sequence(CircleSector[AC, Rotate[AV, ((2 * k) * 22.5°), AC], Rotate[AV, (((2 * k) + 1) * 22.5°), AC]], k, 0, 7)
s8b = Sequence(CircleSector[AC, Rotate[AV, (((2 * k) + 1) * 22.5°), AC], Rotate[AV, (((2 * k) + 2) * 22.5°), AC]], k, 0, 7)
ros1 = Dilate(pic1, 2, (-27, 2))
ros2 = Dilate(pic2, 2, (-27, 2))
ros3 = Dilate(pic3, 2, (-27, 2))
ros4 = Dilate(pic4, 2, (-27, 2))
ros5 = Dilate(pic5, 2, (-27, 2))
ros6 = Dilate(pic6, 2, (-27, 2))
ros7 = Dilate(pic7, 2, (-27, 2))
ros8 = Dilate(pic8, 2, (-27, 2))
ros9 = Dilate(pic9, 2, (-27, 2))
ros10 = Dilate(pic10, 2, (-27, 2))
ros11 = Dilate(pic11, 2, (-27, 2))
ros12 = Dilate(pic12, 2, (-27, 2))
ros13 = Dilate(pic13, 2, (-27, 2))
ros14 = Dilate(pic14, 2, (-27, 2))
ros15 = Dilate(pic15, 2, (-27, 2))
ros16 = Dilate(pic16, 2, (-27, 2))
ros17 = Dilate(pic17, 2, (-27, 2))
ros18 = Dilate(pic18, 2, (-27, 2))
ros19 = Dilate(pic19, 2, (-27, 2))
ros20 = Dilate(pic20, 2, (-27, 2))
boceto1: PenStroke[]
orden: {5, 3, 6, 3, 6, 4, 3, 8, 4, 3, 4, 3, 4, 8, 3, 5, 3, 4, 6, 3}
texto2: "Nº " + t + " - orden " + (orden(t)) + "                           Nº " + (If[t ≟ 20, 1, t + 1]) + " - orden " + (orden(If[t ≟ 20, 1, t + 1])) + ""
vel: 1