(define (touch-dialpad-port-function image drawable) (let* ((newImg) (layers (gimp-image-get-layers image)) (num-layers (car layers)) (layer-array (cadr layers))) (gimp-layer-set-visible (aref layer-array 24) TRUE) (gimp-layer-set-visible (aref layer-array 25) TRUE) (gimp-layer-set-visible (aref layer-array 26) FALSE) (gimp-layer-set-visible (aref layer-array 27) TRUE) (gimp-layer-set-visible (aref layer-array 28) TRUE) (gimp-layer-set-visible (aref layer-array 44) FALSE) (gimp-layer-set-visible (aref layer-array 45) FALSE) (gimp-layer-set-visible (aref layer-array 46) FALSE) (gimp-layer-set-visible (aref layer-array 47) FALSE) (gimp-layer-set-visible (aref layer-array 48) FALSE) (gimp-layer-set-visible (aref layer-array 49) FALSE) (gimp-selection-layer-alpha (aref layer-array 19)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/indialer_ps.png" "/files/Graphics/WM_Themes/dialpad/tmp/indialer_ps.png") (gimp-selection-layer-alpha (aref layer-array 30)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtnup_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtnup_Port.png") (gimp-selection-layer-alpha (aref layer-array 31)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtnup_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtnup_Port.png") (gimp-selection-layer-alpha (aref layer-array 32)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/StarBtnup_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/StarBtnup_Port.png") (gimp-selection-layer-alpha (aref layer-array 33)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtnup_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtnup_Port.png") (gimp-selection-layer-alpha (aref layer-array 34)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9up_Port.png") (gimp-selection-layer-alpha (aref layer-array 35)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8up_Port.png") (gimp-selection-layer-alpha (aref layer-array 36)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7up_Port.png") (gimp-selection-layer-alpha (aref layer-array 37)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6up_Port.png") (gimp-selection-layer-alpha (aref layer-array 38)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5up_Port.png") (gimp-selection-layer-alpha (aref layer-array 39)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4up_Port.png") (gimp-selection-layer-alpha (aref layer-array 40)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3up_Port.png") (gimp-selection-layer-alpha (aref layer-array 41)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2up_Port.png") (gimp-selection-layer-alpha (aref layer-array 42)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1up_Port.png") (gimp-selection-layer-alpha (aref layer-array 43)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0up_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0up_Port.png") (gimp-layer-set-visible (aref layer-array 26) TRUE) (gimp-selection-layer-alpha (aref layer-array 30)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtndn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtndn_Port.png") (gimp-selection-layer-alpha (aref layer-array 31)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtndn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtndn_Port.png") (gimp-selection-layer-alpha (aref layer-array 32)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/StarBtndn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/StarBtndn_Port.png") (gimp-selection-layer-alpha (aref layer-array 33)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtndn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtndn_Port.png") (gimp-selection-layer-alpha (aref layer-array 34)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 35)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 36)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 37)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 38)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 39)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 40)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 41)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 42)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1dn_Port.png") (gimp-selection-layer-alpha (aref layer-array 43)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0dn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0dn_Port.png") (gimp-layer-set-visible (aref layer-array 24) FALSE) (gimp-layer-set-visible (aref layer-array 25) FALSE) (gimp-layer-set-visible (aref layer-array 26) FALSE) (gimp-layer-set-visible (aref layer-array 27) FALSE) (gimp-selection-layer-alpha (aref layer-array (- num-layers 1))) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/Dialer_BkgdP.png" "/files/Graphics/WM_Themes/dialpad/tmp/Dialer_BkgdP.png") (gimp-layer-set-visible (aref layer-array 28) FALSE) (gimp-layer-set-visible (aref layer-array 44) TRUE) (gimp-layer-set-visible (aref layer-array 45) TRUE) (gimp-layer-set-visible (aref layer-array 46) TRUE) (gimp-layer-set-visible (aref layer-array 47) TRUE) (gimp-selection-layer-alpha (aref layer-array (- num-layers 1))) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/Progress_BkgdP.png" "/files/Graphics/WM_Themes/dialpad/tmp/Progress_BkgdP.png") (gimp-layer-set-visible (aref layer-array 48) TRUE) (gimp-layer-set-visible (aref layer-array 49) TRUE) (gimp-selection-layer-alpha (aref layer-array 51)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EdBtnDn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/EdBtnDn_Port.png") (gimp-selection-layer-alpha (aref layer-array 50)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/CmdBtnDn_Port.png" "/files/Graphics/WM_Themes/dialpad/tmp/CmdBtnDn_Port.png") ) ) (script-fu-register "touch-dialpad-port-function" _"/Xtns/My Stuff/dialpad-port..." "slice a dialpad portrate image into parts" "Philip Dean" "Copyright 2008 Philip Dean" "Feb. 23 2008" "" SF-IMAGE "image" 0 SF-DRAWABLE "drawable" 0 ) (define (touch-dialpad-land-function image drawable) (let* ((newImg) (layers (gimp-image-get-layers image)) (num-layers (car layers)) (layer-array (cadr layers))) (gimp-layer-set-visible (aref layer-array 24) TRUE) (gimp-layer-set-visible (aref layer-array 25) TRUE) (gimp-layer-set-visible (aref layer-array 26) FALSE) (gimp-layer-set-visible (aref layer-array 27) TRUE) (gimp-layer-set-visible (aref layer-array 28) TRUE) (gimp-layer-set-visible (aref layer-array 44) FALSE) (gimp-layer-set-visible (aref layer-array 45) FALSE) (gimp-layer-set-visible (aref layer-array 46) FALSE) (gimp-layer-set-visible (aref layer-array 47) FALSE) (gimp-layer-set-visible (aref layer-array 48) FALSE) (gimp-layer-set-visible (aref layer-array 49) FALSE) (gimp-selection-layer-alpha (aref layer-array 19)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/indialer_ls.png" "/files/Graphics/WM_Themes/dialpad/tmp/indialer_ls.png") (gimp-selection-layer-alpha (aref layer-array 30)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtnup_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtnup_Land.png") (gimp-selection-layer-alpha (aref layer-array 31)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtnup_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtnup_Land.png") (gimp-selection-layer-alpha (aref layer-array 32)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/StarBtnup_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/StarBtnup_Land.png") (gimp-selection-layer-alpha (aref layer-array 33)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtnup_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtnup_Land.png") (gimp-selection-layer-alpha (aref layer-array 34)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9up_Land.png") (gimp-selection-layer-alpha (aref layer-array 35)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8up_Land.png") (gimp-selection-layer-alpha (aref layer-array 36)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7up_Land.png") (gimp-selection-layer-alpha (aref layer-array 37)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6up_Land.png") (gimp-selection-layer-alpha (aref layer-array 38)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5up_Land.png") (gimp-selection-layer-alpha (aref layer-array 39)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4up_Land.png") (gimp-selection-layer-alpha (aref layer-array 40)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3up_Land.png") (gimp-selection-layer-alpha (aref layer-array 41)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2up_Land.png") (gimp-selection-layer-alpha (aref layer-array 42)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1up_Land.png") (gimp-selection-layer-alpha (aref layer-array 43)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0up_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0up_Land.png") (gimp-layer-set-visible (aref layer-array 26) TRUE) (gimp-selection-layer-alpha (aref layer-array 30)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtndn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/EraseBtndn_Land.png") (gimp-selection-layer-alpha (aref layer-array 31)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtndn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/ClogBtndn_Land.png") (gimp-selection-layer-alpha (aref layer-array 32)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/StarBtndn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/StarBtndn_Land.png") (gimp-selection-layer-alpha (aref layer-array 33)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtndn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/PoundBtndn_Land.png") (gimp-selection-layer-alpha (aref layer-array 34)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn9dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 35)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn8dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 36)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn7dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 37)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn6dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 38)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn5dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 39)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn4dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 40)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn3dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 41)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn2dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 42)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn1dn_Land.png") (gimp-selection-layer-alpha (aref layer-array 43)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0dn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/NmBtn0dn_Land.png") (gimp-layer-set-visible (aref layer-array 24) FALSE) (gimp-layer-set-visible (aref layer-array 25) FALSE) (gimp-layer-set-visible (aref layer-array 26) FALSE) (gimp-layer-set-visible (aref layer-array 27) FALSE) (gimp-selection-layer-alpha (aref layer-array (- num-layers 1))) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/Dialer_BkgdL.png" "/files/Graphics/WM_Themes/dialpad/tmp/Dialer_BkgdL.png") (gimp-layer-set-visible (aref layer-array 28) FALSE) (gimp-layer-set-visible (aref layer-array 44) TRUE) (gimp-layer-set-visible (aref layer-array 45) TRUE) (gimp-layer-set-visible (aref layer-array 46) TRUE) (gimp-layer-set-visible (aref layer-array 47) TRUE) (gimp-selection-layer-alpha (aref layer-array (- num-layers 1))) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/Progress_BkgdL.png" "/files/Graphics/WM_Themes/dialpad/tmp/Progress_BkgdL.png") (gimp-layer-set-visible (aref layer-array 48) TRUE) (gimp-layer-set-visible (aref layer-array 49) TRUE) (gimp-selection-layer-alpha (aref layer-array 51)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/EdBtnDn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/EdBtnDn_Land.png") (gimp-selection-layer-alpha (aref layer-array 50)) (gimp-edit-copy-visible image) (set! newImg (car (gimp-edit-paste-as-new))) (file-png-save-defaults RUN-NONINTERACTIVE newImg (car (gimp-image-flatten newImg)) "/files/Graphics/WM_Themes/dialpad/tmp/CmdBtnDn_Land.png" "/files/Graphics/WM_Themes/dialpad/tmp/CmdBtnDn_Land.png") ) ) (script-fu-register "touch-dialpad-land-function" _"/Xtns/My Stuff/dialpad-land..." "slice a dialpad landscape image into parts" "Philip Dean" "Copyright 2008 Philip Dean" "Feb. 24 2008" "" SF-IMAGE "image" 0 SF-DRAWABLE "drawable" 0 )