#!perl --
use strict;
use warnings;
use Image::Magick;

sub resize{
	my($src_file,$dst_file,$resize_w,$resize_h,$scale) = @_;

	my $image = new Image::Magick;

	$image->read($src_file);

	my($src_w,$src_h) = $image->Get(qw( width height));
	if( not ( $src_w and $src_h ) ){
		warn "cant get image bound. $src_file\n";
		return;
	}

	if($resize_w < 0 ){
		# wが-1ならソース画像をxxxhdpi(x4)として扱い、$scaleに応じて縮小する
		$resize_w = $src_w * ( $scale /4 );
		$resize_h = $src_h * ( $scale /4 );
	}else{
		# wかhのどちらかが0なら、適当に補う
		if( not $resize_w ){
			$resize_w = $resize_h * $src_w / $src_h;
		}elsif( not $resize_h ){
			$resize_h = $resize_w * $src_h / $src_w;
		}
	}

	$image -> Resize(
		width  => $resize_w,
		height => $resize_h,
		blur   => 0.8,
	);
	$image -> Write( "png:$dst_file" );
	print "$dst_file\n";
}

my @scale_list = (
	[qw( mdpi 1 )],
	[qw( hdpi 1.5 )],
	[qw( xhdpi 2 )],
	[qw( xxhdpi 3 )],
	[qw( xxxhdpi 4 )],
);

sub resize_scales{
	my($src,$res_dir,$dir_prefix,$res_name,$w,$h)=@_;
	if( $w < 0 ){
		for(@scale_list){
			my($dir_suffix,$scale)=@$_;
			my $subdir = "$res_dir/$dir_prefix-$dir_suffix";
			mkdir($subdir,0777);
			resize( $src, "$subdir/$res_name.png", $w,$h,$scale);
		}
	}else{
		for(@scale_list){
			my($dir_suffix,$scale)=@$_;
			my $subdir = "$res_dir/$dir_prefix-$dir_suffix";
			mkdir($subdir,0777);
			resize( $src, "$subdir/$res_name.png", $scale * $w, $scale * $h );
		}
	}
}


my $res_dir = "app/src/main/res";
#resize_scales( "_ArtWork/ic_app_logo-512.png"		,$res_dir,"drawable","ic_app_logo",0,32);

#resize_scales( "_ArtWork/ic_launcher-1024.png"		,$res_dir,"mipmap","ic_launcher",0,48);
#resize_scales( "_ArtWork/ic_notification-817.png"	,$res_dir,"drawable","ic_notification",0,24);

resize_scales( "_ArtWork/ic_launcher_20170513.png"		,$res_dir,"mipmap","ic_launcher",0,48);
resize_scales( "_ArtWork/ic_notification_20150513.png"	,$res_dir,"drawable","ic_notification",0,24);


resize_scales( "_ArtWork/ic_hourglass.png"			,$res_dir,"drawable","ic_hourglass",0,32);
resize_scales( "_ArtWork/ic_hourglass_dark.png"		,$res_dir,"drawable","ic_hourglass_dark",0,32);


resize_scales( "_ArtWork/ic_follow_cross.png"		,$res_dir,"drawable","ic_follow_cross",0,32);
resize_scales( "_ArtWork/ic_follow_cross_dark.png"	,$res_dir,"drawable","ic_follow_cross_dark",0,32);
resize_scales( "_ArtWork/ic_follow_plus.png"		,$res_dir,"drawable","ic_follow_plus",0,32);
resize_scales( "_ArtWork/ic_follow_plus_dark.png"	,$res_dir,"drawable","ic_follow_plus_dark",0,32);
resize_scales( "_ArtWork/ic_followed_by.png"		,$res_dir,"drawable","ic_followed_by",0,32);
resize_scales( "_ArtWork/ic_followed_by_dark.png"	,$res_dir,"drawable","ic_followed_by_dark",0,32);


resize_scales( "_ArtWork/media_type_gifv.png"	,$res_dir,"drawable","media_type_gifv",-1,-1);
resize_scales( "_ArtWork/media_type_image.png"	,$res_dir,"drawable","media_type_image",-1,-1);
resize_scales( "_ArtWork/media_type_unknown.png"	,$res_dir,"drawable","media_type_unknown",-1,-1);
resize_scales( "_ArtWork/media_type_video.png"	,$res_dir,"drawable","media_type_video",-1,-1);