;;; Plugin  : copy-rotate
;;; Author  : tekhertz
;;; Date    : jan 13, 2010
;;; Revision: None
;;;                
;;; Version : 1.0
;;; Latest version at: http://registry.gimp.org
;;; Required : Gimp 2.6 or later
;;;
;;; Description: 
;;; copy active selection rotate and anchor it based on count and angle
;;; -----------------------------------------------------------------------------
;;;
;;; License:
;;; 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., 675 Mass Ave, Cambridge, MA 02139, USA.

(define (script-fu-copy-rotate 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-image-undo-group-start inImage)
   (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 yCenter 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)
   (gimp-image-undo-group-end inImage)
      );let
) ;;def



(script-fu-register
"script-fu-copy-rotate"
_"<Image>/_Select/_script-fu-copy-rotate"
"copy active selection rotate and anchor it "
"*"
"*"
"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 0 360 0.1 1 1 1) 
SF-ADJUSTMENT "Number of Objects" '(3 -9999 9999 1 10 0 1)
)