From: Tom Reilly <w3gat@...>
Date: 2007-11-29T08:01:39+09:00
Subject: Re: Im trying to make Thumbnail pics  -- any suggestions?

wiz_pendases@yahoo.com wrote:
> Im trying to make Thumbnail pics  -- any suggestions? (dont know wher
> to start)
>
>
>   
#  Make Thumb Nails
# This works fine to make thumbnails for my web site
# lots of luck
#Tom Reilly

require 'rmagick'
include Magick

def rsz(hgt,wdt,msze)
    if hgt > wdt
        r = msze.to_f / hgt.to_f
        return [ msze, (wdt.to_f * r).to_i]
    else
        r = msze.to_f / wdt.to_f
        return [(hgt.to_f * r).to_i, msze]
    end
end


tnDir = ".\\"
jpgArray = Array.new
dir = Dir.new(tnDir)
dir.each do |d|
    jpgArray.push(d) if d =~ /jpg/
end



pix = ImageList.new
jpgArray.each {|x| pix.read(x)  if x .downcase =~ /jpg/}

pix.each do |x|
   
    rows = x.rows
    columns = x.columns
    factor1 = 200
    factor2 = 450
    a = rsz(columns,rows,factor1)
   
   x.resize!(a[0],a[1])
        #img.resize!(cols,rows)
 #       img2 = x.frame
        x.write(".\\stamp\\#{"t" + x.filename}")
end