Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

(Guildenstern) Not using GD, but it works...

by Guildenstern (Deacon)
on Apr 17, 2002 at 21:03 UTC ( #160001=note: print w/replies, xml ) Need Help??


in reply to GD thumbnail script errors

I wrote a similar script to create thumbnails of images, but instead of using GD, I used some of Tk's functionality. Here's the relevant snippet:
use Tk; use Tk::JPEG; use Image::Size; #..snip.. my $main = new MainWindow; my $canvar = $main->Canvas()->grid; #..snip.. # $im_format is either "gif" or "jpeg" # $_ is full path to file my $image = $canvar->Photo('-format' => $im_format, -file => $_); # Using the Image::Size module my ($x, $y) = imgsize($_); # An easy number for me to use - YMMV my $scale_factor = ceil($x / 100); # This will be the thumb my $newimg = $canvar->Photo(); # This is where the magic happens $newimg->copy($image,'-subsample' =>$scale_factor); # Write it to file $newimg->write($thumb_name, -format => $im_format); # Housekeeping $image->delete(); $newimg->delete(); #..snip..


Not super elegant, but it works!

Guildenstern
Negaterd character class uber alles!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://160001]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2020-10-19 23:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (207 votes). Check out past polls.

    Notices?