コンバータの公開及び、雑記を主としていきます
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

下の画像をイメマジで分割結合しました。
tomoyo05
2セルにしました。
tomoyo06

う~ん、これでいいのかな、
ちなみにスクリプトはこんな感じ、



use Image::Magick;
use File::Copy;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN00.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN001.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN00.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN002.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN001.png","g00\S_TT_BTN002.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN00.png");
undef $image;


my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN01.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN011.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN01.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN012.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN011.png","g00\S_TT_BTN012.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN01.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN02.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN021.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN02.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN022.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN021.png","g00\S_TT_BTN022.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN02.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN03.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN031.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN03.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN032.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN031.png","g00\S_TT_BTN032.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN03.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN04.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN041.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN04.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN042.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN041.png","g00\S_TT_BTN042.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN04.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN05.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN051.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN05.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN052.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN051.png","g00\S_TT_BTN052.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN05.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN10.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN101.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN10.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN102.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN101.png","g00\S_TT_BTN102.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN10.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN11.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN111.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN11.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN112.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN111.png","g00\S_TT_BTN112.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN11.png");
undef $image;
my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN12.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN121.png");
undef $image;

my $image = Image::Magick->new;
$image -> Read("g00\S_TT_BTN12.png");
$image -> Crop( x => 0 , y => 0 , width => 160 , height => 23 );
$image -> Write("g00\S_TT_BTN122.png");
undef $image;

my $image = Image::Magick->new;
$x= $image->Read("g00\S_TT_BTN121.png","g00\S_TT_BTN122.png");
warn "$x" if "$x";
$p = $image->Append(stack=>false);
warn "$x" if "$x";
$x = $p->Write("g00\S_TT_BTN12.png");
undef $image;

本当は5セルにしたかったのですが・・・・・
管理人の技術が足りませんでした(~_~)

まぁ、次は右クリックメニューの画像を作成したいです。
見たところ、三つぐらいのボタンが一つになっているので、かなり難しそう・・・。
諦めず頑張りま~す。
ではまた。
スポンサーサイト

【2009/10/28 21:57】 | PSP変換記事
トラックバック(0) |

No title
今宵の空
はじめまして

5セルなら下記の応用でいけると思いますよ。多分。
下記のは同じ大きさの14セル作成用です。
もっといい方法があると思いますが試してみてはどうでしょうか?

use Image::Magick;
use File::Copy;

#実行スクリプト?
syscat();


#処理スクリプト
sub syscat{

my $imagea = Image::Magick->new;

( -e "./image/wait2.png") or die; #imageは画像が入ってるフォルダ

$imagea->Read("./image/wait2.png");

my $tatea = $imagea->Get('base-rows');
my $yokoa = $imagea->Get('base-columns');

my $ichi = $imagea -> Clone();
# $yokoaは横幅、$tateaは縦幅、 /最大
$ichi -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 0 ,height => $tatea * 20 / 280 );

my $ni = $imagea -> Clone();
$ni -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 20 ,height => $tatea * 20 / 280 );

my $san = $imagea -> Clone();
$san -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 40 ,height => $tatea * 20 / 280 );

my $yon = $imagea -> Clone();
$yon -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 60 ,height => $tatea * 20 / 280 );

my $go = $imagea -> Clone();
$go -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 80 ,height => $tatea * 20 / 280 );

my $roku = $imagea -> Clone();
$roku -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 100 ,height => $tatea * 20 / 280 );

my $nana = $imagea -> Clone();
$nana -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 120 ,height => $tatea * 20 / 280 );

my $hachi = $imagea -> Clone();
$hachi -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 140 ,height => $tatea * 20 / 280 );

my $kyu = $imagea -> Clone();
$kyu -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 160 ,height => $tatea * 20 / 280 );

my $jyu = $imagea -> Clone();
$jyu -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 180 ,height => $tatea * 20 / 280 );

my $jyuichi = $imagea -> Clone();
$jyuichi -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 200 ,height => $tatea * 20 / 280 );

my $jyuni = $imagea -> Clone();
$jyuni -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 220 ,height => $tatea * 20 / 280 );

my $jyusan = $imagea -> Clone();
$jyusan -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 240 ,height => $tatea * 20 / 280 );

my $jyuyon = $imagea -> Clone();
$jyuyon -> Crop( x => 0 , width => $yokoa * 20 / 20 , y => 260 ,height => $tatea * 20 / 280 );

push ( @$ni,@$san,@$yon,@$go,@$roku,@$nana,@$hachi,@$kyu,@$jyu,@$jyuichi,@$jyuni,@$jyusan,@$jyuyon );
my $mapga = $ni -> Append(stack=>false);
$mapga -> Write("./image/icon_mda2.png");

undef $imagea;

}



No title
snake00
>今宵の空様
ありがとうございます。さっそく使ってみます。


コメントを閉じる▲
ポケモンの記事です。
今回は ガブリアスです。
性格    陽気攻撃素早さV
努力値 攻撃、素早さ252 HP4
HP  356 
攻撃  359
防御  197 
とくこう 175
とくぼう 183
素早さ 333

地震 
逆鱗 
ストーンエッジ 
大文字または炎の牙


使い道

大文字はフォレトス、エアームド用。
剣舞しないなら火力は性格低下補正されても高い
命中が微妙だが炎牙ではいくら待ってもエアームドは無理
仮に急所に当たっても、すでに撒かれるものは撒かれてる
ダブルではなくシングルが強力(ガブのどの方もそうだけど)
出すなら後半。または相手の手持ちがわかってるとき
相手に竜半減がいなかったら逆鱗で勝ちは確定
いなければ地震で。
いたら地震で対処
地面無効、竜半減の無道はかなりきつい
物理防御も以上に高い
鉢合わせたら引くべき
それと、なぜ 後半 出ないといけないかは
ガブが逆鱗をぶっぱなすと
仮に一体葬れても
二対目にエンペルトが来たら・・・
ご想像にお任せします

ならば地震で無双・・・?
そんな甘いわけねぇだろうがー!
ポケモンなめるな!
ゲフンゲフン
地震打っても
ボーマンダ、ギャラドスが来たら
無効にされて、引っ込める間に積まれるか身代わりされて・・・
ご想像に(ry

【2009/10/25 18:57】 | ポケモン
トラックバック(0) |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。