- ソスCソスソスソスXソスgソス[ソスソスソスソスソスIソスソスソスソスソスソスホ、perlソスソスソス辜会ソスCソスuソスソスソスソスソス操作しソスト難ソスソスIソスノ画像ソス生撰ソスソスソスソスソスソスソスAソスメ集ソスナゑソスソスワゑソスソスB
ソスソスソスソスソスナ紹介すソスソスXソスNソスソスソスvソスgソスヘ、Windowsソスノ鯉ソスソス轤クソスAImageMagickソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソス黷スWebソスTソス[ソスoソスナゑソスソスソスホ、
UNIXソスナゑソスLinuxソスナゑソスソスソスソスしソスワゑソスソスB
ソスソスソスフサソスソスソスvソスソスソス鞫懶ソスヘ、450ソス~356ソスsソスNソスZソスソスソスA107KBソスソスGIFソス鞫懶ソスナゑソスソスB
- ソスTソスソスソスlソスCソスソスソスソスソス黷スソス鞫懶ソス生撰ソス
ソスTソスソスソスvソスソスソス鞫懶ソスソスソスoソスソスソス驍セソスソスソス像度ソス落とゑソスソスソスソスノゑソスソスフまま縮ソスソスソスソスソストゑソスソスワゑソスソスB
ソスtソス@ソスCソスソスソス`ソスソスソスソスGIFソスフままでゑソスソスソスソスAOn The Flyソスニ費ソスラてゑソスソスソスソスノ奇ソスソスノ撰ソスソスソスソスソスソスソスワゑソスソスB
#!/usr/local/bin/perl
# Transformソスヘ、ソスソスソスソスソス范ヲソスナ画像ソスソスソスkソスソスソスgソス蛯キソスソス
# ソスVソスソスソスソスソスソスソスソスソスソスソスwソス閧キソスソス
use Image::Magick;
$newwidth = 120;
$i = Image::Magick->new;
$i->Read('Skyline.gif');
$i = $i->Transform(geometry=>$newwidth);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("gif:-");
exit;
|
|
ソスソスソスフサソスソスソスvソスソスソスナ撰ソスソスソスソスソスソス黷スGIFソス鞫懶ソスヘ厄ソス14KBソスナゑソスソスB
- jpegソスノ変奇ソスソスソスソスト撰ソスソスソス
ソスソスLソスXソスNソスソスソスvソスgソスニほとゑソスヌ難ソスソスソスソスナゑソスソスソスソスAソスtソス@ソスCソスソスソスノ擾ソスソスソスソスoソスソス$i->Write('jpeg:-');ソスフ行ソスソスソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
jpegソスソスソスwソス閧キソス骼厄ソスナ出ソスヘ趣ソスソスノフソスHソス[ソス}ソスbソスgソスソスマ奇ソスソスソスソストゑソスソスワゑソスソスB
#!/usr/local/bin/perl
# Transformソスヘ、ソスソスソスソスソス范ヲソスナ画像ソスソスソスkソスソスソスgソス蛯キソスソス
# ソスVソスソスソスソスソスソスソスソスソスソスソスwソス閧キソスソス
use Image::Magick;
$newwidth = 120;
$i = Image::Magick->new;
$i->Read('Skyline.gif');
$i = $i->Transform(geometry=>$newwidth);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
ソスソスソスソスソスナ撰ソスソスソスソスソスソス黷スjpegソス鞫懶ソスヘわずソスソス4KBソスソスソスソスソスLソスソスワゑソスソスソスB
ソスワゑソスソスAソスソスソス権ソスノゑソスソス驍ウソスソスGIFソスソスJPEGソスノ変奇ソスソスソスソスト、ソスソスソスソスノサソスCソスYソスワゑソス1/3ソスノゑソスソストゑソスソスソスソスフでゑソスソスソスソスソスGIFソスヘ使ソスソスソステらくソスネゑソスワゑソスソスB
ソスソスソスlソスノ「PNG:ソスvソスソスソスwソス閧キソスソスソスPNGソス`ソスソスソスノ変奇ソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
- ソスソスソスニ搾ソスソスソスソスソスソスwソスソス
ソスソスソスフ暦ソスナは縦ソスソスソスソス無趣ソスソスソスソスAソスwソス閧オソスソスソス蛯ォソスソスソスナ撰ソスソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスフ画像ソスソスソスソスソスソスソスソスソストサソスソスソスlソスCソスソスソスソスソス黷ス1ソスソスソスフ画像ソス生撰ソスソスソスソスソス鼾ソスネどに有ソスソスソスナゑソスソスB
#!/usr/local/bin/perl
# Scaleソスヘ、ソスcソスソスソスフピソスNソスZソスソスソスソス^ソスソスソスkソスソスソスgソス蛯キソスソス
use Image::Magick;
$newwidth = 160;
$newheight = 160;
$i = Image::Magick->new;
$i->Read('Skyline.gif');
$i->Scale(geometry=>geometry,width=>$newwidth,height=>$newheight);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソス鞫懶ソスソスソスレゑソスソスソス
ソスソスソスソスソスソスソスソスヘ、ソスソスソスワゑソスソスワなフソスBソスソスソス^ソス[ソスソスソスソスハゑソスソスミ介しソスワゑソスソスB
Blurソスヘ、ソスwソス閧オソスソスfactorソスl(0-99.9)ソスナ画像ソスソスソスレゑソスソスソスソスワゑソスソスB
$i->Blur(factor=>5);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Blur(factor=>5);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスリ炭ソスソスフ鯉ソスソスソス
$i->Charcoal(factor=>3);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Charcoal(factor=>3);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスGソスbソスWソスフ抵ソスソスo
$i->Edge(factor=>0.1);
#!/usr/local/bin/perl
use Image::Magick;
$newwidth = 120;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Edge(factor=>0.1);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスソスソスソスソスソスソスソスソスソスソス
$i->Emboss();
#!/usr/local/bin/perl
use Image::Magick;
$newwidth = 120;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Emboss();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソス繪コソスソスソス]
$i->Flip();
#!/usr/local/bin/perl
use Image::Magick;
$newwidth = 120;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Flip();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスソスソスEソスソスソス]
$i->Flop();
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Flop();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスgソスフ追会ソス
WidthソスAheightソスヘ、ソスgソスフ包ソスソスニ搾ソスソスソスソスナ、innerソスソスouterソスヘ、ソスソスソスフ表ソスソスソスソスソスソスソス髟晢ソスニ搾ソスソスソスソスソスソスsソスNソスZソスソスソスナ指ソス閧オソスワゑソスソスB
$i->Frame(geometry=>geometry, width=>6, height=>6, inner=>2, outer=>2, color=>'#50FF50');
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Frame(geometry=>geometry,width=>6,height=>6,inner=>2,outer=>2,color=>'#50FF50');
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスヒゑソスソスソスソスソスソス
factorソスノは、ソスヒゑソスソス闍ュソスxソスソス%ソスナ指ソス閧オソスワゑソスソスB
$i->Implode(factor=>'40%');
#!/usr/local/bin/perl
use Image::Magick;
$newwidth = 120;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Implode(factor=>'40%');
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスFソスソスソス]
$i->Negate()ソスナ全ソストの色ソス反転ソスソスソスAソスIソスvソスVソスソスソスソスソスナグソスソスソスCソスXソスPソス[ソスソスソスソスソスソスソス反転ソスソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
$i->Negate(gray=>1);
#!/usr/local/bin/perl
use Image::Magick;
$newwidth = 120;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Negate();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソス鞫懶ソスフ会ソス]
degreesソスナ指ソス閧ウソス黷スソスpソスxソスナ画像ソスソスソスソス]ソスソスソスワゑソスソスBdegreesソスヘ、-360ソスソスソスソス360ソスワでの撰ソスソスソスソスナ、ソス}ソスCソスiソスXソスヘ搾ソスソスソスソスソスソスwソスソスソスワゑソスソスB
cropソスソス1ソスソスソスwソス閧キソスソスニ、ソスソスソスフ画像ソスフ大きソスソスソスソスマゑソスソスワゑソスソスソスB
sharpenソスソス1ソスソスソスwソス閧キソスソスニ、ソスソスソスソスソスノシソスソスソス[ソスvソスtソスBソスソスソス^ソスソスtソスソスソスソスソスワゑソスソスB
$i->Rotate(degrees=>-30,crop=>0,sharpen=>1);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Set(bordercolor=>'#FFFFFF');
$i->Rotate(degrees=>-30,crop=>0,sharpen=>1);
$i->Trim();
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスeソスソスtソスソスソスソス
ソス鞫懶ソスノ影ソスソスtソスソスソスワゑソスソスB
$i->Shade(geometry=>geometry,azimuth=>50,elevation=>50,color=>0);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Shade(geometry=>geometry,azimuth=>50,elevation=>50,color=>0);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスVソスソスソス[ソスvソスソスソスソス
$i->Sharpen(factor=>70);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Sharpen(factor=>70);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソス\ソスソスソスソスソス[ソス[ソスVソスソスソスソスソスソスソスソス
$i->Solarize(factor=>70);
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Solarize(factor=>70);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
- ソスEソスFソス[ソスuソスソスソスソス
ソスEソスFソス[ソスuソスソスソスハは、ソスgソス蛯オソストゑソスソスソスソスネゑソスソスソスホなゑソスワゑソスソスソスフで、$i->Magnify();ソスナ縦ソスソスソスソスソスノ2ソス{ソスノ拡ソス蛯オソストゑソスソスワゑソスソスB
$i->Wave('4x40');
#!/usr/local/bin/perl
use Image::Magick;
$infile = "transform.jpg";
$i = Image::Magick->new;
$i->Read($infile);
$i->Magnify();
$i->Wave('4x40');
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
|
|
|