Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (script-fu-full-reflection image layer)
- (gimp-image-undo-group-start image)
- (let*
- (
- (x 0)
- (width (car (gimp-image-width image)))
- (height (car (gimp-image-height image)))
- (reflection-layer
- (car
- (gimp-layer-new
- image
- width
- height
- RGBA-IMAGE
- "Reflection"
- 100
- NORMAL-MODE
- )
- )
- )
- (floating-layer)
- )
- (gimp-image-add-layer image reflection-layer -1)
- (gimp-rect-select
- image
- 0 0
- (/ width 2) (/ height 2)
- CHANNEL-OP-REPLACE
- FALSE
- 0
- )
- (gimp-edit-copy layer)
- (gimp-floating-sel-anchor
- (car
- (gimp-edit-paste reflection-layer FALSE)
- )
- )
- )
- (gimp-displays-flush)
- (gimp-image-undo-group-end image)
- )
- (script-fu-register
- "script-fu-full-reflection"
- "Full R_eflection"
- "Creates realistic reflection of non-flat objects"
- "Zoffix Znet"
- "Copyright 2011, Zoffix Znet"
- "February 9, 2011"
- ""
- SF-IMAGE "The Image" 0
- SF-DRAWABLE "The Layer" 0
- )
- (script-fu-menu-register "script-fu-full-reflection" "<Image>/Filters/Artistic")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement