(define (script-fu-Compression inCompression))


(let* (
   ;(img (file-jpeg-load 1 "/home/metres/Images/SiteWeb/BaseTableauVert1.jpg" "/home/metres/Images/SiteWeb/BaseTableauVert1.jpg"))
   (img (car (gimp-image-new 256 256 GRAY)))
   )
   (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")