; February 2004 - add selection linewidth of rows/columns by mpro
(define (script-fu-erase-rows-2 img drawable orientation which type rows1 rows2)
  (let* ((width (car (gimp-drawable-width drawable)))
	 (height (car (gimp-drawable-height drawable))))
    (gimp-undo-push-group-start img)
    (letrec ((loop (lambda (i max)
		     (if (< i max)
			 (begin
			   (if (= orientation 0)
			       (gimp-rect-select img 0 i width rows1 REPLACE FALSE 0)
			       (gimp-rect-select img i 0 rows1 height REPLACE FALSE 0))
			   (if (= type 0)
			       (gimp-edit-clear drawable)
			       (gimp-edit-fill drawable BG-IMAGE-FILL))
			   (loop (+ i (+ rows1 rows2)) max))))))
      (loop (if (= which 0)
		 rows2
		 0)
	    (if (= orientation 0)
		height
		width)))
    (gimp-selection-none img)
    (gimp-undo-push-group-end img)
    (gimp-displays-flush)))

(script-fu-register "script-fu-erase-rows-2"
		    _"<Image>/Script-Fu/Alchemy/Erase every n-th Row..."
		    "Erase every n-th row/column with the background color"
		    "Federico Mena Quintero, mpro"
		    "Federico Mena Quintero"
		    "June 1997, February 2004"
		    "RGB* GRAY* INDEXED*"
		    SF-IMAGE "Image" 0
		    SF-DRAWABLE "Drawable" 0
		    SF-OPTION _"Rows/Cols" '(_"Rows" _"Columns")
		    SF-OPTION _"Even/Odd"  '(_"Even" _"Odd")
		    SF-OPTION _"Erase/Fill"  '(_"Erase" _"Fill with BG")
                SF-ADJUSTMENT _"Linewidth of erased Rows/Columns" '( 1 0 30 1 10 0 1)
                SF-ADJUSTMENT _"Linewidth of Rows/Columns with picture" '( 1 0 30 1 10 0 1)
)