Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
Menu
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E
Liens
¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graphs 35 à 100 >> Graphisme >> Quadra-compress
Quadra-compress
Version : 1.30 Taille : 2000 octets Ajouté le : 2006-04-21 23:27 Modifié le : 2008-04-22 18:10
Auteur et posteur :
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Planète Casio - Programme Casio de graphisme - Quadra-compress - meithal - Calculatrices
Nombre de visites sur cette page : 11267
Score au progrank : 37
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
1537 téléchargements | Soumettre un test


Description :

Télécharger (.cat) (v 1.30): http://grabag.free.fr/fourtout/caltos/quadracomp/Quadracomp%20v1.30.cat

Quadra-comp est une solution de compression/décompression qui décompose n'importe quelle image en rectangles dont les coordonnées sont stoquées dans la matrice P et peut la recomposer en un temps variable qui va de 3 secondes à 2 minutes.

La picture 1 est réquisitionnée pour la procédure.

-------------
Versions
-------------

Version 1.10:
------------------

-Programme de navigation plus complet

-Obligation d'entrer son identifiant (3 lettres) avant chaque compression afin d'identifier l'auteur de la compression et/ou picture

-sauvegarde et chargement assistés.

-Plus aucune picture n'est réquisitionnée et il est possible de compresser l'image courante.

Version 1.30:
---------------

-Il est possible de choisir de nettoyer l'écran avant une décompression.
-Suppression optimisation inutile dans le décompresseur
-Ajout d'un programme de dessin sommaire
-Ajout d'une visionneuse de pictures
-Ajouts d'une image d'exemple à compresser et d'une matrice d'exemple à décompresser.

------------------
Explications
------------------

o) " QDR.CMP1 " correspond à la boucle principale qui va balayer l'intégralité de l'image
(ou de la fenêtre) en testant l'état de chacun des pixels. Si il rencontre un pixel allumé, il
stoquera ses coordonnées puis lancera le programme " QDR.CMP2 "

o) " QDR.CMP2 " contient l'algorythme de compression, c'est à dire le coeur de l'ensemble.
A partir du pixel de base, il essayer de trouver à partir de lui le plus grand rectangle qu'il
soit possible de faire. Une fois ce rectangle trouvé, les coordonées de son point supérieur
gauche et inférieur droit sont stoqués puis le programme " QDR.CMP3 " se lance.

o) " QDR.CMP3 " est un programme dédié au remplissage "intelligent" de la matrice P.
Celle-ci en effet ne pèse que 10 octets au démarrage puis croît de taille au fur et à mesure
que les rectangles de l'image sont stoqués. Si la matrice P est déja occupée, ce programme
se contentera de stoquer les coordonnées à la suite des valeurs déja contenues, sans les
effacer (cependant, il ne conservera que la première colonne en effacant les éventuelles
autres). Si il détecte que la matrice P n'a plus la place suffisante pour contenir la
compression, il sauvegardera ses données dans la matrice Q avant de réinistialiser la
matrice P en y conservant tout de même votre identifiant dans la première case. Il faut noter
que les matrices ne se connecteront pas automatiquement lorsque vous les décompresserez.
Si votre image est morcelée dans plusieurs matrices, il faudra les charger une par une et les
décompresser chacun leur tour.
A noter que si la matrice P se remplit une deuxième fois, la matrice Q sera une nouvelle
fois mise utilisée et les données précédentes seront perdues.
Une fois que les coordonées du rectangles sont stoquées, celles-ci sont passées au
programme " QDR.CMP4 "

o) " QDR.CMP4 " ne fait rien d'autre que d'effacer les pixels du rectangle mis en mémoire.
Si cela n'était pas fait, le rectangle serait stoqué plusieurs fois de suite, car à chaque
balayage de colonne, le programme CMP1 tomberait sur un pixel allumé et relancerait le
processus.

------8<------8<------8<

Précisions sur le programme QDR.CMP2 :

Voici le premier pour voir à quoi correspondent les variables:


QDR.CMP1:
For P->A To R
For Q->B To S
PxlTest B,A
Ans=>Prog "QDR.CMP2"
Next
Next



QDR.CMP2 :
A->C
B->D
Do
C=R=>Goto A
PxlTest D,C+1
Not Ans=>Break
C+1->C
LpWhile 1
Lbl A
C->Z
A->C
B->D
Do
A->C
D=S=>Break
PxlTest D+1,C
Not Ans=>Break
C+1->C
WhileEnd
Lbl B
C<Z=>Break
D+1->D
LpWhile 1
Lbl C
Z->C
Prog "QDR.CMP3"
Return


Premièrement on passe les coordonnées du début à d'autres variables: à savoir C et D.

Ensuite, entrée dans une boucle

Si on trouve que la coordonnées X est au même niveau que Xmax (la variable R), on saute le test pour ne pas produire un Arg Error.

Ensuite, on effectue le test de présence de pixel allumé en X+1 jusqu'à ce qu'on tombe sur un pixel éteint. Cela enclenche un break qui sort de cette boucle.

On donne la dernière valeur du X avant de tmber sur un pixel éteint à la variable Z puis on réinitiallise les variables C et D pour réenclencher une boucle

Pour faire simple, on essaye d'agrandir le rectangle vers le bas au maximum. La croissance du rectangle s'arrête lorsque le pxltest tombe sur un pixel éteint avant la valeur de X stoquée dans Z. On prend alors la valeur Y-1 comme valeur de la hauteur en pixels du rectangle

Une fois le rectangle trouvé, QDR.CMP3 se lance. Il ne fait qu'agrandir la matrice P d'une case puis de rajouter les coordonnées du dernier rectangle trouvé dans la case crée.

Pour la décompression ensuite :


QDR.VIS
CoordOff:GridOff:AxesOff:LabelOff:BG-None:S-WindMan
ClrText:ClrGraph
ViewWindow 1,127,0,1,63,0
S-Gph1 DrawOn,xyLine,List1,List2,1,Dot
S-Gph2 DrawOff
S-Gph3 DrawOff
Cls
Dim Mat P
For 2->Z To List Ans[1]
Mat P[Z,1]
100Frac (Ans/100)->D
Int (Ans/100)
1000Frac (Ans/1000)->C
Int (Ans/1000)
100Frac (Ans/100)->B
Int (Ans/100)->A
2+2*(D-B)->Dim List 1
List 1->List 2
1->L
For B->G To D
A->List 1[L]
64-G->List 2[L]
C=/=A=>Isz L
C->List 1[L]
64-G->List 2[L]
Isz L
Next
DrawStat
Next


Premièrement la définition de la fenêtre graphique.
On voit que ce seront la liste 1 et 2 qui seront utilisées pour le drawstat.

On nettoye l'écran, on vérifie les dimensions de la matrice P. On récupère la valeur Y en utilisant l'argument List Ans[1]

Le For commence à la valeur 2 car la première case de la matrice P contient l'identifiant de la compression, ce qui aboutirait à une erreur grahique.

Chaque case de la matrice P contient les coordonés d'un rectangle.

On peut la découper ainsi:

X1-X1-X1-/-Y1-Y1-/-X2-X2-X2-/-Y2-Y2

L'assemblage de Int( et de Frac( est une technique connue pour repêcher des valeurs dans une suite de chiffres donc je ne m'étendrais pas là dessus.


2+2*(D-B)->Dim List 1


Sert à prédéfinir la taille de la liste qu'il sera nécessaire pour le drawstat. D c'est X2, c'est à dire la valeur absolue (par rapport à l'écran) de la limite inférieure du rectangle. B c'est la limite supérieure. La soustraction de ces deux termes donne la hauteur du rectangle. On multiplie par 2 car chaque ligne du recangle nécessite deux cases dans la liste, et on rajoute 2 car D-B (on aurait pu faire 2*(D-B+1) mais bon...) ne prend pas en compte la dernière ligne.


For B->G To D
A->List 1[L]
64-G->List 2[L]
C=/=A=>Isz L
C->List 1[L]
64-G->List 2[L]
Isz L
Next


On charge deux listes pour lancer un drawstat. La liste 1 pour les coordonnées X des points à tracer et la liste 2 pour les coordonnées Y.

Le balayage de B à D descend le long du rectangle. A chaque nouvelle ligne descendue, on recharge toujours la même variable dans la liste 1 (le bord gauche du rectangle se trouve toujours sur la même colonne). Pour la valeur Y, on utilise la valeur de G qu'on transforme pour respecter le viewwindow.
Ensuite, si C n'est pas différent de A, on n'incrémente pas le pointeur qui sert à remplir les cases pour ne pas utiliser 4 cases de la liste là où il n'en faut (faudrait? A vérifier) que 2.
Ensuite, on charge dans la liste 1 la valeur du bord droit du rectangle et la valeur en Y qui lui correspond.

Le drawstat se lance et les listes sont réinitialisées.


Commentaires :

Pages: 1, 2, 3, 4 | Suivante

MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 22-04-2006 à 09:55 | #
L'ensemble est séparé entre deux programmes, un pour la compression (appellé compresseur) et l'autre pour la décompression (appellé visionneur).

La compression peut durer entre 8 et 40 minutes, et l'image compressée peut peser de 20 octets à 40960 octets.
La compression ne peut donc pas fonctionner pour les images les plus morcelées, la limite de la mémoire disponible étant 2550 octets

La moyenne de compression obtenue cependant se situe aux alentours de 1500 octets.

La décompression dure entre 3 secondes et 2 minutes.
MuelsacoHors ligneFondateurPoints: 9335 Défis: 175 Message
Posté le 22-04-2006 à 10:42 | #
Je regarderais çà tout à l'heure! Je vais voir s'il bat mon programme de compression
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 22-04-2006 à 16:01 | #
C'est très variable. Pour certaines images, la matrice n'est pas assez grosse et ca aboutit à un arg error, pour d'autres, ca ne prend que 300 octets (le minimum est 20 octets pour une image composée d'un seul rectangle)

Tout dépend du morcellement de l'image en fait

edit: programme mis à jour à la version 1.10
LusgiHors ligneMembrePoints: 1070 Défis: 42 Message
Posté le 28-06-2006 à 09:55 | # | Fichier joint
J'ai mi la version .fxi en fichier joint
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 26-07-2006 à 18:34 | #
Quelqu'un sait pourquoi la décompression capote avec la graph85?
MuelsacoHors ligneFondateurPoints: 9335 Défis: 175 Message
Posté le 26-07-2006 à 18:53 | #
Ah c'est peut être pour çà que je n'avais pas réussi à le faire marcher...
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 26-07-2006 à 18:59 | #
Si il fonctionne (dans la mesure où aucun arg error ou dim error ne devrait apparaître) mais il trace un trait superflu entre chaque coin de rectangle et le coin gauche-bas de l'écran.
MatronixHors ligneAncien administrateurPoints: 6058 Défis: 82 Message
Posté le 08-08-2006 à 14:10 | #
HS : c'est Clad sur ta capture ?
MeithalHors ligneAncien administrateurPoints: 3125 Défis: 7 Message
Posté le 08-08-2006 à 18:38 | #
Oui c'est bien lui

Si tu veux l'image complète, voici la matrice que tu devras charger dans ta calculatrice (entre la matrice G et L):

Version texte: http://grabag.free.fr/fourtout/caltos/quadracomp/cloud.txt

Version CAT : http://grabag.free.fr/fourtout/caltos/quadracomp/cloud.cat

Et le manuel que j'ai miraculeusement retrouvé (pdf) : http://grabag.free.fr/fourtout/caltos/quadracomp/Manuel%20de%20Quadrcompressv1.00.pdf
MuelsacoHors ligneFondateurPoints: 9335 Défis: 175 Message
Posté le 08-08-2006 à 19:05 | #
Ben c'est pas dur de le retrouver il est disponible sur la page de photocasio

Pages: 1, 2, 3, 4 | Suivante

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2021 | Il y a 35 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd