[..] Programme de retouche d'images

[peuchere83]

Bonjour à tous,

je cherche à créer un programme qui permettra de modifier des images (essentiellement rotation + recadrage)
Mon problème (pour l'instant) est le suivant :
je ne vois pas comment permettre le recadrage de la photo. (j'ai pensé, grâce à des slidebar, à déplacer des "barres" (un peu comme sous photoshop) afin de pouvoir générer un rectangle à découper).

Mais je ne vois pas comment arriver à gérer la dimension de l'image et récupérer le cadre à découper.
Car si j'arrive à connaitre les dimensions de mon cadre, c'est gagné !!!

Pour la partie rotation, pas de problème (j'utilise pour cela imagemagick).

Quelqu'un a t'il une suggestion ?

Est ce que j'en demande trop à Autoit ?

Si joint l'interface (grossière) à laquelle j'ai pour l'instant pensé.

[touslesmatins]

Ne cherches pas plus loin, Imagemagik le fait tres bien.
a+

[Yogui]

autre solution :

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>



$code_array = Draw_Area()
_ScreenCapture_Capture('c:\toto.jpg', $code_array[1], $code_array[0], $code_array[2], $code_array[3])


Func Draw_Area() ;trouvée sur le forum us modifiée pour la gestion du clique gauche

    ; ---------------------------------------------------------------------
    ; Thanks to Manadar who wrote parts of this consept, once upon a time.
    ; ---------------------------------------------------------------------
             Do
        $pos = MouseGetPos()
             Until _IsPressed(01)

    Local $ScanWidth = 1, $ScanHeight = 1
    Local $positions[4]
    $x = $pos[0]
    $y = $pos[1]
    $GUI = GUICreate("", 0, 0, $x, $y, $WS_POPUP)
    $Top = GUICreate("Top Line", $ScanWidth, 2, $x, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Left = GUICreate("Left Line", 2, $ScanHeight, $x, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Right = GUICreate("Right Line", 2, $ScanHeight, $x + $ScanWidth - 2, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Bottom = GUICreate("Bottom Line", $ScanWidth, 2, $x, $y + $ScanHeight, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    Sleep(800)


    Do
        $MousePos = MouseGetPos()
        ToolTip("Cliquez à gauche pour terminer la selection")
        WinMove($Top, "", $x, $y, $ScanWidth, 2)
        WinMove($Left, "", $x, $y, 2, $ScanHeight)
        WinMove($Right, "", $x + $ScanWidth - 2, $y, 2, $ScanHeight)
        WinMove($Bottom, "", $x, $y + $ScanHeight, $ScanWidth, 2)
        If Not (($MousePos[0] - $x) <= 0) Then
            $ScanWidth = $MousePos[0] - $x + 1
        EndIf
        If Not (($MousePos[1] - $y) <= 0) Then
            $ScanHeight = $MousePos[1] - $y - 1
        EndIf
    Until _IsPressed(01)

    $positions[0] = $y
    $positions[1] = $x
    $positions[2] = $MousePos[0] ; - $y
    $positions[3] = $MousePos[1] ; - $x

    ToolTip("")


    Return $positions
EndFunc

 

[Yogui]

Bon j'arrive pas à dormir et la rotation d'images en pure autoit j'était bien certain avoir déjà utilisé j'ai fait des recherches et j'ai retrouver où...

j'ai donc voulu tester et voilà il est 23 heures 50 ...

Voilà le résultat de mes recherches : (désolé pour la qualité du code )

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <Array.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global Enum _
        $RotateNoneFlipNone = 0, _
        $Rotate90FlipNone = 1, _
        $Rotate180FlipNone = 2, _
        $Rotate270FlipNone = 3, _
        $RotateNoneFlipX = 4, _
        $Rotate90FlipX = 5, _
        $Rotate180FlipX = 6, _
        $Rotate270FlipX = 7, _
        $RotateNoneFlipY = 6, _
        $Rotate90FlipY = 7, _
        $Rotate180FlipY = 4, _
        $Rotate270FlipY = 5, _
        $RotateNoneFlipXY = 6, _
        $Rotate90FlipXY = 7, _
        $Rotate180FlipXY = 0, _
        $Rotate270FlipXY = 1



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 790, 546, 192, 124)
$Pic1 = GUICtrlCreatePic("", 8, 8, 569, 529, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$BTNQ = GUICtrlCreateButton("Sortir", 688, 496, 75, 25, $WS_GROUP)
$BTNCHARGE = GUICtrlCreateButton("charger image", 632, 24, 75, 25, $WS_GROUP)
$BTNT90 = GUICtrlCreateButton("->", 656, 120, 43, 25, $WS_GROUP)
$BTNT180 = GUICtrlCreateButton("|", 696, 144, 43, 25, $WS_GROUP)
$BTNT270 = GUICtrlCreateButton("<-", 656, 168, 43, 25, $WS_GROUP)
$BTNT360 = GUICtrlCreateButton("Î", 616, 144, 43, 25, $WS_GROUP)
$BTNRECA = GUICtrlCreateButton("Recadrer", 640, 240, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BTNQ
            Exit
        Case $BTNCHARGE
            $var = FileOpenDialog("chercher les images", @MyDocumentsDir & "\", "Images (*.jpg;*.bmp)", 1 + 4)
            GUICtrlSetImage($Pic1, $var)
            $travail = $var
        Case $BTNRECA
            $code_array = Draw_Area()
            _ScreenCapture_Capture('c:\toto.jpg', $code_array[1], $code_array[0], $code_array[2], $code_array[3])
            $travail = "c:\toto.jpg"
            GUICtrlSetImage($Pic1, $travail)
        Case $BTNT90
            _GDIPlus_Startup()
            $hImage = _GDIPlus_ImageLoadFromFile($travail)
            DllCall($ghGDIPDll, "int", "GdipImageRotateFlip", "hwnd", $hImage, "long", $Rotate90FlipNone)
            _GDIPlus_ImageSaveToFile($hImage, "c:\toto.jpg")
            _WinAPI_DeleteObject($hImage)
            _GDIPlus_Shutdown()
            $travail = "c:\toto.jpg"
            GUICtrlSetImage($Pic1, $travail)
        Case $BTNT180
            _GDIPlus_Startup()
            $hImage = _GDIPlus_ImageLoadFromFile($travail)
            DllCall($ghGDIPDll, "int", "GdipImageRotateFlip", "hwnd", $hImage, "long", $Rotate180FlipNone)
            _GDIPlus_ImageSaveToFile($hImage, "c:\toto.jpg")
            _WinAPI_DeleteObject($hImage)
            _GDIPlus_Shutdown()
            $travail = "c:\toto.jpg"
            GUICtrlSetImage($Pic1, $travail)
        Case $BTNT270
            _GDIPlus_Startup()
            $hImage = _GDIPlus_ImageLoadFromFile($travail)
            DllCall($ghGDIPDll, "int", "GdipImageRotateFlip", "hwnd", $hImage, "long", $Rotate270FlipNone)
            _GDIPlus_ImageSaveToFile($hImage, "c:\toto.jpg")
            _WinAPI_DeleteObject($hImage)
            _GDIPlus_Shutdown()
            $travail = "c:\toto.jpg"
            GUICtrlSetImage($Pic1, $travail)


    EndSwitch
WEnd

Func Draw_Area()

    ; ---------------------------------------------------------------------
    ; Thanks to Manadar who wrote parts of this consept, once upon a time.
    ; ---------------------------------------------------------------------

    Do
        $pos = MouseGetPos()
    Until _IsPressed(01)

    Local $ScanWidth = 1, $ScanHeight = 1
    Local $positions[4]
    $x = $pos[0]
    $y = $pos[1]
    $GUI = GUICreate("", 0, 0, $x, $y, $WS_POPUP)
    $Top = GUICreate("Top Line", $ScanWidth, 2, $x, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Left = GUICreate("Left Line", 2, $ScanHeight, $x, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Right = GUICreate("Right Line", 2, $ScanHeight, $x + $ScanWidth - 2, $y, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    $Bottom = GUICreate("Bottom Line", $ScanWidth, 2, $x, $y + $ScanHeight, $WS_POPUP, -1, $GUI)
    GUISetBkColor(0xFF0000)
    GUISetState()
    Sleep(800)


    Do
        $MousePos = MouseGetPos()
        ToolTip("Click Alt to set." & @CRLF & "bottom: " & $MousePos[1] - $y & " right: " & $MousePos[0] - $x)
        WinMove($Top, "", $x, $y, $ScanWidth, 2)
        WinMove($Left, "", $x, $y, 2, $ScanHeight)
        WinMove($Right, "", $x + $ScanWidth - 2, $y, 2, $ScanHeight)
        WinMove($Bottom, "", $x, $y + $ScanHeight, $ScanWidth, 2)
        If Not (($MousePos[0] - $x) <= 0) Then
            $ScanWidth = $MousePos[0] - $x + 1
        EndIf
        If Not (($MousePos[1] - $y) <= 0) Then
            $ScanHeight = $MousePos[1] - $y - 1
        EndIf
    Until _IsPressed(01)

    $positions[0] = $y
    $positions[1] = $x
    $positions[2] = $MousePos[0] ; - $y
    $positions[3] = $MousePos[1] ; - $x

    ToolTip("")


    Return $positions
EndFunc   ;==>Draw_Area
 

Maintenant dodo demain je met à jour des ESX je vais prendre des allumettes

[peuchere83]

Impeccable yogui !!!

Je vais regarder cela avec attention et appliquer quelques modifications :
- par exemple lors de la rotation, la taille de l'image semble ne pas être respectée (elle est écrasée)
- je dois récupérer les informations (x et y) de recadrage afin de l'appliquer ensuite sur le fichier image original car les images qui sont utilisées au travers de cette application seront en qualité basse (dégradées).


Encore merci.

Je laisse pour l'instant le poste en non résolu au cas ou j'ai besoin encore de ta science.

[Yogui]

Impeccable yogui !!!

Je vais regarder cela avec attention et appliquer quelques modifications :
- par exemple lors de la rotation, la taille de l'image semble ne pas être respectée (elle est écrasée)
- je dois récupérer les informations (x et y) de recadrage afin de l'appliquer ensuite sur le fichier image original car les images qui sont utilisées au travers de cette application seront en qualité basse (dégradées).


Encore merci.

Je laisse pour l'instant le poste en non résolu au cas ou j'ai besoin encore de ta science.

Je crois que vous avez déjà tout ce que je sais sur ce sujet :p j'ai mis un exemple (il y a plus d'un an) pour redimentionner les images sur le forum. Après je suis en train de jouer avec la reconnaissance de visage mais rien de fonctionnel.

ma science des images stop la...

@+