よこいまさる日記

■ 週末の行動

　先週水曜日あたりに ETC のカードがやってきたので、チョロチョロと高速道路を走ってみたり。　カードが来た初日には、夜中の12時ごろに中央自動車道八王子から乗って相模湖東で高速道路から出て、一般道を厚木まで走って、厚木から横浜青葉まで東名高速を使って帰宅。　金曜日の夜中の2時には、高井戸から首都高に乗って、うろうろしたあとに湾岸線空港中央 (羽田空港) から出て帰宅。　ETC を利用すると夜中の1時から4時までに入場する分が約3割引になる。

　土曜日の午前中は深夜ドライブで爆睡する予定だったんだけど、会社の電源設備で漏電が見つかってサーバ類が停電したという電話で起こされて、急遽予定変更で会社へ。　お昼過ぎには問題解決して、帰宅した。　帰宅後、KDDI の公団住宅用の光ファイバー + VDSL のインターネットサービスを申し込んで、その後爆睡していまった。　結局、土曜日の23時ごろに目が覚めて、おなかすいたからメシ喰いに行って、暇だったから国道16号を横浜方向に走って、横浜横須賀道路を通って久里浜までドライブ。　横浜横須賀道路はほとんどガラ空き状態。　オービスが1・2箇所あったような気がするが、良く覚えていない。　それにしても横浜横須賀道路を全区間走ると、普通車1,200円もするんですな。　

　今日の日曜日は.... 秋葉原に買い物にでも行くとするか。　会社においてある Dell PowerEdge の排気ファンが故障していたから、その修理部品を買ったり。

■ [Computer] perl　GD

　Perl から libgd を使うGD.pmを使ってみたので、そのときのメモ

#!/usr/bin/perl
my $text= "abc";
my $outfile = "./abc.png";
my $im, $white, $black;
use GD;
open(OUT, "> $outfile") || die "Can't open $outfile.";
$im = new GD::Image(14,20);
$white = $im->colorAllocate(0xff, 0xff, 0xff);
$black = $im->colorAllocate(0x00, 0x00, 0x00);
$im->string(gdSmallFont, $text, $black);
print OUT $im->png;
close(OUT);

　GD Object を作って、色作って、GD::Image::string() で文字列を書き込んで、GD::Image::png() で PNG として出力する、というのが使いかた。

　先週末は、この GD.pm を使って KDE のコントロールセンターの地域設定で表示されている旗のかわりの画像ファイルとして、地域名2文字 (2 letter code) のアイコンを作った。　それまでは台湾に中華民国の旗が設定されていて、中華人民共和国ではヤバかったりしたんですな。　「地域 (Area) は国 (Nation) に対応する」っていうと、一方の国家がもう一方を国家として認めていなかったりするので、「地域は領土 (territory) に対応する」というと収まりがいいみたい。　領土はどこがもっているのかを明言しなければ... なんだけど。