(define (toolbox-satin-script height width hue saturation lightness) (let* ( (theImage) (satinLayer) (noiseLayer) (counter 15) (X1) (X2) (Y1) (Y2) ) ) ;closing parenthesis for let* block ) ;closing parenthesis for the define function block (script-fu-register "toolbox-satin-script" "/Xtns/Satin..." "Create a Satin Fabric" "Script Author's Name" "Script Author's Contact Information" "Script Creation/Modification Date" "" SF-ADJUSTMENT "Image Height" '(400 50 10000 1 10 0 1) SF-ADJUSTMENT "Image Width" '(400 50 10000 1 10 0 1) SF-ADJUSTMENT "Satin Color (order of color is R O Y G B V - Red is zero)" '(20 0 360 1 10 0 0) SF-ADJUSTMENT "Color Saturation - Its Depth" '(50 10 100 1 10 0 1) SF-ADJUSTMENT "Color Lightness - Its Brightness" '(0 -50 70 1 10 0 1) )