Tuesday 17 September 2013

Image resizer

The following script is a simple image resizer,it will reduce proportionally images. You can set max X or Y or both sizes.


Here is the source code:
Rebol [
Title: "Resizer"
File: %resizer.r
Author: "Massimiliano Vessi"
Date: 2011-07-22
Version: 1.1.2
email: maxint@tiscali.it
Purpose: {Simple image resizer}
]
max_L: 70
max_H: 70
suff: "_small"
ridimensiona:   does [
    immagini: request-file  
    foreach immagine_f   immagini [
        immagine_i: load-image immagine_f
        temp_imm: load-image immagine_f ;we'll use this for height check        
        if x/data [
            dimensioni: immagine_i/size
            if dimensioni/1 > max_L [
                fattore:   dimensioni/1 / max_L  
                temp_L:   layout/tight [ image (dimensioni / fattore) immagine_i ]
                temp_imm: to-image temp_L ;this will be used for heigh check
                if png/data [save/png (to-file rejoin [   immagine_f   suff_f/text ".png" ]) temp_imm]
                if bmp/data [save/bmp (to-file rejoin [   immagine_f   suff_f/text ".bmp" ]) temp_imm]
               
                ]
            ]
        if y/data [
            dimensioni: temp_imm/size ;this way, we'll use the X resized image or the original image
            if dimensioni/2 > max_H [
                fattore:   dimensioni/2 / max_H  
                temp_L:   layout/tight [ image (dimensioni / fattore) immagine_i ]
                temp_imm: to-image temp_L              
                if png/data [save/png (to-file rejoin [   immagine_f   suff_f/text ".png" ]) temp_imm]
                if bmp/data [save/bmp (to-file rejoin [   immagine_f   suff_f/text ".bmp" ]) temp_imm]
                ]
            ]
        ]
    alert "DONE!"  
    ]  
help_L: layout [
    title "Help"
    text 250 {This is software aims to create small copy of the original images, resize the to smaller size.
        You can choose what dimensions use, if software should check just length or height or both.
        You can select multiple files at one time.
        You can choose the suffix to append at the new images.
        If you need further help, you can contact me:}

    text (rejoin [ "maxint" "@" "tiscali.it" ])
    ]
view layout [
    title "THUMBNAIL GENERATOR"
    across
    x: check true
    h4 "Max Leight:"
    maxL: field (to-string max_L)
    return
    y: check
    h4 "Max Height:"
    maxL: field (to-string max_H)
    return
    h4 "Suffix:"
    suff_f: field suff ;ths suffix to append at the file names of thumbnail immages
    return
    h4 "Output image format:"
    bmp: radio
    text ".bmp"
    png: radio true
    text ".png"
    return
    button "Select image(s)" [ ridimensiona ]
    btn-help [view/new help_L ]
    ]

No comments:

Post a Comment