; a function to draw curly braces
; Define the function:

(define (script-fu-test-scale inImage inLayer)
    (let* (
		(floating-selection)    		
          )
	
	(gimp-rect-select inImage 100 100 50 50 2 FALSE 0)
	(gimp-edit-bucket-fill inLayer 0 NORMAL 100 0 0 0 0)
        (set! floating-selection (car (gimp-selection-float inLayer 0 0)))
	(gimp-drawable-transform-scale-default floating-selection 
					0 0 
					20 20
					TRUE FALSE
	)
	
    )
)


(script-fu-register
 "script-fu-test-scale"
 _"<Image>/Dr_aw/Test Scale"
 "Test scale function"
 "Suchi Myjak"
 "2006, Suchi Myjak"
 "21 May 2006"
 "RGB* GRAY* INDEXED*"
 SF-IMAGE "The Image" 0
 SF-DRAWABLE "The Layer" 0
)

