Sinon, il est très bien ton programme.
Je le teste actuellement en haute-résolution (comme sur la 90+E), c'est presque pareil que sur ton avatar.
J'ai juste remarqué un petit truc : les tentacules se s'enroulent pas de la même façon dans un sens et dans l'autre.
Par ailleurs, je me disais que ce programme peut être rendu encore plus rapide en dessinant les 4 tentacules en même temps. Pour ce faire il faut center l'origine du repère mathématique au milieu de l'écran :
ViewWindow -63, 63, 0, -31, 31, 0
Puis décaler un peu la base du dessin et du coup ne faire qu'UN SEUL appel à "TENTAC1" :
{-4 -> List 1
{-4 -> List 2
{8 -> List 3
{0 -> List 4
Prog "TENTAC1"
Et enfin dans le sous-programme "TENTAC1", dessiner en même temps les 4 tentacules. Les rotations de 90°, -90° et 180° étant très faciles à faire. Il suffit quand tu dessine un point (x,y) de dessiner aussi le point (y, -x), (-y,x) et (-x,-y) :
F-Line List 1[θ], List 2[θ], A, B
F-Line List 1[θ], List 2[θ], C, D
F-Line A, B, E, F
F-Line C, D, E, F
F-Line List 2[θ], -List 1[θ], B, -A
F-Line List 2[θ], -List 1[θ], D, -C
F-Line B, -A, F, -E
F-Line D, -C, F, -E
F-Line -List 2[θ], List 1[θ], -B, A
F-Line -List 2[θ], List 1[θ], -D, C
F-Line -B, A, -F, E
F-Line -D, C, -F, E
F-Line -List 1[θ], -List 2[θ], -A, -B
F-Line -List 1[θ], -List 2[θ], -C, -D
F-Line -A, -B, -E, -F
F-Line -C, -D, -E, -F
J'ai pris une copie d'écran avec les axes :
|