2009-10-10 22:23:38

影のある風景 奥行きのある空間

テーマ:Perl/CGI

ImageMagickで画像を作成するシリーズです。
今回は基本中の基本、文字に影を付けたり文字を立体的に見せたりするやり方です。




■文字に影をつけます


先に黒系文字を少しずらした位置でぼかします。
あとは普通に文字を書けばOK



[ソースコード]
#!/usr/bin/perl

use strict;
use Encode qw/from_to/;
use Image::Magick;


#白背景キャンバス用意
my $img= Image::Magick->new;
$img->Set(size=>'420x260');
$img->Read("xc:white");


#テキストをUTF-8変換
my $text= '風景';
from_to($text, "shiftjis", "utf-8");


#文字入れ(影用)
$img->Annotate(text=>$text, stroke=>'black', fill=>'gray', font=>'C:\mo.ttf', pointsize=>200, encoding=>'UTF-8', x=>20, y=>230);
$img->Blur("8x8"); #ぼかし


#文字入れ
$img->Annotate(text=>$text, stroke=>'black', fill=>'yellow', font=>'C:\mo.ttf', pointsize=>200, encoding=>'UTF-8', x=>0, y=>220);


#出力
$img->Write("shadow.png");




[出力画像]

そろそろホンキ出す-影付き文字



■文字を立体的に


少しずつずらしながら何度も同じ文字を書いていって立体的に見せます。



[ソースコード]
#!/usr/bin/perl

use strict;
use Encode qw/from_to/;
use Image::Magick;


#白背景キャンバス用意
my $img= Image::Magick->new;
$img->Set(size=>'420x260');
$img->Read("xc:white");


#テキストをUTF-8変換
my $text= '空間';
from_to($text, "shiftjis", "utf-8");


#文字入れ(立体用)
for (0 .. 9){
    $img->Annotate(text=>$text, stroke=>'black', fill=>'gray', font=>'C:\mo.ttf', pointsize=>200, encoding=>'UTF-8', x=>20-2*$_, y=>230-$_);
}


#文字入れ
$img->Annotate(text=>$text, stroke=>'black', fill=>'yellow', font=>'C:\mo.ttf', pointsize=>200, encoding=>'UTF-8', x=>0, y=>220);


#出力
$img->Write("solid.png");




[出力画像]

そろそろホンキ出す-立体文字

AD
いいね!した人  |  コメント(0)  |  リブログ(0)

そろそろホンキ出すさんの読者になろう

ブログの更新情報が受け取れて、アクセスが簡単になります

最近の画像つき記事
 もっと見る >>

コメント

[コメントをする]

コメント投稿

AD

ブログをはじめる

たくさんの芸能人・有名人が
書いているAmebaブログを
無料で簡単にはじめることができます。

公式トップブロガーへ応募

多くの方にご紹介したいブログを
執筆する方を「公式トップブロガー」
として認定しております。

芸能人・有名人ブログを開設

Amebaブログでは、芸能人・有名人ブログを
ご希望される著名人の方/事務所様を
随時募集しております。