Select Code to Download

sub GetValue {
  my( $grid, $y, $x ) = @_;
  return "($y, $x)";
}

sub GetValueAsDouble {  # Row # plus (Col #/1000)
  my( $grid, $r, $c ) = @_;
  return $r + $c / 1000;
}