Ejemplos:Curvas en polares.
Flores y más flores
XLOGO sigue dibujando flores. AHora con muchos pétalos.|
para empezar reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz amarillo subelapiz ocultatortuga repitepara [angulo 0 360] [ ponposicion espiral :angulo bajalapiz] fin para espiral :angulo # Otra rosa haz "radio 40 + 150*seno(6*:angulo) devuelve p2r :radio :angulo fin para p2r :radio :angulo haz "x :radio * coseno :angulo haz "y :radio * seno :angulo devuelve lista :x :y fin |
En la línea
haz "radio 40 + 150*seno(6*:angulo)
cambia el 6 por un 2, un 7 o un 8, y añade la primitiva absoluto,
si queres que los pétalos pequeños aparezcan separados:
haz "radio abs 40 + 150*seno(6*:angulo)
o bien ...
haz "radio 40 + abs 150*seno(6*:angulo)
o también ...
haz "radio 90 + (1 + seno :angulo)
o quizás ...
haz "radio 60 * (1 + 2* seno :angulo)
empezar
