かまいたちの夜勤

#!/usr/local/bin/perl
 
use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick -> new();
$image -> Set(
    "icon:auto-resize" => 16,
    size => "16x16"
);
$image -> ReadImage("xc:Black");
$image -> Quantize(colors => 2);
foreach(
    # 死
    [1,1],[2,1],[3,1],[4,1],[5,1],[6,1],[7,1],
    [2,2],[5,2],
    [2,3],[3,3],[5,3],[7,3],
    [1,4],[3,4],[5,4],[6,4],
    [2,5],[3,5],[5,5],
    [2,6],[5,6],[7,6],
    [1,7],[5,7],[6,7],[7,7],
    # に
    [9,1],
    [9,2],[11,2],[12,2],[13,2],[14,2],
    [9,3],
    [9,4],
    [9,5],[12,5],
    [9,6],[11,6],
    [9,7],[11,7],[12,7],[13,7],[14,7],
    # た
    [3,8],
    [1,9],[2,9],[3,9],[4,9],
    [3,10],[5,10],[6,10],[7,10],
    [2,11],
    [2,12],[5,12],
    [2,13],[4,13],
    [1,14],[5,14],[6,14],[7,14],
    # い
    [9,9],
    [9,10],[13,10],
    [9,11],[14,11],
    [9,12],[14,12],
    [10,13],[12,13],
    [11,14]
) {
    $image -> Draw(
        fill => "White",
        points => ${$_}[0].",".${$_}[1],
        primitive => "point"
    );
}
 
print "Content-type: image/x-icon\n\n";
binmode STDOUT;
$image -> Write("icon:-");
undef $image;
 
exit;