ImageMagick(PerlMagick)で文字をぐにょらせるCGIサンプル

Tweet

http://www.dtpwiki.jp/cgi-bin/secureimage/wavetext.cgi?var=13245

var の後をいろいろ変えてみてね。

#!/usr/bin/perl 
use strict; 
use warnings; 
use CGI; 
use Image::Magick; 
 
# CGI オブジェクト作成 
my $q = CGI->new; 
my $text = $q->param('var'); 
$text or $text = '12345'; 
 
# Image::Magick オブジェクト作成 
my $image = Image::Magick->new; 
$image->Set(size=>'128x128'); # カンバスサイズ 
$image->ReadImage('xc:white'); # バック白 
$image->Annotate( 
text=>$text, 
fill=>'#ff0000', 
font=>'/usr/share/fonts/bitstream-vera/Vera.ttf', 
pointsize=>'24', 
x=>'0', 
y=>'48', 
); # 文字 
$image->Wave('5x20'); # 波状加工 
 
# 画像出力 
print $q->header('image/jpeg'); # ヘッダ 
binmode STDOUT; # Winの時のおまじない 
$image->Write('jpeg:-'); # JPEGで書き出し 
undef $image;

2006.07.30 15:52 投稿　大野 義貴 [Perl] | 固定リンク |

use CGI::Carp qw(fatalsToBrowser);