rendered paste body(define (script-fu-Compression inCompression))
(let* (
(img (car (file-jpeg-load 1 "/home/metres/Images/SiteWeb/BaseTableauVert1.jpg" "/home/metres/Images/SiteWeb/BaseTableauVert1.jpg")))
(drw 0)
)
(gimp-display-new img)
)
(script-fu-register
"script-fu-Compression" ;func name
"Compression" ;menu label
"Compress an Image." ;description
"Daniel Sauvé" ;author
"copyright 2008, Daniel Sauvé" ;copyright notice
"7 Février 2008" ;date created
"" ;image type that the script works on
SF-ADJUSTMENT "Compression" '(75 0 100 1 10 0 0)
)
(script-fu-menu-register "script-fu-Compression" "<Toolbox>/Xtns/Script-Fu/Images")