<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0"><channel><title>lightbox / Drkcore</title><link>http://blog.kzfmix.com/lightbox</link><description>Programming, Music, Snowboarding</description><language>ja</language><lastBuildDate>Tue, 04 Jul 2006 22:56:06 +0919</lastBuildDate><item><title>Lightboxを使ってみた</title><link>http://blog.kzfmix.com/entry/1152021366</link><description>&lt;p&gt;&lt;a href="http://www.huddletogether.com/projects/lightbox2/"&gt;Lightbox JS&lt;/a&gt;を触ってみた。やっぱいい感じ。でも右下にcloseのアイコンとか出るはずなのに出なかったりするのは、cssの設定が悪いのかな。&lt;/p&gt;
&lt;p&gt;&lt;a href="/images/blosxom/3844.jpg" rel="lightbox[roadtrip]"&gt;&lt;img src="http://www.kzfmix.com/images/blosxom/3844_small.jpg" alt="yuki"/&gt;&lt;/a&gt;
&lt;a href="/images/blosxom/2296.jpg" rel="lightbox[roadtrip]"&gt;&lt;img src="http://www.kzfmix.com/images/blosxom/2296_small.jpg" alt="hana"/&gt;&lt;/a&gt;&lt;/p&gt;
&lt;p&gt;lightbox用に小さい画像と、大きい画像（クリックしたときに表示される画像）の二つを用意しないといけないが、この作業を、いちち手でやるのは面倒だということで、&lt;a href="/Computer/W2K/dragperl060629.html"&gt;windowsでperlスクリプトを
ドラッグドロップ化&lt;/a&gt;したのでお手軽になった。でもユッキー様をあやしながら書いたのでスクリプトはやっつけ。名前考えるのが面倒というありがちな理由で、とりあえずプロセス番号がファイル名で且つCドライブに吐き出すようにしておいた。&lt;/p&gt;
&lt;blockquote class="terminal"&gt;
&lt;pre&gt;&lt;code&gt;use strict;
use Image::Magick;

### image size
my $width = 480;
my $height = 360;
my $width_small = 160;
my $height_small = 120;

my $imgfile = shift or die "couldn't read ImageFile\n"; 
$imgfile =~ /\\(\w+).(jpg|JPG)$/;
my $filename = $1;

### output
#my $output = "C:/" . $filename .".jpg";
#my $output_small = "C:/" . $filename ."_small.jpg";
my $output = "C:/".$$.".jpg";
my $output_small = "C:/".$$."_small.jpg";

my $image = Image::Magick-&gt;new;
$image-&gt;Read($imgfile);
$image-&gt;Resize(width=&gt;$width, height=&gt;$height, blur=&gt;0.8);
$image-&gt;Set(quality=&gt;60);
$image-&gt;Write($output);

$image-&gt;Resize(width=&gt;$width_small, height=&gt;$height_small);
$image-&gt;Write($output_small);

undef $image;
exit;

&lt;/code&gt;&lt;/pre&gt;
&lt;/blockquote&gt;

&lt;p&gt;ちなみに、Image::Magickモジュールのインストールは楽だった。imagemagickをインストールする際に「perlでモジュールとして使う」にチェックを入れるだけ。&lt;/p&gt;
&lt;p&gt;実際は、もうちょっとちゃんと書いて、サーバーにftpしつつ、アップロードした画像をlightboxで扱うためのhtmlを吐き出すコードまで書いておけば申し分ないな。&lt;/p&gt;
&lt;p&gt;いつも使っている画像アップロード用CGIをいじるという選択肢もあったんだけど、ドロップレット風味で実用っぽいものをひとつくらい作ってみたかったので今回はWindowsプログラミング。&lt;/p&gt;
&lt;p&gt;他には実際にやってみて思ったのは、縮小画像を載せるんじゃなくて画像を切り取りつつ、小さくしたものをアイコン的に表示させておくほうがいいなと思った。単なる拡大縮小じゃつまらん。とか考えると、gimp使ったほうがいいのか？&lt;/p&gt;
&lt;p&gt;いやいや、これを敢えてCGI+javascriptでやるべきでしょう&lt;/p&gt;
&lt;p&gt;みたいな禅問答のはじまりだ。手段が目的化しつつあることにはうすうす気付いているけどネ。&lt;/p&gt;</description><pubDate>Tue, 04 Jul 2006 22:56:06 +0919</pubDate><category>perl</category><category>ajax</category><category>lightbox</category></item></channel></rss>