Polígono a escala con Winlogo

Este programa te permitirá crear cualquier polígono de un tamaño específico. Al aumentar el factor de escala, se puede crear una serie de polígonos similar a la que se muestra a continuación.

El programa es este:

Polygon

to polygon :sides :length :scale
make "angle 360/ :sides
make "enlarge :length*:scale
repeat :sides [fd :enlarge rt :angle]
end

Para crear una forma usando este programa, el comando polygon 4 90 1 crearía un cuadrado de factor de ampliación 1 con longitudes de lados de 90.

Para crear otros polígonos modifica el 4.
Por ejemplo, un 5 haría un pentágono, etc..

Recuerda estos comandos útiles:
clearscreen = limpia la pantalla
hideturtle  = esconde la tortuga