Ejemplos: Artísticos

Dibujando cardioides y nefroides

Se dibuja una serie de círculos, con dos condiciones distintas:

1. Todos tangentes al eje de abscisas
2. Todos contienen al origen de coordenadas

Primer caso: cardioide

Como siempre el comando de inicio es empezar nº, por ejemplo: empezar 48 dibujará 48 círculos.

para empezar :n # Inicializamos papel, lapiz y tortuga   reponetodo pontamañopantalla [400 400]   poncolorpapel negro poncolorlapiz verde   subelapiz ocultatortuga #   haz "radio 70   ponXY 0 40 #   repite :n    [avanza :radio     circulo distancia lista 0 40 + :radio     retrocede :radio giraderecha 360/:n espera 8] fin

Segundo caso: nefroide

Como antes, empezar 48 dibujará 48 círculos.

para empezar :n # Inicializamos papel, lapiz y tortuga   reponetodo pontamañopantalla [400 400]   poncolorpapel negro poncolorlapiz verde   subelapiz ocultatortuga #   repite :n    [avanza 90 circulo abs ultimo posicion     retrocede 90 giraderecha 360/:n espera 8 ] fin

Probar los programas: Procedimiento a ejecutar: empezar 40