Partenón 3. Superficie, secuencia de traslación
Vamos a dibujar las columnas. Midiendo en las imágenes determinamos que tienen una altura de 3.4 y un diámetro 0.4 en la base y 0.22 en la cumbre
k=Curva(10.6 + 0.3cos(t), 4.6 + 0.3sen(t), 0, t, 0, 2π)
l=Curva(10.6 + 0.22cos(t), 4.6 + 0.22sen(t), 3.4, t, 0, 2π)
Con estas curvas paramétricas definimos la superficie de la columna
m=Superficie(k k(t) + (1 - k) l(t), k, 0, 1, t, 0, 2π)
En el frente tenemos una secuencia de 7 nuevas columnas, con el vector u=(0,-1.314,0) escribimos
l1=Secuencia(Traslada(m, Vector(i u)), i, 1, 7)
En el lateral la secuencia es de 16 nuevas columnas, con el vector v=(-1.325,0,0) escribimos
l2=Secuencia(Traslada(m, Vector(i v)), i, 1, 16)
Las otras dos filas las construimos mediente simetría de l1 y l2 respecto a loa planos y=0 x=0