;;  ***************************************************************************
;;  *   Copyright (C) 2011 by James Sambrook                                  *
;;  *   sambrook@va.metrocast.net                                             *
;;  *                                                                         *
;;  *   This program is free software; you can redistribute it and/or modify  *
;;  *   it under the terms of the GNU General Public License as published by  *
;;  *   the Free Software Foundation; either version 2 of the License, or     *
;;  *   (at your option) any later version.                                   *
;;  *                                                                         *
;;  *   This program is distributed in the hope that it will be useful,       *
;;  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
;;  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
;;  *   GNU General Public License for more details.                          *
;;  *                                                                         *
;;  *   You should have received a copy of the GNU General Public License     *
;;  *   along with this program; if not, write to the                         *
;;  *   Free Software Foundation, Inc.,                                       *
;;  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
;;  ***************************************************************************

(define (script-fu-ShapeGrid
	gType
	gShape
	circDiam
	xCirc
	yCirc
	oBorder
	gapSpace
	gridColor
	bgColor
	)

	(let* (

		(s3 (sqrt 3))
		(circRad (/ circDiam 2.0))
		(tBorder (* 2 oBorder))

		(xGap 0)
		(yGap 0)
		(inWidth 0)
		(inHeight 0)
		(theImage 0)
		(baseLayer 0)

		(xFlag 0)
		(yFlag 0)
		(xStart 0.0)
		(yStart 0.0)
		(rowCheck 0.0)
		)

		(cond
			((= gType 0)
				(set! inWidth (+ tBorder (* circDiam xCirc) (* gapSpace (- xCirc 1))))
				(set! inHeight (+ tBorder (* circDiam yCirc) (* gapSpace (- yCirc 1))))
			)
			((= gType 1)
				(set! xGap (* s3 (+ circRad (* 0.5 gapSpace))))
				(set! yGap (* gapSpace (- yCirc 1)))
				(set! inWidth (+ tBorder circDiam (* (- xCirc 1) xGap)))
				(set! inHeight (+ tBorder circRad yGap (* gapSpace 0.5) (* circDiam yCirc)))
			)
		)

		(set! theImage (car (gimp-image-new inWidth inHeight RGB)))
		(set! baseLayer (car (gimp-layer-new theImage inWidth inHeight RGB-IMAGE "ShapeGrid" 100 NORMAL-MODE)))

		(gimp-image-add-layer theImage baseLayer 0)

		(gimp-context-set-background bgColor)
		(gimp-context-set-foreground gridColor)

		(gimp-drawable-fill baseLayer BACKGROUND-FILL)

		(while (< xFlag xCirc)
			(cond
				((= gType 0)
					(set! xStart (+ oBorder (* xFlag (+ circDiam gapSpace))))
				)
				((= gType 1)
					(if (= (fmod xFlag 2) 1)
						(set! rowCheck (+ (* gapSpace 0.5) circRad))
					)
					(set! xStart (+ oBorder (* s3 (+ circRad (* 0.5 gapSpace)) xFlag)))
				)
			)

			(while (< yFlag yCirc)
				(set! yStart (+ rowCheck oBorder (* gapSpace yFlag) (* circDiam yFlag)))
				(cond
					(( equal? gShape 0 ) 
						(gimp-ellipse-select theImage xStart yStart circDiam circDiam CHANNEL-OP-ADD TRUE FALSE 0)
					)
					(( equal? gShape 1 ) 
						(gimp-rect-select theImage xStart yStart circDiam circDiam CHANNEL-OP-ADD TRUE FALSE 0)
					)
					(( equal? gShape 2 ) 
						(gimp-free-select theImage 8 
						(vector xStart (+ yStart (* circDiam 0.5))
						(+ xStart (* circDiam 0.5)) yStart
						(+ xStart circDiam) (+ yStart (* circDiam 0.5))
						(+ xStart (* circDiam 0.5)) (+ yStart circDiam)
						)
						CHANNEL-OP-ADD TRUE FALSE 0)
					)
					(( equal? gShape 3 ) 
						(gimp-free-select theImage 12 
						(vector xStart (+ yStart (* circDiam 0.5))
						(+ xStart (* circDiam 0.25)) (+ yStart (* circDiam 0.067))
						(+ xStart (* circDiam 0.75)) (+ yStart (* circDiam 0.067))
						(+ xStart circDiam) (+ yStart (* circDiam 0.5))
						(+ xStart (* circDiam 0.75)) (+ yStart (* circDiam 0.933))
						(+ xStart (* circDiam 0.25)) (+ yStart (* circDiam 0.933))
						)
						CHANNEL-OP-ADD TRUE FALSE 0)
					)
					(( equal? gShape 4 ) 
						(gimp-free-select theImage 16 
						(vector (+ xStart (* circDiam 0.2929)) yStart
						(+ xStart (* circDiam 0.7071)) yStart
						(+ xStart circDiam) (+ yStart (* circDiam 0.2929))
						(+ xStart circDiam) (+ yStart (* circDiam 0.7071))
						(+ xStart (* circDiam 0.7071)) (+ yStart circDiam)
						(+ xStart (* circDiam 0.2929)) (+ yStart circDiam)
						xStart (+ yStart (* circDiam 0.7071))
						xStart (+ yStart (* circDiam 0.2929))
						)
						CHANNEL-OP-ADD TRUE FALSE 0)
					)
				)
				
				(set! yFlag (+ 1 yFlag))
			)
	
			(set! xFlag (+ xFlag 1))
			(set! yFlag 0)
			(set! rowCheck 0.0)
		)
		
		(gimp-edit-bucket-fill baseLayer FG-BUCKET-FILL NORMAL-MODE 100 255 0 0 0)

		(gimp-selection-none theImage)

		(gimp-display-new theImage)
	)
)

(script-fu-register
	"script-fu-ShapeGrid"
	"Shape Grid..."
	"Creates a grid of X by Y shapes. Either in rectangular or hexagonal packing."
	"James Sambrook"
	"5 April 2011"
	"James Sambrook.  King George, VA, USA"
	""
	SF-OPTION     _"Grid Packing"						'(_"Rectangular"
													_"Hexagonal")
	SF-OPTION     "Shape"						'("Circle" "Square" "Diamond" "Hexagon" "Octagon")													
	SF-ADJUSTMENT _"Size"				'(40 10 200 1 5 0 0)
	SF-ADJUSTMENT _"Count in X Direction" 		'(10 1 100 1 5 0 0)
	SF-ADJUSTMENT _"Count in y Direction" 		'(10 1 100 1 5 0 0)
	SF-ADJUSTMENT _"Outer Border Around Shapes"	'(10 1 100 1 5 0 0)
	SF-ADJUSTMENT _"Gap Between the Shapes"		'(10 1 100 1 5 0 0)
	SF-COLOR      _"Color for grid lines"			'(0 0 0)
	SF-COLOR      _"Color for rectangle interior"	'(255 255 255)
)

(script-fu-menu-register "script-fu-ShapeGrid"
	"<Image>/File/Create/")