; hlavni funkce, registrovana do menu
(define (script-fu-wu-resize-book image drawable)
    
    ; interni podfunkce, vykonavajici jeden krok
    (define (wu-resize-sub image drawable height sharpening)
        ; lokalni promenne
        (let* (
                ; sirka a vyska obrazku
                (owidth (car (gimp-image-width image)))
                (oheight (car (gimp-image-height image)))
                ; pomer sirky a vysky
                (ratio (/ owidth oheight))
                ; nova sirka
                (width (* height ratio))
            )
            ; zmenime velikost
            (gimp-image-scale image width height)
            ; doostrime
            (plug-in-sharpen 1 image drawable sharpening)
        )
    )

    ; opakovane zavolame resize na vysku + doostreni
    (gimp-image-undo-group-start image)
    (wu-resize-sub image drawable 1600 40) 
    (wu-resize-sub image drawable 800 30) 
    (wu-resize-sub image drawable 400 20) 
    (wu-resize-sub image drawable 200 15) 
    (gimp-image-undo-group-end image)
    (gimp-displays-flush)
)

(script-fu-register "script-fu-wu-resize-book"
		    "_Resize book..."
		    "Resizes to book size (height 200 px)"
		    "Wu <wuwej@seznam.cz>"
		    "Wu"
		    "2006/08/22"
		    "RGB GRAY"
		    SF-IMAGE    "Image"    0
            SF-DRAWABLE "Drawable" 0)

(script-fu-menu-register "script-fu-wu-resize-book"
			 "<Image>/Script-Fu/Wu")