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 , $t , $xmax , $ymax\n";
  print "'$x','$y','$scale','$t','$xmax','$ymax'\n";
  print join(', ',hexify($x),hexify($y),hexify($scale),hexify($t),hexify($xmax),hexify($ymax))."\n\n";
}
sub hexify {
  my $s = shift;
  $s =~ s/(.)/sprintf("%x ",ord($1))/eg;
  return $s;
}