| | Redimensionner une image Jpg ou Bmp |  |
|
|
| Auteur | Message |
|---|
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 12:26 | |
| Agrandir ou réduire une image jpg ou bmp, proportionnellement ou non. En pur Panoramic, évidemment, c'est tout simple grâce à Scene2D qui accepte la commande Stretch_On. Résultat obligatoirement bmp. Avec un exemple d'appel: - Code:
-
DIM f$,fr$
f$ = "C:\GRAPH\JPG\goldgate.jpg"
fr$ = "Z:\Image.bmp"
IF FILE_EXISTS(fr$) = 1 THEN FILE_DELETE fr$
RedimImg(f$,600,200,fr$)
TERMINATE
' ==============================================================================
SUB RedimImg(f$,w%,h%,fr$)
' Redimensionner l'image f$ (BMP ou JPG) en w%,h%, résultat dans fr$ (BMP)
' Si w% = 0 ou h% = 0: redimensionnement proportionnel
DIM_LOCAL fm$,wi%,hi%,s2%
fm$ = "C:\TEMP\Provimg.bmp"
s2% = 1900: ' objet provisoire
IF UPPER$(FILE_EXTRACT_EXTENSION$(f$)) = ".JPG"
PICTURE s2%: FILE_LOAD s2%,f$: FILE_SAVE s2%,fm$: DELETE s2%: f$ = fm$
END_IF
IF w% < 1 OR h% < 1: ' redimensionnement proportionnel
FILEBIN_OPEN_READ 1,f$: ' dimensions de l'image source
FILEBIN_POSITION 1,18: wi% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
FILEBIN_POSITION 1,22: hi% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
FILEBIN_CLOSE 1
IF h% < 1
h% = w%*hi%/wi%
ELSE
w% = h%*wi%/hi%
END_IF
END_IF
SCENE2D s2%: HIDE s2%: WIDTH s2%,w%: HEIGHT s2%,h%: STRETCH_ON s2%
FILE_LOAD s2%,f$: SNAPSHOT s2%,fr$
DELETE s2%: IF FILE_EXISTS(fm$) = 1 THEN FILE_DELETE fm$
END_SUB
' ============================================================================== NB Les dimensions source et résultat sont quelconques, indépendantes des dimensions de l'écran. | |
|
| | |
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 13:31 | |
| Bonjour JL35 ! J'ai testé, bien entendu après avoir adapté les lignes 2,3 et 12. Bravo ! En entrée, une image .jpg Elle a bien été convertie en .bmp puis redimensionnée et sauvegardée. Tout est bon !  - Avant:
- Après:
Dernière édition par Marc le Ven 2 Nov 2018 - 14:08, édité 1 fois | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 13:48 | |
| Salut Marc !
Une de tes résidences secondaires qui est passée au rouleau compresseur !
Bon, donc ça marche.
| |
|
| | |
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: +++ Ven 2 Nov 2018 - 15:35 | |
| C'est un truc superbe, d'autant que c'est en pure panoramic ! Mais petite question : c'est normal que toutes les images soient passées au rouleau compresseur ? On ne peut pas modifier les dimensions de façon conforme à l'original ?  | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 16:13 | |
| Bonsoir jj,
Bien sûr que si les images sont en principe semblables à l'original, elles ne sont déformées que sur demande, si tu forces les dimensions finales, c'est vraiment un cas particulier !
Exemple, tu veux obtenir une image de 320 pixels de large
1) tu veux un résultat sans déformation, tu donnes comme paramètres x,y: 320,0
- la sub lit les dimensions de l'image originale dans le fichier et ajuste la hauteur finale en conséquence. Si l'image d'origine fait 640x480, le résultat sera 320x240, donc sans déformation.
Tu aurais pu donner pareillement 0,240 pour le même résultat.
(ou tu peux donner directement les deux paramètres 320,240 si tu connais les dimensions d'origine)
2) tu veux une image déformée: tu fixes toi-même la largeur et la hauteur du résultat. | |
|
| | |
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: +++ Ven 2 Nov 2018 - 16:28 | |
| Ah oui, ça marche, c'est superbe ! en faisant xxx,0 ou 0,xxx ça régularise ! C'est génial, ça, en pur panoramic ! Bravo, JL35 ! | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 16:32 | |
| Merci mon jj, ça fait plaisir !  | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 18:26 | |
| Un truc que j'ai fait avec ça, entre autres: fabriquer une planche de photos, à voir ou imprimer.
Il suffit de définir le picture de fond (par exemple proportions d'une page A4), de définir le nombre de colonnes d'images, les marges et espacements (ce qui définit les dimensions des images), et d'insérer les images réduites à leurs emplacements (avec des 2D_Image_Paste), en ajoutant éventuellement un commentaire sous chaque image (nom du fichier, date, etc.).
On voit tout de suite le résultat (qu'on peut archiver en bmp), et on en fait ce qu'on veut, par exemple une impression. | |
|
| | |
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: +++ Ven 2 Nov 2018 - 18:37 | |
| Oh, oh ! | |
|
| | |
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Redimensionner une image Jpg ou Bmp Ven 2 Nov 2018 - 19:47 | |
| Si ça t'intéresse (si tu n'as pas envie de le faire toi-même  ) je peux te le passer... Ça donne ceci, par exemple:  | |
|
| | |
Contenu sponsorisé
| | Sujet: Re: Redimensionner une image Jpg ou Bmp | |
| |
|
| | |
| | Redimensionner une image Jpg ou Bmp | |
|
Calendrier
