use strict;
use Graphics::Color::RGB;
use Graphics::Primitive::Border;
use Graphics::Primitive::Component;
use Graphics::Primitive::TextBox;
use Graphics::Primitive::Driver::GD;
my $c = Graphics::Primitive::TextBox->new(
background_color => Graphics::Color::RGB->new(
red => 1, green => 1, blue => 0, alpha => 1
),
width => 500, height => 350,
border => new Graphics::Primitive::Border->new(
color => Graphics::Color::RGB->new(
red => 1, green => 0, blue => 0, alpha => 1
),
width => 5
),
color => Graphics::Color::RGB->new(red => 0, green => 0, blue => 0),
font => Graphics::Primitive::Font->new(
face => 'Myriad Pro',
size => 24
),
text => 'Hello World!',
horizontal_alignment => 'center',
vertical_alignment => 'center'
);
my $driver = Graphics::Primitive::Driver::GD->new;
$driver->prepare($c);
$driver->finalize($c);
$driver->draw($c);
$driver->write('foo.png');