Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Resize the image fit for a wallpaper of android "Home" (see http://sunnyone41.blogspot.jp/2012/11/androidgimp.html)
;
; android-wallpaper
;
; Resize the image fit for a wallpaper of android "Home"
;
; Copyright (c) 2012 Yoichi Imai, All rights reserved.
;
; Permission is hereby granted, free of charge, to any person obtaining
; a copy of this software and associated documentation files (the
; "Software"), to deal in the Software without restriction, including
; without limitation the rights to use, copy, modify, merge, publish,
; distribute, sublicense, and/or sell copies of the Software, and to
; permit persons to whom the Software is furnished to do so, subject to
; the following conditions:
;
; The above copyright notice and this permission notice shall be
; included in all copies or substantial portions of the Software.
;
; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
; LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;
(define (script-fu-android-wallpaper image
drawable)
(let (
(origWidth (car (gimp-image-width image)))
(origHeight (car (gimp-image-height image)))
(wallLayer 0)
)
(gimp-image-undo-group-start image)
(gimp-image-resize image
(* origWidth 2)
origHeight
(/ origWidth 2)
0)
(set! wallLayer (car (gimp-layer-new image
(* origWidth 2)
origHeight
RGBA-IMAGE
"Wallpaper Layer"
100
NORMAL-MODE)))
(gimp-image-add-layer image
wallLayer
(car (gimp-image-get-layers image)))
(gimp-image-undo-group-end image)
)
)
(script-fu-register "script-fu-android-wallpaper"
_"Resize for Android Wallpaper"
_"Resize the image to the size of android wallpaper"
"Yoichi Imai <sunnyone41@gmail.com>"
"Yoichi Imai"
"2012/11/25"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
)
(script-fu-menu-register "script-fu-android-wallpaper"
"<Image>/Image")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment