#!/bin/env perl
use warnings;
use strict;
use GD;
my $imagefile = shift;
my $outputfile = shift;
$outputfile = $imagefile . '.html' unless $outputfile;
my $type = `file -i $imagefile`;
$type =~ /.*: (.*\/.*)$/;
$type = $1;
open(IMAGEFILE, $imagefile) or die('Could not open file');
my $image;
if($type eq "image/jpeg") {
print STDERR "Loading image of type " . $type . "\n";
$image = newFromJpeg GD::Image(IMAGEFILE) or die('Could not load image from JPEG-file');
} elsif($type eq "image/png") {
print STDERR "Loading image of type " . $type . "\n";
$image = newFromPng GD::Image(IMAGEFILE) or die('Could not load image from PNG-file');
} else {
die('Could not recognize file of type ' . $type);
}
close(IMAGEFILE);
print STDERR "Opening file " . $outputfile . " for output.\n";
open(HTMLFILE, ">$outputfile");
print HTMLFILE '' . "\n";
print HTMLFILE '' . "\n";
print HTMLFILE "\n";
print HTMLFILE '' . "\n";
print HTMLFILE '\n";
print HTMLFILE "\n";
print HTMLFILE "\n";
print HTMLFILE '' . "\n";
my($xSize, $ySize) = $image->getBounds();
my($R, $G, $B) = (-1);
my @text = split(//, "img2html");
@text = (@text, @text) while ($xSize * $ySize > scalar(@text));
my $r;
for($r = 0; $r < $ySize; $r += 2) {
my $c;
for($c = 0; $c < $xSize; $c++) {
my $pixel = $image->getPixel($c, $r);
my($r, $g, $b) = $image->rgb($pixel);
my $color = '#' . sprintf("%.2X%.2X%.2X", $r, $g, $b);
my $bin = int(rand 2);
print HTMLFILE '' . $bin . '';
}
print HTMLFILE "
\n";
}
print HTMLFILE "
\n\n";
close(HTMLFILE);