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');