Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Geometry / Circle.pm

#$Id: Circle.pm,v 1.1 2003/04/29 18:19:54 malay Exp $
# Perl module for Pastel::Geometry::Circle
# Author: Malay < curiouser@ccmb.res.in >
# Copyright (c) 2003 by Malay. All rights reserved.
# You may distribute this module under the same terms as perl itself

=head1 NAME

Pastel::Geometry::Circle - DESCRIPTION of Object

=head1 SYNOPSIS

Give standard usage here

=head1 DESCRIPTION

Describe the object here

=cut

package Pastel::Geometry::Circle;
@ISA = qw(Pastel::Geometry::Ellipse);

use Pastel::Mixin::Mixin;
use strict;

=head1 CONSTRUCTOR

=cut

sub new {
    my ( $class, @args ) = @_;
    $class = ref($class) || $class;
    my ( $x, $y, $d ) =
      Pastel::Mixin::Mixin->_rearrange( [ "X", "Y", "DIA" ], @args );
    #print STDERR "circle:", " $x ","  $y "," $d ", "\n";
    my $self = $class->SUPER::new( $x, $y, $d, $d );
    bless $self, $class;
    #$self->_init(@args);

    #print "****", $self->{_mac_header}, "\n";
    return $self;
}

sub _init {
    my ( $self, @args ) = @_;
    #print STDERR "Circle init callled\n@args\n"; 
    $self->SUPER::_init(@args);

}

=head1 METHODS

=head2 get_center()

Describe your function here

 Usage   : 
 Args    : 
 Returns : 

=cut


sub get_center {
    my $self = shift;
    my $x = $self->get_x() + ($self->get_width() / 2);
    my $y = $self->get_y() + ($self->get_height()/ 2);
    return Pastel::Geometry::Point->new(-x=>$x, -y=>$y);
    
}

=head2 get_radius()

Describe your function here

 Usage   : 
 Args    : 
 Returns : 

=cut


sub get_radius {
    my $self = shift;
    if ($self->get_width() == $self->get_height()){
    
    return $self->get_width() / 2;
}
}

=head2 _draw()

Describe your function here

 Usage   : 
 Args    : 
 Returns : 

=cut

sub _draw{
  my ($self,$g) = @_;
  my $style = $self->get_style($g);
  my $s = "<circle cx=\"".$self->get_center()->get_x()."\" cy=\"";
  $s   .= $self->get_center()->get_y()."\" r=\"";
  $s   .= $self->get_radius(). "\" style=\"$style\" />";
  return $s;
}


=head1 SEE ALSO


=head1 COPYRIGHTS

Copyright (c) 2003 by Malay <curiouser@ccmb.res.in>. 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;