(actividad creaada a partir de http://www.youtube.com/watch?v=IKi_ZU7NuOw)
- Comenzamos activando las dos vistas gráficas.
- En la vista gráfica 1 activamos el tipo de cuadrícula isométrica.
- Definimos tres puntos: A, B y C.
- Escribimos en la barra de entrada: u=Vector[A,B]
- Escribimos en la barra de entrada: v=Vector[C,B]
- Creamos tres puntos entre A y B, tres puntos entre y C y tres puntos entre A y C.
- En este punto debemos tener una imagen parecida a esta
- Ahora dibujamos el polígono que pasa por todos los puntos que hemos dibujado, comenzando por A y respetando el orden. Lo llamaremos pol1.
- Creamos un deslizador de tipo entero. Lo renombramos como m.
- Escribimos en la barra de entrada:
L_1=Secuencia[ Traslada[pol1, k
u], k, -m, m]
- En las propiedades de la lista L_1, activamos su ubicación en la vista gráfica 2 y la ocultamos.
- Escribimos en la barra de entrada:
L_2=Secuencia[ Traslada[L_1, k
v], k, -m, m]
- Ubicamos la lista L_2 en la vista gráfica 2.
- Colorea la la lista $L_2$ y el fondo de la vista gráfica.
Propuesta
¿Qué sucederá si añado más puntos en el polígono pol1?¿Es posible hacer un mosaico "Escher" con esta técnica? Por ejemplo:
