(define (script-fu-copy-rotate-nLayer inImage inLayer xCenter yCenter StartAngle Objects)
	(let* (	(drawable 0)
		(rAngle 0)
		(BoxWidth 0) (BoxHeight 0)
		(xoffset 0) (yoffset 0)
		(countdown 0)
		(sel-float 0)
		(degree 0)
		(imageWidth  (car (gimp-image-width inImage)))
	      )
	(set! BoxWidth (cadr (gimp-selection-bounds inImage)))
	(set! BoxHeight (caddr (gimp-selection-bounds inImage)))
	(set! countdown 0)
	(set! xoffset BoxWidth)
	(set! yoffset BoxHeight)
	(set! drawable inLayer)
	(set! rAngle (* StartAngle (/ 3.14159 180)))
	(gimp-layer-resize-to-image-size inLayer)
  	(gimp-edit-copy drawable);copy
	(gimp-edit-clear drawable);clear selection to handle partial transparency
	
  (while (< countdown Objects) 
    (begin 
	(set! degree (* rAngle countdown))
	(set! sel-float (car (gimp-edit-paste drawable FALSE)));paste
	(gimp-layer-set-offsets sel-float xoffset yoffset);move
	(gimp-drawable-transform-rotate-default sel-float degree FALSE xCenter xCenter FALSE FALSE);rotate
	(gimp-floating-sel-to-layer sel-float);make each transform a new layer
;	(gimp-floating-sel-anchor sel-float);anchor each transform to start layer
	(set! countdown (+ countdown 1))
   );begin
 );while
	(gimp-displays-flush)
   	);let
) ;;def



(script-fu-register
 "script-fu-copy-rotate-nLayer"
 _"<Image>/_Select/_script-fu-copy-rotate-nLayer"
 "copy active selection rotate and anchor it to a new layer "
 "*"
 "*"
 "01/13/2010" 
 "RGB* GRAY* INDEXED*"
 SF-IMAGE "The Image" 0
 SF-DRAWABLE "The Layer" 0
 SF-ADJUSTMENT "Center (x-coordinate)" '(640 0 9999 1 10 0 1)
 SF-ADJUSTMENT "Center (y-coordinate)" '(640 0 9999 1 10 0 1)
 SF-ADJUSTMENT "Angle" '(120 -360 360 0.1 1 1 1) 
 SF-ADJUSTMENT "Number of Objects" '(3 -9999 9999 1 10 0 1)
)