sub calc {
  my $t = $scale;
  $xmax = $x * $t;
  $ymax = $y * $t;
  $results = sprintf("Calculated X-max=%8.4f, Y-Max=%8.4f",$xmax,$ymax);
  print "$x, $y, $scale, $xmax, $ymax\n";
}