Meta: Cambia el valor del control mientras la espiral crece.
Vocabulario: repeat, set, carefully, announce
to square-spiral
pd
carefully [repeat 12 [fd howlong rt 90 sethowlong howlong + 5]]
[announce [The slider can't go any higher!]]
end
to reset
cg
end
Notas Este proyecto dibuja 12 líneas de longitud creciente mientras la tortuga gira a la derecha 90 grados luego de haber dibujado cada línea.
- Haz un control y nómbralo howlong (cuán largo). Ponle el mínimo en 5 y el máximo en un número grande como 300.
- En el procedimiento square-spiral, repeat 12 significa: "Repite la lista de instrucciones 12 veces".
Fd howlong significa: "Mueve hacia adelante tantos pasos de tortuga como el control howlong diga".
Sethowlong howlong + 5 significa, "Haz que el valor del control howlong se incremente en 5".
- Pero necesitamos ser cuidadosos porque no podemos poner al control un valor mayor que su máximo. Esto produciría un mensaje de error. Podemos poner el comando sethowlong dentro de un comando carefully para evitar el mensaje de error.
Carefully significa, "Realiza la primera entrada (una palabra o una lista de instrucciones). Si ocurre algún error para, y realiza la segunda entrada (una palabra o una lista de instrucciones). Si no hay errores, bien; ignora la segunda entrada". Así que en este caso, si sethowlong excede el máximo del control howlong, el control se detendrá en el máximo y veremos un mensaje.
Announce muestra un mensaje en una caja de aviso.
- Arrastra el control de nuevo hacia un número pequeño antes de empezar a crear una nueva espiral.
¿Qué pasa si?
Intenta hacer clic en el botón nuevamente luego de que la tortuga dibuje la espiral. Haz clic cinco veces.
Desafío
¿Puedes hacer una espiral más apretada (con líneas más cerca unas de otras)?
|
