File Coverage

blib/lib/Games/Maze/SVG.pm

Criterion	Covered	Total	%
statement	85	199	42.7
branch	18	28	64.2
condition	10	15	66.6
subroutine	22	30	73.3
pod	16	16	100.0
total	151	288	52.4

#  SVG maze output
#  Performs transformation, cleanup, and printing of output of Games::Maze

package Games::Maze::SVG;

use Carp;
use Games::Maze;
use Games::Maze::SVG::Rect;
use Games::Maze::SVG::RectHex;
use Games::Maze::SVG::Hex;

use strict;
use warnings;

=head1 NAME

Games::Maze::SVG - Build mazes in SVG.

=head1 VERSION

Version 0.90

=cut

our $VERSION = 0.90;

=head1 SYNOPSIS

Games::Maze::SVG uses the Games::Maze module to create mazes in SVG.

    use Games::Maze::SVG;

    my $foo = Games::Maze::SVG->new();
    ...

See Games::Maze::SVG::Manual for more information on using the module.

=cut

use constant SIGN_HEIGHT      => 20;
use constant SIDE_MARGIN      => 10;
use constant PANEL_WIDTH      => 250;
use constant PANEL_MIN_HEIGHT => 365;

my %crumbstyles = (
    dash => "stroke-width:1px; stroke-dasharray:5px,3px;",
    dot  => "stroke-width:2px; stroke-dasharray:2px,6px;",
    line => "stroke-width:1px;",
    none => "visibility:hidden;",
);

my $license = <<'EOL';



        xmlns:dc="http://purl.org/dc/elements/1.1/"
        xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">

       SVG Maze
       2006
       An SVG-based Game

          G. Wade Johnson


          G. Wade Johnson
















EOL

=head1 FUNCTIONS


=cut

# ----------------------------------------------
#  Subroutines

=head2 new( $type, %parms )

Create a new Games::Maze::SVG object. Supports the following named parameters:

Takes one positional parameter that is the maze type: Rect, RectHex, or Hex

=over 4

=item wallform

String naming the wall format. Legal values are bevel, round, roundcorners,
and straight. Not all formats work with all maze shapes.

=item crumb

String describing the breadcrumb design. Legal values are dash,
dot, line, and none

=item dir

Directory in which to find the ecmascript for the maze interactivity. Should
either be relative, or in URL form.

=item interactive

This parameter determines if the maze will be interactive. If the value of the
parameter is true (1), the appropriate scripting and support is written into
the SVG. If the parameter is omitted or false, no interactive support is
provided.

=item cols

The number of columns used in creating the maze. Default value is 12.

=item rows

The number of rows used in creating the maze. Default value is 12.

=item startcol

The column where the entry is found. Default value is random.

=item endcol

The column where the exit is found. Default value is random.

=back

=cut

sub new
{
    my $class = shift;

    my $shape = shift || 'Rect';

    my %params = @_;

    if( exists $params{crumb} && !exists $crumbstyles{ $params{crumb} } )
    {
        croak "Unrecognized breadcrumb style '$params{crumb}'.\n";
    }

    return Games::Maze::SVG::Rect->new( @_ )    if 'Rect'    eq $shape;
    return Games::Maze::SVG::RectHex->new( @_ ) if 'RectHex' eq $shape;
    return Games::Maze::SVG::Hex->new( @_ )     if 'Hex'     eq $shape;

    croak "Unrecognized maze shape '$shape'.\n";
}

=head2 $m->init_object( %parms )

Initializes the maze object with the default values for all mazes. The derived
classes should call this method in their constructors.

Returns the initial data members as a list.

=cut

sub init_object
{
    my %parms = @_;

    my %obj = (
        mazeparms => {},
        wallform  => 'straight',
        crumb     => 'dash',
        dir       => 'scripts/',
    );
    $obj{mazeparms}->{dimensions} = [ $parms{cols} || 12, $parms{rows} || 12, 1 ];
    $obj{mazeparms}->{entry} = [ $parms{startcol}, 1, 1 ] if $parms{startcol};

    if( $parms{endcol} )
    {
        $obj{mazeparms}->{exit} = [ $parms{endcol}, $obj{mazeparms}->{dimensions}->[1], 1 ];
    }

    return %obj;
}

=head2 $m->set_interactive()

Method makes the maze interactive.

Returns a reference to self for chaining.

=cut

sub set_interactive
{
    my $self = shift;
    $self->{interactive} = 1;
    return $self;
}

=head2 $m->set_breadcrumb( $bcs )

=over 4

=item $bcs

String specifying the breadcrumb style. Generates an exception if the
breadcrumb style is not recognized.

=back

Returns a reference to self for chaining.

=cut

sub set_breadcrumb
{
    my $self = shift;
    my $bcs  = shift;

    return unless defined $bcs;

    croak "Unrecognized breadcrumb style '$bcs'.\n"
        unless exists $crumbstyles{$bcs};
    $self->{crumb}      = $bcs;
    $self->{crumbstyle} = $crumbstyles{$bcs};

    return $self;
}

=head2 $m->get_crumbstyle()

Returns the CSS style for the breadcrumb.

=cut

sub get_crumbstyle
{
    my $self = shift;

    return $self->{crumbstyle} ||= $crumbstyles{ $self->{crumb} };
}

=head2 $m->get_script()

Method that returns the path to the interactivity script.

=cut

sub get_script
{
    my $self = shift;

    return "$self->{dir}$self->{scriptname}";
}

=head2 $m->to_string()

Method that converts the current maze into an SVG string.

=cut

sub to_string
{
    my $self = shift;
    my $maze = Games::Maze->new( %{ $self->{mazeparms} } );

    $maze->make();
    my @rows = map { [ split q{}, $_ ] }
        split( "\n", $maze->to_ascii() );

    my $crumb = q{};
    my $color = {
        mazebg => '#ffc',
        panel  => '#ccc',
        crumb  => '#f3f',
        sprite => 'orange',
        button => '#ccf',
    };

    my $crumbstyle = $self->get_crumbstyle();

    $self->transform_grid( \@rows, $self->{wallform} );
    $self->_just_maze( \@rows );

    my ( $xp,     $yp )     = $self->convert_start_position( @{ $maze->{entry} } );
    my ( $xe,     $ye )     = $self->convert_end_position( @{ $maze->{exit} } );
    my ( $xenter, $yenter ) = $self->convert_sign_position( $xp, $yp );
    my ( $xexit,  $yexit )  = $self->convert_sign_position( $xe, $ye );

    my $width      = $self->{width} + 2 * SIDE_MARGIN;
    my $height     = $self->{height} + 2 * SIGN_HEIGHT;
    my $sprite_def = $self->create_sprite();

    my $output  = qq{\n};
    my $offsety = - SIGN_HEIGHT;
    my $offsetx = - SIDE_MARGIN;
    my ( $xme, $yme ) = ( $xp * $self->dx(), $yp * $self->dy() );
    my ( $xcrumb, $ycrumb ) = ( $xme + $self->dx() / 2, $yme + $self->dy() / 2 );

    my $panelheight = $height > PANEL_MIN_HEIGHT ? $height : PANEL_MIN_HEIGHT;
    if( $self->{interactive} )
    {
        my $script = $self->build_all_script();
        my $boardelem = $self->build_board_element( \@rows, $xp, $yp, $xe, $ye );

        my $totalwidth = $width + PANEL_WIDTH;
        $output .= <<"EOH";

     xmlns="http://www.w3.org/2000/svg"
     xmlns:xlink="http://www.w3.org/1999/xlink"
     xmlns:maze="http://www.anomaly.org/2005/maze"
     onload="initialize()">
  A Playable SVG Maze
  This maze was generated using the Games::Maze::SVG Perl
    module.
$license

      </td>
</tr>

<tr>
<td  class="h" >
<a name="330">330</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         text { font-family: sans-serif; font-size: 10px; } </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .panel  { fill:$color->{panel}; stroke:none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="332">332</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .button { </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                    cursor: pointer; </td>
</tr>

<tr>
<td  class="h" >
<a name="334">334</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="335">335</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .button rect { fill: #33f; stroke: none; filter: url(#bevel); </td>
</tr>

<tr>
<td  class="h" >
<a name="336">336</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                     } </td>
</tr>

<tr>
<td  class="h" >
<a name="337">337</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .button text { text-anchor:middle; fill:#fff; font-weight:bold; } </td>
</tr>

<tr>
<td  class="h" >
<a name="338">338</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .button polygon { fill:white; stroke:none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="339">339</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .ctrllabel { text-anchor:middle; font-weight:bold; } </td>
</tr>

<tr>
<td  class="h" >
<a name="340">340</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         #solvedmsg { text-anchor:middle; pointer-events:none; font-size:80px; fill:red; </td>
</tr>

<tr>
<td  class="h" >
<a name="341">341</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">                    } </td>
</tr>

<tr>
<td  class="h" >
<a name="342">342</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">




                    result="lighter"/>


                    result="darker"/>







$script
$boardelem


       viewBox="$offsetx $offsety $width $height" id="maze">
EOH
    }
    else
    {
        $color->{mazebg} = '#fff';

        $output .= <<"EOH";

     xmlns="http://www.w3.org/2000/svg"
     xmlns:xlink="http://www.w3.org/1999/xlink">
  An SVG Maze
  This maze was generated using the Games::Maze::SVG Perl
    module.
$license

       viewBox="$offsetx $offsety $width $height" id="maze">
EOH
    }

    $output .= <<"EOH";

       </td>
</tr>

<tr>
<td  class="h" >
<a name="385">385</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         path    { stroke: black; fill: none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="386">386</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         polygon { stroke: black; fill: grey; } </td>
</tr>

<tr>
<td  class="h" >
<a name="387">387</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">         #sprite { stroke: grey; stroke-width:0.2px; fill: $color->{sprite}; } </td>
</tr>

<tr>
<td  class="h" >
<a name="388">388</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .crumbs { fill:none; $crumbstyle } </td>
</tr>

<tr>
<td  class="h" >
<a name="389">389</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .mazebg { fill:$color->{mazebg}; stroke:none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="390">390</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         text { font-family: sans-serif; font-size: 10px; } </td>
</tr>

<tr>
<td  class="h" >
<a name="391">391</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .sign text {  fill:#fff;text-anchor:middle; font-weight:bold; } </td>
</tr>

<tr>
<td  class="h" >
<a name="392">392</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .exit rect {  fill:red; stroke:none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="393">393</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         .entry rect {  fill:green; stroke:none; } </td>
</tr>

<tr>
<td  class="h" >
<a name="394">394</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">

$sprite_def
@{[$self->wall_definitions()]}



$self->{mazeout}





      Entry



      Exit


EOH

    if( $self->{interactive} )
    {
        my ( $cx, $cy ) = ( ( $self->{width} + PANEL_WIDTH ) / 2, ( 35 + $panelheight / 2 ) );
        $output .= $self->build_control_panel( 0, $panelheight );
        $output .= <<"EOM";
  Solved!
EOM
    }
    return $output . "\n";
}

=head2 $m->toString()

Alias for C to deal with inconsistent name from earlier versions.

=cut

sub toString { return $_[0]->to_string(); }

=head2 $m->make_board_array( $rows )

Build a two-dimensional array of integers that maps the board from
the two dimensional matrix of wall descriptions.

=cut

sub make_board_array
{
    my $self  = shift;
    my $rows  = shift;
    my @board = ();

    foreach my $row ( @{$rows} )
    {
        push @board, [ map { $_ ? 1 : 0 } @{$row} ];
    }

    return \@board;
}

=head2 $m->get_script_list()

Returns a list of script URLs that will be needed by the interactive
maze.

=cut

sub get_script_list
{
    my $self    = shift;
    my @scripts = (
        "$self->{dir}point.es", "$self->{dir}sprite.es",
        "$self->{dir}maze.es",  $self->get_script(),
    );

    return @scripts;
}

=head2 $m->build_all_script()

Generate the full set of script sections for the maze.

=cut

sub build_all_script
{
    my $self = shift;

    my $script = q{};

    foreach my $url ( $self->get_script_list() )
    {
        $script .= qq{    \n}; </td>
</tr>

<tr>
<td  class="h" >
<a name="489">489</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="490">490</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="491">491</a>
</td>

<td  class="c3" >

3

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

13

</td>

<td class="s">     $script .= <<"EOS"; </td>
</tr>

<tr>
<td  class="h" >
<a name="492">492</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     <script type="text/ecmascript"> </td>
</tr>

<tr>
<td  class="h" >
<a name="493">493</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       function push( evt ) </td>
</tr>

<tr>
<td  class="h" >
<a name="494">494</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       { </td>
</tr>

<tr>
<td  class="h" >
<a name="495">495</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           var btn = evt.currentTarget; </td>
</tr>

<tr>
<td  class="h" >
<a name="496">496</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           btn.setAttributeNS( null, "opacity", "0.5" ); </td>
</tr>

<tr>
<td  class="h" >
<a name="497">497</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="498">498</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       function release( evt ) </td>
</tr>

<tr>
<td  class="h" >
<a name="499">499</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       { </td>
</tr>

<tr>
<td  class="h" >
<a name="500">500</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           var btn = evt.currentTarget; </td>
</tr>

<tr>
<td  class="h" >
<a name="501">501</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           var opval = btn.getAttributeNS( null, "opacity" ); </td>
</tr>

<tr>
<td  class="h" >
<a name="502">502</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">           if("" != opval &amp;&amp; 1.0 != opval) </td>
</tr>

<tr>
<td  class="h" >
<a name="503">503</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">               btn.setAttributeNS( null, "opacity", '1.0' ); </td>
</tr>

<tr>
<td  class="h" >
<a name="504">504</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="505">505</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">
EOS

    return $script;
}

=head2 $m->build_board_element( $rows, $xp, $yp, $xe, $ye )

Create the element that describes the board.

=over 4

=item $rows

reference to an array of rows.

=item $xp, $yp

Starting position

=item $xe, $ye

Ending position

=back

=cut

sub build_board_element
{
    my $self = shift;
    my $rows = shift;
    my ( $xp, $yp, $xe, $ye ) = @_;

    my $tilex = $self->dx();
    my $tiley = $self->dy();

    my $board = $self->make_board_array( $rows );

    my $elem .= qq{    \n};
    foreach my $row ( @{$board} )
    {
        $elem .= qq{      } . join( q{}, @{$row} ) . "\n";
    }
    $elem .= <<'EOS';

EOS

    return $elem;
}

=head2 $m->build_control_panel( $startx, $height )

Create the displayable control panel

=over 4

=item $startx

the starting x coordinate for the panel

=item $height

the height of the maze

=back

=cut

sub build_control_panel
{
    my $self       = shift;
    my $startx     = shift;
    my $height     = shift;
    my $panelwidth = PANEL_WIDTH;

    my $offset = 20;
    my $output .= <<"EOB";


          class="panel"/>
EOB
    $output .= _create_text_button( 'restart',          $offset,       20, 50, 20, 'Begin' );
    $output .= _create_text_button( 'save_position',    $offset + 60,  20, 50, 20, 'Save' );
    $output .= _create_text_button( 'restore_position', $offset + 120, 20, 50, 20, 'Back' );
    $output .= <<"EOB";



          fill="none" stroke-width="0.5" stroke="black"/>
      Move View
EOB
    $output .= _create_view_button( 'maze_up',    22, 0,  '10,5 5,15 15,15' );
    $output .= _create_view_button( 'maze_left',  0,  22, '5,10 15,5 15,15' );
    $output .= _create_view_button( 'maze_right', 44, 22, '15,10 5,5 5,15' );
    $output .= _create_view_button( 'maze_down',  22, 44, '10,15 5,5 15,5' );
    $output .= _create_view_button( 'maze_reset', 22, 22, '7,7 7,13 13,13 13,7' );

=begin COMMENT

    $output .= <<"EOB";



EOB
    $output .= $self->_create_thumbnail();

=cut

    $output .= <<"EOB";



      Click Begin button to start
      Use the arrow keys to move the sprite
      Hold the shift to move quickly.
      The mouse must remain over the
      maze for the keys to work.
      Use arrow buttons to shift the maze
      Center button centers view on sprite
      Save button saves current position
      Back button restores last position


EOB

    return $output;
}

=begin COMMENT

# _create_thumbnail
#
# Create the thumbnail image used to show the player where they are on the
# larger field.
#
sub _create_thumbnail
{
    my $self = shift;
    my ($x, $y, $wid, $ht) = (0,0,80,80);

    if($self->{width} > $self->{height})
    {
        $ht = int(80 * $self->{height} / $self->{width});
        $y = (80 - $ht) / 2;
    }
    else
    {
        $wid = int(80 * $self->{width} / $self->{height});
        $x = (80 - $wid) / 2;
    }
    qq{      \n};
}

=cut

# _create_text_button
#
#  $function - function name to call
#  $x - x-coordinate of the button
#  $y - y-coordinate of the button
#  $width - width of the button
#  $height - height of the button
#  $text - text to be displayed on the button

sub _create_text_button
{
    my $fn     = shift;
    my $x      = shift;
    my $y      = shift;
    my $width  = shift;
    my $height = shift;
    my $text   = shift;

    my $tx = $width / 2;
    my $ty = $height / 2 + 5;

    my $output = <<"EOF";


       onmousedown="push(evt)" onmouseup="release(evt)" onmouseout="release(evt)">

      $text

EOF

    return $output;
}

# _create_view_button
#
#  $function - function name to call
#  $x - x-coordinate of the button
#  $y - y-coordinate of the button
#  $icon - list of points for the icon

sub _create_view_button
{
    my $fn   = shift;
    my $x    = shift;
    my $y    = shift;
    my $icon = shift;

    my $output = <<"EOF";


         onmousedown="push(evt)" onmouseup="release(evt)" onmouseout="release(evt)">



EOF

    return $output;
}

=head2 $m->create_sprite()

Create the sprite definition for inclusion in the SVG.

=cut

sub create_sprite
{
    my $self = shift;
    my ( $dx2, $dy2 ) = ( $self->dx() / 2, $self->dy() / 2 );

    return qq|      |
        . qq||;
}

#
# Generates just the maze portion of the SVG.
#
# $dx - The size of the tiles in the X direction.
# $dy - The size of the tiles in the Y direction.
# $rows - Reference to an array of row data.
#
# returns a string containing the SVG for the maze description.
sub _just_maze
{
    my $self = shift;
    my $dx   = $self->dx();
    my $dy   = $self->dy();
    my $rows = shift;

    my $output = q{};
    my ( $maxx, $y ) = ( 0, 0 );

    foreach my $r ( @{$rows} )
    {
        my $x = 0;
        foreach my $c ( @{$r} )
        {
            $output .= qq{    \n}
                if $c and $c ne q{$};
            $x += $dx;
        }
        $y += $dy;
        $maxx = $x if $maxx < $x;
    }

    $self->{width}   = $maxx;
    $self->{height}  = $y;
    $self->{mazeout} = $output;

    return $self;
}

=head2 $m->dx()

Returns the delta X value for building this maze.

=cut

sub dx
{
    my $self = shift;

    return $self->{dx};
}

=head2 $m->dy()

Returns the delta Y value for building this maze.

=cut

sub dy
{
    my $self = shift;

    return $self->{dy};
}

=head1 AUTHOR

G. Wade Johnson, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to
C, or through the web interface at
L.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.

=head1 ACKNOWLEDGEMENTS

Thanks go to Valen Johnson and Jason Wood for extensive test play of the
mazes.

=head1 COPYRIGHT & LICENSE

Copyright 2004-2013 G. Wade Johnson, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;