
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                  Layer Style sample script                ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (script-fu-layer-effects-styles-sample
                   img           ; 
                   layer         ; 
                   angle         ; 
                   pattern       ; 
        )

  (let* (
         (old-bg (car (gimp-palette-get-background)))
        )

    (gimp-undo-push-group-start img)
    (script-fu-layer-effects-bevel-and-emboss img layer 2 angle 10 10
                                              '(255 255 255) 75 4
                                              '(  0   0   0) 75 3)
    (script-fu-layer-effects-gradient-overlay img layer '(255 255 255) '(214 214 214)
                                              0 "Default" angle 1.0 25 4 0 0)
    (script-fu-layer-effects-pattern-overlay img layer pattern 100 0)
    (gimp-undo-push-group-end img)
    (gimp-displays-flush)
  )
)

(script-fu-register
  "script-fu-layer-effects-styles-sample"
  "<Image>/Script-Fu/Layer Effects/Layer Styles/Sample..."
  "Layer Style sample script"
  "Iccii <iccii@hotmail.com>"
  "Iccii"
  "Aug, 2001"
  "RGBA"
  SF-IMAGE      "Image"               0
  SF-DRAWABLE   "Drawable"            0
  SF-ADJUSTMENT "Angle (Degree)"      '(30 0 360 1 10 0 0)
  SF-PATTERN    "Pattern"             "Pine?"
)

