sub scale {
    my $self = shift;
    my ($x,$y) = @_;

    if (defined $y) {
        bless $self, 'Eclipse';
        $self->scale(@_);
    }
    else {
        $self->set_x($x * $self->x); 
    }
}