Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 18 Avr 2007, 9:38
Vous avez sans doute remarqué que la TI-82 possède une fonction pen, mais pas gomme. J'ai donc créé un programme "gomme". Mais pour éviter de changer tout le temps d'outils en cours de route, le programme comporte également la fonction gomme et pen à la fois.
Mode d'emploi :
+ le curseur adopte une forme de croix : ni la fonction pen ni la gomme ne sont activées (déplacement). Appuyer une fois sur {ENTER} pour les activer (la fonction pen est la fonction par défaut).
+ le curseur est un point clignotant : la fonction pen ou gomme est activée :le déplacement du curseur (à l'aide des flèches) provoque le tracé d'une ligne ou l'effacement. Pour désactiver les deux fonction appuyer de nouveau sur {ENTER}.
+ pour choisir la fonction pen appuyer sur {1}, et {2} pour la fonction gomme.
+ pour quitter le programme sans qu'il ne laisse son curseur dans le graph, presser {+}.
Ça parait peut-être compliqué, mais en réalité, pour les histoires d'{ENTRER}, c'est la même utilisation que l'outil pen dans le menu DRAW.
Code
31->A
47->B
-1->C
0->D
1->E
Lbl 1
pxl-Test (A-1,B-1) ->I
pxl-Test (A-1,B+1) ->J
pxl-Test (A+1,B-1) ->L
pxl-Test (A+1,B+1) ->M
If D=0
Then
Pxl-On (A-1,B-1
Pxl-On (A-1,B+1
Pxl-On (A+1,B-1
Pxl-On (A+1,B+1
End
pxl-Test (A,B)->C
Lbl 2
Pxl-Change (A,B)
getKey ->K
If K=92
1->E
If K=93
2->E
If K=105
Then
If D=1
-1->D
If >D=0
0->D
D+1->D
End
If D=1 and E=1
1->C
If D=1 and E=2
0->C
If K=24 or K=25 or K=26 or K=34 or K=95
Then
If C=0
Pxl-Off (A,B)
If C=1
Pxl-On (A,B)
If I=0
Pxl-Off (A-1,B-1)
If I=1
Pxl-On (A-1,B-1)
If J=0
Pxl-Off (A-1,B+1)
If J=1
Pxl-On (A-1,B+1)
If L=0
Pxl-Off (A+1,B-1)
If L=1
Pxl-On (A+1,B-1)
If M=0
Pxl-Off (A+1,B+1)
If M=1
Pxl-On (A+1,B+1)
If K=95
Stop
If K=24
B-1->B
If K=26
B+1->B
If K=25
A-1->A
If K=34
A+1->A
Goto 1
End
For (Z,0,2)
69 !
End
Goto 2
---------------------- Vive la programmation et vive le vibraphone !!!
