ThousandWords - convert an image to colored HTML text
$text = ThousandWords::giveme($image, $filltext);
ThousandWords is a module designed to take a GD image and a string as input and return an HTML formatted and colored text, resembling the image made out of the string, repeated as necessary.
Returns a HTML formatted string, colored to resemble IMAGE. The string consists of the letters and characters from STRING.
use GD;
use ThousandWords;
my $filltext = 'ThisIsALittleTextLittleTextLittleText';
open(FILE, '< demo.png') || die('horribly');
my $image = newFromPng GD::Image(FILE) || die('miserably');
close(FILE) || die('pathetically');
my $text = ThousandWords::giveme($image, $filltext);
print "Content-type: text/html\n\n<HTML><BODY>$text</BODY></HTML>\n";
Made with the v. 0.01 (just a script, inspired by http://www4.telge.kth.se/~d99_kme/)
http://rto.dk/images/camel.html
http://rto.dk/images/llama.html
http://rto.dk/images/henning.html (me)
Made with the v. 0.03
http://rto.dk/images/neptune.html
http://rto.dk/images/mars.html
http://rto.dk/images/pluto_charon.html
http://rto.dk/images/earth.html
http://rto.dk/images/saturn.html
http://rto.dk/images/jupiter.html (here the reason for v. 0.04 is apparent)
http://rto.dk/images/ira1.html
http://rto.dk/images/ira2.html (my colleagues)
None, from a perl perspective. From an image perspective things look different :-)
Henning Michael Møller-Nielsen, hmn@datagraf.dk