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.
giveme
giveme(IMAGE, STRING)
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
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in 'Møller-Nielsen,'. Assuming CP1252
To install ThousandWords, copy and paste the appropriate command in to your terminal.
cpanm
cpanm ThousandWords
CPAN shell
perl -MCPAN -e shell install ThousandWords
For more information on module installation, please visit the detailed CPAN module installation guide.