package GeomPoint;

# Variables
#  xval
#  yval

# Constructor
# 1:  number xval
# 2:  number yval
# Example my $x1 = GeomPoint->init(10,5);
sub init
{
  my $class=shift;
  my $xval_=shift;
  my $yval_=shift;
  my $self={};
  $self->{'xval'}=$xval_;
  $self->{'yval'}=$yval_;
  bless $self,$class;
}

sub printing
{
  my $class=shift;
  printf "xval=%d yval=%d\n",$class->{'xval'},$class->{'yval'};
}

1;