; Luigi Chiesa 2008.  No copyright.  Public Domain.
; Add a grid of guides

(define (script-fu-grid-guides InImage InHGrid InVGrid InBorder)
  (gimp-image-undo-group-start InImage)
  (let* (
        (width (car (gimp-image-width InImage)))
      	(height (car (gimp-image-height InImage)))
        (divH (/ width InHGrid))
        (divV (/ height InVGrid))
        (hcount 1)
        (vcount 1)
        )
        
    (if (= InBorder TRUE)
      (begin
        (gimp-image-add-hguide InImage 0)
        (gimp-image-add-hguide InImage height)
        (gimp-image-add-vguide InImage 0)
        (gimp-image-add-vguide InImage width)
      )
    )

    (while (< hcount InVGrid) 
      (gimp-image-add-hguide InImage (* divV hcount))
      (set! hcount (+ hcount 1))
    )

    (while (< vcount InHGrid) 
      (gimp-image-add-vguide InImage (* divH vcount))
      (set! vcount (+ vcount 1))
    )

	(gimp-image-undo-group-end InImage)
  (gimp-displays-flush)
  )
)

(script-fu-register
  "script-fu-grid-guides"
  "<Image>/Image/Guides/Grid"
  "Add a grid of guides"
  "Luigi Chiesa"
  "Public Domain"
  "November 2008"
  "*"
  SF-IMAGE      "Image"   0
	SF-ADJUSTMENT	"Horizontal parts"	'(2 1 100 1 10 0 1)
	SF-ADJUSTMENT	"Vertical parts"	'(2 1 100 1 10 0 1)
  SF-TOGGLE "Border guides?" FALSE
)