Forum TI-Planet.org

Sprite Tile Maker est un programme pour les calculatrices TI-83+ et TI-84+ qui vous permet de créer vos propres sprites directement sur votre calculatrice. Il est compilé grâce au langage de programmation Axe Parser de Kevin Horowitz.

Téléchargements:
- Sprite Tile Maker v1.0 (Français) (TI Bank)
- Sprite Tile Maker v1.0 (Français) (TI Calc)
- Sprite Tile Maker v1.0 (English) (TI Calc)
- Sprite Tile Maker v1.0 Projet (Version complète) (Lien provisoire)

Touches:
- Flèches: Se déplacer sur la grille de 8x8 cases. (Chaque case représente un pixel du futur sprite.)
- [2ND]: Inverser la couleur d'une case. (Une case blanche deviendra noire et une case noire deviendra blanche.)
- [MODE]: Inverse les couleurs de toutes les cases. (Mode négatif.)
- [DEL]: Efface toute la grille.
- [+]: Augmente la vitesse de déplacement du curseur. (Le maximum est 9.)
- [-]: Diminue la vitesse de déplacement du curseur. (Le minimum est 1.)
- [CLEAR]: Quitte le programme.
- [ENTER]: Génère le sprite, celui-ci sera stocké dans la chaîne n°1.

Utilisation du sprite:
- Le sprite vous permet d'afficher une image de 8x8 pixels dans certains langages de programmation comme par exemple l'Axe Parser.
- Il peut aussi être utiliser pour créer une icône dans le header d'un programme en TI-BASIC. Cet icône sera visible dans certains shells comme Mirageos OU DoorsCS.

Images:


© - Alexis Jehan - 2011

Merci.

Yeah!
J'imagine que ça doit être largement plus rapide que hexpic, écrit en basic ^^
et apparemment plus ergonomique.

Bravo à toi, et merci

Possible, par contre il ne gère pas pour le moment les sprites 16x16.

Une version 1.1 est prévue grâce à l'aide de kindermoumoute afin d'optimiser le programme.

Beau travail

Bravo ! Très joli !
J'en ai moi aussi fait un, avec moins de fonctions mais plus léger.
Il me manque un truc : comment fixer la taille de Str1 (de la TI, pas d'AXE) à 16 bytes ?
Car mon programme marche seulement si elle contient déjà 16 caractères...

J'utilise un code que m'a donné kindermoumoute, le voici:

Code: Select all

:.Merci a kindermoumoute
:"Str1"→Str1
:Lbl S2H
:If GetCalc(Str1)
:   DelVar Str1
:End
:UnArchive Str1
:If GetCalc(Str1)
:   DelVar Str1
:End
:GetCalc(Str1,16)→P
:P-2→B
:For(A,Pic1,Pic1+7
:   {sub(O2H,{A}))r→{B+2→B}r
:End
:Archive P
:Return
:[]→Str1HB
:det(3)
:Lbl O2H
:iPart(°r1*2+1}sub(N2H)→{Str1HB}r
:iPart(°r1*2}sub(N2H)→{Str1HB+1}r
:Str1HB
:Return
:Lbl N2H
:[]→Str1HC
:"0123456789ABCDEF
:{+Str1HC}
:Return

Il faut pour cela avoir déjà créé Str1, en lui assignant 16 octets :

Code: Select all

:DelVar "Str1"
:getCalc("Str1",16)=A

Et là A pointe directement dans la chaîne de caractère (de 16 octets).

Merci !!!
C'était le seul bout qui me manquait, je ne savais pas qu'on pouvait choisir le nombre d'octets avec GetCalc(
Voila le résultat :

Et pour seulement 1616 octets...

Woa, et maintenant... en 16*16 plus 3 et 4 grayscales.