(define (m-png-to-indexed-png path)
  (set! path1 (string-append path ".png"))
  (set! path2 (string-append path "-iweb.png"))
  (set! img (car (file-png-load 0 path1 path1 )))
  (gimp-convert-indexed img 3 2 0 0 0 "WEB-PALETTE")

  (file-png-save 1 img (car (gimp-image-active-drawable img)) path2 path2 0 9 1 0 0 0 0)

;  (gimp-display-new img)
  (gimp-image-delete img)
 )

(script-fu-register "m-png-to-indexed-png"
  "<Toolbox>/Xtns/Script-Fu/MyStuff/z png to indexed png"
  "png to indexed color png image, <sore>.png save to <sore>-iweb.png and display delete"
  "HShimura 0"
  "HShimura"
  "Sept 2001"
  ""
  SF-STRING "original-image-file path" my-path
  )