package CannonField;
use Qt 2.0;
use Qt::signals 'angleChanged(int)';
use Qt::slots 'setAngle(int)';
@ISA = qw(Qt::Widget);
sub new {
    my $self = shift->SUPER::new(@_);
    $self->{'ang'} = 45;
    return $self;
}
sub angle { return shift->{'ang'} }
sub setAngle {
    my $self = shift;
    my $degrees = shift;
    $degrees = 5 if $degrees < 5;
    $degrees = 70 if $degrees > 70;
    return if $self->{'ang'} == $degrees;
    $self->{'ang'} = $degrees;
    $self->repaint();
    emit $self->angleChanged($self->{'ang'});
}
sub paintEvent {
    my $self  = shift;
    my $p     = Qt::Painter->new;
    my $brush = Qt::Brush->new(Qt::blue);
    my $pen   = Qt::Pen->new(Qt::NoPen);
    $p->begin($self);
    $p->setBrush($brush);
    $p->setPen($pen);
    $p->translate(0, $self->rect()->bottom());
    $p->drawPie(Qt::Rect->new(-35, -35, 70, 70), 0, 90*16);
    $p->rotate(-$self->{'ang'});
    $p->drawRect(Qt::Rect->new(33, -4, 15, 8));
    $p->end();
}