Ejemplos:Curvas en polares.
Rosas retorcidas
Al dibujar espirales y rosas, el ángulo crece uniformemente. Si hacemos que dependa del radio y del seno del ángulo, obtenemos figuras "retorcidas".|
para empezar reponetodo pontamañopantalla [400 400] poncolorpapel negro subelapiz ocultatortuga poncolorlapiz amarillo # repitepara [angulo 0 360] [ ponposicion espiral :angulo bajalapiz] fin para p2r :radio :angulo haz "x :radio * coseno :angulo haz "y :radio * seno :angulo devuelve lista :x :y fin para espiral :ang # rosa retorcida haz "radio 180*seno(6*:ang) haz "angulo :ang + (:radio/4) devuelve p2r :radio :angulo fin |
Prueba ahora:
|
para espiral :ang # rosa retorcida 2 haz "radio 180*sen(4*:ang) haz "angulo :ang + :radio devuelve p2r :radio :angulo fin |
Finalmente:
|
para espiral :ang # rosa retorcida simple haz "radio 160*sen :ang haz "angulo :ang + :radio devuelve p2r :radio :angulo fin |
empezar
