use Class::HPLOO ;
  
  class Point[0.01] extends GeoForms {
    
    sub Point ($x , $y) {
      $this->{x} = $x ;
      $this->{y} = $y ;
    }
    
    sub move_x( $mv_x ) {
      $this->{x} += $mv_x ;
    }

    sub move_y( $mv_y ) {
      $this->{y} += $mv_y ;
    }
      
  }