Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> scanner

scanner

Auteur

Message

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Mer 27 Jan 2010, 17:03

J'aimerais reconstituer un programme que j'avais fait l'année dernière mais que je n'ais plus: le problème, c'est que je me souviens plus.

Le principe:
On dessine une image avec des fonctions ou les outils dessin de la calto, mais ensuite, pour la sauvegarder, on a que dix images et 764 de ram pour une image c'est beaucoup.
J'avais trouvé un système avec des pixel-test, la calto analysait chaque pixel un par un et enregistrait tout les coordonées dans une listeX et une liste Y.
Puis ces listes ça les retransformait en une matrice qui prenait moins de 600 de ram.

J'avais après un programme inverse qui retransformait la matrice en listes, les listes en image.

Si quelqu'un a quelque chose qui ressemble, je veux bien qu'il le publie.

ce programme me servait essentiellemnt a faire de la vidéo sur calto: au début de la vidéo, ça recrée les images, puis ça les mémorise avec les fonctions "SauveImage", et ça lance le film)

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Mer 27 Jan 2010, 17:55

Alors la je sais pas comment tu as fait l'écran est de 95 pixels par 63.
Ca fait une matrice de 53 000 octes !!!!!!

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Jeu 28 Jan 2010, 19:59

c'étaitr pas une matrice d'une case par pixel avec des tas de cases qui servent à rien à chaque fois que le pixel est éteint.
Justement, c'est ça le problème, c'est que je me souviens plus!

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Jeu 28 Jan 2010, 21:21

ok tu avais une matrice a deux ligne, une coordonée x et une coordonée y et une colone par pixel allumé
dans ce cas tu peux allumer 33 pixels avec 600 octets

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Ven 29 Jan 2010, 18:06

Bien vu,c'était surement ça,et dans ce cas c'est beaucoup plus simple,il suffit de scanner la matrice de gauche à droite avec un For( et de mettre un pxlOn( avec les coordonnées des points dans la matrice.
Et même système pour la transformer en listes sauf qu'on scan les deux lignes séparément.

Google_AdSense

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Ven 29 Jan 2010, 19:00

Et voilà le travial,c'est une super idée !! (désolé pour ce double post)
prgmSCAN qui scan dans les listes Y et X ("l" c'est le petit "L".

Code

:EffEcr
:EFFListe lY
:EffListe lX
:1->dim(lY
:1->dim(lX
:0->C
:For(B,1,62
:For(A,1,94
:codetouch->K
:If pxl-Test(B,A)=1
:B->lY(2+C
:If pxl-Test(B,A)=1
:A->lX(2+C
:If pxl-Test(B,A)=1
:C+1->C
:Output(1,1,B
:Output(2,1,A
:If K=105
:Goto 1
:End
:End
:Lbl 1
:C->lY(1

J'ai mis les Output et le codetouch au cas où on ne voudrait pas scanner complétement l'image.Il suffit d'appuyer sur [entrer]

prgmSCAN2 qui reconstitue l'image à partir des listes.

Code

:EffDessin
:For(A,2,lY(1
:Pxl-Aff(lY(A),lX(A
:End

Tiens,quand j'aurais envie de programmer,j'essaierais peut-être de faire un prog de retouche image

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Ven 29 Jan 2010, 19:17

Si tu veux faire un film il peut être interessant de stocker les pixels qui doivent changer d'éta.

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Google_AdSense

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Ven 29 Jan 2010, 19:41

C'est à ça que je pensais ^^.

Monstercrunch

Autorisation : Membre
Nb de messages : 252
Inscrit le : Sam 10 Oct 2009, 16:33

Posté le : Ven 29 Jan 2010, 21:59

Waa, un film sur ti, je demande à voir !

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Sam 30 Jan 2010, 18:04

Vous avez jamais vu de film sur calto ?
j'en avais fait des dizaines!

C'est sympa cette idée de programme mais une image c'est dans les 300 pixels alors...
Et la matrice, c'était pas ça non plus sinon aucun intérêt de transformer les listes en matrice...

Merci quand même, je vais essayer ça peut être utile pour des films en demi-écran.

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Sam 30 Jan 2010, 19:52

C'est vrai que ça prend vite beaucoup de mémoire.Je sais pas comment tu faisais pour en avoir que pour 600 de ram je sais pas comment t'as fait.T'as carrément dû retrouver le système de sauvegarde d'images chapeau.

Monstercrunch

Autorisation : Membre
Nb de messages : 252
Inscrit le : Sam 10 Oct 2009, 16:33

Posté le : Jeu 15 Avr 2010, 15:44

C'est moi ou dans ton programme de scan tu as mit 4 fois le même If ? un then ne suffit pas ?

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 15 Avr 2010, 18:34

oui,parce que si j'avais mis un then le programme ralentirait,et si tu l'as essayé,tu comprendra que c'est pas possible qu'il devienne plus long que ce qu'il est déjà ^^

AlexRider38

Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13

Posté le : Sam 08 Mai 2010, 14:37

salut
moi quand je veux reconstituer l'image ça me met "err dim" a cet ligne:

Code

Pxl-Aff(lY(A),lX(A

sur la parenthèse avant la virgule

merci de me répondre

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Jeu 13 Mai 2010, 9:18

essaie ça :

Code

:EffDessin
:For(A,2,dim(lY
:Pxl-Aff(lY(A),lX(A
:End

AlexRider38

Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13

Posté le : Jeu 13 Mai 2010, 9:33

Merci Sypotu

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Dim 04 Juil 2010, 12:53

j'ai trouvé un système qui s'approche:
Il est capable de scanner et redonner une image si il n'y a pas plus de 7 pixels allumés par verticale.

Une image scannée prend 855 octets.

Code

Menu("....SCANNER.....","SCANNER",1,"AFFICHER",2
Lbl 1
EffEcr
Output(1,1,"SCAN EN COURS...
Output(4,9,"I%"
Output(4,9," "
94->dim(L1
For(K,1,94
1->C
0->D
For(A,1,62
pxl-test(A,K)->B
Output(4,6,K
If B
D+A(10^-(2C-1))->D
If B:C+1->C
End
D->L1(K)
End
EffEcr
Lbl 2
EffDessin
For(C,1,94
L1(C)->B
For(A,1,14,2
Pt-On(V,62-ent(100partDéc((B10^(A-2))
End
End
Ligne(Xmin,Ymax,Xmax,Ymax,0

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Lun 05 Juil 2010, 16:02

le mieux: ce prog est parfait si on l'utilise en mode Horiz.
sinon on peut mettre deux lidtes au lieu d'une, ça double les possibilités (14 points par verticale), mais aussi la mémoire (2 fois 855).

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> scanner

Page générée en 9 requêtes

Flux RSS