Y a t il un moyen de flouter une image qu'on vient de créer façon Photoshop "Flou Gaussien"?
Merci beaucoup

Code : Tout sélectionner
Enumeration
#Window_Principale
EndEnumeration
Enumeration
#GImage_Initial
#Button_Ouvrir
EndEnumeration
Enumeration
#Image_Artificiel ;-0
#Image_Initial ;-1
#Image_Convert ;-2
EndEnumeration
UseJPEGImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
UseJPEGImageEncoder()
UsePNGImageEncoder()
If CreateImage(0, 300, 300 )
StartDrawing(ImageOutput(0))
Box(0, 0, 300, 300, $000000 )
StopDrawing()
EndIf
Procedure Open_Window_Principale(image)
If OpenWindow(#Window_Principale, 0, 0, 304, 350, "MConV", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
SetWindowColor(0,RGB(255,128,0))
If CreateGadgetList(WindowID(#Window_Principale))
ImageGadget(#GImage_Initial, 2, 40, 300, 300, ImageID(image))
ButtonGadget(#Button_Ouvrir, 5, 5, 75, 25, "=>IMAGE")
EndIf
EndIf
EndProcedure
Open_Window_Principale(0)
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
If Event = #PB_Event_Gadget
Select GadgetID
Case #Button_Ouvrir
fichier_$ = OpenFileRequester( "Recherche image", "", "Fichier image|*.jpg;*.jpeg;*.png;*.bmp;*.tif;*.tga", 0)
If fichier_$
Taille_File = FileSize(fichier_$)
If LoadImage( 1, fichier_$)
L = ImageWidth(1)
H = ImageHeight(1)
ResizeImage(1, 300, 300, #PB_Image_Smooth)
SetGadgetState(0, ImageID(1))
Else
MessageRequester("erreur","Impossible d'ouvrir l'image!",0)
EndIf
EndIf
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
CloseWindow(0)
End