Forum TI-Planet.org

Cette fois, je vous propose un petit utilitaire qui va vous permettre de tracer toutes sortes de rosaces, pétales, hélices, et autres formes...

Le principe est simple:
-tout d'abord, vous entrez le nombre de Cycles prévus,
-puis le pAs en pixels,
-enfin les Directives.
Celles-ci comprendront un maximum de 10 chiffres , et dont voici les différentes fonctions:

1 Avance d' 1 pas
2 Avance de 2 pas
3 135° vers la gauche
4 90° vers la gauche
5 45° vers la gauche
6 22,5° vers la gauche
7 45° vers la droite
8 90° vers la droite
9 135° vers la droite

Petite précision sur le sens de lecture des directives:
le programme les lira de droite à gauche, mais peu importe le sens : que vous les pensiez/entriez dans cet ordre ou inversement vous amènera au même rendu graphique (un effet "miroir" )
Le point de départ du tracé se trouve au centre de l'écran en position (0;0) et à 0° pour la direction . Ah j'oubliais : veillez à préalablement supprimer le répère orthonormé !

A noter que lorsque vous relancer le programme, vous n'êtes pas obligé de re-taper à chaque fois les valeurs pour les variables C,A, ou D : l'appui direct sur [EXE] ne modifiant pas la variable
(bien pratique quand vous avez à corriger uniquement le nombre de cycles , ou les directives, par exemple )
Et quand vous voudrez revoir le contenu d'une variable , un simple [seconde][RECALL] vous aidera

Et maintenant, passons au petit programme:

Code: Tout sélectionner

?→C
?→A
?→D
0→B
Stylo écrit
Répéter jusqu'à B=C
   B+1→B
   D→E
   Répéter jusqu'à 0=Ent(E
   ,1Ent(E→E
   10(E-Ent(E→F
   Si F<3 Alors
      Avancer de AF pixels
   Sinon
      Tourner de ↺ 45(6-F degrés
   Fin
   Si F=6 Alors
      Tourner de ↺ 22,5 degrés
   Fin
   ⤴
⤴
Stylo relevé
Aller à x =0;y =99

Pour démarrer, je vous propose ces quelques exemples :

C=8 ; A=13 ; D=17181923

C=8 ; A=6 ; D=27282719

C=8 ; A=4 ; D=3141928271

C=16 ; A=6 ; D=142516529

C=16 ; A=12 ; D=61518291

(Merci à ptitjoz pour les captures d'écran )

Maintenant, c'est à vous d'expérimenter
Et n'hésitez pas à poster vos trouvailles

Super bonne idée.
Je te ferai quelques copies d'écran.

C'est sympa de ta part D'avance, merci

Vraiment sympa ce programme ! court et efficace ! Bravo.
Ce qui est bien sur cette machine c'est qu'on a pas besoin de retaper les variables lorsqu'elles ne changent pas à chaque exécution.

Si j'ai bien recopié le code voila les copies d'écran

Génial !!! Encore merci

Je m'empresse de les joindre au post initial

Parfait,

En fait ce n'est pas très rapide car j'utilise l'émulateur avec Wine qui tourne sous Linux (Lubuntu) mais ça fait le job

une éolienne c'est écologique
A=8
B=8
C=121314