[ Polígonos ]

RESET //borrando el área de representación

TO POLYGON :c :n // argumentos del procedimiento: c es la longitud del lado y n el número de lados/vértices

REPEAT :n [ // bucle repetido n veces

FORWARD :c // avanza c unidades de longitud

RT 360/:n // gira a la derecha 360º

]

END

[ Poner en marcha el programa, eligiendo los valores de los argumentos. El entorno también permite modificar el programa o bien escribir un nuevo programa a partir de un nuevo algoritmo. ]

[ Thanks to Papert : logo in your browser ]