[TP]Zoom in, Zoom out!

Salut!

Voilà, j'affiche correctement un BMP à l'écran en utilisant l'adressage direct de la mémoire avec le tableau

Code:

---

1 2	VGAMemory = Array[0..199,0..399] of Byte Absolute $A000:0000;

---

Je définis également la possibilité d'utiliser les touches + et - pour effectuer un Zoom mais seulement lorsque j'effectue un zoom in, je perds beaucoup en qualité d'image et les pixels sont saccadés. (pour le faire, je fais une transformation des rectangles d'affichage c'est à dire que le rectangle original d'affichage qui a pour dimensions 320*200 par défaut est trabsformé à chaque fois par un rectangle plus petit)

J'aimerai donc savoir s'il y'a un moyen plus pratique d'effectuer un zoom tout en conservant la qualité d'image.

Merci.

Il faudrait un peu plus de précisions !
Quel mode graphique utilises-tu ?
En plus la déclaration de ton tableau est un peu étrange car l'écran ne fait que 320*200 comme tu l'as dit toi même pas 200*400 :?
Ensuite quelle fonction utilises-tu pour faire un zoom ?

a+

Bonjour !

Pour conserver une certaine qualité d'image en zoomant "out" à partir d'une image de départ, tu dois décider d'une méthode de compression.
Simplement réduire le nombre de pixels ne donnera rien de très joli; il faut analyser l'image pour dégager les différents contours, les différentes zones, etc, etc.
Cela ne me semble pas évident ! Il existe probablement des algos sur le Net (ou même sur ce forum).

Pour le zoom "in", tu pourrais conserver en mémoire les images compressées pendant le zoom "out".

Comme le dit Alcatîz, il va falloir décider d'un algorithme pour le zoom. La méthode la plus basique consiste à grossir les pixels visibles en gros carrés. Ce n'est pas très esthétique.

Il va falloir penser à utiliser un filtre d'atténuation, etc...

Va faire un tour sur le forum algo, il doit y avoir des pros qui trainent ;)

A+

Bonjour,

La méthode avec un rapport complexité/qualité très satisfaisant est ce que l'on appelle Anti Aliasing. Le principe est simple : on prend un point de l'écran, on fait la moyenne des valeurs R,V et B des pixels du dessus, de gauche, de droite et du dessous et on on remplace la couleur du point à "traiter" par cette moyenne RVB.

Je n'ai pas d'exemple de code sous la main :oops: mais ça doit être faisable je pense :)

Bon courage

Eh ben dis dons, je ne pensais pas que cà demanderais autant de chose :? .

En fait, l'affichage des pixels se fait par cette boucle

Code:

---

1 2 3 4 5 6

For y:=0 to ShowHeigth - 1 Do Begin Seek(BMPFile, HeaderSize + FileWidth*(Heigth - y - 1); (*Pour se placer dans le bon endroit qu fichier qui contient le BMP *) For x:=0 to ShowWidth - 1 Do BlockRead(BMPFile, Pixel, SizeOf(Pixel)); ScreenMemory[y,x] := Pixel; End;

---

où Pixel est de type Byte et SreenMemory est un tableau [0..199,0..319] qui référence tout l'écran.

Et donc pour afficher seulement une partie de l'écran, je faisais comme ceci

Code:

---

1 2	VgaMemory[50*y+60,50*x+60] := Pixel;

---

par exemple. (et le résultat n'est vraiment pas très joli :( )

Je me trouve en résolution 320*200 effectivement, j'ai fait une erreur dans mon premier post.

Une idée que j'avais d'abord eu était de déterminer les points qui étaient les moins lumineux et lorsque je fais un zoom in, je n'affiche pas leur pixels, mais depuis je me casse la tête dessus.
Je pense que je vais regarder du côté du filtre et de l'antialiasing...

Merci.

Salut!
http://homepages.borland.com/torry/v...ects/janfx.zip (19 ko)
C'est une unité pour Delphi à la base, mais le code est facilement portable je suppose...
Sinon, va regarder dans les swags, je suis persuadé que tu trouveras tout ce dont tu as besoin...
à+

Merci beaucoup pour le lien Sub0...

J'ai regardé dans les swags que j'ai et apparemment je n'ai pas la collection qui traite des graphiques, je pense que je vais télécharger un autre.

Merci.

Désolé pour le Up du sujet, mais as-tu trouvé quelque chose depuis ?

Je possède un algo d'anti-aliasing, mais il s'agit d'un flou légé en réalité.
J'ai trouvé une librairie Delphi avec les sources (Graphics32) qui possède un vrai anti-aliasing (vraiment superbe)...
Voici la démo : http://sub0.developpez.com/delphi/exe/gr32_alias.zip

Seulement, je voudrais récupérer l'ago uniquement, ce n'est pas évident! :(

Si vous pouviez m'aider dans cette recherche, ça serait vraiment cool !

ps: J'ai décidé de poser la question dans le forum algoritmes... ICI

Citation:

---

Envoyé par Sub0

Désolé pour le Up du sujet, mais as-tu trouvé quelque chose depuis ?

---

Non finalement :( Le projet (en Pascal) avait été abandonné, on était passé à Delphi (en utilisant ZImage pour le zoom)...

Citation:

---

Envoyé par Sub0

Seulement, je voudrais récupérer l'ago uniquement, ce n'est pas évident!

---

Probablement, tu auras une solution dans le forum algorithme.

Je suis arrivé à obtenir le programme simplifié de ce que je veux comme fonction, mais la librairie utilise toutes ses unités... Cela ne va pas être simple pour simplifier la librairie afin de récupérer que le code nécessaire pour le filtre. Peut-être connais-tu un programme capable de faire le ménage dans un projet, non? Il me semble de ce genre d'appli existe... Qu'en penses-tu ?
:koi:

On m'a répondu dans le forum algo, mais ça reste assez "flou" pour le moment. Je suis encore loin d'avoir un code fonctionnel si je me base sur ces réponses. Mais je ne désespère pas.

Sinon, me reste la solution de faire une DLL pour regrouper la lib dans un seul fichier, mais bon, je n'aurais rien compris au fonctionnement du filtre et cette solution m'intéresse moyen.

Avec graphics32, l'anti-aliasing se trouve dans l'unité GR32_Transforms.pas. J'ai simplifié le code :
http://sub0.developpez.com/delphi/exe/TableA.zip

Je cherche maintenant pouvoir utiliser la fonction avec un TBitmap standard puisque je n'ai pas besoin de gérer le masque de transparence pour le moment. Je pense que par la suite, je proposerai le code dans la page des sources Delphi...

à+ ;)

J'ai réussi à obtenir ce que je voulais sauf que le Bitmap se trouve maintenant retournée à 90° !!
Je continu de chercher une solution. Si ça vous dit de m'aider, voici le code actuel :

http://sub0.developpez.com/delphi/exe/TableA3.zip

Merci d'avance! ;)

Merci à Nono40 pour avoir trouvé la solution ! :bravo:

http://www.developpez.net/forums/vie...721740#1721740

-> Sujet résolu, à+