Redimensionner une image

Sujet: Redimensionner une image Ven 3 Sep 2021 - 17:37

Juste histoire de causer, je n'ai pas réinventé l'eau chaude, mais bon, une petite sub qui peut servir:

Code:: SUB Redimag(f$,w,h,fr$)
' Redimensionner (ou déformer) une image (bmp, jpg) en w x h pixels
' Résultat dans fr$ (bmp), ou clipboard si fr$ = ""
DIM_LOCAL n2,p
n2 = NUMBER_2D_TARGET: p = 900
FORM p: BORDER_HIDE p: WIDTH p,w: HEIGHT p,h
PICTURE p+1: PARENT p+1,p: FULL_SPACE p+1: STRETCH_ON p+1: FILE_LOAD p+1,f$
IMAGE p+2: 2D_TARGET_IS p: 2D_IMAGE_COPY p+2,0,0,w,h
IF fr$ = "" THEN CLIPBOARD_COPY p+2: ELSE: FILE_SAVE p+2,fr$
2D_TARGET_IS n2: DELETE p+1: DELETE p+2: DELETE p
END_SUB

On peut aussi avec SPRITE_SCALE, mais là il faut connaître les dimensions de l'image d'origine
pour calculer les coefficients, ce qui n'est pas le cas ci-dessus.

Sujet: Re: Redimensionner une image Sam 4 Sep 2021 - 17:51

Bonjour JL35,

Merci du partage.

Aie... Je n'ai peut-être pas su faire ce qu'il fallait....
Pour que cela fonctionne, je dois supprimer l'instruction "TOP p,0-h".

Voici ce que j'ai mis dans le "main" qui appelle la sub :

Code:: dim fichier$
fichier$="imageTest.bmp"
Redimag(fichier$,200,200,"1.bmp")
end

Qu'en penses-tu ?

Sujet: Re: Redimensionner une image Sam 4 Sep 2021 - 19:45

Bonsoir Marc,

J'en pense que c'est curieux, parce que chez moi ça ne pose pas de problème...
Ceci dit, cette instruction (TOP p,0-h) c'était juste pour que le Form fugitif créé soit en dehors de l'écran,
mais finalement c'est bref et on ne voit rien, donc on peut très lien la supprimer.
Et oups, je m'aperçois qu'elle est bien supprimée dans la version que j'ai archivée chez moi !
Je corrige ci-dessus, merci pour le test !

» Redimensionner une image (bis)
» Redimensionner une image
» Redimensionner une image Jpg ou Bmp
» Redimensionner une image
» Récupérer l'image d'un IMAGE dans un picture