#!/usr/local/bin/perl
use strict; use warnings; $| = 1;
use Vi::QuickFix;

# Definition of MyAngle below

my $alpha = MyAngle->new( rad => atan2( 1, 1));
printf "Angle: %s (%s deg)\n", $alpha->rad, $alpha->deg;  # Angle functions
print "Matrix:\n$alpha\n"; # show the matrix representation

##################################################

package MyAngle;
use lib 'lib';
use base 'Angle';
use base 'Matrix';

sub new {
    my $class = shift;
    $class->Angle::cre->MyAngle::init( @_);
}

sub init {
    my $obj = shift;
    $obj->Angle::init( @_);
    $obj->Matrix::init( cos( $_), -sin( $_), sin( $_), cos( $_)) for
        $obj->rad;
    $obj;
}

__END__