(define (script-mr-kindle img draw)
  (let* ( (cur-width 4) (cur-height 4) (ratio 4) (height 4) (width 4)
    )
  (gimp-context-set-background '( 0 0 0))
          (gimp-image-set-resolution img 72 72)
                  (set! cur-width  (car (gimp-image-width img)))
                  (set! cur-height (car (gimp-image-height img)))
                     (set! ratio      (* 450 cur-height))
                      (set! height     (/ ratio cur-width))
                         (gimp-image-scale img 450 height)
                  (set! cur-width  (car (gimp-image-width img)))
                  (set! cur-height (car (gimp-image-height img)))
              (if (> cur-height 700)
              (begin
                (set! ratio      (* 700 cur-width))
                (set! width     (/ ratio cur-height))
                  (gimp-image-scale img width 700)
                  )
              )
  (gimp-displays-flush)
    )
)

(script-fu-register
  "script-mr-kindle"
  "<Image>/Tools/KINDLE"
  "Magic Cards - set correct parameters for printing and add black border, the image must be cropped first"
  "Stoyan Deckoff <deckoff@gmail.com>"
  "Stoyan Deckoff"
  "25/08/2012"
  "RGB* GRAY*"
   SF-IMAGE "Input Image" 0
  SF-DRAWABLE "Input Drawable" 0
)