# defaults
{
    my $default_location=[ 
	0, 
	0 
	];
    sub get_default_location{
	return [$default_location->[X],$default_location->[Y]];
    }

   sub get_default_X{
	return $default_location->[X];
    }

   sub get_default_Y{
	return $default_location->[Y];
    }
}