view release on metacpan or  search on metacpan

eg/lindenmayer-gd  view on Meta::CPAN

    y      => $opts{center} ? $opts{height} / 2 : $opts{height},
);

my $img = GD::Image->new( $opts{width}, $opts{height} );

my %color = (
    white => $img->colorAllocate( 255, 255, 255 ),
    black => $img->colorAllocate( 0, 0, 0 ),
);

$img->transparent( $color{white} );
$img->interlaced('true');

my @statestack;

my %translate = (
    'f' => sub { $turtle->forward( $opts{distance} ) },
    'F' => \&forward,
    'G' => \&forward,
    '-' => sub { $turtle->turn( - $opts{theta} ) },
    '+' => sub { $turtle->turn( $opts{theta} ) },

eg/synopsis-gd  view on Meta::CPAN

my ( $width, $height ) = ( 500, 500 );

my $img = GD::Image->new( $width, $height );

my %color = (
    white => $img->colorAllocate( 255, 255, 255 ),
    black => $img->colorAllocate( 0, 0, 0 ),
);

$img->transparent($color{white});
$img->interlaced('true');

my $turtle = Data::Turtle->new(
    width  => $width,
    height => $height,
);

$turtle->pen_up;
$turtle->right(45);
$turtle->forward(10);