PureBasic

Un petit code pour transformer vos images en photos d'identité (8 sur une image au format 10*15), en espérant que je ne me soit pas trompé dans les convertions pixels <> centimètres

Code : Tout sélectionner

UseJPEGImageDecoder()
UseJPEGImageEncoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
Nom.s = OpenFileRequester("","","",0)
LoadImage(0,Nom)
ResizeImage(0,317,407)
CreateImage(1,1358,906)
X.l = (1358 - (317 * 4)) / 5
XX.l = X
Y.l = (906 - (407 * 2)) / 3
YY.l = Y
StartDrawing(ImageOutput())
  Box(0,0,1358,906,RGB(255,255,255))
  For iy = 1 To 2
    For ix = 1 To 4
      DrawImage(UseImage(0),XX,YY)
      XX + 317 + X
    Next ix
    YY + 407 + Y
  Next iy
StopDrawing()
SaveImage(1,GetPathPart(Nom) + "photo.jpg",#PB_ImagePlugin_JPEG,10)
FreeImage(1)
FreeImage(0)

un petit problème :
avnt de redimmensionner l'image
tu aurais du la rogner pour la mettre au bon format
car une image scanné fait pas forcément les proportions exactes (surtout si on a rogné manuellement une photo classique)

sinon, c'est amusant

moi, je faisais ça sous Word, c'est une aute alternative à laquelle je n'avais pas songé

C'est vrai que je n'ai pas pensé à ça car mes images sortent de mon APN à un format proportionnel

, et comme je l'ai fait en fonction de lui

, mais c'est une bonne idée, je vais faire un petit selecteur pour que les gens choisissent quoi rogner

Quand à word, tu as dit toi même dans le post "Chris est-il insomniaque ?" qu'il faut y aller au pays des songes, alors vas-y plus souvent on en rapporte plein de bonnes idées

Par contre je ne comprends pas, chez moi (dans mon fichier) le code fonctionne bien, mais ici il n'y a que 4 photos au lieu de 8

C'est pareil pour toi ?

PureBasic

Identité

Identité