#„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں
#„  ImageMagick Module
#„  for JoyfulNote v1.95 Rev1.90 
#„  Copyright isso. Sep, 2006
#„  http://swanbay-web.hp.infoseek.co.jp/index.html
#„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں

# „ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں
# ƒTƒ€ƒlƒCƒ‹‰و‘œ‚جExifڈî•ٌ‚ًچيڈœ
# „ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں
sub thumbnail {
	local($imgdir,$no,$tail,$imgfile) = @_;

	use File::Copy;
	$thumfile = "$imgdir$no"."s"."$tail";
	copy($imgfile,$thumfile) || die "ƒtƒ@ƒCƒ‹‚جƒRƒsپ[‚ةژ¸”s‚µ‚ـ‚µ‚½ : $!";
	&JPEGCommentCut($thumfile);
}

# „ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں
# ƒTƒ€ƒlƒCƒ‹‰و‘œ‚ًچىگ¬
# „ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں
sub ImageMagick {
	local($imgdir,$imgno,$tail,$imgfile,$wi,$hi) = @_;

	use Image::Magick;

	$small = "$imgdir$imgno"."s"."$tail";

	$thumb = Image::Magick->new;
	$thumb->Read("$imgfile");

	$thumb->Scale(width=>$wi, height=>$hi);
	$thumb->Set(quality => $quality);
	$thumb->Write("$small");
}

1;