; Mura Meister Copies Rel 1 ; Created by Tin Tran ; Comments directed to http://gimpchat.com or http://gimpscripts.com ; ; License: GPLv3 ; 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 3 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. ; ; To view a copy of the GNU General Public License ; visit: http://www.gnu.org/licenses/gpl.html ; ; ; ------------ ;| Change Log | ; ------------ ; Rel 1: Initial release based on http://gimpchat.com/viewtopic.php?f=9&t=14116#p193028 (define (script-fu-mura-meister-copies image layer center-x center-y copies ) (let* ( (width (car (gimp-image-width image))) (height (car (gimp-image-height image))) (copy-count 0) (layer-copy 0) (rotate-angle 0) (inc-angle (/ 360 copies)) ) ;(gimp-image-undo-disable image); DN = NO UNDO (gimp-context-push) (gimp-image-undo-group-start image) ;undo-group in one step (while (< copy-count copies) (set! rotate-angle (+ rotate-angle inc-angle)) (set! layer-copy (car(gimp-layer-copy layer TRUE))) (gimp-image-insert-layer image layer-copy 0 0) (set! layer-copy (car (gimp-item-transform-rotate layer-copy (/ (* (* rotate-angle 2) 3.14159265359) 360) FALSE center-x center-y ) ) ) (set! copy-count (+ copy-count 1)) ) ;(gimp-image-undo-enable image) ;DN = NO UNDO (gimp-image-undo-group-end image) ;undo group in one step (gimp-context-pop) (gimp-displays-flush) ) ) ;end of define (script-fu-register "script-fu-mura-meister-copies" ;function name of the function defined above "/Script-Fu/Mura Meister Copies..." ;menu register (where can this script be access from inside GIMP) "Imitates Mura Meister Copies" ;description "Tin Tran" ;author name "copyright info and description" ;copyright info or description "2016" ;date "RGB*, GRAY*" ;mode SF-IMAGE "Image" 0 SF-DRAWABLE "Layer" 0 SF-ADJUSTMENT "Rotate Center X" '(50 0 2000 1 50 0 0) SF-ADJUSTMENT "Rotate Center Y" '(50 0 2000 1 50 0 0) SF-ADJUSTMENT "Number of Copies" '(12 0 3000 1 50 0 0) )