; dmmConvertJPGtoPNG.scm - GIMP Script-Fu to Convert JPG to PNG
;    This is useful especially when one has a group of JPG originals
;    on which further processing should be done without further losses.
;
;    This Script-Fu must be put in The GIMP's script directory
;    (e.g., $HOME/.gimp-1.2/scripts).
;    For command-line invocation, use the shell script dmmConvertPNGtoJPG.sh
;    For interactive invocation, run The GIMP and go to
;    Xtns -> Script-Fu -> dmm
;
(define (dmmConvertJPGtoPNG infile outfile)
   (let* ((image (car (file-jpeg-load 1 infile infile)))
          (drawable (car (gimp-image-active-drawable image)))
         )
         (file-png-save 1 image drawable outfile outfile 
              1 0 0 0 0 0 0 )
            ; 1 Adam7 interlacing?
            ;   0 deflate compression factor (0-9)
            ;     0 Write bKGD chunk?
            ;       0 Write gAMMA chunk?
            ;         0 Write oFFs chunk?
            ;           0 Write tIME chunk?    ?? backwards in DB Browser
            ;             0 Write pHYS chunk?  ?? backwards in DB Browser
   )
)

(script-fu-register                                 ; I always forget these ...
   "dmmConvertJPGtoPNG"                             ; script name to register
   "<Toolbox>/Xtns/Script-Fu/dmm/dmmConvertJPGtoPNG" ; where it goes
   "dmm Convert JPG to PNG"                         ; script description
   "David M. MacMillan"                             ; author
   "Copyright 2004 by David M. MacMillan; GNU GPL"  ; copyright
   "2004-02-08"                                     ; date
   ""                                               ; type of image
   SF-FILENAME "Infile" "infile.png"                ; default parameters
   SF-FILENAME "Outfile" "outfile.png"
)

; Copyright 2004 by David M. MacMillan

; This work is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.

; NOTICE OF DISCLAIMER OF WARRANTY AND LIABILITY:

; This work is distributed WITHOUT ANY WARRANTY;
; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
; See the GNU General Public License for more details.

; In no event will the author(s), editor(s), or publisher(s) of this work
; be liable to you or to any other party for damages,
; including but not limited to any general, special, incidental
; or consequential damages arising out of your use of or inability to use this
; work or the information contained in it, even if you have been advised
; of the possibility of such damages.

; In no event will the author(s), editor(s), or publisher(s) of this work
; be liable to you or to any other party for any injury, death,
; disfigurement, or other personal damage arising out of your use of
; or inability to use this work or the information
; contained in it, even if you have been advised of the
; possibility of such injury, death, disfigurement, or other
; personal damage.

; You should have received a copy of the GNU General Public License
; along with this work; if not, write to the
; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
; Boston, MA  02111-1307, USA.