script-fuでレイヤーのサイズ変更

                (let* (
                      (img (car (gimp-image-list)))
                      (layer (car (gimp-image-get-active-layer img)))
                      (width (car (gimp-drawable-width layer)))
                      (height (car (gimp-drawable-height layer)))
                      (new-width(inexact->exact (floor (* {bairitsu} width))))
                      (new-height(inexact->exact (floor (* {bairitsu} height))))
                    )
                    (gimp-layer-scale layer new-width new-height INTERPOLATION-CUBIC)
                )