Meta: Controla el ángulo, la estrechez, el grosor, el color y el tamaño de la espiral.
Vocabulario: make, setc (setcolor), setpensize
to spiral :length
pd
setc whatcolor
setpensize howthick
repeat #turns
[fd :length
rt angle
make "length :length + howtight]
end
to reset
cg
end
Notas - Crea los controles que se muestran en el mapa del proyecto y fija los mínimos y máximos a los números que se indican en el mapa.
- En el procedimiento spiral, setc whatcolor significa: "Haz que el color del lápiz de la tortuga sea el número del control whatcolor".
- Setpensize howthick significa: "Haz que el grosor del lápiz de la tortuga sea el número del control howthick".
- El número de segmentos de línea en la espiral se pone en lo que dice el control #turns.
- Este proyecto usa un método diferente para incrementar la longitud length de los segmentos de línea. (No incrementaremos el valor del control como lo hicimos en Espirales 2 y 3). Creamos la variable length al nombrarla en la línea:
to spiral :length
- Ahora debemos proveer un valor para esta variable. En el botón spiral debemos incluir un número.
Spiral 10 dibuja una espiral que empieza con un segmento de línea de tamaño 10. (Elige otro número si te parece).
fd :length mueve la tortuga hacia delante el valor de la variable length. (Cuando length vale 10, la tortuga se moverá hacia delante 10 pasos).
- Make "length :length + howtight significa, "Incrementa el valor de length en el valor del control howtight". ¡Ten cuidado con la puntuación! "Length (precedida de comillas dobles) se refiere al nombre de la variable. :Length (precedida por dos puntos) se refiere al valor de la variable (en este caso, un número).
¿Qué pasa si?
Intenta diferentes valores para los controles con el objetivo de crear espirales que sean apretadas o flojas, delgadas o gruesas, grandes o pequeñas, y así por el estilo.
Desafío
¿Puedes crear espirales de diferentes ángulos y estrecheces que llenen la página sin sobrepasar los bordes? Anota lo que funciona.
|
