sub scale{
  my $self = shift;
  my $x = shift;
  my $y = shift || $x;
}