(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)
            (sel-size)
        )

        (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-selection-layer-alpha reflection-layer)
        (set! sel-size (gimp-selection-bounds image))
        (gimp-message (number->string (car sel-size)))
        (gimp-layer-resize
            reflection-layer
            (- (cadddr sel-size) (cadr sel-size))
            (- (cadr (cdddr sel-size)) (caddr sel-size))
            (- 0 (cadr sel-size))
            (- 0 (caddr sel-size))
        )
    )

    (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")