
;;  samj 20130312


(define	
	(
		script-fu-sky-reset
		image
		drawable
	)
	(let* 
		(
			(width (car (gimp-image-width image)))
			(height (car (gimp-image-height image)))
		)


		(gimp-undo-push-group-start image)

		(plug-in-sky 1 image (car (gimp-image-get-active-layer image)) 0 0 1234 TRUE 0.2 0.2 3 '(117 127 138) '(13 31 82) '(255 237 224) '(255 255 255) '(0 0 0))

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

	)
)

(script-fu-register "script-fu-sky-reset"
                    _"<Image>/Filters/Render/Clouds/Sky Reset..."
                    "Reset clouds and sky."
                    "samj"
                    "samj"
                    "20130212"
                    "RGB*"
                    SF-IMAGE    "Image"     0
                    SF-DRAWABLE "Drawable"  0
				
)

;; FIN






