package GeomCircle;

# OOP:  Composition

# Variables
# center
# radius

# Constructor
# 1:  GeomPoint center
# 2:  double radius
# Example my $x2 = GeomCircle->init(GeomPoint->init(-2,13), 3.141592);
sub init
{
  my $class=shift;
  my $center_=shift;
  my $radius_=shift;
  my $self={};
  $self->{'center'}=$center_;
  $self->{'radius'}=$radius_;
  bless $self,$class;
}

sub printing
{
  my $class=shift;
  printf "GeomCircle::printing\n";
  $class->{'center'}->printing;
  printf "radis=%f\n", $class->{'radius'};
}

return 1;