;; -*-scheme-*- 

(define (script-fu-one-third-tile-offset inImage
					 inLayer) 
(let
(
(theImage 0)
(theLayer 0)
(theHeight 0)
(theWidth 0)
(AllLayers 0)
(num-layers 0)
(layer-array 0)
(layer-count 0)
(layer 0)
)					 
	(set! theImage inImage)
	(set! theLayer inLayer)
	(set! theHeight (car (gimp-drawable-height theLayer)))
	(set! theWidth (car (gimp-drawable-width theLayer)))
	
	(set! AllLayers (gimp-image-get-layers theImage))
	(set! num-layers (car AllLayers))
	(set! layer-array (cadr AllLayers))
	
	
	(set! theHeight (/ theHeight 3))
	(set! theWidth (/ theWidth 3))
	
	(gimp-image-undo-group-start theImage)
	
	
	(set! layer-count 0)
	(while (< layer-count num-layers)
      (set! layer (aref layer-array layer-count))
      ;(gimp-layer-set-offsets layer theWidth theHeight)
	  (gimp-drawable-offset layer 1 1 theWidth theHeight)
      (set! layer-count (+ layer-count 1))
	 )

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

(script-fu-register "script-fu-one-third-tile-offset" 
		    _"One Third Tile _Offset"
		    "Offsets all layers by one third, when making seamless textures. Expected cases are: all layers have the same size, i.e 1024x1024"
		    "Ilian 'Ultrano' Dinev"
		    "2010, Ilian Dinev, Premik, Hanson"
		    "27th september 2010"
		    "RGB*"
			
		    SF-IMAGE    "Image"    0 
		    SF-DRAWABLE "Drawable" 0)

(script-fu-menu-register "script-fu-one-third-tile-offset" 
			 "<Image>/Image")