sub new{
    use integer;
    my ($self,$x,$y)=@_;

# if $x is an arrayref use this 

    if (isa($x,'ARRAY')){
	return bless $x,$self;
    }
# otherwise try the parameters or use defaults
    return bless[
	$x||get_default_X,
	$y||get_default_Y
	],$self;
}