Au hasard
Ceci produit les mêmes modèles que le précédent. La seule différence est que le programme est prévu pour l'affichage tienne dans la zone de dessin.
Les seules paramètres nécessaires sont l'angle initial et le pas utilisé. Par exemple, taper demarrer 25 37. Le nombre de pas nécessaires pour revenir à la position de départ est calculé à l'aide de la procédure Step_Needed. La courbe est alors tracéé en gris.
Ensuite la traînée est redessinée et l'origine ainsi que line_length (LL) sont recalculés pour que le dessin tienne sur l'écran par la procédure Optimise.
Enfin, on efface l'écran et la courbe est tracée de nouveau avec les couleurs.
Est-ce que certains paramètres entraîne plus de 720 pas pour compléter la courbe?
Je ne sais pas quelles valeurs pour IA et SA donnent les plus belles courbes. Voici une liste regroupant déjà des valeurs intéressantes:
Certaines courbes peuvent être simplifiées. Par exemple la courbe obtenue avec 65 44 est la même qu'avec 21 44.
Les seules paramètres nécessaires sont l'angle initial et le pas utilisé. Par exemple, taper demarrer 25 37. Le nombre de pas nécessaires pour revenir à la position de départ est calculé à l'aide de la procédure Step_Needed. La courbe est alors tracéé en gris.
Ensuite la traînée est redessinée et l'origine ainsi que line_length (LL) sont recalculés pour que le dessin tienne sur l'écran par la procédure Optimise.
Enfin, on efface l'écran et la courbe est tracée de nouveau avec les couleurs.
|
# Commande principale: demarrer
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour wander :ia :sa :ll :cy new fcc 7 display :ia :sa origine fcc 2 baissecrayon repete :cy [avance :ll tournedroite :ia donne "ia :ia+:sa] fin pour display :ia :sa fixexy -192 184 etiquette [happy wanderer] fpos [-40 184] etiquette phrase [initial angle] :ia fpos [90 184] etiquette phrase [step angle] :sa fin pour demarrer wander 25 54 15 90 fin |
Est-ce que certains paramètres entraîne plus de 720 pas pour compléter la courbe?
Je ne sais pas quelles valeurs pour IA et SA donnent les plus belles courbes. Voici une liste regroupant déjà des valeurs intéressantes:
|
IA = 1 SA = 20, 21, 30, 51, 52 IA = 5 SA = 33 IA = 10 SA = 27, 80 IA = 11 SA = 32, 53, 66, 80 IA = 12 SA = 80 IA = 21 SA = 20, 44 IA = 22 SA = 21, 25 IA = 25 SA = 27, 33, 51, 57, 63 IA = 31 SA = 30, 32, 33, 39 IA = 33 SA = 44 IA = 34 SA = 70 IA = 40 SA = 30 IA = 41 SA = 3 I IA = 43 SA = 57 IA = 73 SA = 100 |
demarrer 25 37
