HI
I've just finished a script-fu that splits an RGB*-image into pieces and
saves them them to gifs. I needed this script to produce buttons for a
web-site. If you create web-gfx with gimp you often have many icons,
buttons or whatever of one type. So its easier to create and manipulate
all elements in ONE image. My problem was, that I had to cut-out about
20 elements, pixel-accurate, and save them to gifs. And I had to repeat
this procedure after every little change (e.g. color-change).
So I wrote this little script-fu, which cuts a large image in a number of rows
and saves these to gifs. It works on RGB*-pictures only (it produces black
images when working with indexed-mode, don't ask me why). It takes the
parameters:
yoffset y-pixel-offset (where the first row starts)
yheight height off the rows
ydelta difference between two rows (usually = yheight)
ypieceoffset you can skip whole rows with this parameter, e.g.
start with row 2).
ypieces number of rows to cut
savepath path and name of images, if you cut 8 images and
set savepath to c:\tmp\image it will result in in
c:\tmp\image0.gif, c:\tmp\image1.gif ......
So, after offering my script I must warn you. There is a BIG PROBLEM with it.
It crashes gimp if the amount of ypieces gets to high. I tried to deallocate/free/
delete the used layers, but i didn't work. Freeing the image doesn't work too...
So, maybe there is some script-fu-master here to help me ????
Now the script:
------ snip --------
; split-image.scm
; 03/16/2000
(define (script-fu-selection-split-image image drawable yoffset yheight ydelta
ypiecesoffset ypieces
savepath)
( let* (
(ystart yoffset)
(iwidth (car (gimp-image-width image)))
(iheight (car (gimp-image-height image)))
(draw-type (car (gimp-drawable-type-with-alpha drawable)))
(image-type (car (gimp-image-base-type image)))
(old-bg (car (gimp-palette-get-background)))
(savename "")
(postfix 0)
(ypiecescount 0)
)
(gimp-image-undo-disable image)
(set! ypiecescount ypiecesoffset)
(set! ystart (+ ystart (* ypiecescount ydelta)))
(while (< ypiecescount ypieces)
(gimp-rect-select image 0 ystart iwidth yheight REPLACE FALSE 0)
(gimp-edit-copy drawable)
(set! new-image (car (gimp-image-new iwidth yheight image-type)))
(set! new-draw (car (gimp-layer-new new-image iwidth yheight draw-type "Selection"
100 NORMAL)))
(gimp-image-add-layer new-image new-draw 0)
(gimp-drawable-fill new-draw BG-IMAGE-FILL)
(let (
(floating-sel (car (gimp-edit-paste new-draw FALSE)))
)
(gimp-floating-sel-anchor floating-sel)
)
; (set! new-display (car (gimp-display-new new-image)))
(set! savename (string-append savepath (number->string postfix)))
(set! savename (string-append savename ".gif"))
(set! postfix (+ postfix 1))
; (gimp-message savename)
(gimp-convert-indexed new-image 3 0 256 FALSE FALSE "")
(gimp-file-save 1 new-image new-draw savename savename)
; (gimp-image-delete new-image)
; (gimp-display-delete (new-display)) ; does NOT WORK, grrrrrrrr
(gimp-image-set-active-layer image drawable)
(set! ystart (+ ystart ydelta))
(set! ypiecescount (+ ypiecescount 1))
; (set! ystart iheight)
)
(gimp-image-undo-enable image)
(gimp-palette-set-background old-bg)
(gimp-displays-flush)
)
)
(script-fu-register
"script-fu-selection-split-image"
"<Image>/Script-Fu/Selection/Split An Image"
"Split an image to rows and save
the images as indexed gif's works
on flattened RGB Images-Only"
"Christian Schlange <[EMAIL PROTECTED]>"
"Christian Schlange"
"03/09/2000"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "yoffset:" "1"
SF-VALUE "yheight:" "19"
SF-VALUE "ydelta:" "22"
SF-VALUE "ypieceoffset:" "0"
SF-VALUE "ypieces:" "8"
SF-FILENAME "filename (w/o ext): " ""
)
