[BASIC] Text Sprite

Voici un programmes pour faire des text sprites

prgmATXTSPRI:

Code:

0→Xmin
-62→Ymin
0→Ymax
94→Xmax
Goto ME
Lbl 0
Input Str1
Lbl 00
ClrDraw
Str1+"  →Str1
length(Str1→B
For(A,0,B-1
Text(0,A,sub(Str1,A+1,1
End
Lbl 01
Pause
Lbl ME
Menu("TEXT-SPRITE","NOUVEAU",0,"ZOOM",Z,"EXEMPLES",EX,"A PROPOS",AP,"QUITTER",Q
Lbl Z
For(A,0,B-3
For(C,0,6
If pxl-Test(C,A)=1:Then
2*A→X
-(2*C+14→Y
If X>=94:Then
X-94→X
Y-12→Y
End
Line(X,Y,X+1,Y:Line(X,Y+1,X+1,Y+1
End
End
End
Pause
Goto ME
Lbl EX
Menu("EXEMPLES","FLECHES",11,"PAC-MAN",22,"JEUX",33,"SIGNE DE MATH",44,"AUTRES",55
Lbl 11
"-([ [(- ---[(- --(([[---- ]][(- --((LL((((((((((L(L(L(L→Str1
Goto 00
Lbl 22
"(L[2nde + .]X: (XÐ[( :X[2nde + .][( ([VX( A[2nde + .][[2nde + .]A AQ[QA ((( (Z[2nde + .][(  ([VV AAVVAA ([X] -- ([?V?[( AAVVAA ([V/[( 99→Str1
Goto 00
Lbl 33
"VQ6QV +([(+ -9[9- (9[9(→Str1
Goto 00
Lbl 44
"151 ++[++ (]]](]]]( ]:-:] :-:→Str1
Goto 00
Lbl 55
"+(X(+ .:!:. [[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .]Z]Z[2nde + .][ 3665663 57975 4467644 []9]9]9]9]9]9]9][ ----V[/---V[/----→Str1
Goto 00
Lbl AP
ClrDraw
15→X
5→Y
" TT[[TT [[Z] XX--XX TT[[TT -- 9[[[2nde + .] ([VV ([VV/ ]][[]] TT[[TT [[Z]→Str1
prgmZTXTSPRI
25→X
12→Y
"([VV ([VV[( ([VV/  T[[T ([-[( [[Z] ([VV ([-[(→Str1
prgmZTXTSPRI
19→Y:41→X
"[2nde + .][9 ()( 1[. 1[.→Str1
prgmZTXTSPRI
56→Y
1→H
For(X,2,86,4
Pxl-On(59,X
End
For(X,0,82,3
If H=-1
Then
"  ([[2nde + .]X:→Str1
Else
"  ([[2nde + .][(→Str1
End
-H→H
prgmZTXTSPRI
End
84→X
"([[2nde + .]X]→Str1

"([[2nde + .]]→Str1
prgmZTXTSPRI
"([X→Str1
prgmZTXTSPRI
"([]→Str1
prgmZTXTSPRI
"(X→Str1
prgmZTXTSPRI
"(]→Str1
prgmZTXTSPRI
"(→Str1
prgmZTXTSPRI
" →Str1
prgmZTXTSPRI
Pause
Goto ME
Lbl Q

Et celui pour l'utiliser avec vos jeux/programmes (59 octets seulement )
Ne pas utiliser Z et Theta
SYNTAXE:

Code:

"([[X]→Str1
0→X
0→Y
prgmZTXTSPRI


prgmZTXTSPRI:

Code:

Str1+"  →Str1
length(Str1→[THETA]
For(Z,0,[THETA]-1
Text(Y,Z+X,sub(Str1,Z+1,1
End

J'en ferais un autre pour des sprites plus grand

Merci.

C'est quoi un text sprite ?

Bonjour a tous
Pour te repondre Persalteas voici un lien :
[Vous devez être inscrit et connecté pour voir ce lien]
ce lien meme a un tuto tres complet sur ce qu'est un texte sprite
(Haha ! enfin ! j'arrive a etaller pour aider ma minable culture )

Harven

Mais c'est génial! je connaissais pas le principe!

Oui Harven, mon idée veint de ce tuto, d'ailleur merci a l'auteur, mais comme son programmes pour trouver Sprite ---> Texte ne marche pas, je l'ai refais
+ Deux police de caractere (prgmB pour tester + ZFPACMAN/ZFCOMPLI + ZTXTSPRF)

Les voici :

prgmSPR2TXT

Code:

Input "PIXELS: ",C
" "→Str1
For(X,0,C
Disp X
" "→Str0
For(Y,0,4
If pxl-Test(Y,X)=1:Then:Str0+"1"→Str0:Else:Str0+"0"→Str0:End
End
Disp Str0
sub(Str0,2,length(Str0)-1üStr0:Str0
prgmZSPR2TXT
Ans→Str2
Str1+Str2→Str1
Disp Str2,"----------------

End
sub(Str1,2,length(Str1)-1→Str1
Pause Str1

et

prgmZSPR2TXT

Code:


If Ans="00000
"
If Ans="00001
".
If Ans="00010
"[pt-on 3]
If Ans="00011
"J
If Ans="00100
"-
If Ans="00110
"e
If Ans="00111
"[pt-on 2]
If Ans="01000
"^
If Ans="01001
"1
If Ans="01010
":
If Ans="01101
"S
If Ans="01110
"(
If Ans="01111
"A
If Ans="10000
"?
If Ans="10001
"]
If Ans="10010
"[au carré]
If Ans="10011
"2
If Ans="10111
"[2nde + .]
If Ans="11000
"Y
If Ans="11101
"!
If Ans="11110
"Q
If Ans="11111
"[
If Ans="11100
"'
If Ans="11011
"X
If Ans="10100
"[petit x + racine carré]
If Ans="11010
"[X tordu + au carré]
If Ans="10101
"[x avec une barre dessus (var >stats)]
Return


le meme a copier-coller dans l'editeur sur PC

Spoiler:

DAMNED !!!
J'ai cours dans 30 mins ( :silent: 25 MINS DE TRAJET)
je posterais donc le reste plus tard xD

___________________________________

Plus tard ce jour la ...
___________________________________

prgmB

Code:


6→X
0→Y
Input "TEXTE:",Str1
ClrDraw
prgmZFCOMPLI


prgmZFCOMPLI
ZFCOMPLI.83p

prgmZFPACMAN
ZFCOMPLI.83p

prgmZTXTSPRF

Code:


Str1+"  →Str1
length(Str1→[THETA]
[LISTE]ZSPR(1→X
For(Z,0,[THETA]-1
Text([LISTE]ZSPR(2),Z+X,sub(Str1,Z+1,1
End


Voila

Tout les fichiers :

TextSprite83

Je rajoute ce post pour que vous voyez que j'ai edité et ajouté les autre programmes

Ce tutoriel est récent d'après ma mémoire, je m'en rappel.

Oui, alors les add-ons ? ^^

Salut
je n'ai pas bien comprit le principe et est on obliger d'utiliser la fonction "Str" ?

On peut utiliser Ans mais les Str sont faites seulement pour du texte, c'est donc plus pratique

harven a une 82 basique, donc pas de Str.

Ah ouais desolé :oops: , j'essayerais de le faire pour le 82 si tu veux

Tiens j'avais jamais remarqué que c'était Yomansz qui avait fait ce tutoriel...

ThePH a écrit:Oui Harven, mon idée veint de ce tuto, d'ailleur merci a l'auteur, mais comme son programmes pour trouver Sprite ---> Texte ne marche pas, je l'ai refais
+ Deux police de caractere (prgmB pour tester + ZFPACMAN/ZFCOMPLI + ZTXTSPRF)

Comment ça le programme des sprite-text ne marche pas ? Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

persalteas a écrit:harven a une 82 basique, donc pas de Str.

Donc pas de Str au sens large du terme, donc pas même dans Ans. Il faut alors se débrouiller pour afficher les caractères un à un avec plein de conditions.

[quote="mdr1"]

ThePH a écrit:Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

Je l'ai essayé avec un txt sprite "compliqué" et il m'a sorti des trucs bizares, je te rapelle que j'ai un 83 et non une 83+, il y a donc certains caractères que je n'ai pas.

[quote="ThePH"]

mdr1 a écrit:

ThePH a écrit:Sur ma calculatrice, il marche, pourtant. Quelle erreur est indiquée ?

Je l'ai essayé avec un txt sprite "compliqué" et il m'a sorti des trucs bizares, je te rapelle que j'ai un 83 et non une 83+, il y a donc certains caractères que je n'ai pas.

Dans ce cas, il te suffit de changer la chaine pour mettre les caractères que tu souhaites selon les pixels allumés ou éteints.

Ok j'essayerais