Redimentionnement d'une image [Hyper résolu]

[Kwai chang caine]

Bonjour la famille

Et oui.......tanpis pour vous, KCC is back ...........like the morpion.....or the "hot pisse"

J'suis en train d'essayer de manipuler une image.
Et j'vous la donne "émile".....j'y arrive pas

Alors voila, ce que je voudrais c'est forcer une image à etre à une certaine taille sans changer sa proportion
Et mettre des bandes blanches par exemple de chaque coté pour completer de façon à ce que l'image se retrouve a chaque fois centrée

Il y a donc 2 cas de figure....une image en paysage ou en portrait, sans parler de l'image carré qui ne pose a priori pas de probleme

Donc dans le cas d'une image en paysage, je voudrais faire :

Blanc
Image
Blanc

Et dans le cas d'une image en portrait, ce serait :

Blanc Image Blanc

Alors voila ma glutte
Si quinquin, y peut mettre des gants et essayer de decoller tout ça, ce serait super gentil

Code : Tout sélectionner

LargeurVoulue = 200
HauteurVoulue = LargeurVoulue

#Image = 10
#ImageGadget = 1

UseJPEGImageDecoder()
OpenWindow(0, 0, 0, LargeurVoulue, HauteurVoulue, "Reduction", #PB_Window_ScreenCentered) 
LoadImage(#Image, "c:\Horizontal.jpg")
;LoadImage(#Image, "c:\Vertical.jpg")
ImageGadget(#ImageGadget, 0, 0, WindowWidth(0), WindowHeight(0), ImageID(#Image)) 

If ImageWidth(#Image) > ImageHeight(#Image) ; Image horizontale
 
 Reduction = ImageWidth(#Image) / LargeurVoulue
 HauteurImage = ImageHeight(#Image) / Reduction
 Blanc = Int((HauteurVoulue - HauteurImage) / 2)
 ResizeGadget(#ImageGadget, 0, Blanc, LargeurVoulue, HauteurImage)
 ResizeImage(#Image, LargeurVoulue, HauteurImage)
 UpdateWindow_(GadgetID(#ImageGadget)) 
  
ElseIf ImageWidth(#Image) < ImageHeight(#Image) ; Image verticale
 
 Reduction = ImageHeight(#Image) / HauteurVoulue
 LargeurImage = ImageWidth(#Image) / Reduction
 Blanc = Int((LargeurVoulue - LargeurImage) / 2)
 ResizeImage(#Image, LargeurImage, HauteurVoulue) 
 ResizeGadget(#ImageGadget, Blanc, 0, #PB_Ignore, #PB_Ignore)
 
EndIf

Repeat
 Evenement = WaitWindowEvent(1)
Until GetAsyncKeyState_(#VK_ESCAPE)

Je vous remercie
Bonne journée

[TazNormand]

Réponse peut être bête, mais pourquoi pas utiliser un sprite, que tu positionnes de manière centrée en fonction de sa taille par rapport à celle e l'écran.

Des souvenirs de cours de bureautique en seconde (ça date ) il y avait cette règle pour centrer (en caractères) un texte :
x=position horizontale de départ (coté gauche donc)
lg=largeur du texte à centrer
feuil=largeur de la feuille en caractères
x=(feuil-lg)/2

ce qui donnait pour un texte de 12 car, à centrer sur une feuille de 80 car maxi : (80-12)/2=34, commencer à 34 caractères depuis la marge.

Peut-être devrait tu utiliser un peu la même régle pour le centrage de ton sprite dans l'écran, mais cette fois pas en caractères, mais en pixels ?

[Le Soldat Inconnu]

comme ça

Code : Tout sélectionner

UseJPEGImageDecoder()
UsePNGImageDecoder()
Fichier.s = OpenFileRequester("Test", "", "Image|*.jpg;*.bmp;*.png", 0)
Image = LoadImage(#PB_Any, Fichier)

TailleMax_X = 200
TailleMax_Y = 250

If TailleMax_X * ImageHeight(Image) <= ImageWidth(Image) * TailleMax_Y
  ResizeImage(Image, TailleMax_X, ImageHeight(Image) * TailleMax_X / ImageWidth(Image), #PB_Image_Smooth)
Else
  ResizeImage(Image, ImageWidth(Image) * TailleMax_Y / ImageHeight(Image), TailleMax_Y, #PB_Image_Smooth)
EndIf

x = (TailleMax_X - ImageWidth(Image)) / 2
y = (TailleMax_Y - ImageHeight(Image)) / 2

CreateImage(0, TailleMax_X, TailleMax_Y)
StartDrawing(ImageOutput(0))
  Box(0, 0, TailleMax_X, TailleMax_Y, $FFFFFF)
  DrawImage(ImageID(Image), x, y)
StopDrawing()

OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu)

ImageGadget(0, 5, 5, 0, 0, ImageID(0))

Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

[TazNormand]

C'est là où on voit la maîtrise de PB !!!

ma solution à l'air bien nulle à côté de celle de LSI

faut que je potasse plus la doc de PB !!!

[Kwai chang caine]

Merci à tout les deux d'avoir volé au secour du pauvre KCC au apys de l'image qui retrecie ......"pas"

@Soldat

Voila comme si il en etait encore besoin l'exemple evident de ce qu'est un code
Un truc de dingue.....j'ai regardé tous les mots que t'as ecrit......et j'ai cru que y'en avait des magiques qui faisaient 10 fonctions à la fois

Moi j'avais pas compris ....je croyais que dans chaque code il fallait utiliser tous les mots de purebasic

C'est tellement court....et en plus y'a meme la selection....
Tu te demande comment ça peut faire mieux que ma declaration des droits de l'homme du debut du POST

Et pourtant....je m'etait drolement motivé....j'avais trouvé une photo verticale et une horizontale de clara morgane pour faire mes essais
Et bah rien a faire .......

Ou alors j'y pense......peut etre que c'est sa faute......car je crois que c'est pas la bonne partie du cerveau que je stimulais

Bon ben.......DOBRO il a dit qu'un merci ça suffit

Alors :

MERCI

Je te souhaite une excelente journée

[TazNormand]

on peut la voir la photo de Clara ?

si c'est celle là, je comprends mieux que ton code marchait pas : Clara (Interdit au moins de 18 ans, LSI)

[Le Soldat Inconnu]

Pas la photos, les 2 photos.

Je veux voir Clara à la verticale puis à l'horizontal

@ TazNormand : J'ai modéré ta photo

[TazNormand]

Ben quoi, qu'est-ce qu'elle a ma photo, elle est sobre, on voit a peine un bout de thé thon et de ray ?

[Le Soldat Inconnu]

On ne sait jamais, dès fois qu'un simple d'esprit tombe dessus. Autant prendre ces précautions
Elle fait quand même très peur, cette photo

[Kwai chang caine]

Vos désirs.... "y sont" des ordres, meseigneurs

[TazNormand]

ouh là, le Dobro, il va modérer le topic je le sent

C'est quoi la marque de ses chaussures ?

Sinon, elle est jolie comme fille, mais comme dirait BIGARD (désolé pour la référence foireuse), avec elle faut pas être monté fin.
Sans rire, vu le kilométrage qu'elle a déjà (Clara, pas la Cadillac), c'est pas un branluchon comme moi qui l'intéresserai

Et puis j'ai déjà ma Clara à moi

[Backup]

avec elle faut pas être monté fin.

c'est bien mal connaitre les femmes , elles ont un pouvoir d'adaptation hors du commun !! , heu , je ne parlais pas pour moi , mais pour ceux qui sont passé apres moi

[Kwai chang caine]

ouh là, le Dobro, il va modérer le topic je le sent

T'as raison....ne lui creons pas un cas de conscience....
Je viens de la rendre présentable.
Et puis je trouve que ma tete lui va bien

C'est quoi la marque de ses chaussures ?

Bah je crois que sur la photo du haut c'est "César PION de PARIS"

Et puis j'ai déjà ma Clara à moi

La tienne s'appelle CLARA
Bah la mienne ...elle s'appelle bobonne

[Le Soldat Inconnu]

ou alors on l'appelle pas, on la siffle
(se débine rapidos avant que quelqu'un du sexe opposé mette les pieds par ici)

[Kwai chang caine]

Bah en tout cas .....heureusement qu'on a deja notre bidoche
Parce que comme boucher ......le forum pure.......c'est pas souvent approvisionné