(define (ot2gps inImage sizeX sizeY overlap barev)
	(set! width (car (gimp-image-width inImage)) ) 
	(set! height (car (gimp-image-height inImage)) )
	
	

	(set! tmp (car(gimp-image-get-filename inImage)))
	(set! orgfilename  (substring tmp 0 (string-search "." tmp) ))

	; (file_png_set_defaults 1 9 1 1 1 1 "" 0)
	(set! layer (car (gimp-image-get-active-layer inImage )))

	(set! offsetY 0)
	(while (< offsetY height)
		(set! offsetX 0) 
		(while (< offsetX width)
			;(if (> (+ offsetX sizeX)  width) (set! offsetX (- width sizeX) ) )

			(set! imagex (- offsetX overlap))
			(if (< imagex 0) (set! imagex 0))
			(set! imagey (- offsetY overlap))
			(if (< imagey 0) (set! imagey 0))
			
			(set! imagew (+ sizeX (* 2 overlap)) )
			(if (> (+ imagex imagew) width) (set! imagew (- width imagex)) )
			(set! imageh  (+ sizeY (* 2 overlap) ) )
			(if (> (+ imagey imageh) height) (set! imageh (- height imagey)) )

	
			(set! imagesave (car (gimp-image-new width height 0)))
			(set! backlayer (car (gimp-layer-new-from-drawable layer imagesave)))
			(gimp-image-add-layer imagesave backlayer -1)
			(gimp-drawable-set-visible backlayer 1)	
			
			(gimp-image-crop imagesave imagew imageh  imagex imagey )
			(gimp-image-convert-indexed imagesave  1 0 barev 0 1 "")
			
			(set! filename (string-append orgfilename "_" (number->string offsetX) "_" (number->string offsetY) ".png") )
			(file-png-save 1 imagesave backlayer filename filename 0 9 1 1 1 1 1)
			(gimp-image-delete imagesave)
			(set! offsetX (+ offsetX sizeX  ))
		)
		(set! offsetY (+ offsetY sizeY))
	)
)


; Register the function with the GIMP:

(script-fu-register
    "ot2gps"
    "<Toolbox>/Script-Fu/OT2Gps"
    "Rozere na jednotlive vyrezy a zkonvertuje do PNG s pozadovanym pocet bavarv." 
    "Petr Krejci"
    "2006 Petr Krejci"
    "26th April 2006"
    ""
    SF-IMAGE "Mapa" 0
    SF-VALUE "Vyrez - vyska" "960"
    SF-VALUE "Vyrez - sirka" "1280"
    SF-VALUE "Prekryti vyrezu" "0"
    SF-VALUE "Pocet barev" "10"
)