Courbes polaires.
Ceci trace une spirale d'Archimède avec 10 tours.
|
# Commande principale: demarrer
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour p2r :radius :angle donne "x :radius * cos :angle donne "y :radius * sin :angle retourne liste :x :y fin pour spiral :angle # archimides spiral donne "radius :angle/20 fin pour demarrer new fcc jaune repetepour [angle 0 3600] [ spiral :angle fpos p2r :radius :angle baissecrayon] fin |
Pour la spirale de Fermat, la rayon est proportionnel à la racine carré de l'angle. Voici la nouvelle procédure spirale:
|
pour Spiral :Angle # Fermats Spiral donne "Radius 3*Puissance :Angle 0.5 fin |
Quand l'angle est proche du rayon, la spirale grossit très vite.
|
pour Spiral :Angle # Equiangular Spiral donne "Radius Puissance 1.002 :Angle fin |
Ceci ajoute un petit attrait à la spirale d'Archimède, donnant l'illusion de pétales. On augmente le nombre de pas jusqu'à 8860.
|
pour Spiral :Angle # Archimides Daisy donne "Offset Sin 7.05*:Angle donne "Radius :Angle/52 + (Puissance (:Angle/2000) 2) * :Offset fcc phrase Liste 0 (arrondi 127.5 * (1+:Offset)) 255 fin |
demarrer
