polog

2007年10月07日

mixiが白い件

GD::Imageでピクセルカウンターみたいなのを作って白ピクセルを数えてみた。

#!/opt/local/bin/perl -w

use strict;

use GD::Image;


for my $file (@ARGV){

    my $pxcount = 0;

    my $wpxcount = 0;

    my $img = GD::Image->newFromPng($file);

    my ($w,$h) = $img->getBounds();

    my $white = ($file eq 'terada.png') ? '252253252' : '255255255';

    for my $x (0..$w){

	for my $y (0..$h){

	    $pxcount++;

	    $wpxcount++ if $white eq join '', $img->rgb($img->getPixel($x, $y));

	}

    }

    printf "$file:\t%.2f\%\t%d\t%d\n", ($wpxcount / $pxcount) * 100, $pxcount, $wpxcount;

}

1024 x 768なOS X FireFoxでPearl Crescent Page Saverを使って画面をキャプチャした後、上記のコードを用いると

$ perl hoge.pl mixi.png

mixi.png:       69.69%   2733060 1904632

$

って訳で、大体7割近くがホワイトピクセル。余白の大きさとか捨てスペースも気になるんだけど、個人的に一番気に入らないのは枠外が白い点で、はなからリキッドを捨てているんだったら枠外は枠外でそれとわかるようにして欲しいです。

ちなみにみんなが大好きなはてなのトップページは

$ perl hoge.pl hatena.png

hatena.png:     58.85%   623170  366708

$

6割弱。

19:01 | Tag: aho  development  | Comment (4) | Trackback (0)

2007年05月07日

彼女がモロッコへ行って性転換すると言うので

30分ほどレトリックを駆使して説得したにも関わらず全く翻意する様相が無い。

01:13 | Tag: aho  funny  | Comment (7) | Trackback (0)