#!/usr/bin/perl

@list=(
	"apps-128.png,google.png",
	"f_logo.png,facebook.png",
	"hatena.png,hatena.png",
	"twitter-bird-blue-on-white.png,twitter.png",
	"Ymark.gif,yahooj.png",
	"openid_bi2.png,openid.png",
);

@size=(48,32,24);

foreach $s(@size) {
	mkdir("./image/src/login$s");
	$w=$s;
	foreach $lst (@list) {
		($l,$r)=split(/,/,$lst);
		$r=~s/\.png/$s\.png/g;
		$ww=`identify -format '%w' ./image/src/_login/$l`;
		$p=$w/$ww*100;
		$r=`convert -geometry $p% ./image/src/_login/$l ./image/src/login$s/$r`;
	}
}
