Spoiler For French texte:
Voici MEGR2.0 dessin fait en Axe parser, celle ci est 9 fois plus rapide que le crayon de base 2nd=>Draw=>A (je vous laisse en juger par vous même).
- Fonctions de dessins :
* Dessiner des rectangles noir, blanc, ou qui inverse les pixels
* Dessiner des cercles.
* Ecrire du texte sur l'écran.
* Effacer l'écran.
* Enregistrer l'écran dans 9 Pic de la calculatrice (Pic1 à Pic9), qui sont donc réutilisable dans n'importe quel programme TI-Basic, Axe ou autre.
* 3 vitesse pour le crayon (oui c'est trop rapide quand on le laisse au maximum, donc je met des pause pour que ce soit plus agréable à utiliser en fonction des besoins).
- Fonctions du menu principale :
* On peut regarder 2 images en même temps pour faire apparaître 3 niveaux de couleurs.
* On peut regarder, supprimer et modifier n'importe quel image enregistrer entre Pic1-Pic9.
A venir :
- Refonte total de l'interface (menu..etc).
Touches :
menu principale :
2nd ==> nouveau dessin : mène aux options de dessins.
1 ==> voir image : sélectionner l'image avec les touches 1 à 9, puis appuyez sur entrer pour revenir au menu principale.
2 ==> modifier une image : sélectionner l'image avec les touches 1 à 9, ensuite allé aux options de dessins.
3 ==> Voir 3 degré de couleurs à partir de 2 images (comme pour "voir image", sauf que il faut faire la manip 2 fois pour a appeler la deuxième image).
4 ==> Supprimer image : sélectionner l'image avec les touches 1 à 9, puis l'image est supprimé et l'on revient au menu.
Clear ==> quitter
Options de dessins:
ALPHA ==> retourner au menu principale
Laissez 2nd enfoncé pour déssiner (noir).
Laissez Del enfoncé pour gommer (blanc).
Les flèches => bouger le curseur.
math = vitesse maximal (sans pause).
Apps = pause de 50 millisecondes dans la boucle.
Prgm = pause de 100 millisecondes dans la boucle.
Vars = pause de 200 millisecondes dans la boucle.
1 = Sauver l'écran dans la variable Pic1.
2 = Sauver l'écran dans la variable Pic2.
3 = Sauver l'écran dans la variable Pic3.
4 = Sauver l'écran dans la variable Pic4.
5 = Sauver l'écran dans la variable Pic5.
6 = Sauver l'écran dans la variable Pic6.
7 = Sauver l'écran dans la variable Pic7.
8 = Sauver l'écran dans la variable Pic8.
9 = Sauver l'écran dans la variable Pic9.
Clear = effacer écran.
+ ==> insérer texte, la police de base est en minuscule sans inversion de couleur, pour la modifier il faut appuyer sur alpha :
1 fois = minuscule inversé.
2 fois = Grande police normal.
3 fois = Grande police inversé.
4 fois = revient à minuscule normal.
Une fois que vous avez fini de taper votre texte, appuyez sur entrer.
Laissez Del+F1 enfoncé pour faire le rectangle vide (blanc) ; Note vous pouvez relâcher la touche Del une fois que le curseur a disparu.
Laissez F1 enfoncé pour faire le rectangle plein (noir).
Laissez F2 enfoncé pour faire le rectangle inversé.
Laissez F3 enfoncé pour faire un cercle, ensuite utilisez les flèches gauche et droite pour la taille.
Here MEGR2.0 drawing made in Axe parser, that is 9 times faster than the pencil 2nd base => Draw => A (I let you judge for yourself).
- Features drawings:
* Draw rectangles black, white, or reverse the pixels.
* Draw circles.
* Write the text on the screen.
* Clear the screen.
* Save the screen of in 9 variable Pic (Pic1 to Pic9), which are reusable in any program TI-Basic, or other Axe.
* 3 speed for the pencil (yes it is too fast when left up, so I put the break to make it more pleasant to use as needed).
- Main Menu Functions:
* You can watch two pictures at the same time to reveal three levels of color.
* You can look, delete and edit any image recorded between Pic1-Pic9.
Coming soon:
- Consolidation of interface (menu.. Etc.).
Keys:
Main menu:
2nd ==> new design: the options leads drawings.
1 ==> see image: select the image with the keys 1 to 9, then press enter to return to the main menu.
2 ==> edit an image: select the image with the keys 1-9, then went to the options of drawings.
3 ==> View 3 degree of color from 2 images (like "show image", except that it must be 2 times the manipulation has to call the second image).
4 ==> Delete Image: select image with keys 1 to 9, then the image is deleted and get back to the menu.
Clear ==> quit
Design options:
ALPHA ==> return to main menu
2nd let down for drawing (black).
Leave Del button to erase (white).
Arrows => move the cursor.
Math = maximum speed (without break).
Apps = pause of 50 milliseconds in the loop.
Prgm = pause of 100 milliseconds in the loop.
Vars = pause of 200 milliseconds in the loop.
1 = Save the screen in the variable Pic1.
2 = Save the screen in the variable Pic2.
3 = Save the screen in the variable pic3.
4 = Save the screen in the variable PiC4.
5 = Save the screen in the variable pic5.
6 = Save the screen in the variable Pic6.
7 = Save the screen in the variable Pic7.
8 = Save the screen in the variable Pic8.
9 = Save the screen in the variable Pic9.
Clear = clear screen.
+ ==> Insert text, the basic policy is lowercase with no color inversion, for the change must be supported on Alpha:
1 time = lower reverse.
2 times = Big font normal.
3 times = Large font reversed.
4 times = lower normal.
Once you've finished typing your text, press enter.
Leave Del+F1 down to the empty rectangle (white). Note : you can release the Del key once the cursor has disappeared.
Leave F1 down to the solid rectangle (black).
Leave F2 pressed to reverse the rectangle.
Leave F3 button to make a circle, then use the arrows left and right size.
Actually code :
:.MEGR2.0
:"Pic1→Str1
:"Pic2
:[00]
:"Pic3
:[00]
:"Pic4
:[00]
:"Pic5
:[00]
:"Pic6
:[00]
:"Pic7
:[00]
:"Pic8
:[00]
:"Pic9
:[00]
:":PIC →Str14
:"MEGR2.0 DRAW :→Str15
:"2ND:NEW→Str16
:"1:LOOK→Str17
:"2:CHANGE→Str18
:"3:LOOK GRAYSCALE→Str19
:"4:DELETE PIC→Str20
:"CLR:QUIT→Str21
:0→Q→F→E→H→W→R→G
:1→I→T
:31→X+16→Y
:ClrHome
:ClrDraw
:ClrDraw<sup>r</sup>
:Repeat getKey(15)
:Text(0,0,Str15
:Text(0,14,Str16
:Text(0,21,Str17
:Text(0,28,Str18
:Text(0,35,Str19
:Text(0,42,Str20
:Text(0,49,Str21
:If getKey(34) or getKey(26) or getKey(18) or getKey(35) or getKey(54)
:If getKey(54)
:sub(GO)
:sub(A
:End
:If getKey(34)
:sub(GO)
:2→G
:sub(M
:If M
:0→M
:sub(B
:End
:End
:If getKey(26)
:sub(GO)
:1→G→Q
:sub(M
:If M
:0→M
:sub(B
:End
:End
:If getKey(18)
:sub(M
:If M
:0→M
:sub(B
:End
:End
:If getKey(35)
:sub(M
:If M
:0→M
:DelVar Str1+I
:End
:End
:ClrDraw<sup>r</sup>
:ClrDraw
:ClrHome
:End
:End
:Return
:
:Lbl B
:GetCalc(Str1+I,768)→R
:R→DispGraph
:StoreGDB
:Archive Str1+I
:1→I
:!If G
:StorePic
:Archive Str1+I
:1→G
:Repeat getKey(9)
:End
:sub(M
:If M
:0→M
:Goto B
:End
:End
:!If Q=1
:Repeat getKey(9)
:If G=2
:DispGraph
:Else
:DispGraph<sup>r</sup>
:End
:End
:0→G→Q
:Return
:Else
:ClrHome
:0→G→Q
:End
:
:Lbl A
:Pause 500
:Repeat getKey(48)
:Pxl-Change(X,Y)
:DispGraph
:
:.!If getKey(54)
:Pxl-Change(X,Y)
:If getKey(54)
:Pxl-On(X,Y)
:End
:If getKey(56)
:Pxl-Off(X,Y)
:End
:sub(I
:If I≠1
:If M
:0→M
:DelVar Str1+I
:End
:Pxl-Off(X,Y)
:DispGraph
:StoreGDB
:GetCalc(Str1+I,768)→A
:conj(L<sub>6</sub>,A,768)
:Archive Str1+I
:1→I
:End
:If getKey(10)
:sub(IN)
:End
:If getKey(53) or getKey(52)
:If getKey(53)
:1→R
:End
:If getKey(52)
:0→R
:End
:While getKey(53)
:sub(R
:End
:While getKey(52)
:sub(R
:End
:If R
:ref(X,Y,W,H)
:End
:!If R
:rref(X,Y,W,H)
:End
:0→W→H
:End
:If getKey(15)
:ClrHome
:ClrDraw
:End
:sub(T
:If getKey(1) and (Y≠64
:Y+1→Y
:End
:If getKey(2) and (X≠0
:X-1→X
:End
:If getKey(3) and (X≠96
:X+1→X
:End
:If getKey(4) and (Y≠0
:Y-1→Y
:End
:End
:Goto GO
:
:Lbl R
:ClrDraw<sup>r</sup>
:StorePic
:If R
:ref(X,Y,W,H)<sup>r</sup>
:End
:!If R
:rref(X,Y,W,H)<sup>r</sup>
:End
:DispGraph<sup>r</sup>
:sub(T
:If getKey(1) and ((H+Y)≠63
:H+1→H
:End
:If getKey(2) and (W≠0
:W-1→W
:End
:If getKey(3) and ((X+W)≠95
:W+1→W
:End
:If getKey(4) and (H≠0
:H-1→H
:End
:Return
:
:Lbl IN
:X→A
:Y→B
:"wrmh"→GDB5
:det(3)
:"vqlg"
:det(3)
:"zupkfc"
:det(1)
:" ytojeb"
:det(2)
:"xsnida"
:Repeat C=9
:getKey→C
:If A≠96
:If C>10 and (C<48)
:If {C+GDB5-11}→D
:Text(A,B,D►Frac
:A+4→A
:End
:End
:End
:End
:StoreGDB
:0→A→B→C→D
:Return
:
:Lbl T
:If getKey(47)
:1→T
:End
:If getKey(39)
:50→T
:End
:If getKey(31)
:100→T
:End
:If getKey(23)
:200→T
:End
:Pause T
:Return
:
:Lbl M
:ClrHome
:Repeat E=9
:E+1→E
:F+6→F
:Text(0,F,E►Dec,Str14,E►Dec
:End
:0→E→F
:Repeat I≠1
:sub(I
:End
:
:Lbl I
:If getKey(34)
:0→I
:End
:If getKey(26)
:4→I
:End
:If getKey(18)
:8→I
:End
:If getKey(35)
:12→I
:End
:If getKey(27)
:16→I
:End
:If getKey(19)
:20→I
:End
:If getKey(36)
:24→I
:End
:If getKey(28)
:28→I
:End
:If getKey(20)
:32→I
:End
:
:UnArchive Str1+I
:If GetCalc(Str1+I)
:1→M
:End
:
:Lbl GO
:Repeat getKey(0)
:EndScreen and folder with source and executable :
