(define (script-fu-pslayers-load  efilename eres epwidth epheight ebbox ecol etaa egaa firstpage lastpage)
;  (set! efilename "/home/ecc/animation2_2c.ps")
;  (set! eres 10)
;  (set! firstpage 1)
;  (set! lastpage 100)
 ; col should be 4,5,6,7
  (set! ecol (+ ecol 4))
; hack to get antialiasing 1,2,4
  (set! etaa (+ etaa 1))
  (set! egaa (+ egaa 1))
  (if (= etaa 3) (set! etaa 4) ())
  (if (= egaa 3) (set! egaa 4) ())
  (set! seq firstpage)
  (while (<= seq lastpage)
	 (set! errobj ())
	 (file-ps-load-setargs eres epwidth epheight ebbox (number->string seq) ecol etaa egaa)
	 (set! src_img (car (file-ps-load 1 efilename efilename)))
	 (if (eq? errobj ())     ; check for error during load
		 (begin	        
		   (set! layers (gimp-image-get-layers src_img))
		   (set! src_layer (aref (cadr layers) 0))
		   (set! type (car (gimp-drawable-type src_layer)))
		   (if (= 1 seq)
		       (begin
			 (set! main_img src_img)	
			 (set! width (car (gimp-drawable-width src_layer)))
			 (set! height (car (gimp-drawable-height src_layer)))
			 (gimp-image-undo-disable main_img)
			 )
		       
		   (begin
		     (gimp-edit-copy src_layer)
		     (set! tgt_layer (car (gimp-layer-new main_img width height type (number->string seq) 100 NORMAL)))
		     (gimp-image-add-layer main_img tgt_layer -1)
		     (gimp-edit-clear tgt_layer)
		     (let ((floating-sel (car (gimp-edit-paste tgt_layer FALSE))))
		       (gimp-floating-sel-anchor floating-sel))
		     (gimp-image-delete src_img))))
		   
	 (begin  ; Error during load: (!= errobj ())
	   (error "Load failed" errobj)
	   (set! seq lastpage)))
	 (set! seq (+ seq 1))
  )
  (begin 
    (gimp-image-clean-all main_img)
    (gimp-image-undo-enable main_img)
    (gimp-display-new main_img)))

(script-fu-register "script-fu-pslayers-load"
		    "<Toolbox>/Xtns/Script-Fu/Utils/PS to layers..."
		    "Loads a multi-page Postscript file in, converting each page to a layer.  Inspired by Paul Hollister"
		    "Edwin Carter <ecc@th.ph.bham.ac.uk>"
		    "Edwin Carter"
		    "May 2001"
		    ""

		    SF-FILENAME   _"File Name"  "pages.ps"
		    SF-VALUE      _"Resolution" "10"
		    SF-VALUE      _"Width" "100"
		    SF-VALUE      _"Height" "100"
		    SF-TOGGLE     _"Use bounding box" TRUE
		    SF-OPTION     _"Coloring"  '("B/W" _"Gray" "Color" "Automatic")
		    SF-OPTION     _"Test Antialiasing" '("None" _"Weak" "Strong")
		    SF-OPTION     _"Graphics Antialiasing" '("None" _"Weak" "Strong")
		    SF-VALUE      _"First Page" "1"
		    SF-VALUE      _"Last Page"  "10"
;		    SF-FILENAME   "File Name Template"  "pict%%.tga"
;		    SF-STRING     "Layer Name Template" "Layer % (replace)"
;		    SF-ADJUSTMENT "First Frame"         '(1 0 100000 1 10 0 1)
;		    SF-ADJUSTMENT "Last Frame"          '(10 0 100000 1 10 0 1)
;		    SF-TOGGLE     "Make One Image"      TRUE
)