#!/usr/bin/perl -w

=head2 table_color_demo.pl

=item Written: 20020522

=back

=item Creator: Andrew Robertson

=back

=item License: GPL 2

=back

table_color_demo.pl is a simple demo of table character rendering with color.

=cut

use FONT::FT2 ':all';

my $retval = init("/usr/share/fonts/ttf/gkai00mp.ttf"); #italic

$retval = render_table (40, 56, 2, 2, [65, 66, 0x4eba, 0x4ebb], ['0xff0000', '0x00ff00', '0x0000ff', undef], 0x20000, 0x20000);

open(OUTPUT, '> temp.xpm');
print OUTPUT bitmap_as_xpm($retval);
close(OUTPUT);