Games::RailRoad::Node::Switch - a node object with three branches

  Jerome Quelin

# 
# This file is part of Games-RailRoad
# 
# This software is copyright (c) 2008 by Jerome Quelin.
# 
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
# 
use 5.010;
use strict;
use warnings;

package Games::RailRoad::Node::Switch;
BEGIN {
  $Games::RailRoad::Node::Switch::VERSION = '1.101330';
}
# ABSTRACT: a node object with three branches

use Moose;
use MooseX::Has::Sugar;
use MooseX::SemiAffordanceAccessor;

extends qw{ Games::RailRoad::Node };

use Games::RailRoad::Vector;


# -- attributes
has _switch => ( rw, isa=>'Int' );


# -- public methods

sub draw {
    my ($self, $canvas, $tilelen) = @_;
    $self->SUPER::draw($canvas, $tilelen);

    my $pos = $self->position;
    my $dir = $self->_sw_exits->[ $self->_switch ];
    my $vec = Games::RailRoad::Vector->new_dir($dir);
    my $x = $tilelen * ( $pos->posx + $vec->posx / 3 );
    my $y = $tilelen * ( $pos->posy + $vec->posy / 3 );

    # add some fancy drawing
    my $radius = 2;
    $canvas->createOval(
        $x-$radius, $y-$radius,
        $x+$radius, $y+$radius,
        -outline => 'green',
        -tags => [ "$pos" ],
    );

}

sub switch {
    my ($self) = @_;
    $self->_set_switch( ($self->_switch + 1) % 2 );
}


__PACKAGE__->meta->make_immutable;
1;

__END__